COGU56 - Stampa distinta pagamenti multipli
Intestazione
| Campo |
Valore |
| Programma |
COGU56 |
| Titolo |
Stampa distinta pagamenti multipli |
| Tipo |
Stampa parametrica (subroutine richiamabile) |
| Menu |
Contabilita' > Fornit. a Part.Aperte > Stampe > Distinta pag.multipli |
| Sorgente |
cbl/cogu56.cbl |
Scopo e logica generale
COGU56 e' un programma di stampa che produce il riepilogo cartaceo di una distinta di pagamenti multipli a fornitori, gia' generata in precedenza. Si limita a leggere i record della distinta e dei record di dettaglio, ricomponendo per ciascun fornitore le partite pagate, importo, scadenza, IBAN e riferimento prima nota.
Funziona sia in modalita' interattiva (chiede il numero distinta) sia come subroutine: se chiamato con u56-called = k-program-id, riceve u56-num-dist e salta direttamente al paragrafo a-stampa.
Flusso principale
apri: init, lettura azienda, apertura file, abilitazione tasti funzione standard.- Modalita' chiamata: se
u56-called = k-program-id viene impostato tm-num-dist con u56-num-dist e si va direttamente a a-stampa.
- Modalita' interattiva:
a4 (init maschera) → a-tm-num-dist (accept numero) → a-richiesta-conferma.
x-controlla-tm-num-dist: validazione presenza distinta (lettura NUTSDIST/dettagli).a-stampa → stampa thru ex-stampa: scansione dei dettagli con stampa raggruppata per banca e riga, totali.fine / z-chiudi: chiusura file, exit.
File e tabelle acceduti
| File logico |
Modalita' |
Uso |
| FEURTAB |
Input |
Tabella nomi file |
| NUTSDIST |
Input |
Testata distinta pagamenti multipli (chiave: numero distinta) |
| NUTSRIGHE (cogu56.fd) |
Input |
Righe di dettaglio della distinta |
| COGGEANA |
Input |
Anagrafica fornitori |
| FLSTA |
Output |
File di stampa virtuale |
Copybook inclusi
cogu56.select, cogu56.fd, cogu56.wrk, cogu56-01.scr, cogu56.decla, cogu56.prck-u10.cpy, k-personal.cpywgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, cogazien.cpyutillogo.cpy, utils54.cpy, utilu10.cpy- Linkage:
wcont.cpy, wcont1.cpy, utilu56.cpy
Programmi chiamati (CALL)
| Programma |
Scopo |
| COGU10W |
Formattazione importi e gestione divisa |
| COGS54 |
Stampa (gestione device e logo) |
Logica di business
- La distinta e' identificata da un numero progressivo: il programma non esegue alcuna modifica sui dati, e' read-only.
- Il record
dst-rec (testata) contiene banca di appoggio, data creazione, data pagamento, tipo pagamento e codice anagrafica.
- Per ogni riga: codice fornitore, scadenza, riferimento fattura, importo, IBAN, numero documento prima nota.
- La stampa accumula in
w-tot-dst-importo il totale degli importi e in w-tot-dst il numero di righe.
- Il numero massimo di linee per pagina e la testata sono gestiti dal modulo di stampa standard (COGS54).
- Modalita' subroutine: nessuna interazione utente, ritorno con
exit program.
Storico modifiche
- Pagina creata in autodoc 2026-05-16.