R.I.D. — Rapporti Interbancari Diretti (addebiti diretti SEPA)¶
Area funzionale: Vendite / R.I.D. Programmi documentati: 7 | Righe totali analizzate: 8.281
Indice¶
1. Gestione operativa¶
NUT100 — Estrazione/Creazione movimenti R.I.D.¶
File: /programmi/eurocoge/cbl/nut100.cbl (1.862 righe)
Estrae scadenze fatture clienti con tipo pagamento RID e crea record nell'archivio movimenti RID (NUTMORID).
Parametri: Tipo documento (validato su tabella 68), range fatture (tipo/anno/num da-a), data creazione RID, banca assuntrice (opzionale, pre-assegnazione).
Logica:
- Cerca tipi pagamento RID in tabella 22 (flag
euta-cp-fl-rid = 'X') - Per ogni fattura nel range con tipo pagamento RID:
- Se tipo pagamento prevede "prima rata R.D." (
euta-pg-fl-rd = 'S'), salta la prima scadenza - Per ogni partita aperta (COGPARTI): calcola totale sommando movimenti (COGMOVPA)
- Controllo duplicati su NUTMORID e NUTSTRID (PBUG-591)
- Calcolo ritenuta d'acconto (TASK-2014): se abilitato, legge COGRITAC
- Composizione record RID: dati cliente (COGGEANA), coordinate bancarie (COGAPPOG), IBAN e dati SEPA/mandato (COGANAP2), sportello (COGU03)
- WRITE NUTMORID + NUTRICEV (ricevuta)
- Aggiorna dati SEPA su COGANCAP (creditor-identifier, tipo-sequenza-inc default "2")
File: COGFATTU (fat-), COGPARTI (par-), COGMOVPA (mov-), NUTMORID (rid-), NUTSTRID (sri-), COGGEANA (ana-), COGAPPOG (app-), COGANAP2 (aap2-), COGANCAP (anc-), COGTABEL (euta-), NUTTABEL (nuta-), NUTRICEV (nrb-), COGRITAC (rit-), NUTBANAS (ban-). CALL: WIN067, COGU03, WIN023, RNEWCONF.
NUT130 — Assegnazione banca assuntrice¶
File: /programmi/eurocoge/cbl/nut130.cbl (3.095 righe)
Griglia paginata dei movimenti RID estratti con assegnazione banca. Molteplici modalita' di assegnazione.
Logica: Carica NUTMORID in file transito COGTRANS → griglia con totali assegnato/non assegnato.
Operazioni:
| Tasto | Funzione |
|---|---|
| Invio/F1 | Modifica riga: banca, data scadenza, importo, ABI/CAB |
| F3 | Aggiorna: controlli IBAN/SEPA (Core/B2B, mandato COGANAP2) → REWRITE NUTMORID |
| F5 | Banca unica: stessa banca a tutti i non assegnati |
| F6 | Scelta circuito: selezione multipla banche (WIN030), assegnazione per ABI o ABI/CAB |
| F7 | Assegna per importo: banca + importo max + data limite (NUT030D) |
| S-F7 | Ripartizione importo su piu' banche (NUT030B) |
| S-F8 | Dividi effetto in parti con importi diversi (NUT030A) |
| S-F6 | Totale scadenza per data (assegnato/non assegnato) |
| Ctrl+E | Elimina riga (DELETE da COGTRANS e NUTMORID) |
Ordinamento transito: Dipende da personalizzazione aziendale (VE/OP/BE/BB → per cliente+scadenza, ZA → per banca+scadenza, default → per numero+progressivo).
File: NUTMORID (rid-), NUTBANAS (ban-), COGTRANS (trs-), COGAPPOG (app-), COGANCAP (anc-), COGANAP2 (aap2-), COGTABEL (euta-). CALL: WIN023, WIN030, NUT030A, NUT030B, NUT030C, NUT030D, COGU03W, COGU10W, GRIDADMN, DIALOGS, AZVALIDA.
NUT140 — Creazione distinta R.I.D. (dispatcher)¶
File: /programmi/eurocoge/cbl/nut140.cbl (165 righe)
Wrapper/dispatcher che lancia il programma di creazione effettiva degli archivi RID da trasmettere alla banca. Legge configurazione ordine-di-stampa-rid.
Dispatch: Personalizzato NUT140xx → se non esiste: 'V'→NUT140NO, 'C'→NUT140XX.
CALL: NUT140NO, NUT140XX, RNEWCONF.
NUT170 — Stampa distinte R.I.D. (dispatcher)¶
File: /programmi/eurocoge/cbl/nut170.cbl (166 righe)
Wrapper/dispatcher per stampa distinte. Struttura identica a NUT140.
Dispatch: Personalizzato NUT170xx → se non esiste: 'V'→NUT170NO, 'C'→NUT170XX.
CALL: NUT170NO, NUT170XX, RNEWCONF.
NUT198 — Ritorno contabile banca¶
File: /programmi/eurocoge/cbl/nut198.cbl (959 righe)
Giroconto contabile della distinta RID dopo il ritorno dalla banca. Seleziona righe per scadenza, assegna data valuta bancaria, raggruppa, genera prime note tramite NUT199.
Parametri: Data contabile, codice banca, numero distinta, mastro/conto riferimento.
Logica:
- Selezione banca e distinta → lettura NUTSTRID
- Per ogni effetto: conversione divisa (COGU10), calcolo commissioni (
ban-com-sp), spese bancarie (ban-spese), netto = lordo - commissioni - Operatore: Invio=seleziona/deseleziona, F5=assegna valuta, F6=raggruppa per scadenza, F3=aggiorna
- F3 → chiama NUT199 per creazione prime note (chiusura conto transitorio, apertura conti banca/commissioni)
File: NUTBANAS (ban-), NUTSTRID (sri-), COGGEANA (ana-). CALL: NUT199, COGS52, WIN023, WIN139, COGU10.
2. Utilita'¶
COGE53 — Giro R.I.D. ad anno nuovo¶
File: /programmi/eurocoge/cbl/coge53.cbl (1.250 righe)
Passaggio scadenze RID al nuovo esercizio. Legge NUTGIRID, verifica date, crea prime note contabili nel nuovo esercizio.
Parametri: Codice banca, codice contropartita banche (tabella 16).
Logica:
- Crea file lavoro temporaneo da NUTGIRID (record con
gri-flag1 = spaces) - Visualizzazione (fino a 216 righe): data valuta, mastro/conto/sottoconto, descrizione, importo
- Controlli date: valuta >= data minima contabilizzazione, compresa nell'esercizio corrente
- Creazione prime note (COGPNONC):
- Tipo 'B' (Banca): DARE conto banca, AVERE conto transitorio (
ban-mas-tra/con-tra/sco-tra) - Tipo altro (Commissioni): DARE conto commissioni, AVERE conto banca (contropartita)
- Descrizione: "RID CLIENTI DIST. N. xxxxxx"
- Marca NUTGIRID con
gri-flag = '*'egri-flag1 = '*'
File: NUTBANAS (ban-), NUTGIRID (gri-), COGTABEL (euta-), COGPNONC (pno-), COGPNCON (pco-). CALL: COGS25, WIN023, WIN010, COGU10.
NUT155 — Ripristina distinte R.I.D.¶
File: /programmi/eurocoge/cbl/nut155.cbl (784 righe)
Annullamento distinte RID gia' contabilizzate. Operazione inversa del ciclo NUT140→NUT198.
Parametri: Range distinte (da/a numero).
Logica:
- Per ogni record NUTSTRID nel range:
- Cancella contabilita': cerca movimenti partita AVERE con importo corrispondente → cancella righe prima nota (COGPNONC) e movimenti partita (COGMOVPA) → riapre partita (
par-data-chiu = zero) - Ripristina tipo sequenza SEPA su COGANCAP
- Ricrea record NUTMORID (con nuovo numeratore da NUTTABEL)
- Cancella record NUTSTRID
- Stampa report: distinta, documento cancellato, riferimento partita, importo
File: NUTBANAS (ban-), NUTSTRID (sri-), NUTMORID (rid-), NUTTABEL (nuta-), COGPARTI (par-), COGMOVPA (mov-), COGPNONC (pno-), COGANCAP (anc-). CALL: COGS54, COGU10W.
3. Flusso integrato¶
SORGENTE DATI:
├── COGFATTU (fatture clienti con tipo pagamento RID)
├── COGPARTI (partite aperte)
└── COGMOVPA (movimenti partita)
ESTRAZIONE:
└── NUT100 (estrazione scadenze → WRITE NUTMORID + NUTRICEV)
ASSEGNAZIONE BANCA:
└── NUT130 (griglia interattiva → REWRITE NUTMORID con banca)
CREAZIONE DISTINTA:
└── NUT140 (dispatcher → NUT140NO/XX)
└── NUTMORID → NUTSTRID (storicizzazione distinta trasmessa)
STAMPA DISTINTA:
└── NUT170 (dispatcher → NUT170NO/XX)
RITORNO BANCA:
└── NUT198 (giroconto → NUT199)
├── WRITE COGPNONC (prime note: chiusura transitorio, apertura banca)
└── UPDATE COGMOVPA (chiusura partite)
PASSAGGIO ESERCIZIO:
└── COGE53 (valute in anno nuovo → NUTGIRID → WRITE COGPNONC)
RIPRISTINO (operazione inversa):
└── NUT155 (annulla distinta)
├── DELETE NUTSTRID, COGPNONC, COGMOVPA
├── REWRITE COGPARTI (riapre partita)
└── WRITE NUTMORID (ricrea record)
4. File principali¶
| File | Prefisso | Descrizione |
|---|---|---|
| NUTMORID | rid- | Movimenti RID in lavorazione (banca, date, importo, coordinate cliente, IBAN, SEPA) |
| NUTSTRID | sri- | Storico distinte RID trasmesse alla banca |
| NUTGIRID | gri- | Movimenti RID girati ad anno nuovo |
| NUTTABEL | nuta- | Tabelle e numeratori area RID |
| NUTRICEV | nrb- | Ricevute di estrazione RID |
| NUTBANAS | ban- | Anagrafica banche assuntrici (commissioni, spese, conti, ABI/CAB) |
| COGFATTU | fat- | Fatture clienti (sorgente scadenze) |
| COGPARTI | par- | Partite aperte |
| COGMOVPA | mov- | Movimenti partita |
| COGPNONC | pno- | Prima nota non contabilizzata |
| COGAPPOG | app- | Appoggi bancari clienti (IBAN) |
| COGANCAP | anc- | Dati SEPA clienti (creditor-identifier, tipo sequenza) |
| COGANAP2 | aap2- | Mandati SEPA |
5. Tabella riepilogativa¶
| # | Programma | Righe | Tipo | Funzione |
|---|---|---|---|---|
| 1 | NUT100 | 1.862 | Batch | Estrazione scadenze RID da fatture |
| 2 | NUT130 | 3.095 | Operativo | Assegnazione banca assuntrice (griglia) |
| 3 | NUT140 | 165 | Dispatcher | Creazione distinta RID |
| 4 | NUT170 | 166 | Dispatcher | Stampa distinte RID |
| 5 | NUT198 | 959 | Operativo | Ritorno contabile banca |
| 6 | COGE53 | 1.250 | Batch | Giro RID ad anno nuovo |
| 7 | NUT155 | 784 | Utility | Ripristino distinte (annullamento) |
| TOTALE | 8.281 |