NUT055 - Ripristina Distinta Ricevute Bancarie
Scopo
Annulla l'effetto di distinte RI.BA. gia' elaborate/contabilizzate: cancella i movimenti contabili associati, riapre le partite chiuse, ripristina le RI.BA. negli archivi pre-distinta (NUTARIBA/NUTSRIBA) e produce una stampa riepilogativa.
File e tabelle
| File |
Tipo |
Descrizione |
| NUTSRIBA |
Indicizzato |
Archivio distinte RI.BA. (chiavi: sto-dist6, sto-ban2, sto-imp) |
| NUTARIBA |
Indicizzato |
RI.BA. in portafoglio (chiavi: rib-chia, rib-imp, rib-num2) |
| COGMOVPA |
Indicizzato |
Movimenti partite (cancellati con segno 'A') |
| COGPARTI |
Indicizzato |
Partite (par-data-chiu resettato a zero) |
| COGPNONC |
Indicizzato |
Prima nota non contabilizzata (cancellata) |
| NUTRIBNC |
Indicizzato |
Eventuali RI.BA. non contabilizzate |
| NUTBANAS |
Indicizzato |
Associazione banca-cliente |
| NUTTABEL |
Indicizzato |
Numerazioni (tipo 3, codr 2) |
Copybook
| Copybook |
Sezione |
Utilizzo |
| nut055.wrk / .fd / .decla |
tutte |
Strutture generate da Screens |
| cogazien.cpy |
WORKING-STORAGE |
Dati azienda |
| cogconta.cpy |
WORKING-STORAGE |
Strutture contabili |
| cogparti.k01 |
LINKAGE |
Chiave partite |
| wtipidoc.cpy / wgrave.cpy |
WORKING-STORAGE |
Standard |
| utils54.cpy |
WORKING-STORAGE |
Stampa |
CALL
| Programma |
Quando |
Scopo |
| RNEWCONF |
Avvio |
Legge ordine-di-stampa, gestione-riba, ctrl-portafoglio, contab-riba-su-doc-separato |
| COGU10W |
Per importi |
Formattazione importi in divisa |
| COGS54 |
Stampa finale |
Parametri stampa (s54-id = 'NUT055NO', 80 caratteri) |
Logica di elaborazione
Flusso principale
- Carica la configurazione (RNEWCONF) per determinare il tipo RI.BA. (
P = Portafoglio, C = Conto) e la separatezza documenti.
- Richiede il range distinte e valida (Da ≤ A); se trovata una sola distinta nel range marca
fl-file='*' e segnala.
- Scan sequenziale NUTSRIBA da
da-dist a a-dist: per ogni record valido
- cancella da COGPNONC / COGMOVPA / COGPARTI,
- ricrea i record in NUTARIBA / NUTSRIBA,
- cancella NUTRIBNC se necessario.
- Accumula contatori
ctr-scr (movimenti ripristinati) e il range documenti (doc-1 / doc-2).
- Su F3 chiama COGS54 per la stampa.
Note tecniche
tm-cfg-rib-tip governa la logica di reversione (Portafoglio vs Conto).- Riapertura partita verificata; se fallisce, warning non bloccante.
- Data sistema e azienda lette da COGTABEL tipo 66.
Note operative
- L'operazione e' irreversibile per la distinta: per ricreare la distinta annullata occorre rigenerarla con la procedura standard.