COG008 - Stampa Bilancio di Verifica¶

Scopo¶

Produce il bilancio di verifica contabile a partire dai progressivi contabili (COGSLPCO) e dai movimenti di prima nota non contabilizzata (COGPNONC), con totalizzazione per mastro/conto/sottoconto, saldi iniziali di patrimoniale e reddito, calcolo utile/perdita d'esercizio e raffronto opzionale con il bilancio preventivo. Il programma costruisce un file di transito indicizzato temporaneo (COGTRANS) su cui aggrega i saldi e poi genera l'output in una delle modalita' alternative: stampa testuale via COGS54, stampa su modello Word/Area Report via WORDMDL, esportazione Excel/CSV, oppure riclassificazione secondo la IV direttiva CEE delegata a COGH06. Se invocato con wo-parametro = "E" opera in modalita' "Estrazione dati contabili" verso un modello di riclassificazione (COGBPCO).

Contabilita' > Prima Nota > Stampe > Bilancio Verifica

File e tabelle¶

File	Tipo	Descrizione
FEURTAB	Parametri	File parametri di ambiente / anagrafica azienda
COGTABEL	Indicizzato	Tabelle generiche; tipo 66 = tabella generica contabilita' (chiave `euta-tipo`/`euta-codr`), tipo "AE" = modelli analisi dati, tipo 45 = archivi contabilizzati
COGSLPCO	Indicizzato	Progressivi/saldi contabili di periodo; chiave `con-chia` (con-anno, con-mastro, con-conto, con-sconto); campi `con-prodare`, `con-proavere`, `con-prev`
COGPNONC	Indicizzato	Prima nota non contabilizzata; chiave `pno-chia`; campi `pno-mastro/conto/sconto`, `pno-importo`, `pno-segno`, `pno-datamov`, `pno-dataeff`, `pno-fl-pro`
COGPNCON	Indicizzato	Piano dei conti; chiave `pco-chia` (pco-mastro/conto/sconto); campi `pco-reddito`, `pco-des`, `pco-tipoanagr`, `pco-riemastro`
COGGEANA	Indicizzato	Anagrafica generale (clienti/fornitori); chiave `ana-tipo`/`ana-cod`
COGBPCO	Indicizzato	Voci del modello di riclassificazione (bilancio previsione contabile); chiave `bpc-mastro/conto/sconto`/`bpc-modello`
COGBIL	Indicizzato	Archivio bilancio (chiuso in `z-chiudi`)
COGTRANS	Indicizzato temporaneo	File di transito di aggregazione saldi (`#$COG008.<oper>` in `ext-tmp-dir`); chiave `trs-chia1` (trs-mas/con/sco); campi `trs-dare`, `trs-avere`, `trs-bilprev`, `trs-saldo-iniziale`, `trs-tipo`
LAVSAL	Indicizzato temporaneo	File saldi per la riclassificazione CEE (`#$sald.arc`); chiave `lsa-chia` (mastro/conto/sconto/anno); passato a COGH06
FILEASC	Sequenziale (line)	`bilancio.txt` per esportazione conti non collegati
FILEASC2	Sequenziale (line)	`bilancio.asc` in `ext-tmp-dir`, sorgente per esportazione Excel via GRIDTOXS
FILSEQ	Sequenziale (binary)	`#$cog008_err_<oper>.txt`, elenco conti non collegati

Copybook¶

File e select¶

feurtab.fd, cogfiles.cpy, cogcoatt.fd, cogcoatt.cpy, flsta.fd, flsta.cpy
cog008.select, cog008.fd, cog008.wrk, cog008-01.scr, cog008.decla
SELECT dichiarate manualmente nel sorgente: lavsal, cogtrans, fileasc, fileasc2, filseq (tabelle temporanee non gestibili da Screens)

Costanti¶

k-u10.cpy (operazioni cambio/edit divisa), k-personal.cpy (codici personalizzazione azienda)

Working-storage standard¶

wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, cogazien.cpy

Utilita'¶

utilncnf.cpy — configurazioni (x99-confi)
utilwordmdl.cpy — stampa su modello Word/Area Report
utilcogpa3.cpy — selezione modello Area Report
utilcogsc1.cpy — lettura/impostazione configurazioni (COGSC1)
utilopenfile.cpy — apertura file lato client (OPENFILE)
utilcogq38.cpy — aiuto modello di riclassificazione (COGQ38)
utile22.cpy — aiuto/gestione divise (COGE22)
utils52.cpy — gestione date (COGS52W)
utils54.cpy — parametri di stampa (COGS54)
utilu10.cpy — conversione/edit importi e divise (COGU10W)
l-copiaf.cpy — copia file client/server

Linkage¶

wcont.cpy, wcont1.cpy, u-copiaf.cpy
utilcogh06.cpy — parametri per la riclassificazione CEE (COGH06)

Procedure¶

mmmask.cpy (programma standalone), grave.cpy, opengen.cpy, stato.cpy, stato1.cpy, winmsg.cpy, cog008.prc

CALL¶

Programma	Descrizione
COGSC1	Lettura/impostazione della configurazione "area-report-attivo" per `stampe/COG008`
COGS52W	Gestione ed edit delle date (da/a data, data reddito, anno libro inventario)
COGS54	Selezione parametri di stampa (periferica, numero caratteri) ed esecuzione stampa
COGH06	Riclassificazione bilancio secondo la IV direttiva CEE (a partire da LAVSAL)
COGPA3	Selezione del modello Word/Area Report per la stampa formattata
WORDMDL	Generazione documento XML e stampa su modello Word/Area Report
COGQ38	Aiuto/selezione del modello di analisi dati (riclassificazione, euta tipo "AE")
COGE22	Aiuto/gestione delle divise
WIN157	Aiuto per la selezione dell'esercizio contabile (anno1/anno2)
GRIDTOXS	Esportazione in formato Excel del file `bilancio.asc`
OPENFILE	Apertura lato client del file dei conti non collegati
DTPRG / PRGDT	Conversione data ↔ numero progressivo giorno (calcolo data chiusura +1)

