COSO84 - Stampa Addebiti Ricevuti
Scopo
Variante di COSO73 (stampa incassi) dedicata agli addebiti. Estrae da COGPNONC i movimenti del conto soci (mastro 28 conto 01) per una zona/filiale e li stampa con dettaglio, includendo esplicitamente la divisione (Euro/Lire) e usando il file di stampa FLSTA (stampante a matrice con ricarico).
File e tabelle
| File |
Tipo |
Descrizione |
| COGPNONC |
Indicizzato |
Movimenti contabili |
| COGPNCON |
Indicizzato |
Descrizioni conti |
| COGGEANA |
Indicizzato |
Descrizioni anagrafiche |
| COGTABEL |
Indicizzato |
Parametri zone |
| FLSTA |
Sequenziale |
File di output stampante (con ricarico) |
Copybook
| Copybook |
Sezione |
Utilizzo |
| coso84.wrk / .fd / .select |
tutte |
Strutture generate da Screens |
| cogconta.cpy |
WORKING-STORAGE |
Strutture contabili |
| utils54.cpy |
WORKING-STORAGE |
Stampa |
| cogcoatt.cpy |
WORKING-STORAGE |
Attributi specifici stampante |
| wstato.cpy / wgrave.cpy |
WORKING-STORAGE |
Standard |
CALL
| Programma |
Quando |
Scopo |
| COGS54 |
Inizio e fine stampa |
Parametri stampante + reset finale (K-CPI-RESET) |
Logica di elaborazione
Flusso principale (variante COSO73)
- Accetta la zona e apre l'archivio
ADDEB[ZONA].ARC (al posto di RICEV[ZONA].ARC).
- Prima della stampa carica
W-CURRENCY-CONTO da PNO-CURRENCY e stampa la divisione in intestazione secondaria (RINT1-1).
- Gestione impaginazione tramite
S54-STM-LIN (linee per pagina dalla configurazione, non hardcoded).
- Stampa identica a COSO73: dettaglio movimenti, contropartite, totali a 4 livelli.
- Reset stampante a fine stampa (scrive K-CPI-RESET prima del COGS54 finale).
Note tecniche
- File FLSTA come output (write senza rewind iniziale, close no-rewind finale).
- Caratteri ASCII per bordi (pipes
|, underscores _).
- Valuta tracciata per ogni movimento (PNO-CURRENCY) e stampata in riga aggiuntiva.
Note operative
- Stampa di sola lettura.
- Per gli incassi vedere COSO73.