COGC03 — Stampa Art. Chiusura C/Econ.¶
Sorgente: cbl/cogc03.cbl | Program-ID: COGC03 | Tipo: Programma di stampa (subroutine)
Menu: Contabilita' > Bilancio > Chiusura/Riapertura Esercizio > Stampa Art. Chiusura C/Econ.
Scopo¶
Stampa il brogliaccio dell'articolo di chiusura dei conti economici. Legge i movimenti dal file di chiusura conti economici (generato dalla procedura di chiusura esercizio) e produce un elenco dettagliato con data, numero documento, conto, descrizione, valuta, data effettiva, importi dare/avere, con totalizzazioni a tre livelli (per documento, per data, generali).
Logica di elaborazione¶
Flusso principale¶
- Apertura file di chiusura: il nome del file viene composto da
ext-arc-dir+ il codice archivio conti economici (da COGTABEL tipo 66, configurazione esercizio contabile) +ECONO.ARC - Scansione movimenti: lettura sequenziale del file
feurpno(struttura COGPNONC) per chiave 3 (pno-chia3) - Stampa dettaglio: per ogni movimento vengono stampati:
- Riga 1 (
rdet1): data movimento, N. documento, conto (mastro/conto/sottoconto), descrizione conto, data valuta, data effettiva, importo dare o avere - Riga 2 (
rdet2): tipo operazione (da COGTABEL tipo 65) e descrizione movimento - Riga 3 (
rdet3, opzionale): numero fattura e data fattura (solo sepno-nfatt not = zero)
Descrizione conto¶
La descrizione del conto viene recuperata da COGPNCON; se il conto ha un tipo anagrafica (pco-tipoanagr not = spaces), viene usato il nome dell'anagrafica da COGGEANA.
Rotture di livello e totalizzazioni¶
| Livello | Condizione | Accumulatori |
|---|---|---|
| 1 - Per documento | pno-docum not = comdoc |
td1/ta1 (dare/avere) |
| 2 - Per data | pno-datamov not = comdata |
td2/ta2 |
| 3 - Totale generale | Fine file | td3/ta3 |
Gli importi vengono formattati tramite COGU10 con la divisa del movimento (pno-currency).
File utilizzati¶
| File | Accesso | Scopo |
|---|---|---|
| FEURPNO (COGPNONC) | Input | File chiusura conti economici (nome dinamico da tabella 66) |
| COGTABEL | Input | Tabelle (tipo 66: esercizio contabile, tipo 65: tipi operazione) |
| COGPNCON | Input | Piano dei conti (descrizione conto) |
| COGGEANA | Input | Anagrafica generale (nome cliente/fornitore) |
| FLSTA | Output | File spool stampa |
Programmi chiamati¶
| Programma | Scopo |
|---|---|
| COGU10 | Formattazione importi con divisa |
| COGS54 | Gestione stampa/spooler |
Copybook principali¶
cogc03.wrk, cogc03.select, cogc03.fd, cogc03.decla, cogc03-01.scr, cogc03.prc, cogpnonc.cpy, cogfiles.cpy, cogazien.cpy, cogconta.cpy, utilrcnf.cpy, k-u10.cpy, utilf55.cpy, utils54.cpy, utilu10.cpy, GetDCont.cpy, mmsubw.cpy
Note¶
- Il programma usa
mmsubw.cpy(subroutine), quindi e' un sottoprogramma chiamato, non un programma standalone conmmmask.cpy. - Il file di chiusura conti economici ha nome dinamico:
{arc-dir}/{codice}ECONO.ARC, dove{codice}viene dalla configurazione esercizio contabile (COGTABEL tipo 66, campoconta-cone1). - Se il file non esiste (non ancora generato), il programma mostra un messaggio e termina.
- La larghezza di stampa e' 136 caratteri.
- La divisa di conto viene determinata all'avvio con
get-divisa-conto(daGetDCont.cpy).