COSO73 - Stampa Incassi Ricevuti

Scopo

Estrae da COGPNONC i movimenti di incasso sul conto soci (mastro 28 conto 01) per una zona/filiale e produce una stampa di dettaglio con importi Dare/Avere, riferimenti, contropartite e totali a quattro livelli (documento, pagina, zona, cumulativo).

File e tabelle

File	Tipo	Descrizione
COGPNONC	Indicizzato	Movimenti contabili (lettura sequenziale per chiave PNO-CHIA)
COGPNCON	Indicizzato	Descrizioni conti
COGGEANA	Indicizzato	Descrizioni anagrafiche
COGTABEL	Indicizzato	Parametri zone (tipo 66)
FEURTAB	Indicizzato	Intestazioni aziendali

Copybook

Copybook	Sezione	Utilizzo
coso73.wrk / .fd / .select	tutte	Strutture generate da Screens
cogconta.cpy	WORKING-STORAGE	Strutture contabili
utils54.cpy	WORKING-STORAGE	Stampa (parametri carta, emulazione)
wstato.cpy / wgrave.cpy / wopenf.cpy / wnscr.cpy	WORKING-STORAGE	Standard

CALL

Programma	Quando	Scopo
COGS54	Prima della stampa	Maschera di configurazione stampa (carta, emulazione, ricarico)

Logica di elaborazione

Flusso principale

1. Accetta la zona (3 cifre) e apre l'archivio di incasso corrispondente (nome RICEV[ZONA].ARC).
2. Legge da COGTABEL (tipo 66) la descrizione della zona.
3. Invoca COGS54 per i parametri di stampa.
4. Scorre COGPNONC in sequenza: per ogni movimento accumula nei contatori (TD1 dare documento, TA1 avere documento).
5. Per movimenti sul mastro 28: stampa riga di dettaglio (FORMASTA), legge la contropartita e stampa il riepilogo.
6. Ad ogni cambio documento azzera i contatori di documento.
7. Al termine stampa i totali cumulativi (TD1..TD4 / TA1..TA4).

Note tecniche

• Ristampa dell'intestazione ogni 56 righe (FORMASTA via INTESTA).
• Quattro livelli di totali: TD1/TA1 per documento, TD2/TA2 per pagina, TD3/TA3 per zona, TD4/TA4 cumulativo.
• Solo lettura: nessuna modifica ai dati.

Note operative

• Larghezza stampa fissata a 80 caratteri.
• Variante con divisione esplicita (Euro/Lire) gestita da COSO84 (stampa addebiti).