COGC15 — Movimenti contabili per tipo operazione (T.O.)¶

Sorgente: cbl/cogc15.cbl | Tipo: interattivo a maschera con elaborazione batch (visualizzazione a griglia) | Program-ID: cogc15

Menu: Contabilita' > Prima Nota > Visualizzazioni > Movimenti Contabili per T.O.

Scopo¶

Interrogazione a video dei movimenti di prima nota raggruppati per tipo operazione (T.O.) / causale contabile. L'operatore imposta i criteri di selezione (esercizio corrente o precedente, intervallo di date, divisa, raggruppamento di causali, fino a dieci tipi operazione) e il programma estrae i movimenti dalla prima nota, li accumula in file temporanei calcolando i saldi per raggruppamento e per tipo operazione, e li presenta in una griglia paginata con dettaglio (data, T.O. e descrizione, documento, conto, importi dare/avere con segno, data effettiva, numero fattura, partita IVA) e righe di totale.

Dalla griglia sono possibili il drill-down sul documento (apre la gestione prima nota), il dettaglio documento, la stampa del report, l'esportazione in Excel e la personalizzazione delle colonne.

File e tabelle principali¶

File/Tabella	Copybook	Uso
`COGCOATT`	`cogcoatt.cpy` / `cogcoatt.fd`	Prima nota non contabilizzata / documenti (archivio contabile allegati): lettura dei movimenti da filtrare
`COGPNONC`	`cogpnonc.fd`	Prima nota contabilizzata: lettura dei movimenti da filtrare
`COGTABEL` (feurtab)	`cogfiles.cpy` / `cogtabel.fd`	Esercizio (tipo 66), raggruppamenti / tipi operazione (tipo 58), divisa (tipo 56)
`COGPNCON`	`cogpncon.fd`	Piano dei conti: descrizione conto
`COGGEANA`	`coggeana.fd`	Anagrafiche: descrizione nominativo (fallback per il conto)
`COGMOVCC`	`cogmovcc.fd`	Movimenti per centri di costo (letture di supporto)
`COGTRANS` / `COGTRANS2` / `COGTRANS3` / `COGTRANS4`	dichiarati inline	File temporanei indexed: movimenti filtrati (`COGTRANS`), appoggio raggruppamento (`COGTRANS2`), saldi per raggruppamento (`COGTRANS3`), saldi per tipo operazione (`COGTRANS4`); i nomi contengono il codice operatore
`EXP-GRID`	dichiarato nella `.select`	File `line sequential` per l'esportazione Excel della griglia
`FLSTA`	`flsta.fd` / `flsta.cpy`	Gestione stato/lock file

Copybook di servizio: cogconta.cpy (esercizio), utile22.cpy (divisa COGE22), utile65.cpy (tipi operazione), utils52.cpy (date COGS52W), utils54.cpy (stampa COGS54), utils99.cpy (tipi operazione COGS99W), utilu10.cpy + k-u10.cpy (importi COGU10W), utilgdad.cpy (griglia GRIDADMN), utilw52.cpy (WIN052), utilw53.cpy (WIN053), utilpggr.cpy/fscrol2.cpy/getdcont.cpy/dtab.cpy (paginazione/scroll griglia), cogazien.cpy, wgrid/wstato/wopenf/wgrave/wnscr. Copybook generati da Screens: cogc15.select, cogc15.fd, cogc15.wrk, cogc15-01.scr, cogc15.decla, cogc15.prc.

Flusso principale¶

