COGF91 -- Definizione Conti Patrimoniali¶

Sorgente: cbl/cogf91.cbl | Tipo: Interattivo (gestione tabella con griglia e dettaglio) | Program-ID: COGF91

Menu:

Contabilita' > Rendiconti Finanziari > Tabelle > Definizione Conti Patrimoniali

Scopo¶

Gestione della tabella conti da considerare nel cash flow (rendiconto finanziario). Carica i conti dal piano dei conti (COGPNCON), permette di associare a ciascun conto parametri per il cash flow (saldo iniziale, erario IVA, data movimento, raggruppamenti dare/avere) memorizzati in COGTABEL tipo 70 con argomento "CSF2". Supporta filtro per tipo visualizzazione (solo inseriti / tutti) e per mastro.

File e tabelle¶

File/Tabella	Tipo	Modalita'	Descrizione
FEURTAB (COGTABEL)	Indicizzato	I-O	Tabella generica: tipo 70 + arg "CSF2" = configurazione conti cash flow
COGPNCON	Indicizzato	Input	Piano dei conti: pco-chia (pco-mastro + pco-conto + pco-sconto), pco-des, pco-reddito, pco-tipoanagr
FLSTA	Sequenziale	Output	File di stampa

Programmi chiamati¶

Programma	Scopo
COGF90	Selezione raggruppamento entrata/uscita (F8 su campi raggruppamento dare/avere)
COGS67	Gestione check-box
GRIDADMN	Gestione avanzata griglia

Copybook principali¶

cogf91.wrk, .select, .fd, .prc, .decla, cogf91-01.scr -- Definizioni Screens
cogfiles.cpy -- Definizione record COGTABEL (euta-*)
flsta.fd, flsta.cpy -- File di stampa
utils67.cpy -- Utility check-box (COGS67)
utils54.cpy -- Utility stampa (COGS54)
utilf90.cpy -- Parametri per COGF90 (selezione raggruppamento)
utilgdad.cpy -- Utility per GRIDADMN
wgrid.cpy -- Gestione griglia
wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy, cogazien.cpy -- Variabili standard
wcont.cpy, wcont1.cpy -- Struttura linkage standard

Struttura del programma¶

Flusso principale¶

apri: inizializzazione, apertura file, lettura azienda. Configura tasti funzione: Invio-modifica, F3-conferma, F8-aiuto, F9-stampa, Ctrl+E, Shift+F4.
a4: reset griglia e maschera. Imposta tipo ricerca iniziale "I" (Inseriti).
a-tm-rice: accept tipo visualizzazione (combo: "I" = solo Inseriti, "T" = Tutti).
a-tm-mas-cod: accept codice mastro di partenza (opzionale, visibile condizionalmente).
a-fine-intestazione: validazione e conferma. Chiama inserisci-conti-fissi per aggiungere eventuali conti fissi.
carica-dati: scansione di COGPNCON:
Filtra conti di reddito (pco-reddito <> "R" vengono scartati a livello mastro)
Conti clienti/fornitori (pco-tipoanagr = "C"/"F" con pco-sconto = 0): inclusi direttamente
Per ogni conto, cerca la configurazione cash flow su COGTABEL tipo 70 + "CSF2"
Se tipo ricerca "I": mostra solo conti gia' configurati
Carica: tm-cod (chiave conto), tm-cod-des, tm-dati (tm-sal-ini, tm-ragr-d, tm-ragr-a, tm-fl-erar, tm-fl-dmov)
a30: costruzione griglia e attivazione tasti funzione.
a-grid / a-accept-grid: ciclo griglia:
Invio: apre dettaglio riga (a-riga-dettaglio) in modifica
Ctrl+E: cancellazione con conferma (c-cancella: azzera euta-descr su COGTABEL)
F9: stampa (st-stampa)
Shift+F4: GRIDADMN
ESC: torna alla selezione tipo

Dettaglio riga (a-riga-dettaglio)¶

Sequenza di accept:

a-tm-sal-ini: saldo iniziale (check-box via COGS67/s95)
a-tm-fl-erar: erario IVA (check-box, nascosto per conti C/F)
a-tm-fl-dmov: data movimento (check-box, nascosto per conti C/F)
a-tm-ragr-d: raggruppamento dare (F8 chiama COGF90)
a-tm-ragr-a: raggruppamento avere (F8 chiama COGF90)

Salvataggio (a-fine-dettaglio)¶

Legge record COGTABEL tipo 70 + "CSF2" con chiave tm-cod
Se esiste e raggruppamenti azzerati: del-cogtabel (rimuove configurazione)
Se esiste e raggruppamento dare compilato: rwr-cogtabel
Se non esiste e raggruppamento dare compilato: wr-cogtabel
I dati vengono salvati in euta-descr (che contiene tm-dati: sal-ini, ragr-d, ragr-a, fl-erar, fl-dmov)

Cancellazione (c-cancella)¶

Legge il record COGTABEL con lock, azzera euta-descr e riscrive. Effetto: il conto perde la configurazione cash flow ma resta nel piano dei conti.

Stampa (st-stampa)¶

Intestazione con dati azienda e titolo "Conti da Considerare in Cash Flow". Due righe per conto: la prima con conto, descrizione, saldo iniziale, erario, data movimento e raggruppamento dare; la seconda con raggruppamento avere. Larghezza 132 caratteri (k-chr-stampa = 132).

Variabili principali¶

Variabile	Tipo	Descrizione
tab-maschera	01	tm-rice (tipo ricerca "I"/"T"), tm-mas-cod (filtro mastro), tm-pnt (contatore), tm-tab con righe
tm-righe (i)	Riga	tm-cod (10 cifre: mastro+conto+sottoconto), tm-cod-des, tm-dati (tm-sal-ini, tm-ragr-d/a, tm-fl-erar, tm-fl-dmov), tm-alia (tm-d-con, tm-ragr-ddes/ades, tm-conto, tm-tipo)
weuta-key	01	Chiave composta: weuta-tipo (70) + weuta-arg ("CSF2") + weuta-cod (codice conto)
k-max-ele-tab	78	900 (max elementi griglia)
k-chr-stampa	78	132 (larghezza stampa)

Documentazione tecnica -- 2026-04-28