COGB65 — Modelli causali CBI¶

Sorgente: cbl/cogb65.cbl | Tipo: interattivo a maschera (gestione griglia) | Program-ID: cogb65

Menu: Contabilita' > Riconciliazione Bancaria > Tabelle > Modelli causali CBI

Scopo¶

Gestisce l'associazione fra le causali CBI (movimenti bancari letti da flusso CBI/riconciliazione) e i modelli di contabilizzazione da applicare in prima nota. Per una data causale CBI l'operatore definisce, in una griglia editabile, l'elenco dei modelli collegati: ogni riga indica il codice modello, il conto di contropartita (piano dei conti), il segno banca (Dare/Avere), il tipo operazione (causale contabile), la descrizione di prima nota e i flag di comportamento (data registrazione, preferenziale).

Il programma opera in due modalita': aggiornamento (a-modalita = "A", uso standalone da menu, con inserimento/modifica/cancellazione righe) e selezione (a-modalita = "S", quando e' richiamato da un altro programma tramite util-cogb65: restituisce in cogb65-o-modello il modello scelto con Invio). Quando il chiamante e' COGB60 la maschera resta comunque in modalita' aggiornamento.

File e tabelle principali¶

File/Tabella	Copybook	Uso
`COGCBIMD`	`cogcbimd.cpy`	Modelli causali CBI (`cbi-rec`): chiave `cbi-cod-cau` + `cbi-modello`; campi `cbi-segno-banca`, `cbi-rif-conto` (mastro/conto/sottoconto), `cbi-to` (tipo operazione), `cbi-des-pnota`, `cbi-fl-data-reg`, `cbi-fl-pref`. Letto/scritto in `carica-dati` e `b-aggiorna`
`COGTABEL` (feurtab)	`cogfiles.cpy`	Tabella generica: causale CBI (`euta-tipo-x = "MX"`, descrizione `euta-mx-des`) e tipi operazione (`euta-tipo 65`, `euta-cod-to`, `euta-descr`)
`COGPNCON`	non incluso direttamente (`pco-rec` da `utils67`/catena)	Anagrafica piano dei conti: validazione conto contropartita (`pco-chia`, `pco-des`, `pco-conto`, `pco-sconto`, `pco-tipoanagr`)
`T-GRID-DET`	(file di transito griglia, `t-gor-r-rec`)	Archivio temporaneo di lavoro della griglia di dettaglio; creato/riordinato dai paragrafi `z-grid-det-*`

Copybook di parametro (linkage): utilcogb65.cpy (util-cogb65: cogb65-caller/called/i-cod-cau/i-segno-banca/o-modello). Copybook di servizio: utilgdad.cpy (GRIDADMN), utils67.cpy, utile65.cpy, utilcogb60.cpy, utilu10.cpy, utilncnf.cpy, utilimppredf.cpy.

Flusso principale¶

apri — init, open-files; se richiamato (cogb65-called = k-program-id) valorizza w-dati-called e imposta a-modalita = "S"; prepara file di transito griglia, menu contestuale, griglia (z-prepara-tm-grid, x-trova-col-num-grid-det, x-set-fl-mod).
a4 — svuota griglia e maschera; se richiamato precarica la causale (w-dc-i-cod-cau); imposta ordinamento predefinito per modello (gcn-r-modello); attiva conferma; in modalita' "S" salta direttamente a a-leggi-dati.
a-tm-cod-cau — accept del codice causale CBI; F8 apre l'aiuto causali tramite COGB60; validazione in x-controlla-tm-cod-cau (esistenza euta-tipo-x = "MX", descrizione in tm-desc).
a-leggi-dati / z-grid-det-crea-transito / carica-dati — legge da COGCBIMD tutti i modelli della causale (scansione st-cogcbimd-notmin / rdnxt-cogcbimd con rottura su cbi-cod-cau) e riempie il transito griglia; se in modalita' "S" filtra per cbi-segno-banca.
a-grid — loop principale sulla griglia: Invio (modalita' "S") restituisce il modello e chiude; F3 (modalita' "A") valida e salva; Ctrl-A aggiunge riga, Ctrl-E marca/smarca cancellazione; Shift-F4 gestione colonne griglia, Shift-F5 export Excel; menu pop-up (k-pmg-primo..k-pmg-ultimo).
x-controlla-totali — validazione finale di tutte le righe prima del salvataggio: conto piano conti valido, coerenza mastro/conto/sottoconto (pco-conto, pco-sconto, pco-tipoanagr), segno D/A, tipo operazione esistente (euta-tipo 65).
b-aggiorna — persiste il transito su COGCBIMD: righe con flag di cancellazione (t-gor-r-fl-agg) vengono eliminate (del-cogcbimd); le altre vengono create (wr-cogcbimd) o riscritte (rwr-cogcbimd) aggiornando segno, contropartita, descrizione, tipo operazione e flag.
fine / z-chiudi — chiude i file, elimina il transito (delete file t-grid-det), distrugge il menu ed esce.

Sottoprogrammi chiamati¶

Programma	Ruolo
`GRIDADMN`	Gestione della griglia di dettaglio (prepara colonne, add/svuota record, export, gestione colonne)
`COGB60`	Aiuto/selezione della causale CBI (`F8` sul codice causale)
`COGE65`	Aiuto/selezione tipo operazione (causale contabile) sulla colonna tipo operazione della griglia
`COGU10W`	Gestione divisa conto (`GetDivisaConto`)
`W$MENU`	Attivazione del menu pop-up sulla griglia (right-click)

Note¶

Il salvataggio non usa uno stato per riga: le righe marcate cancellate vengono eliminate; le altre vengono create se assenti o riscritte se presenti, distinguendo tramite t-gor-r-mod-prec la riga esistente da quella nuova.
La colonna modello non e' editabile se tm-r-mod-prec e' valorizzato (chiave gia' esistente, non modificabile) o in modalita' selezione (z-grid-det-modello-be-ep).
In modalita' selezione (a-modalita = "S") tutte le celle sono read-only (i vari *-be-ep forzano w-cell-accept-ok = "N") e la griglia serve solo a scegliere il modello da restituire.
Inserimento e cancellazione righe sono bloccati quando e' attivo un filtro di griglia (grid-det-filtro-attivo = "S").
Il sorgente usa GO TO fra i paragrafi di accept/griglia e PERFORM ... THRU (x-controlla-totali thru ex-controlla-totali, b-aggiorna thru ex-b-aggiorna, carica-dati thru ex-carica-dati): forme legacy da non replicare.