COGC18 — Ricerca dati su movimenti contabili¶

Sorgente: cbl/cogc18.cbl | Program-ID: COGC18 | Tipo: Programma di ricerca interattivo con griglia avanzata

Menu: Contabilita' > Prima Nota > Visualizzazioni > Ricerca dati su movimenti

Scopo¶

Ricerca avanzata sui movimenti contabili di prima nota. Supporta filtri per esercizio, periodo, conto contabile, cliente o fornitore. I risultati sono presentati in una griglia con ordinamento, filtro, esportazione Excel e drill-down sui documenti. Puo' essere chiamato da altri programmi con parametri preimpostati.

Struttura della maschera¶

Screen Designer con cogc18-01.scr. La maschera utilizza il pattern griglia avanzata con file di transito (t-grid-det), ordinamento dinamico e menu contestuale.

Parametri di selezione¶

Campo	Variabile	Tipo	Descrizione
Esercizio prec.	`tm-ese`	x(01)	"N"=attuale, "SI"=precedente
Prima nota	`tm-prima-nota`	x(09)	Formato AAAA/AAAA
Da data	`tm-data-da`	9(08)	Data inizio ricerca
A data	`tm-data-a`	9(08)	Data fine ricerca
Tutti gli esercizi	`tm-tutti-ese`	x(01)	"S"=tutti, "N"=solo selezionato
Conto coge	`tm-fl-conto-coge`	x(01)	"S"=ricerca per conto contabile
Cliente	`tm-fl-cliente`	x(01)	"S"=ricerca per cliente
Fornitore	`tm-fl-fornitore`	x(01)	"S"=ricerca per fornitore
Codice CLI/FOR	`tm-cli`	9(05)	Codice cliente o fornitore
Descrizione	`tm-des-cli`	x(40)	Ragione sociale (read-only)
Piano conti	`tm-pc`	mas(02)/con(02)/sot(06)	Conto contabile specifico
Descrizione conto	`tm-pc-des`	x(40)	Descrizione conto (read-only)
Contabilizzata	`tm-pc-contab`	x(01)	"S"=su contabilizzata

Griglia risultati¶

Griglia avanzata e-grid-det con file di transito. Supporta: - Ordinamento per colonna (predefinito: archivio, ordine discendente) - Filtro su griglia (k-filtro-su-griglia) - Menu contestuale pop-up - Esportazione Excel (SF5)

Colonne principali (da cogc18.tm): archivio, data, documento, conto, descrizione, importo, segno, numero fattura fornitore, ecc.

Logica di elaborazione¶

Flusso principale¶

apri: init, apertura file, lettura config COGTABEL tipo 66, creazione pulsanti custom (Salva/Cerca), impostazione griglia
a4: inizializzazione tab-maschera, impostazione defaults, caricamento esercizio
Accept campi sequenziale:
a-tm-ese → a-tm-prima-nota → a-tm-data-da → a-tm-data-a
a-tm-tutti-ese → a-tm-fl-conto-coge → a-tm-fl-cliente → a-tm-fl-fornitore
a-tm-cli → a-tm-pc
a-richiesta-conferma: validazione, conferma
a-inizio-ricerca: apertura archivio contabilizzato corretto
a-leggi-dati: creazione file di transito, caricamento dati
a-grid-ini → a-grid: navigazione griglia

Chiamata da altri programmi¶

Se cogc18-called = k-program-id e cogc18-caller not = spaces: - I parametri vengono preimpostati da w-dati-called (copybook utilcogc18.cpy) - Il programma salta direttamente ad a-inizio-ricerca - Al ritorno (ESC), esce senza tornare alla maschera parametri

Parametri ricevibili: esercizio, prima nota, date, tipo filtro (conto/cliente/fornitore), codice, conto contabile.

Apertura archivio (`a-inizio-ricerca`)¶

Se tm-ese = "N" (attuale): apre con open-pn-contabilizzata "ATT"
Se tm-ese = altro (precedente): apre con open-pn-contabilizzata "PRE", gestisce archivi di esercizi diversi costruendo il path dal nome file + tm-euta-doc-eserc-prec
Apre cogcoatt (file con nome dinamico nf-name-att)

Caricamento dati (`a-leggi-dati`)¶

Utilizza il pattern griglia avanzata con file di transito: 1. z-grid-det-apri-transito: apre il file di transito 2. z-grid-det-crea-transito: scansione movimenti, filtraggio, scrittura su transito 3. z-grid-det-riordina-transito: ordina per colonne configurate 4. Chiude cogcoatt

