COGX48 - Visualizzazione Clienti Provvisori e CERVED¶

Sorgente: cbl/cogx48.cbl | Program-ID: COGX48 | Tipo: a griglia (sola lettura)

Menu: Contabilita' > Archivi & Tabelle > Varie > Visualizza Clienti Provvisori

Scopo¶

COGX48 visualizza in una griglia l'elenco dei clienti in stato provvisorio o CERVED, cioe' quelli presenti in COGANAPP con il flag aap-fl-inserito-agenzia valorizzato a "A" (provvisori, inseriti dall'agenzia) oppure "S" (inseriti da CERVED, tipicamente per consorzi). Per ogni cliente viene mostrato il codice, la ragione sociale, l'indirizzo, la localita' e la provincia, letti da COGGEANA. Dalla griglia e' possibile aprire la scheda di dettaglio del cliente tramite F3, richiamando COGE08C; se a seguito dell'apertura il cliente non risulta piu' provvisorio/CERVED, la riga viene eliminata dalla griglia.

File e tabelle¶

File/Tabella	Copybook	Modalita'	Uso
COGANAPP	`coganapp.fd`, `coganapp.k01`, `coganapp.k02`	Input (chiave secondaria k02)	Scansione clienti provvisori/CERVED
COGGEANA	`coggeana.fd`, `coggeana.k01`	Input (lettura diretta)	Lettura dati anagrafici del cliente
FEURTAB	`feurtab.fd`, `cogfiles.cpy`	Utility	File di sistema per gestione maschere

Programmi chiamati¶

Programma	Scopo
COGE08C	Apertura scheda cliente (dettaglio anagrafico); ricevuto il controllo tramite `util-e08c` con `e08c-called="COGE08C-CALLED"` e `e08c-ana-tip="C"`
GRIDADMN	Gestore tabella generato; gestisce la griglia (prepare, add-record, modify-record, svuota-tutto)

Copybook principali¶

Screen Designer / maschera: - cogx48.select, cogx48.fd, cogx48.wrk, cogx48.prc, cogx48.decla, cogx48-01.scr

Gestionale - tabelle: - coganapp.fd, coganapp.k01, coganapp.k02 - coggeana.fd, coggeana.k01 - cogfiles.cpy, feurtab.fd

Linkage / interfaccia: - wcont.cpy, wcont1.cpy, utile08c.cpy

Utility / infrastruttura: - wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, cogazien.cpy - wgrid.cpy, utilgdad.cpy - grave.cpy, mmmask.cpy, opengen.cpy, stato.cpy, stato1.cpy, winmsg.cpy, utilgrid.cpy

Logica di elaborazione¶

Avvio (apri): inizializzazione standard, lettura azienda, impostazione tasti funzione (F3-gestione, SF4-griglia).

Caricamento griglia (a10 / a10-loop): posizionamento sulla chiave secondaria k02 di COGANAPP con aap-ana-tip = "C" e aap-old-cod = 0; scansione sequenziale con rdnxt-coganapp. Per ciascun record con aap-fl-inserito-agenzia = "A" o "S", viene letta l'anagrafica in COGGEANA e la riga viene aggiunta alla tabella interna tab-maschera (massimo 900 elementi). Il flag distingue tra "A" (etichetta "Provvisorio") e "S" (etichetta "CERVED").

Griglia (a-grid / a-accept-grid): la griglia e' in sola lettura (nessun inserimento diretto). SF4 apre GRIDADMN per la personalizzazione colonne. F3 apre COGE08C per la scheda del cliente selezionato; al ritorno, se il cliente non e' piu' provvisorio/CERVED, la riga viene azzerata dalla griglia.

Uscita (fine / z-chiudi): chiusura file e finestra, exit program.

Note¶

La scansione di COGANAPP usa la chiave secondaria .k02 (inclusa esplicitamente a fine procedure division con copy "coganapp.k02".), non inclusa automaticamente da Screens.
Il numero massimo di righe in griglia e' 900 (k-max-ele-tab); al superamento viene mostrato un avviso.
Il programma e' in sola visualizzazione: non scrive su nessuna tabella.
Il check su aap-old-cod not = zero garantisce che vengano processati solo i clienti senza codice definitivo abbinato.

Documentazione tecnica generata -- 2026-07-15