COGG01 - Tabelle Clienti Potenziali¶

Sorgente: cbl/cogg01.cbl | Program-ID: COGG01 | Tipo: Tabella/Manutenzione

Menu: Contabilita' > Clienti Potenziali > Tabelle

Scopo¶

Gestione CRUD delle tabelle di raggruppamento per clienti potenziali. Ogni tabella e' memorizzata su COGTABEL con tipo 31 e sottotipo identificato dal codice tabella (2 caratteri). Le voci della tabella hanno codice numerico o alfanumerico in base al campo euta-pm.

Struttura della maschera¶

Maschera a caratteri (non Screen Designer). Definita inline in mm-1 (19 righe x 56 colonne): testata con codice tabella, descrizione, tipo (N/A), poi griglia a 10 righe per le voci (codice 8 char + descrizione 40 char).

Logica di elaborazione¶

Flusso principale¶

Inizializzazione (apri): ctr-abil, open-files, rd-azi, display maschera.
Accept codice tabella (a5): accept tm-cod, validazione non-blank, F8 per aiuto (send-gw01). Legge la testata tabella su COGTABEL (tipo=31, ptc-tip=tm-cod, ptc-cod=LOW-VALUES).
Accept descrizione (a7): accept tm-des, obbligatoria.
Accept tipo (a8): scelta N/A tramite COGS21.
Caricamento voci (a10-loop): sequential read su COGTABEL filtrando tipo=31 e ptc-tip=tm-cod. Carica fino a 900 voci in tab-maschera.
Accept voci (a20-a55): navigazione con scrolling su griglia 10 righe. F5 per cancellare una riga, F3 per aggiornare.
Aggiornamento (agg-00): cancella tutti i record della tabella (loop agg-10-loop), poi riscrive le voci non vuote (agg-30-loop). Se tutte le voci sono vuote, cancella anche la testata. Altrimenti scrive/riscrive la testata con descrizione e tipo.

Sottoprogrammi chiamati¶

Programma	Scopo
COGS21	Selezione valore da lista (tipo N/A)

File utilizzati¶

File	Copybook	Accesso	Utilizzo
FEURTAB	cogfiles.cpy	Random	Tabella file generali
COGTABEL	COGTABEL.CPY	I-O, Dynamic	Tabella principale (tipo 31)

Copybook principali¶

Copybook	Descrizione
feurtab.fd	SELECT FEURTAB
cogtabel.fd	SELECT COGTABEL
COGTABEL.CPY	Record layout COGTABEL
cogfiles.cpy	Record layout FEURTAB
wstato.cpy	Variabili stato
wgrave.cpy	Gestione errori gravi
wopenf.cpy	Apertura file
wnscr.cpy	Variabili screen
cogazien.cpy	Dati azienda
utils21.cpy	Interfaccia COGS21
utilgw01.cpy	Interfaccia GW01 (aiuto)
wcont.cpy, wcont1.cpy	Linkage standard
stato.cpy, winmsg.cpy, grave.cpy, open1.cpy	Procedure standard
mmmask.cpy	Gestione maschera
dtab.cpy	Display tabella
tstfun1.cpy	Test funzioni scroll
sendgw01.cpy	Invocazione aiuto GW01

Note tecniche¶

La tabella usa il tipo 31 di COGTABEL. Il campo euta-ptc-tip identifica la tabella (2 char), euta-ptc-cod identifica la voce (8 char).
L'aggiornamento e' distruttivo: cancella tutte le voci e le riscrive (pattern delete-all + rewrite-all).
La griglia a 10 righe supporta scrolling tramite tstfun1.cpy e dtab.cpy.
Limite massimo: 900 voci per tabella (t-size = 900).