TGL431 - Consultazione Lanci Taglio¶

Funzione¶

Visualizza in griglia paginata i lanci di taglio (materie prime) destinati al software di nesting "Alma". Supporta filtri per periodo e stato, con due chiavi di accesso alla tabella lanci.

Magazzino > Produzione > Taglio > Lamiere > Visualizzazioni > Lanci
Magazzino > Produzione > Taglio > Profilati > Visualizzazioni > Lanci

Tabelle e file principali¶

Tabella/File	Descrizione	Accesso
TGLLNCTS (tclt)	Lanci taglio	Lettura (chiave 2: data, chiave 3: stato)
TGLMATER (tmat)	Materiali taglio	Lettura (decodifica tipo materiale)
CLCANAMA (mac)	Anagrafica macchine	Lettura (decodifica macchina)
COGTABEL (euta)	Tabella generale	Lettura (decodifica durezza/qualita', tipo 62)
cogtrans	File di transito temporaneo	I-O, creato in temp dir

Copybook e sottoprogrammi¶

Elemento	Tipo	Ruolo
tgl431.wrk	Copybook	Working storage
tgl431.select	Copybook	Select file
tgl431.fd	Copybook	FD file
tgl431-01.scr	Screen	Maschera di selezione e griglia
tgl431.prc	Copybook	Procedure I/O
utiltgl431.cpy	Copybook	Parametri linkage (called)
util-tgl010.cpy	Copybook	Dati comuni taglio (linkage)
costanti-tgls.cpy	Copybook	Costanti per tabelle taglio (k-tab-mp-dur, k-tab-mp-cc)
k-personal.cpy	Copybook	Costanti personalizzazione
tgllncts.k02	Copybook	Chiave 2 TGLLNCTS (per data)
tgllncts.k03	Copybook	Chiave 3 TGLLNCTS (per stato)
cogtrans.k01	Copybook	Chiave 1 cogtrans
cogtrans.k02	Copybook	Chiave 2 cogtrans
GRIDADMN	Sottoprogramma	Gestione griglia paginata
sendw76.cpy	Copybook	Invio a finestra dettaglio
fscrol2.cpy	Copybook	Spaginamento griglia
utilpggr.cpy	Copybook	Utility paginazione griglia

Logica principale¶

Modalita' di chiamata¶

Puo' essere chiamato standalone o da altri programmi tramite utiltgl431.cpy. Se tgl431-called = 'TGL431' e tgl431-caller valorizzato, pre-compila tm-data-da, tm-data-a e tm-stato.

Selezione¶

Campi filtro: - tm-data-da / tm-data-a: periodo (formato AAAAMMGG) - tm-stato: stato lancio ('T' = tutti, 'A' = in preparazione, 'B' = inviato, 'C' = in esecuzione, 'D' = completato)

Validazione: tm-data-da non puo' essere maggiore di tm-data-a.

Estrazione dati (carica-file)¶

Due strategie in base allo stato: - Stato = 'T' (tutti): usa chiave 2 di TGLLNCTS (tratta-chia2), filtra per tclt-data nel range da/a - Stato specifico: usa chiave 3 di TGLLNCTS (tratta-chia3), filtra per tclt-stato

Per ogni record TGLLNCTS, scrive su cogtrans (file temporaneo) con: id, data, descrizione, stato, spessore, tipo materiale, qualita', durezza, macchina.

Visualizzazione¶

Griglia paginata (z-99-accept-paged-grid, fscrol2.cpy). Per ogni riga, decodifica: - Tipo materiale da TGLMATER - Macchina da CLCANAMA - Durezza e qualita' da COGTABEL (tipo 62, sottotipi k-tab-mp-dur e k-tab-mp-cc)

Selezione per chiamata esterna¶

Se w-dc-called = 'S', il doppio click o Invio su una riga restituisce tgl431-id al chiamante e chiude.

Note¶

Il file cogtrans viene creato in temp dir con nome #$trstgl431.{operatore}.
La chiave 2 di cogtrans (trs-chia2) e' usata per il sorting, copiata da trs-chia1.
Il programma usa GOBACK anziche' EXIT PROGRAM alla chiusura.
Gli stati del lancio sono: A (In preparazione), B (Inviato), C (In esecuzione), D (Completato).