COGC10 — Contabilizzazione articolo di apertura esercizio¶

Sorgente: cbl/cogc10.cbl | Tipo: interattivo a maschera con elaborazione batch | Program-ID: cogc10

Menu: Contabilita' > Bilancio > Chiusura/Riapertura Esercizio > Contabilizz. Art. Apertura

Scopo¶

Contabilizza (rende definitivo in prima nota) l'articolo di apertura dell'esercizio, precedentemente generato dalla funzione di creazione articoli di chiusura/apertura (che scrive APERT.ARC). Il programma legge i movimenti di apertura dall'archivio provvisorio, li riversa nel giornale e nell'archivio movimenti contabilizzati dell'esercizio corrente, e infine ricostruisce i saldi progressivi dei conti tenendo conto dell'apertura.

Il flusso e' quindi: lettura di APERT.ARC (prima nota non contabilizzata) → scrittura sul giornale bollato e sull'archivio movimenti contabilizzati dell'anno attuale → aggiornamento della tabella esercizio con l'esito → azzeramento e ricalcolo dei saldi progressivi (dare/avere e mensili) sull'archivio saldi. Al termine mostra i totali dare/avere dell'articolo di apertura e i totali progressivi dopo l'apertura.

File e tabelle principali¶

File/Tabella	Copybook	Uso
`FEURPNO` = `APERT.ARC`	`cogpnonc.cpy` (replacing `pno-`→`pnt-`)	Archivio prima nota non contabilizzata dell'apertura; aperto i-o, letto sequenzialmente (`start`/`read next` su `pnt-chia3`) come sorgente dei movimenti
`FARC` (archivio movimenti anno attuale)	record `arc-rec` definito inline (via `cogpnonc.cpy` nella `.select`)	Archivio prima nota contabilizzata dell'esercizio corrente; aperto i-o, destinazione dei movimenti contabilizzati
`FEURLAV` (giornale)	record `lav-rec` inline	File giornale scritto in output (`write lav-rec from pno-rec`)
`COGTABEL` (feurtab)	`cogfiles.cpy` / `cogtabel.fd`	Tabella esercizio: tipo 66 (parametri esercizio → `conta-rec`); record tipo "AF" aggiornato con l'esito della contabilizzazione apertura
`COGSLPCO`	`cogslpco.fd`	Saldi progressivi per conto (`con-rec`): `con-prodare`, `con-proavere` e saldi mensili; azzerati e ricostruiti a livello sottoconto/conto/mastro
`COGPNCON`	`cogpncon.fd`	Piano dei conti (letture di supporto)
Anagrafica esercizio	`cogconta.cpy`	Struttura `conta-rec` con i codici esercizio, usata per costruire il percorso di `APERT.ARC` e dell'archivio movimenti

Copybook di servizio: utils52.cpy (date COGS52W), utilu10.cpy + k-u10.cpy (edit/cambio importi COGU10W), cogazien.cpy, wstato/wopenf/wgrave/wnscr. Copybook generati da Screens: cogc10.select (SELECT di COGTABEL, COGPNCON, COGSLPCO), cogc10.fd, cogc10.wrk, cogc10-01.scr, cogc10.decla, cogc10.prc.

Flusso principale¶

apri — inizializzazioni, lettura azienda, lettura esercizio (COGTABEL tipo 66 → conta-rec); costruisce il percorso di APERT.ARC (fileco) e apre FEURPNO in i-o; apre l'archivio movimenti contabilizzati dell'anno (FARC) in i-o.
a4 e paragrafi di richiesta — maschera con avviso/conferma operatore (verifica di aver eseguito il salvataggio archivi) e conferma di avvio elaborazione.
Apertura giornale — costruisce il percorso del file giornale (fileogio) e apre FEURLAV in output.
a210 / ciclo a220 — posiziona FEURPNO (start ... key not < pnt-chia3) e legge i movimenti di apertura in sequenza (read feurpno next into pno-rec); per ogni movimento: converte l'importo in euro se in divisa (COGU10W), scrive la riga sul giornale (write lav-rec from pno-rec), scrive il movimento sull'archivio contabilizzato FARC, accumula i totali dare/avere e aggiorna sulla maschera i dati del documento in corso.
a800 — a fine lettura mostra i totali dell'articolo di apertura (dare/avere) e aggiorna in COGTABEL il record tipo "AF" (numero documento di apertura contabilizzato).
Azzeramento saldi (a100/a120) — scandisce COGSLPCO per l'esercizio e azzera con-prodare/con-proavere di tutti i conti (rwr-cogslpco).
Ricostruzione saldi (a855 ... rsconto/rconto/rmastro) — riapre FARC in input e riaccumula i movimenti per sottoconto/conto/mastro, riscrivendo i saldi progressivi (con-prodare/con-proavere) su COGSLPCO a ciascun livello.
a950 — mostra i totali progressivi dopo l'apertura (dare/avere).
z-chiudi — chiude feurlav, farc, cogtabel, cogslpco, feurpno, cogpncon e termina.

Sottoprogrammi chiamati¶

Programma	Ruolo
`COGS52W`	Editing/formattazione della data movimento
`COGU10W`	Conversione cambio valuta ed editing importi (via `z-u10`)

Note¶

L'operazione e' irreversibile a livello dati: riversa APERT.ARC sul giornale e sull'archivio movimenti contabilizzati e ricostruisce i saldi progressivi. Il programma richiede all'operatore la conferma di aver eseguito il backup degli archivi prima di procedere.
I saldi progressivi in COGSLPCO vengono azzerati e ricalcolati rileggendo l'archivio movimenti contabilizzati: la ricostruzione (rsconto/rconto/rmastro) aggiorna dare/avere e totalizzatori mensili per sottoconto, conto e mastro.
Il record pnt- di FEURPNO deriva da cogpnonc.cpy con sostituzione del prefisso pno-→pnt-; la lettura avviene con read ... into pno-rec, cosicche' le scritture su giornale e archivio contabilizzato riutilizzano il layout pno-.
Sorgente legacy: la logica di elaborazione e' governata da numerosi GO TO fra paragrafi numerati (a210, a220, a800, a100, a855, a950, fine) e da PERFORM ... THRU (es. rsconto thru ex-rsconto, cstato thru ex-cstato). Da non replicare nei nuovi sviluppi. La chiamata a COGS95 presente nel sorgente e' commentata (non attiva).