COGE26 -- Costi su Distinta¶

Sorgente: cbl/coge26.cbl | Tipo: Programma gestione tabella con griglia e dettaglio | Program-ID: COGE26

Menu: - Magazzino > Produzione > Distinta Base > Costi su Distinta

Scopo¶

Gestione CRUD dei costi aggiuntivi su distinta base (tipo 59 su COGTABEL). Griglia read-only + riga di dettaglio per inserimento/modifica. Supporta modalita' selezione (called) e aggiornamento.

File e tabelle¶

File/Tabella	Tipo	Modalita'	Descrizione
COGTABEL	Indicizzato	I-O	Tabella generica, euta-tipo = 59 per costi agg. distinta
FEURTAB	Indicizzato	I-O	File configurazioni generali

Programmi chiamati¶

Programma	Scopo
GRIDADMN	Gestione griglia (preparazione, svuotamento, add/modify record)

Copybook principali¶

coge26.select, coge26.fd, coge26.wrk, coge26.prc -- screen-generated
utile26.cpy -- linkage per modalita' called (e26-called, e26-caller, e26-out-cod)
utilgdad.cpy -- interfaccia GRIDADMN
wgrid.cpy -- gestione griglia
utilu20.cpy -- utilita' input numerico
cogazien.cpy -- dati azienda

Struttura del programma¶

Flusso principale¶

apri: inizializzazione, apertura file, determinazione modalita' (A/S)
a10: caricamento COGTABEL tipo 59 nella tabella in memoria (tm-tab)
a30: costruzione griglia e attivazione tasti funzione
a-grid / a-accept-grid: ciclo di accept sulla griglia
a-riga-dettaglio: gestione riga di dettaglio (codice, descrizione, ricarico %)
a-riga-dettaglio-fine: validazione e salvataggio su COGTABEL

Campi COGTABEL utilizzati¶

Campo	Utilizzo
euta-tipo	Costante 59
euta-cod	Codice costo (2 char)
euta-co-des	Descrizione
euta-co-per	Percentuale ricarico

Controlli¶

x-controlla-tm-cod: codice obbligatorio, verifica unicita' in inserimento (su file e in tabella)
x-controlla-tm-des: descrizione obbligatoria
x-controlla-tm-per: nessun controllo bloccante (accetta anche zero)
x-controlla-duplicati: scansione della tabella in memoria per duplicati

Documentazione tecnica -- 2026-04-29