Vai al contenuto

COGF90 - Tabella Raggruppamenti Cash Flow

Sorgente: cbl/cogf90.cbl | Program-ID: COGF90 | Tipo: gestione tabella a griglia

Menu: Contabilita' > Rendiconti Finanziari > Tabelle > Raggruppamenti Entrata/Uscita

Scopo

COGF90 gestisce la tabella dei raggruppamenti utilizzati nel Cash Flow (rendiconto finanziario). Ogni raggruppamento e' identificato da un codice a 3 caratteri, una descrizione e un tipo (E=Entrata, U=Uscita). La tabella e' memorizzata su COGTABEL con tipo AF (costante k-euta-tipo = 70) e argomento configurazione CSF1. Il programma supporta sia la modalita' autonoma (aggiornamento tabella) sia la modalita' richiamato (selezione di un elemento dalla griglia da parte di un chiamante, con eventuale filtro su entrata/uscita tramite il parametro f90-ent-usc).

File e tabelle

File/Tabella Copybook Modalita' Uso
FEURTAB feurtab.fd, cogfiles.cpy input Tabella file environment
COGTABEL cogtabel.fd (da cogf90.select), cogf90.fd i-o Archivio raggruppamenti cash flow (tipo 70, arg CSF1)

Programmi chiamati

Programma Scopo
GRIDADMN Gestore griglia (prepare, add-record, modify-record, svuota-tutto)

Copybook principali

Screen Designer / gestione griglia: - cogf90.select, cogf90.fd, cogf90.wrk, cogf90.prc, cogf90-01.scr (generati da Screens) - wgrid.cpy, utilgdad.cpy, utilgrid.cpy

Linkage: - wcont.cpy, wcont1.cpy, utilf90.cpy (parametri per modalita' richiamato: f90-called, f90-caller, f90-ent-usc, f90-out-cod, f90-out-des)

Gestionale standard: - wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy, cogazien.cpy - stato.cpy, stato1.cpy, winmsg.cpy, grave.cpy, opengen.cpy, mmmask.cpy - cogtabel.k01 (chiave primaria)

Logica di elaborazione

Avvio: z-99-init-program, apertura file, lettura azienda; verifica se richiamato (f90-called = k-program-id e f90-caller valorizzato). Se richiamato, w-dc-called = "S" e si attiva la modalita' selezione.

Caricamento tabella (a10/a10-loop): scan di COGTABEL con st-cogtabel-notmin; filtra su euta-tipo = 70 e euta-cfg-arg = "CSF1". Se w-dc-ent-usc e' valorizzato, include solo i record il cui 41^ carattere di euta-descr corrisponde al tipo richiesto (E/U). Risultato caricato in tm-tab (max 900 elementi).

Griglia (a-grid / a-accept-grid): presentazione in griglia tramite GRIDADMN. In modalita' aggiornamento: Invio apre la riga di dettaglio, Ctrl-A aggiunge, Ctrl-E elimina. In modalita' selezione: Invio restituisce il codice al chiamante e chiude.

Dettaglio riga (a-riga-dettaglio): accept sequenziale di codice (tm-cod, 3 car.), descrizione (tm-des, 24 car.) e tipo (tm-tip, E/U tramite combo generata da z-s60-tm-tip). In inserimento, codice obbligatorio e non duplicabile; in modifica, il codice e' disabilitato. F3 conferma e aggiorna COGTABEL con wr-cogtabel o rwr-cogtabel.

Cancellazione: previo lock con rd-cogtabel-lk, poi del-cogtabel e ricompattamento dell'array in memoria.

Note

  • La colonna "Tipo" in griglia mostra "Entrata" o "Uscita" (il campo interno e' il carattere E/U in posizione 41 di euta-descr).
  • Quando richiamato con f90-ent-usc valorizzato, la griglia mostra solo i raggruppamenti del tipo corrispondente e F3 si comporta come selezione diretta (non alterna modalita').
  • Il programma gestisce il ridimensionamento della finestra tramite ntf-resized in z-99-event-form-1.

Documentazione tecnica generata -- 2026-07-15