MIL007 - Stampa Bilancio Riclassificato Uso Bollo¶
Panoramica¶
Programma di stampa del bilancio riclassificato, formattato per l'uso bollo (adempimento imposta di bollo su libri contabili). Supporta la numerazione progressiva annuale delle pagine e il dettaglio dei conti di contabilita' generale.
Tipo: Report con selezione parametri, lettura sequenziale del file riclassificazione e stampa formattata.
Posizioni nel menu¶
| Menu | Percorso |
|---|---|
| Contabilita' | Bilancio > Riclassificazioni |
Struttura del programma¶
File e tabelle utilizzati¶
| File/Tabella | Tipo | Descrizione |
|---|---|---|
| FEURTAB (cogfiles) | Input | Tabella parametri generali |
| COGGEANA | Input | Anagrafica generale (per dati intestazione azienda) |
| FRICL (coriclas) | Input | File riclassificazione bilancio (RIC{azienda}.ARC) |
| COGTRANS | Transito | File temporaneo per dettaglio Co.Ge. |
| FLSTA | Output | File di stampa |
Copybook principali¶
| Copybook | Descrizione |
|---|---|
| mil007.select | SELECT per i file del programma |
| mil007.fd | File description |
| mil007.wrk | Working storage generata da Screens |
| mil007-01.scr | Screen section maschera |
| mil007.decla | Declaratives per gestione errori I/O |
| coriclas.cpy | Record file riclassificazione (ric-bil, ric-sezione, ric-des, ric-impo) |
| cogazien.cpy | Dati azienda corrente |
| utils25.cpy | Utility COGS25 (gestione numerazione pagine registro) |
| utils52.cpy | Utility COGS52W (gestione campo data) |
| utils54.cpy | Utility COGS54 (gestione stampante) |
| utilu10.cpy / k-u10.cpy | Utility COGU10W (formattazione importi) |
| utilncnf.cpy | Utility configurazione (intestazione stampa personalizzabile) |
Chiamate a sottoprogrammi (CALL)¶
| Programma | Scopo |
|---|---|
| COGS54 | Gestione stampante |
| COGS52W | Gestione campo data con calendario |
| COGS25 | Gestione numerazione progressiva pagine per registro bollo |
| COGU10W | Formattazione importi (via z-u10) |
Logica di elaborazione¶
Maschera di selezione¶
Parametri:
- tm-descr1..6: 6 righe di intestazione. Le prime 3 sono precompilate con dati azienda (ragione sociale, indirizzo, localita'/provincia/P.IVA)
- tm-anno: anno per numerazione pagine registro. Visibile solo se
tm-cfg-sta = "S"(configurazione attiva) - tm-dettaglio-coge: flag per stampa dettaglio conti Co.Ge.
La configurazione intestazione e' gestita tramite utilncnf (F1 = modifica configurazione via x99-src-cfg).
File di riclassificazione (FRICL)¶
Il file RIC{azienda}.ARC (in ext-tmp-dir) contiene i record della riclassificazione. Record significativi da coriclas.cpy:
ric-bil: "1" = Stato Patrimoniale, "2" = Conto Economicoric-sezione: "1" = Attivita', "2" = Passivita', "3" = Costi, "4" = Ricaviric-des: descrizione della voceric-impo: importo della voce
Fase di stampa¶
- Se
tm-cfg-sta = "S", chiama COGS25 per ottenere il numero pagina progressivo (codice 39) - Stampa intestazione con
int-testa1(ragione sociale + P.IVA),int-testa2(indirizzo + localita'),int-testa3(titolo + anno/pagina) - Stampa le 6 righe di descrizione personalizzate (se non vuote)
- Legge sequenzialmente il file FRICL:
- Rottura su
ric-bil: stampa "STATO PATRIMONIALE" o "CONTO ECONOMICO" - Rottura su
ric-sezione: stampa "ATTIVITA'", "PASSIVITA'", "COSTI", "RICAVI" - Per ogni voce: stampa descrizione + importo formattato (19 caratteri via COGU10W con
k-u10-edita) - Voci con importo zero vengono saltate
- Gestisce salto pagina quando
ctrig > max-righe(calcolato das54-stm-lin - 7)
Dettaglio Co.Ge. (opzionale)¶
Se tm-dettaglio-coge = "S", per ogni voce di riclassificazione viene stampato il dettaglio dei conti di contabilita' generale letti dal file di transito COGTRANS (##RIL{azienda}.ARC).
Note tecniche¶
- Larghezza stampa: 80 caratteri (
k-chr-stampa = 80) - Numerazione pagine gestita da COGS25 per adempimento imposta di bollo
- Il file FRICL e COGTRANS sono in
ext-tmp-dir, denominati in base al codice operatore - Gli importi sono formattati nella divisa del conto corrente (
w-currency-conto)