COGE76 — Stampa Brogliaccio¶
Sorgente: cbl/maue76.cbl | Program-ID: COGE76 | Tipo: Programma di stampa
Menu: Contabilita' > Prima Nota > Stampe > Brogliaccio
Scopo¶
Stampa un brogliaccio (trial balance) dei movimenti contabili dalla Prima Nota, con totalizzazioni per data, documento, conto e centro di costo. Supporta selezione per singoli documenti, per range di documenti o per range di date, con opzioni per movimenti contabilizzati, anno precedente e nota provvisoria.
Struttura della maschera¶
La maschera usa un tab-control con tre pagine logiche:
Tipo Stampa¶
| Campo | Variabile | Tipo | Descrizione |
|---|---|---|---|
| Movimenti contabilizzati | TM-RISP1 |
checkbox | Include movimenti contabilizzati |
| Movimenti anno precedente | TM-RISP2 |
checkbox | Include movimenti anno precedente |
| P.nota provvisoria | TM-PROV |
checkbox | Include nota provvisoria (solo se AZ-GES-IP = "S") |
| Stampa centri di costo | TM-CCOPR |
checkbox | Stampa dettaglio centri di costo (solo se AZ-CCOPR = "S") |
| Flag provvisori (8/6/9) | TM-8, TM-6, TM-9 |
checkbox | Sotto-flags provvisoria (visibili solo con TM-PROV = "S", in cascata) |
Selezione Documenti¶
Selezionabile tramite combo-box TM-RISP3:
| Modalita' | Valore | Campi attivi |
|---|---|---|
| Singoli documenti | "S" |
TM-DOCO1 ... TM-DOCO10 (fino a 10 documenti) |
| Range documenti | "D" |
TM-DOCPAR (da), TM-DOCARR (a) |
| Range date | "T" (default) |
TM-COMDATAP (da), TM-COMDATAA (a) |
Opzioni¶
| Campo | Variabile | Descrizione |
|---|---|---|
| Divisa di stampa | TM-DIVISA |
Codice divisa; se vuoto usa la divisa di inserimento |
Logica di elaborazione¶
Selezione per range date (default)¶
- Legge COGPNONC con start su chiave
PNO-DATA-MOVda data partenza - Scorre sequenzialmente fino a data arrivo
- Accumulatori:
TD3/TA3(dare/avere) con reset al cambio data
Selezione per singoli documenti¶
- Per ogni documento indicato (fino a 10), cerca in COGPNONC con chiave
ST-COGPNONC-NOTMIN - Accumulatori:
TD1/TA1con reset per documento
Selezione per range documenti¶
- Start da
TM-DOCPAR, scorre fino aTM-DOCARR - Accumulatori:
TD2/TA2con reset per documento
Formattazione righe di stampa¶
Per ogni movimento:
- Riga dettaglio (RDET1): data, documento, sottoconto, segno (D/A), importo formattato
- Descrizione conto: lookup su COGPNCON (se conto) o COGGEANA (se anagrafica cliente/fornitore)
- Riga fattura (RDET3): numero e data fattura (se presente)
- Riga centro di costo (RDET4): codice CC a 3 livelli e descrizione (se
TM-CCOPR = "S") - Importi formattati tramite COGU10W con divisa specificata
Nota provvisoria¶
Il flag FL-PNO-PRO controlla l'inclusione dei record:
" ": Escludi note provvisorie"P": Includi note provvisorie"O": Solo originali (tutti e tre i sotto-flag 8/6/9 attivi)
File utilizzati¶
| File | Accesso | Scopo |
|---|---|---|
| COGPNONC | I-O per k01/k03 | Movimenti prima nota contabile |
| COGTABEL | Lettura | Tabelle (tipo 66: config contabilita', tipo 56: divise) |
| COGPNCON | Lettura | Conti contabili (descrizione, tipo anagrafica) |
| COGGEANA | Lettura | Anagrafica generale (clienti/fornitori) |
| COGFATTU | Lettura | Fatture (numero/data per riferimento) |
| COGCCOPR | Lettura | Gerarchia centri di costo (3 livelli) |
| COGMOVCC | Lettura | Movimenti per centro di costo |
| FLSTA | Output | File spool stampa (132 caratteri) |
Programmi chiamati¶
| Programma | Scopo |
|---|---|
| COGE22 | Help/selezione divisa (F8 su campo divisa) |
| COGS54 | Gestione anteprima/spooler stampa |
| COGU10W | Formattazione importi con divisa |
| COGS99W | Lookup centro di costo |
Messaggi di errore¶
| Messaggio | Causa |
|---|---|
| "Manca Tabella Generica Contabilita'!" | Record tipo 66 di COGTABEL assente |
| "Non esistono movimenti!!" | Nessun movimento trovato nel range |
| "Divisa inesistente!!" | Codice divisa non trovato in COGTABEL tipo 56 |
| "Numero partenza maggiore numero arrivo!!" | Range documenti invertito |
| "Data iniziale obbligatoria!!" | Data partenza non compilata |
| "Data arrivo obbligatoria!!" | Data arrivo non compilata |
| "Indicare due date dello stesso anno!" | Le date coprono anni diversi |
| "Inserire almeno un documento" | Nessun documento indicato nella selezione singoli |
Formato stampa¶
Stampa a 132 caratteri con le seguenti sezioni:
- Testata pagina: azienda, periodo, tipo movimenti, data stampa
- Righe dettaglio: data | documento | sottoconto | descrizione | segno | importo
- Subtotali: per documento, per data
- Totale generale: dare e avere complessivi
- Cambio pagina: ogni 90 righe
Note¶
- Il file sorgente si chiama
maue76.cbl(naming da conversione Windows 23/09/2004) ma il program-id e'COGE76 - Formato numerico: punto decimale impostato a virgola (locale italiano)