Logica di elaborazione¶

apri: determina modalita' (fl-estra-gest da wo-parametro), inizializza abilitazioni (ctr-abil), apre i file (open-files), imposta la configurazione area-report via COGSC1, apre in I-O il file temporaneo COGTRANS (con controllo "Funzione gia' in uso"), apre i file sequenziali di appoggio; legge la tabella generica contabilita' (COGTABEL tipo 66) ricavando esercizi e date di chiusura (conta-cone*, dachiur, conta-conchiupre9).
a4: inizializza tab-maschera con i valori di default (tipo bilancio "M", saldi a zero "S", date, ecc.); in modalita' estrazione forza bilancio parziale/tipo/anagrafici; imposta le visibilita' dei controlli (x-visible-*, x-enabled-*).
Accept della maschera (paragrafi a-tm-*): sequenza guidata di richieste — esercizio precedente, esercizio contabile, esclusioni documenti di chiusura, bilancio parziale, da/a data, data registrazione/competenza, saldi iniziali patrimoniale/reddito, tipo bilancio (M/C/S), sottoconti anagrafici, calcolo utile/perdita, documenti non contabilizzati con data effettiva, conti a saldo zero, raffronto preventivo, p.nota provvisoria (F8/F6/F9 per livelli 8/6/9), Excel, esclusione conti patrimoniali, riclassificazione IV CEE, stampa libro inventario, modello, raffronto anno precedente. Ogni campo passa per x-controlla-tm-* e gestisce F2 (indietro), ESC (a4), F8 (aiuto).
a-riga-fine: conferma finale (x-imposta-conferma); se area-report attivo cerca il modello via COGPA3; sceglie la modalita' di output (COGS54 per stampa, acc-conf per Excel/riclassificazione); azzera i totalizzatori.
Costruzione file di transito: per bilancio non parziale legge i progressivi COGSLPCO (a160/leggi01), filtra per esercizio e tipo bilancio (M/C/S), converte gli importi in divisa via COGU10W e scrive/aggiorna COGTRANS (leggi02); quindi scorre COGPNONC (leggi50-leggi90) sommando dare/avere ai record di transito, con logica differenziata reddito/patrimoniale e provvisori. Per bilancio parziale usa parz-00-new; per data < data chiusura usa read-cont.
elabora01: se riclassificazione IV CEE (tm-ricla-iv = "S") ricostruisce LAVSAL dai record di transito e delega tutto a COGH06. Altrimenti (elabora01-normale) apre eventualmente il documento XML (WORDMDL "Apri-XML" con tag di intestazione), poi scorre COGTRANS (elabora10).
elabora10-a051: per ogni conto determina tipo reddito/patrimoniale (COGPNCON), applica il filtro saldo-zero, calcola l'utile/perdita (accumulo bil-dare/bil-avere), gestisce le rotture di conto/mastro (rotconto/rotgruppo), recupera le descrizioni (COGPNCON o COGGEANA per sottoconti anagrafici), edita gli importi via COGU10W e scrive la riga sull'output attivo (riga testuale, tag XML via b5-riga-standard, o record ASCII per Excel). Accumula i totali per stato patrimoniale, conti di reddito e generali.
a999: stampa dei totali (Stato Patrimoniale, Conti di Reddito, Totali generali), saldo C/Reddito da esercizio precedente e, se richiesto, determinazione utile/perdita (a999-a) e saldi clienti/fornitori.
Documenti non contabilizzati con data effettiva (fine1-a1500-a2000): se richiesto, scorre COGPNONC stampando l'elenco dei documenti con data effettiva significativa.
a2000/z-chiudi: chiude/esegue la stampa WORDMDL o COGS54, segnala eventuale errore di quadratura (sw-attenzione), chiude i file, esporta in Excel (GRIDTOXS) e apre l'elenco conti non collegati (OPENFILE).

Note tecniche¶

Il file di transito COGTRANS e' una tabella temporanea indicizzata dichiarata manualmente (SELECT/FD nel sorgente): un solo utente per volta, l'apertura in output fallita segnala "Funzione gia' in uso dall'operatore".
Il livello di dettaglio (tm-tipobil) determina l'aggregazione: "M" solo mastro (con/sconto azzerati), "C" mastro+conto, "S" fino al sottoconto.
Il raffronto con il bilancio preventivo (tm-risp = "S") rapporta il preventivo annuo ai mesi del periodo (rispmm) e calcola la percentuale di scostamento (wperc, "N.C." se fuori range ±9999).
La p.nota provvisoria e' inclusa solo se az-ges-ip = "S"; il flag fl-pno-pro distingue provvisori (P) e ordinari/ordini (O), con esclusione dei movimenti provvisori antecedenti alla data di chiusura dell'esercizio precedente.
Le tre modalita' di output sono mutuamente esclusive e selezionate in a-riga-fine: stampa testuale (COGS54, righe da 136/149 caratteri), stampa Area Report (WORDMDL con tag XML TAB-DET/TAB-DOC), esportazione Excel/CSV (delimitatore TAB o ";", file bilancio.asc → GRIDTOXS). La riclassificazione IV CEE bypassa l'output diretto e passa il controllo a COGH06.
La conversione degli importi in divisa e la relativa edizione sono sempre mediate da COGU10W (k-u10-cambio, k-u10-edita).