Gestione griglia¶

a-grid-ini: carica la pagina iniziale dalla tabella ordinata
a-grid: accept griglia con gestione eventi
F8: dettaglio documento via WIN053.COB
F3: gestione documento via COGE77W.COB (con parametri e77-*)
SF4: personalizzazione colonne via GRIDADMN
SF5: esportazione Excel
Menu contestuale pop-up (k-pmg-primo thru k-pmg-ultimo)

Gestione documento (`w75-call`)¶

Verifica archivio di appartenenza del documento (non contabilizzata o contabilizzata)
Chiama COGE77W.COB con parametri:
e77-caller = "COGE87"
e77-called = "COGE77-CALLED"
e77-docum = tm-r-docum(i)
e77-param1: "SI"/"NO" (prima nota non contabilizzata)
e77-param2: "SI"/"NO" (contabilizzata)
Se il documento viene modificato (c75-var = "S" o ext-upd-data = "S"), ricarica la griglia

Gestione impostazioni predefinite¶

Supporto per salvare/caricare impostazioni di ricerca: - Ctrl+S: salva impostazione (k-ctrl-salva) - Ctrl+F: cerca impostazione (k-ctrl-find) - Copybook cogc18.imppredf-wrk e utilimppredf.cpy

File utilizzati¶

File	Accesso	Scopo
FEURTAB	Lettura	Tabella nomi file
COGTABEL	Lettura	Tabelle (tipo 66: config contabilita', tipo 68: registri IVA)
COGPNCON	Lettura	Piano dei conti
COGGEANA	Lettura	Anagrafica generale
COGPNONC	I-O	Prima nota non contabilizzata
COGCOATT	Input	Prima nota contabilizzata (nome dinamico)
COGFATTU	Lettura	Fatture (riferimenti)
t-grid-det	I-O	File di transito griglia (temporaneo, cancellato alla chiusura)

Programmi chiamati¶

Programma	Scopo
COGU10W	Formattazione importi con divisa
COGS52W	Gestione date (calendario)
COGS65W	Ricerca anagrafica (F8 su cliente/fornitore)
COGS67W	Ricerca piano dei conti
COGS99W	Lookup centro di costo / tipo operazione
WIN053.COB	Visualizzazione dettaglio documento (F8)
WIN157	Selezione esercizio contabile (F8 su prima nota)
COGE77W.COB	Gestione prima nota (F3 su documento)
GRIDADMN	Gestione griglia (prepara, svuota, personalizzazione)

Copybook principali¶

cogc18.select, cogc18.fd, cogc18.wrk, cogc18.tm, cogc18.decla, cogc18.imppredf-wrk, cogc18-01.scr, cogcoatt.fd, cogcoatt.cpy, k-u10.cpy, cogconta.cpy, cogazien.cpy, wgrave.cpy, wgrid.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, utilgdad.cpy, utilncnf.cpy, utilu10.cpy, utilu20.cpy, utilimppredf.cpy, utilw53.cpy, utils52.cpy, utils65.cpy, utils67.cpy, utils99.cpy, wcont.cpy, utilcoge77.cpy, wcont1.cpy, utilcogc18.cpy

Linkage¶

Copy	Variabile	Descrizione
`wcont.cpy`	`stringhe`	Area di scambio standard
`utilcogc18.cpy`	`util-cogc18`	Parametri chiamata esterna (caller, esercizio, date, tipo filtro, codice, conto)
`utilcoge77.cpy`	`e77-*`	Parametri per chiamata COGE77W
`wcont1.cpy`		Area supplementare

Note¶

Il programma supporta la variabile esterna ext-upd-data (PIC x(01) IS EXTERNAL) per rilevare modifiche da sottoprogrammi.
L'ordinamento predefinito e' per archivio discendente (dal piu' recente).
La ricerca "Tutti gli esercizi" (tm-tutti-ese = "S") richiede obbligatoriamente un filtro su conto o cliente/fornitore.
Il campo tm-tipo determina il tipo di filtro: "C"=cliente, "F"=fornitore, spazio=conto contabile.
Il file di transito t-grid-det viene creato e cancellato ad ogni sessione.
I pulsanti custom (Salva/Cerca) usano bitmap dal file "ricerca" e sono gestiti via w-push-button-custom.