NUT085 - Stampa RiBa/RID per Scadenza¶
Funzione¶
Estrae e visualizza in griglia paginata l'elenco degli effetti RiBa o RID presentati in banca, ordinati per data di scadenza. Supporta filtri per banca, periodo e cliente. Calcola subtotali per scadenza e totale finale.
Menu¶
- Contabilita' > Clienti a Part.Aperte > Stampe > RiBa per Scadenza
- Contabilita' > Clienti a Part.Aperte > Stampe > RID per Scadenza
La modalita' (RiBa o RID) e' determinata dal parametro wo-parametro: se vale "RID" viene attivato il flusso RID.
Tabelle e file principali¶
| Tabella/File | Descrizione | Accesso |
|---|---|---|
| NUTSRIBA | Storico RiBa presentate | Lettura (chiave 2: ban2, datpag2) |
| NUTSTRID | Storico RID presentati | Lettura (chiave 2: ban2, datpag2) |
| NUTBANAS | Anagrafica banche assuntrici | Lettura |
| COGGEANA | Anagrafica generale (clienti) | Lettura |
| COGAPPOG | Appoggi bancari clienti | Lettura |
| COGBNCA | Banche (ABI/CAB) | Lettura |
| NUTRIBNC | RiBa per banca | Lettura (ricerca NCR) |
| cogtrans | File di transito temporaneo (lavoro) | I-O, creato in temp dir |
Copybook e sottoprogrammi¶
| Elemento | Tipo | Ruolo |
|---|---|---|
| nut085.wrk | Copybook | Working storage generata da Screens |
| nut085.select | Copybook | Select file generata da Screens |
| nut085.fd | Copybook | FD generata da Screens |
| nut085-01.scr | Screen | Maschera principale |
| nut085.prc | Copybook | Procedure I/O generate da Screens |
| COGU10W | Sottoprogramma | Editazione importi multidivisa |
| WIN023.COB | Sottoprogramma | Ricerca banche assuntrici |
| WIN062 | Sottoprogramma | Dettaglio partita aperta (F8) |
| COGS54 | Sottoprogramma | Gestione stampa |
| COGS65W | Sottoprogramma | Ricerca anagrafica con aiuto |
| GRIDADMN | Sottoprogramma | Gestione griglia paginata |
Logica principale¶
Inizializzazione¶
- Verifica che sia attiva la chiusura automatica partite (
az-cls-par = 'S'), altrimenti blocca - Determina la modalita' RiBa/RID dal parametro
wo-parametro
Selezione¶
Campi filtro: banca, data scadenza da/a, codice cliente. Alla conferma F3, crea un file temporaneo cogtrans nella directory temp.
Estrazione dati¶
- RiBa (
riempi-file): scorre NUTSRIBA per chiave 2 (banca + data pagamento), filtra per banca/data/cliente, esclude insoluti (sto-insoluto = "S" o "R"), converte importi in divisa di conto, scrive su cogtrans - RID (
riempi-file-rid): analogo ma su NUTSTRID, senza esclusione insoluti e senza conversione divisa
Totalizzazione¶
Per ogni scadenza (creo-tot/creo-tot-rid) accumula l'importo in un record con trs-tipo = 'T'. Un record totale finale con trs-data = 99999999 contiene il totale complessivo.
Visualizzazione¶
Griglia paginata con spaginamento (fscrol2.cpy). Le righe totale sono evidenziate (gdad-row-hl). Supporta F8 per dettaglio partita (WIN062), F9 per stampa, Shift+F5 per export Excel.
Struttura cogtrans (file di lavoro)¶
Chiave: trs-data + trs-tipo + trs-banca + trs-distinta + trs-prog. Campi: patipcli, paclie, panno, patipo, panpart, paprogsca, impo, data-fattura, num-fattura, tipag, rit, ncr.
Note¶
- Il file cogtrans viene creato nella directory temp con nome
#$nut085{operatore}e cancellato alla chiusura (delete file cogtrans). - La griglia usa il pattern paginato (
z-99-accept-paged-grid) con navigazione PagSu/PagGiu. - L'ordinamento e' per data di scadenza dell'effetto (
trs-data = sto-datpag2).
Storico modifiche¶
Maggio 2026 - Ordinamento ripristinato per data scadenza¶
Rimossa l'istruzione move trs-data-distinta to trs-data introdotta il 19.06.2023 da Mauro, che sovrascriveva la data di scadenza con la data della distinta di presentazione ai fini dell'ordinamento. Con la rimozione il campo trs-data mantiene il valore di sto-datpag2 (data scadenza dell'effetto) e l'elenco torna ad essere ordinato per scadenza, coerentemente con il titolo della funzione "RiBa/RID per Scadenza".