COGC06 — Creazione articoli di chiusura/apertura esercizio¶

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

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

Scopo¶

Genera automaticamente gli articoli di prima nota di chiusura dell'esercizio precedente e di apertura dell'esercizio nuovo, a partire dai saldi dei conti patrimoniali. Per ogni conto patrimoniale che presenta uno sbilancio dare/avere, il programma crea due scritture di prima nota:

un articolo di chiusura (girocontando il saldo del conto verso il conto di riepilogo definito sul piano dei conti), scritto nell'archivio di prima nota temporaneo CHIUS.ARC;
un articolo di apertura (movimento inverso nell'esercizio nuovo), scritto in APERT.ARC.

I due archivi vengono creati in output (open output) nella directory degli archivi contabili, con nome derivato dai codici dei due esercizi (conta-cone1/conta-cones1). L'operatore imposta le due date registrazione (chiusura/apertura), i tipi operazione (causali contabili), le descrizioni degli articoli e una eventuale contropartita di apertura diversa da quella di riepilogo standard. Al termine viene proposta la stampa dell'articolo generato tramite COGC07.

File e tabelle principali¶

File/Tabella	Copybook	Uso
`COGTABEL` (feurtab)	`cogfiles.cpy`	Tabella esercizio contabile: `euta-tipo 66` (parametri esercizio → `conta-rec`), `euta-tipo 65` (tipi operazione/causali chiusura-apertura)
`COGSLPCO`	`cogcont1.cpy`	Saldi progressivi per conto (`con-rec`): mastro/conto/sottoconto, `con-prodare`/`con-proavere`, `con-anno`, `con-currency`
`COGPNCON`	`cogpncon.cpy`	Anagrafica piano dei conti (`pco-rec`): riepilogo (`pco-riemastro/rieconto/riesotco`), flag reddito (`pco-reddito`)
`FEURPNO1` = `CHIUS.ARC`	`cogpnonc.cpy` (replacing `pno-`→`pnt1-`)	Archivio prima nota chiusura (creato in output)
`FEURPNO2` = `APERT.ARC`	`cogpnonc.cpy` (replacing `pno-`→`pnt2-`)	Archivio prima nota apertura (creato in output)
Anagrafica esercizio	`cogconta.cpy`	Struttura `conta-rec`: codici esercizio (`conta-cone1/cone2`, `conta-cones1/cones2`), data chiusura precedente (`conta-conchiuprea/prem/preg`)

Copybook di working/servizio: cogazien.cpy, utile65.cpy (aiuto tipi operazione COGE65), utils25.cpy (numerazione COGS25), utils52.cpy (date COGS52), utils67.cpy (piano conti COGS67).

Flusso principale¶

apri — inizializzazioni, lettura azienda, open-files; attiva i tasti F3 conferma, F8 calendario/aiuto; legge il record esercizio (euta-tipo 66) in conta-rec; costruisce i nomi dei due archivi CHIUS.ARC/APERT.ARC da conta-cone1/conta-cones1.
a4 — rilegge l'esercizio, valorizza sulla maschera esercizio precedente/attuale (tm-eser-prec/tm-eser-att), date proposte (data chiusura da conta-conchiupre*, data apertura 01/mm/anno) e descrizioni default degli articoli; edita le date via COGS52.
a-tm-datac / a-tm-dataa — accept delle date articolo chiusura/apertura (COGS52W, F8 calendario).
a-tm-t-o-c / a-tm-t-o-a — accept dei tipi operazione (causali); F8 apre l'aiuto/gestione tramite COGE65; la validazione (x-controlla-tm-t-o-c/a) verifica l'esistenza in COGTABEL tipo 65.
a-tm-descric / a-tm-descria — descrizioni degli articoli (obbligatorie).
a-tm-pc — contropartita di apertura opzionale (piano conti via COGS67); se valorizzata deve esistere in COGPNCON.
a-inizio-dati — conferma finale (acc-conf); apre in output FEURPNO1/FEURPNO2 (se gia' in uso: "Funzione gia' in uso!!!").
a220 / a230-loop / a270 — scansione dei saldi COGSLPCO: scarta conti di reddito (pco-reddito = "R"), verifica presenza del riepilogo sul piano conti; elabora prima i conti in dare (fl-fine = " ") e poi in avere (fl-fine = "F") tramite due passate (a800 reimposta fl-fine).
elabora — per ogni conto sbilanciato genera due coppie di scritture: chiusura (verso il conto di riepilogo, pnt1-rec) e apertura (pnt2-rec), con importo con-prodare - con-proavere e segni dare/avere invertiti fra chiusura e apertura; numerazione documento via x11-agg-num.
x11-agg-num — ottiene i numeri documento di chiusura/apertura da COGS25 (numerazione p.nota, codice 5) sulle rispettive date.
a805 / fine — proposta stampa; se confermata chiude gli archivi e lancia COGC07.

Sottoprogrammi chiamati¶

Programma	Ruolo
`COGS52W`	Editing/validazione date (chiusura, apertura, data di competenza)
`COGE65`	Aiuto/gestione tipi operazione (causali contabili) su `F8`
`COGS25`	Attribuzione numero documento prima nota (numerazione, codice 5)
`COGC07`	Stampa dell'articolo di chiusura/apertura generato

(La chiamata a COGS67W per la contropartita, paragrafo z-s67-tm-pc, e' presente ma commentata: la contropartita viene digitata direttamente nei campi mastro/conto/sottoconto e validata su COGPNCON.)

Note¶

L'importo di ogni articolo e' lo sbilancio con-prodare - con-proavere; sono scartati i conti in pareggio (con-prodare = con-proavere).
Il conto di riepilogo per la scrittura di chiusura viene preso dai campi pco-riemastro/pco-rieconto/pco-riesotco del piano dei conti; se mancante o incompleto il conto viene segnalato e saltato.
In apertura la contropartita di riepilogo puo' essere sostituita dalla contropartita opzionale digitata in tm-pc-* (se valorizzata).
Le scritture con pno-no-part = "N" sono le righe di contropartita (secondo movimento della coppia) escluse dalla gestione partite.
Il sorgente usa estesamente GO TO fra i paragrafi di accept e la scansione (a230-loop, a800) e PERFORM ... THRU (elabora thru ex-elabora, cstato thru ex-cstato): forme legacy della conversione, da non replicare.
I due archivi FEURPNO1/FEURPNO2 sono aperti in output (ricreati da zero): rilanciare l'elaborazione sovrascrive gli articoli precedentemente generati.