COGK45 - Sintesi Scaduto¶
Sorgente: cbl/cogk45.cbl | Program-ID: COGK45 | Tipo: Programma interattivo con stampa (standalone)
Menu: Contabilita' > Clienti a Part.Aperte > Stampe; Contabilita' > Fornit. a Part.Aperte > Stampe
Scopo¶
Stampa di ageing (analisi anzianita' crediti/debiti) per partite aperte clienti o fornitori. Per ogni soggetto calcola l'importo scaduto suddiviso in 6 fasce temporali configurabili, piu' il non scaduto, gli effetti, le RiBa e il fatturato degli ultimi due anni. L'elaborazione utilizza un file di transito temporaneo (COGTRANS) e COGWPNO per la lettura delle partite aperte; l'ageing effettivo e' delegato a COGS77. Il parametro wo-parametro determina se operare su clienti ("C") o fornitori ("F").
File e tabelle¶
| File/Tabella | Tipo | Modalita' | Descrizione |
|---|---|---|---|
| FEURTAB | Indexed | Input | Tabella nomi file |
| COGTRANS | Indexed | I-O | File transito temporaneo (creato a runtime) per accumulo risultati ageing |
| COGWPNO | Indexed | Input | Partite aperte per nominativo (lettura sequenziale) |
| COGFATTU | Indexed | Input | Fatture (k10 per calcolo fatturato) |
| COGGEANA | Indexed | Input | Anagrafica clienti/fornitori |
| COGMOVPA | Indexed | Input | Movimenti partite aperte (k03) |
| COGTABEL | Indexed | Input | Tabella generica contabilita' (tipo 45 per conto clienti/fornitori, tipo AT) |
| COGAPPOG | Indexed | Input | Archivio appoggio (filtro per tipo situazione) |
| NUTARIBA | Indexed | Input | Archivio RiBa (k06) |
| NUTSRIBA | Indexed | Input | Archivio RiBa secondario (k03) |
| COGASCII | Line sequential | Output | File output ASCII per esportazione |
| FLSTA | Indexed | Input | Tabella stati |
| COGWPNO | Indexed | Input | Partite aperte (k01) |
Copybook utilizzate¶
| Copybook | Descrizione |
|---|---|
| feurtab.fd | SELECT tabella file nomi |
| cogk45.select | SELECT archivi specifici |
| cogwpno.fd | SELECT/FD COGWPNO |
| flsta.fd / flsta.cpy | SELECT/FD/record FLSTA |
| cogk45.fd | FD archivi specifici |
| cogwpno.cpy | Record COGWPNO |
| cogk45.wrk | Working storage specifico |
| k-u10.cpy | Costanti importi |
| wgrave.cpy | Gestione errori gravi |
| wnscr.cpy | Dati schermo |
| wopenf.cpy | Apertura file |
| wstato.cpy | Stato I/O |
| cogazien.cpy | Dati azienda |
| utilncnf.cpy | Utility RNEWCONF |
| utils52.cpy | Utility date |
| utils54.cpy | Utility stampa COGS54 |
| utils65.cpy | Utility ricerca anagrafica |
| utils67.cpy | Utility piano conti COGS67W |
| utils77.cpy | Utility COGS77 (ageing partite) |
| utilu10.cpy | Utility importi |
| utilu22.cpy | Utility pagamento COGU22 |
| utilf10.cpy | Utility ricerca tipo documento COGF10 |
| wtipidoc.cpy | Costanti tipi documento |
| wcont.cpy | Linkage stringhe comuni |
| utilw45.cpy | Linkage parametri COGK45 |
| wcont1.cpy | Linkage area utente |
| grave.cpy | Paragrafi errori gravi |
| mmmask.cpy | Paragrafi init/exit |
| opengen.cpy | Paragrafi apertura file |
| stato.cpy / stato1.cpy | Controllo stato I/O |
| winmsg.cpy | Messaggi a video |
| utipidoc.cpy | Utility tipi documento |
| getdcont.cpy | Lettura dati contabilita' |
| sendu22.cpy | Paragrafi invio COGU22 |
| cogk45.prc | Paragrafi specifici |
| cogfattu.k10 | Accesso COGFATTU per k10 (fatturato) |
| cogmovpa.k03 | Accesso COGMOVPA per k03 |
| nutariba.k06 | Accesso NUTARIBA per k06 |
| nutsriba.k03 | Accesso NUTSRIBA per k03 |
| cogtrans.k01 | Accesso COGTRANS |
| cogwpno.k01 | Accesso COGWPNO |
Logica di elaborazione¶
- Inizializzazione: determinazione del tipo (clienti "C" o fornitori "F") da
wo-parametro. Creazione del file di transito temporaneo COGTRANS con nome basato su operatore e timestamp. - Configurazione fasce: lettura da RNEWCONF dei 5 intervalli di scaduto (tm-cfg-sca1..5 in giorni).
- Parametri maschera: l'utente inserisce data di riferimento, eventuale filtro per tipo documento, divisa, conto, singolo soggetto, modalita' sintetica/analitica e data movimenti limite.
- Dialogo output (COGS54): scelta di destinazione (stampante, video, file ASCII).
- Loop su COGGEANA: scansione sequenziale degli anagrafici del tipo selezionato. Per ogni soggetto:
- Calcolo fatturato anno corrente e precedente da COGFATTU (k10)
- Ricerca RiBa in NUTARIBA/NUTSRIBA
- Ricerca effetti (causale 067)
- Richiamo COGS77 (o
ricerca-movimentiper date storiche) per calcolo ageing sulle partite di COGWPNO - Scrittura dei totali per scadenza nel file di transito COGTRANS
- Lettura COGTRANS e stampa: scansione del file di transito per la produzione delle righe di stampa/output con i dati per fasce temporali.
- Totali generali: accumulo progressivo in
wtot-totalie stampa del totale complessivo a fondo report. - Output: su stampante (cogwpno), su video o su file ASCII (cogascii).
Chiamate a sottoprogrammi¶
| Programma | Scopo |
|---|---|
| COGF10 | Ricerca e selezione tipo documento |
| COGS54 | Dialogo scelta destinazione output |
| RNEWCONF | Lettura parametri di configurazione (fasce scaduto) |
| COGS65W | Ricerca anagrafica clienti/fornitori |
| COGS67W | Ricerca piano dei conti |
| COGS77 | Calcolo ageing partite aperte |
| COGU10W | Gestione importi |
| GRIDTOXS | Esportazione griglia in formato Excel |
| COGS52 | Gestione input date |