COGE79 — Contabilizzazione prima nota

Sorgente: cbl/coge79.cbl | Tipo: Elaborazione batch | Program-ID: coge79

Menu: Contabilita' > Prima Nota > Contabilizzazione > [Contabilizza tutta la Prima Nota] ; Contabilita' > Prima Nota > Contabilizzazione > [Contabilizza solo competenze Es.Pre.] ; Contabilita' > Bilancio > Chiusura/Riapertura Esercizio > Contab. Art. Utile/Perdita Eser. > [Contabilizza tutta la Prima Nota]

---

Scopo

Contabilizza (rende definitiva) la prima nota non ancora contabilizzata. Scandisce l'archivio dei movimenti di prima nota in stato "non contabilizzato" (COGPNONC) fino a una data richiesta, e per ogni movimento:

• aggiorna i saldi contabili del piano dei conti (COGSLPCO) a tre livelli (sottoconto, conto, mastro) per il mese di movimento;
• travasa il movimento nell'archivio della prima nota contabilizzata dell'anno in corso (COGCOATT);
• scrive la riga sul giornale bollato (file di lavoro feurlav, poi GIORNA#$.ARC);
• se il movimento ha data effettiva (competenza) su esercizio diverso, aggiorna anche i saldi e l'archivio dell'anno precedente (COGCOPRE) e transita i movimenti di centro di costo (COGMOVCC);
• cancella il movimento da COGPNONC.

Prima di procedere esegue un controllo di quadratura obbligatorio (totale dare = totale avere) e un controllo preliminare sulla presenza di documenti provvisori o con mastro/conto/sottoconto a zero.

Il programma ha due varianti pilotate dal parametro di menu (wo-parametro):

• normale: contabilizza tutti i movimenti fino alla data digitata;
• "P" (Contabilizza solo competenze Es.Pre.): filtra solo i movimenti con data effettiva significativa e uguale alla data di chiusura dell'esercizio precedente (conta-conchiupre9), per portare a nuovo le competenze dell'anno precedente.

File e tabelle principali

File/Tabella	Copybook	Uso	Note
COGPNONC	cogpnonc.cpy (pno-rec)	I-O	Prima nota non contabilizzata. Scansione per chiave secondaria 3 (chia3 = pno-datamov + pno-docum1), campi chiave: pno-mastro/conto/sconto, pno-importo, pno-segno (D/A), pno-currency, pno-dataeff/pno-effm, pno-fl-pro (provvisorio)
COGSLPCO	cogslpco.cpy (con-rec)	I-O	Saldi piano dei conti. Chiave con-mastro/conto/sconto + con-anno; con-prodare/con-proavere, con-saldo occurs 12 (per mese)
COGCOATT	cogcoatt.cpy (att-rec)	Output	Prima nota contabilizzata anno in corso (conta-cones), file aperto dinamicamente via open-pn-contabilizzata
COGCOPRE	cogcopre.cpy (pre-rec)	Output	Prima nota contabilizzata anno precedente (conta-conepre), per movimenti con data effettiva
COGPNCON	—	Input	Piano dei conti: rd-cogpncon per leggere il mastro (flag pco-reddito)
COGTABEL (tipo 66)	cogconta.cpy (conta-rec), cogcont1.cpy (conta1-rec)	I-O	Dati generici contabili: esercizio (conta-cones, conta-conepre9, conta-conchiupre9, conta-dachiur) e conto di trasformazione redditi es. prec. (conta1-mastro/conto/sconto)
COGMOVCC	cogmovcc.cpy (cdc-rec)	I-O	Movimenti di centro di costo, riallineati alla data effettiva (trasforma-cdc)
feurlav / GIORNA#$.ARC	—	Output	File sequenziale di lavoro per la stampa del giornale bollato
FUNIPNO / FUNISAL	(inline)	I-O	Archivi di parcheggio conto 28/01, solo per Unione Agricoltori (az-personal = "UN")

Copybook di supporto: wgrave, wnscr, wopenf, wstato, cogazien, utils52, utilu10, utilncnf, getdcont. Linkage: wcont, wcont1.

Flusso principale

1. apri — legge il parametro (w-anno-prec), inizializza, open-files, configurazione (x99-confi), compone i nomi dei file di parcheggio, e apre i file contabilizzati con apri-cont (legge esercizio corrente e precedente da COGTABEL tipo 66).
2. a4 / a-tm-risp1 / a-tm-datacor — richieste a video: conferma di avvenuto salvataggio archivi e data fino alla quale contabilizzare (x-controlla-tm-datacor verifica che sia nell'esercizio e >= data di ultima contabilizzazione conta-dachiur).
3. a-riga-fine — doppia richiesta di conferma esplicita prima di procedere.
4. ctr-prov — (se az-ges-ip = "S" e config attiva) controllo preliminare dei documenti provvisori/anomalie fino alla data.
5. a220-a/a220-b/a220-f — giro di quadratura: somma dare/avere dei movimenti non provvisori fino alla data; se non quadra chiede conferma per proseguire.
6. a220 — giro di contabilizzazione vero e proprio: per ogni movimento chiama aggiornasaldo (sottoconto), aggiornaconto, aggiornamastr sui saldi COGSLPCO, scrive su COGCOATT (wr-cogcoatt) e, se con data effettiva, su COGCOPRE (wr-cogcopre) previa trasformazione della data e dei centri di costo; scrive il giornale bollato e cancella il movimento (del-cogpnonc).
7. a800/a850/a855 — quadratura finale, e se non e' la variante "P" aggiorna la data di ultima contabilizzazione (conta-dachiur) su COGTABEL tipo 66 solo se la nuova data e' maggiore.
8. fine / z-chiudi — chiusura di tutti gli archivi.

Sottoprogrammi chiamati

Programma	Ruolo
COGS52W	Edit delle date a video (s52-ope = "Edita")
COGU10W	Edit degli importi e conversione di divisa/cambio (z-u10, k-u10-cambio)
RNEWCONF	Lettura configurazione (vedi sotto)

Configurazioni (RNEWCONF)

Paragrafo x99-confi, pacchetto "C":

Gruppo	Chiave	Uso
CONTABIL	controllo-pno-prov-ante-contabilizzo	Se diverso da "N" (e az-ges-ip = "S") attiva il controllo preliminare dei documenti provvisori prima di contabilizzare

Note

• L'aggiornamento saldi e' triplicato per livello (sottoconto/conto/mastro): ciascuna routine gestisce sia il record esistente (rwr-cogslpco) sia la creazione ex-novo (wr-cogslpco), sia per l'anno corrente sia, in caso di data effettiva, per l'anno precedente (conta-conepre9).
• Per i conti di reddito con data effettiva dell'esercizio precedente (pco-reddito = "R"), il saldo dell'anno corrente e' movimentato sul conto di trasformazione conta1-mastro/conto/sconto letto da COGTABEL tipo 66 (euta-codr = 1).
• Ogni errore grave su un archivio interrompe l'elaborazione con messaggio che invita a ripristinare gli archivi e ripetere la chiusura: il programma non e' idempotente e presuppone un salvataggio preliminare.
• Le personalizzazioni su FUNIPNO/FUNISAL e sul conto 28/01 sono attive solo per az-personal = "UN" (Unione Agricoltori).
• Il file feurlav funge da sorgente per la successiva stampa del giornale bollato.