COGK75 - Fatture per Tipo Pagamento¶
Sorgente: cbl/cogk75.cbl | Program-ID: COGK75 | Tipo: Programma interattivo (visualizzazione/stampa con griglia paginata)
Menu: Vendite > Fatturazione > Visualizzazioni; Vendite > Fatturazione > Stampe
Scopo¶
Visualizza le fatture emesse filtrate per tipo di pagamento, condizione di pagamento e intervallo di date di scadenza. I risultati sono presentati in una griglia paginata con navigazione avanti/indietro. Supporta esportazione Excel e stampa. I dati vengono caricati in un file di transito temporaneo (COGTRANS).
File e tabelle¶
| File/Tabella | Tipo | Modalita' | Descrizione |
|---|---|---|---|
| COGTRANS | ISAM (temp.) | Output / I-O | File di transito temporaneo per la griglia; contiene le righe filtrate |
| COGFATTU | ISAM | Input | Fatture di vendita; lettura per recupero dati cliente, tipo pagamento, importo |
| COGRACMC | ISAM | Input | Raccolta bolle; lettura tramite chiave k02 per recupero riferimento bolla da fattura |
| COGTRASP | ISAM | Input | Trasporti/DDT; lettura tramite chiave k03 |
| COGMOVPA | ISAM | Input | Movimenti partite aperte; lettura per recupero scadenza tramite k03 |
| COGTESBO | ISAM | Input | Testate bolle; lettura tramite k02 |
| COGTABEL | ISAM | Input | Tabella codifiche; lettura per validazione tipo pagamento (tipo 22) e pagamento (tipo 14) |
| FEURTAB | ISAM | Input | Tabella features/abilitazioni utente |
Copybook utilizzate¶
| Copybook | Descrizione |
|---|---|
cogk75.select |
Definizioni SELECT dei file |
cogk75.fd |
FD dei file |
cogk75.wrk |
Working storage specifica |
cogk75.prc |
Procedure di I/O sui file |
cogk75-01.scr |
Schermata principale (Screen Designer) |
wcont.cpy, wcont1.cpy |
Linkage section standard |
k-u10.cpy |
Costanti valuta |
utils87.cpy |
Utility COGS87 (totale ivato) |
wgrave.cpy, wstato.cpy, wopenf.cpy, wnscr.cpy |
Standard di programma |
cogazien.cpy |
Dati azienda |
wgrid.cpy, utilgdad.cpy |
Supporto griglia |
utils52.cpy, utils54.cpy |
Utility selezione data, stampante |
utilu09.cpy, utilu10.cpy |
Utility valuta/cambio |
utilw01.cpy, utilw02.cpy, utilw16.cpy, utilw36.cpy |
Utility finestre di aiuto |
utilf28.cpy |
Utility COGF28 (selezione tipo pagamento) |
stato.cpy, stato1.cpy, winmsg.cpy, grave.cpy, opengen.cpy, mmmask.cpy |
Infrastruttura standard |
dtab.cpy |
Utility tabella |
fscrol2.cpy |
Scrolling griglia paginata |
printer.cpy |
Gestione stampante |
sendw01.cpy, sendw02.cpy, sendw16.cpy, sendw36.cpy |
Invio comandi finestre |
utilpggr.cpy |
Paginazione griglia |
cogfiles.cpy |
Record FEURTAB |
Logica di elaborazione¶
Fase parametri: L'utente inserisce data da, data a (obbligatorie, entrambe su date di scadenza), tipo pagamento (facoltativo, validato su COGTABEL tipo 22), condizione di pagamento (facoltativa, validata su COGTABEL tipo 14). F8 su tipo pagamento chiama COGF28; F8 su pagamento chiama la finestra di selezione W02.
Fase elaborazione (a-richiesta-conferma): Alla conferma:
1. Apre COGTRANS in output (lock esclusivo) poi in I-O come transito.
2. Scansiona COGRACMC (raccolta bolle) filtrata per criterio: per ogni bolla valida legge COGFATTU per recuperare cliente, tipo/condizione pagamento, poi COGMOVPA per la scadenza (via cerca-scadenze).
3. Chiama COGS87 per calcolare l'importo totale ivato del documento.
4. Scrive su COGTRANS il record di transito con tutti i dati.
Fase visualizzazione (a-grid): Usa z-99-accept-paged-grid con navigazione avanzata (Pg Dwn) e retrograda (Pg Up) verso COGTRANS. Ogni pagina viene popolata leggendo COGTRANS e aggiornando la griglia via GRIDADMN. Shift+F5 esporta in Excel (z-esporta-paged-grid). F9 attiva la stampa (paragrafo stampa, attualmente vuoto — la stampa e' gestita tramite la griglia paginata).
Gestione valuta: COGU10W e' usato per la conversione tra divise; COGS87 calcola il totale ivato del documento.
Chiamate a sottoprogrammi¶
| Programma | Utilizzo |
|---|---|
COGF28 |
Selezione tipo pagamento da tabella |
GRIDADMN |
Gestione griglia (add record, svuota, personalizzazione) |
COGU10W |
Conversione valuta / cambio |
COGS87 |
Calcolo totale ivato documento |