a000 / apri — inizializzazioni, finestra, lingua, data sistema; apre i file temporanei e legge l'esercizio (COGTABEL tipo 66); attiva i tasti funzione (conferma, dettaglio, stampa, griglia admin, export Excel).
a4 — svuota la griglia, carica i controlli e visualizza la maschera dei parametri.
a-tm-ese — accept esercizio (corrente/precedente).
a-tm-prov — accept flag prima nota provvisoria (visibilita' condizionata alla gestione IP).
a-tm-data-da / a-tm-data-a — accept intervallo date (F8 calendario, COGS52W).
a-tm-contab — accept flag documenti non contabilizzati.
a-tm-divisa — accept divisa (F8 aiuto COGE22 su COGTABEL tipo 56).
a-tm-rag — accept raggruppamento (F8 apre WIN052); i tipi operazione del raggruppamento vengono caricati da COGTABEL tipo 58.
a-tm-to1 ... a-tm-to10 — accept fino a dieci tipi operazione (F8 aiuto COGS99W), con controllo anti-duplicati.
a-inizio-dati — imposta il tasto di conferma in base alla validazione e attende conferma.
a-carica-dati / carica-dati — riapre COGTRANS e scandisce la prima nota: apre COGCOATT o COGPNONC secondo esercizio/contabilizzazione, filtra per date, divisa, raggruppamento e tipi operazione, e accoda i movimenti in COGTRANS (creo-file / creo-00), applicando l'eventuale cambio valuta (COGU10W).
saldo-fin / saldo-x-raggr — calcola il saldo complessivo e i saldi per raggruppamento e per tipo operazione (COGTRANS3/COGTRANS4), scrivendo in COGTRANS le righe di totale (documenti "speciali" 888888/999999/777777 usati come marcatori di riga totale).
vis-tabella / vis-tabella-disp — costruisce e visualizza la griglia paginata; gestisce gli eventi: conferma su riga = drill-down documento (w75-call → COGE75), dettaglio (WIN053), stampa (st-stampa), PgUp/PgDn, griglia admin (GRIDADMN), export Excel.
st-stampa / intesta — stampa batch del report con intestazione, righe di dettaglio e totali (COGS54).
fine / z-chiudi — chiude i file, cancella i temporanei e termina.

Sottoprogrammi chiamati¶

Programma	Ruolo
`COGE22`	Aiuto/selezione divisa (COGTABEL tipo 56)
`COGS99W`	Aiuto/selezione tipi operazione (causali)
`WIN052`	Selezione del raggruppamento di causali
`WIN053`	Visualizzazione dettaglio documento
`COGE75` (`COGE75.COB`)	Gestione/drill-down del documento di prima nota dalla riga di griglia (`w75-call`)
`COGS52W`	Editing/validazione date con calendario
`COGS54`	Gestione stampa/spooler del report
`COGU10W`	Editing importi e conversione cambio valuta (via `z-u10`)
`GRIDADMN`	Costruzione, popolamento e amministrazione (personalizzazione colonne, export) della griglia

Note¶

Il programma e' di sola interrogazione: non modifica la prima nota. Il drill-down su COGE75 puo' invece aprire la gestione documento (con eventuale modifica lato quel programma).
L'estrazione usa quattro file temporanei indexed (COGTRANS, COGTRANS2, COGTRANS3, COGTRANS4) i cui nomi includono il codice operatore: sono transitori e vengono cancellati alla chiusura. In COGTRANS alcune righe rappresentano totali (marcatori sul numero documento: 888888 totale generale dare/avere, 999999 saldo raggruppamento, 777777 saldo tipo operazione).
I raggruppamenti e i tipi operazione sono definiti in COGTABEL tipo 58; la divisa in tipo 56; i parametri esercizio in tipo 66.
Sorgente legacy: la navigazione fra i paragrafi di accept (a-tm-ese → a-tm-prov → ...), il paginamento della griglia e i cicli di caricamento usano estesamente GO TO, e l'elaborazione fa uso di PERFORM ... THRU (es. carica-dati thru ex-carica-dati, creo-file thru ex-creo-file, saldo-fin thru ex-saldo-fin, saldo-x-raggr thru ex-saldo-x-raggr, st-stampa thru ex-st-stampa, w75-call thru ex-w75-call). I record dei file temporanei sono dichiarati inline (non da copybook). Forme da non replicare nei nuovi sviluppi.