COGB61 -- Confezioni¶

Sorgente: cbl/cogb61.cbl | Tipo: Programma interattivo (tabella) | Program-ID: COGB61

Menu:

Magazzino > Modula > Tabelle > Confezioni

Scopo¶

Gestione della tabella delle confezioni per l'anagrafica merci. Programma di tipo tabella con griglia editabile (pattern Screens standard), che opera sulla tabella COGTABEL con tipo "TC". Supporta sia modalita' di aggiornamento (standalone) sia modalita' di selezione (quando chiamato da altri programmi).

File e Tabelle¶

File/Tabella	Copybook	Uso
COGTABEL	cogb61.fd (via Screens)	I-O -- Tabella di sistema, filtrata su tipo "TC" (Tipo Confezione)
FEURTAB	cogfiles.cpy	Input -- Tabella Eurosystem

Programmi chiamati¶

Programma	Scopo
GRIDADMN	Amministrazione griglia (preparazione, record, esportazione)

Copybook principali¶

cogb61.wrk, .select, .fd, .prc, .scr, .tm, .decla, .imppredf, .imppredf-wrk -- Definizioni Screens
cogb61-01.scr -- Maschera screen
utilcogb61.cpy -- Interfaccia linkage per modalita' called
wgrid.cpy, utilgdad.cpy -- Gestione griglia
utilimppredf.cpy -- Filtri predefiniti

Logica di Elaborazione¶

Modalita' operative¶

Aggiornamento (a-modalita = "A"): la griglia e' editabile, F3 salva le modifiche
Selezione (a-modalita = "S"): la griglia e' read-only, Invio/doppio clic restituisce il codice selezionato in cogb61-out-cod e cogb61-out-des

La modalita' viene determinata all'avvio: se il programma e' chiamato con cogb61-called = k-program-id e un caller valorizzato, parte in selezione. F3 commuta tra le due modalita'.

Caricamento dati (`z-grid-det-crea-transito`)¶

Legge COGTABEL con chiave tipo "TC" e carica tutti i record nel file di transito della griglia. Per ogni record copia codice, descrizione e priorita' (campo euta-tc-priorita, con inspect per convertire spazi in zeri). Ordinamento predefinito: ascendente per codice.

Aggiornamento (`b-aggiorna`)¶

Scorre il file di transito della griglia:

Riga cancellata (progressivo > 0 e codice vuoto): cancella il record corrispondente da COGTABEL
Riga modificata (flag t-gor-r-riga-mod = "S"): legge COGTABEL con tipo "TC" + codice; se non esiste lo crea (wr-cogtabel), poi aggiorna descrizione e priorita' (rwr-cogtabel)

Validazione campi¶

x-controlla-tm-r-cod: codice obbligatorio; verifica unicita' (solo per inserimenti nuovi)
x-controlla-tm-r-des: descrizione obbligatoria se il codice e' valorizzato
x-controlla-tm-r-prio: campo priorita' -- il controllo di unicita' e' stato disabilitato (26/11/2025)

Struttura record COGTABEL¶

Campo	Valore
`euta-tipo-x`	"TC" (Tipo Confezione)
`euta-cod`	Codice confezione
`euta-tc-des`	Descrizione
`euta-tc-priorita`	Priorita' (numerico)

Documentazione tecnica -- 2026-04-28