COGC07 - Stampa Brogliaccio Articoli di Chiusura/Apertura¶

Sorgente: cbl/cogc07.cbl | Program-ID: COGC07 | Tipo: Stampa

Menu: Contabilita' > Bilancio > Chiusura/Riapertura Esercizio > Stampa Art. Chiusura/Aper.

Descrizione¶

Stampa il brogliaccio degli articoli contabili di chiusura o apertura dell'esercizio. L'utente sceglie se stampare gli articoli di chiusura (file CHIUS.ARC) o di apertura (file APERT.ARC). Per ogni riga contabile stampa: data, numero documento, conto (mastro/conto/sottoconto), descrizione, valuta, data competenza economica, dare e avere. In fondo produce i totali.

Tabelle utilizzate¶

Tabella	Copybook	Accesso	Descrizione
FEURTAB	cogfiles.cpy	Random	Tabella generale di sistema
COGCONTA (tipo 66)	cogconta.cpy	Random	Parametri esercizio contabile corrente
FEURPNO	cogpnonc.cpy	Dynamic	Piano dei conti / partitario (lettura righe articolo)
FLSTA	flsta.cpy	Output	File di stampa

I file degli articoli (CHIUS.ARC e APERT.ARC) sono file indicizzati il cui path viene costruito a runtime combinando ext-arc-dir con il codice esercizio letto da COGCONTA.

Flusso di elaborazione¶

Apertura: legge i parametri di esercizio da COGTABEL tipo 66 (euta-tipo=66, euta-codr=0) tramite rd-cogtabel. Costruisce i path dei file di archivio chiusura e apertura.
Maschera parametri: presenta un campo scelta (C=Chiusura / A=Apertura) tramite la screen cogc07-01.scr. Valore di default: C.
Selezione stampa: chiama COGS54 per la scelta stampante/anteprima (larghezza 136 colonne).
Scansione e stampa: apre il file archivio selezionato (chiusura o apertura), scorre tutti i record e per ognuno formatta e scrive la riga di dettaglio (rdet1). Gestisce le righe di secondaria descrizione (rdet2), le righe fattura (rdet3) e i centri di costo (rdet4). Produce un'intestazione ripetuta ogni pagina.
Totali: al termine stampa i totali dare/avere accumulati (td1/ta1).

Paragrafi principali¶

Paragrafo	Funzione
`apri`	Inizializzazione, lettura esercizio, costruzione path archivi
`a4`	Reset maschera, caricamento controlli
`a-tm-risp`	Accept del campo tipo articolo (C/A)
`a-inizio-dati`	Conferma parametri, chiama COGS54, avvia stampa
`intesta`	Stampa intestazione pagina
Loop scansione	Lettura sequenziale del file archivio e formattazione righe

Chiamate a sottoprogrammi¶

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

Copybook principali¶

cogfiles.cpy - Layout FEURTAB
cogpnonc.cpy - Layout partitario/piano dei conti
cogconta.cpy, cogcont1.cpy - Parametri esercizio contabile
cogazien.cpy - Dati azienda
utils54.cpy, utilu10.cpy - Utilities stampa e generiche
wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy - Working storage standard
k-u10.cpy - Costanti U10

Note implementative¶

La maschera e' definita in cogc07-01.scr (Screen Designer).
Il path dei file di archivio e' costruito dinamicamente: ext-arc-dir + slash + conta-cone1(2:3) + "CHIUS.ARC" (chiusura) e conta-cones1(2:3) + "APERT.ARC" (apertura).
Il file di partitario (feurpno) e' aperto con chiave dinamica per la lettura delle righe degli articoli.
Larghezza stampa: 136 colonne.