COGH09 - Riclassificazione C.E.E. su Bollato (Stampa Bilancio CEE Comparato)¶

Sorgente: cbl/cogh09.cbl | Program-ID: COGH09 | Tipo: Stampa

Menu: Contabilita' > Bilancio > Riclass. IV Direttiva C.E.E. > Stampe > Riclassificazione S.

Descrizione¶

Stampa il bilancio riclassificato secondo la IV Direttiva C.E.E. in forma comparata: per ogni voce della struttura gerarchica (lettere maiuscole, numeri romani, numeri arabi, lettere minuscole) vengono affiancati il saldo dell'esercizio corrente e il saldo dell'esercizio precedente. La stampa e' destinata al bollato e alla presentazione ufficiale.

Utilizza file di lavoro intermedi (lavlav, stalav) pre-calcolati dalla fase di elaborazione della riclassificazione.

Tabelle utilizzate¶

Tabella	Copybook	Accesso	Descrizione
FEURTAB	COGFILES.CPY	Random	Tabella generale di sistema
File da cogh09.select	(da cogh09.fd/select)	Dynamic	Tabelle riclassificazione C.E.E. (modelli, quadri, voci)
lavlav	Inline (lav-rec)	Dynamic	File di lavoro: saldi correnti per voce C.E.E.
stalav	Inline (sta-rec)	Dynamic	File di lavoro: saldi precedenti per voce C.E.E.
FLSTA	flsta.cpy	Output	File di stampa

Struttura lav-rec (file lavlav)¶

Chiave: lav-modello + lav-quadro + lav-letma + lav-numro + lav-numar + lav-letmi + lav-prdes. Campi principali: lav-dare, lav-avere, lav-saldo, lav-saldo-1, lav-descr, lav-flform, lav-currency.

Struttura sta-rec (file stalav)¶

Chiave: sta-num + sta-prog. Campi principali: sta-saldo, sta-saldo-1, sta-descr, sta-flform, sta-fldes, sta-currency.

Flusso di elaborazione¶

Maschera parametri: richiede modello (tm-modello), quadro (tm-stpco), stampa conti collegati (tm-stpco) e precisione importi (tm-prec).
Selezione stampa: chiama COGS54 (larghezza 132 colonne).
Scansione lavlav: scansione sequenziale del file di lavoro per modello/quadro. Per ogni voce della struttura gerarchica C.E.E.:
Determina il livello (lettera maiuscola, numero romano, numero arabo, lettera minuscola) in base ai campi chiave.
Recupera il saldo precedente da stalav tramite ricerca per chiave.
Formatta la riga con saldo corrente e saldo precedente affiancati.
Gerarchia: le tabelle tab-maiusc, tab-romani, tab-minusc (21 elementi ciascuna) forniscono le etichette testuali per la numerazione della struttura C.E.E.
Stampa: produce righe di dettaglio con importi formattati a 15-17 caratteri (include segno e decimali).

Paragrafi principali¶

Paragrafo	Funzione
`apri`	Inizializzazione, path file di lavoro
`a4`	Reset maschera
`a-tm-modello`	Accept codice modello
`a-tm-stpco`	Accept opzione stampa conti
`a-tm-prec`	Accept precisione importi
`a-riga-fine`	Conferma, chiama COGS54, avvia stampa
Loop scansione lavlav	Lettura e formattazione voci bilancio C.E.E.
`intesta`	Intestazione pagina

Chiamate a sottoprogrammi¶

Programma	Scopo
COGS54	Gestione stampa (selezione stampante / anteprima), larghezza 132 colonne

Copybook principali¶

COGFILES.CPY - Layout FEURTAB
k-u10.cpy - Costanti U10
cogazien.cpy - Dati azienda
wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy - Working storage standard

Note implementative¶

La maschera e' definita in cogh09-01.scr (Screen Designer).
I file lavlav e stalav sono file temporanei di lavoro: il loro path e' costruito a runtime (nf-lavlav, nf-stalav) e dipende dall'ambiente di esecuzione.
I file di lavoro devono essere stati pre-calcolati dalla fase di elaborazione della riclassificazione (altro programma della catena C.E.E.); se assenti, la stampa sara' vuota.
La struttura gerarchica C.E.E. e' codificata con numerazione: lettera maiuscola (lav-letma), numero romano (lav-numro), numero arabo 1 e 2 (lav-numar1, lav-numar2), lettera minuscola 1 e 2 (lav-letmi1, lav-letmi2).
Larghezza stampa: 132 colonne.