TGL060 - Gestione utensili

Panoramica

TGL060 gestisce la tabella TGLUTENS (anagrafica utensili per lavorazioni meccaniche, con placchette associate, costi e parametri di scorta). E' un programma a griglia GUI editabile su file di transito indicizzato. La griglia e' filtrata per lavorazione: il campo tm-lavoraz seleziona la lavorazione (verificata su CLCLAVOR) e la griglia mostra gli utensili collegati. Opera in modalita' "A" (aggiornamento da menu) o "S" (selezione, quando lanciato da un chiamante con tgl060-called = "TGL060-CALLED" e caller valorizzato), restituendo utensile e merce (tgl060-utensile, tgl060-ute-merce). Dalla griglia si accede a due funzioni collegate: F5 apre TGL061 (parametri di avanzamento per l'utensile) e F7 apre le note dell'utensile.

Posizione nel menu

Menu	Percorso
Magazzino	Archivi & Tabelle > Taglio Lamiere > Utensili

Struttura del programma

File e tabelle utilizzati

File/Tabella	Tipo	Descrizione
TGLUTENS (tute-rec)	Indexed I/O	Tabella principale: utensili. Chiave primaria tute-cod (x(25)); usata anche chiave secondaria tglutens.k03 (per lavorazione, tute-lavorazione). Campi: descrizione, lavorazione, merce utensile, merce placchetta, diametri, costo/minuto, qta placchette, note, e parametri costo oltre soglia spessore
CLCLAVOR (lav-rec)	Indexed input	Anagrafica lavorazioni: descrizione da lav-des
COGMERCI (mer-rec)	Indexed input	Anagrafica merci: da mer-chia ricava mer-sco-min (scorta minima) di utensile/placchetta
COGSLMAG (msal-rec)	Indexed input	Saldi magazzino: giacenza (msal-qta) su magazzino "U" per merce utensile/placchetta
t-grid-det (t-gor-r-rec)	Indexed I/O (transito)	File di transito che alimenta la griglia
feurtab	Indexed	File tabelle generico
exp-grid	Line sequential	File di appoggio per l'export Excel

Copybook principali

Copybook	Descrizione
utiltgl060.cpy	Interfaccia di linkage del programma (called/caller, lavorazione, utensile, merce)
utiltgl061.cpy	Interfaccia verso TGL061 (tempi/parametri avanzamento)
util-tgl030.cpy	Interfaccia verso TGL030 (aiuto lavorazione/macchine), in linkage
utiltgls02.cpy	Interfaccia verso TGLS02 (gestione merci di taglio lamiere)
costanti-tgls.cpy	Costanti di classe merce (k-classe-utensili = "U", k-classe-placchette = "L")
utilagprg.cpy, utilncnf.cpy	Supporto programmi/configurazioni
wgrid.cpy, utilgdad.cpy, utilimppredf.cpy	Griglia, admin colonne, filtri predefiniti
utilu10.cpy, utilu20.cpy, utils68.cpy	Supporto controlli maschera
mmmask.cpy, wstato.cpy, wopenf.cpy, wgrave.cpy, cogazien.cpy	Infrastruttura standard programma GUI
tglutens.k03	Chiave secondaria di TGLUTENS (aggiunta manualmente in coda alla procedure division)
tgl060.tm, tgl060-01.scr, tgl060.prc, tgl060.decla, tgl060.wrk	Artefatti Screens

Chiamate a sottoprogrammi (CALL)

Programma	Scopo
TGLS02	Gestione merci di taglio lamiere: cerca/inserisce l'articolo utensile o placchetta (CERCA-INFO, CERCA-MER, INSERISCI) e restituisce id/merce
TGL061	Aperto con F5: gestione parametri di avanzamento per l'utensile selezionato
TGL030	Aiuto (F8) sul campo lavorazione
GRIDADMN	Preparazione/amministrazione della griglia
W$MENU	Attivazione menu pop-up sulla griglia

Logica di elaborazione

1. apri: init programma, apertura file, modalita' S/A da tgl060-called, caricamento bitmap e pulsanti custom "Tempi avanzamento (F5)" e "Note Utensile (F7)", costruzione menu/griglia.
2. a4: ordinamento predefinito su codice utensile (gcn-r-cod), caricamento filtro predefinito; in selezione precompila tm-lavoraz con w-dc-lavorazione e ne mostra la descrizione. Se in selezione, salta direttamente a a-richiesta-conferma.
3. a-tm-lavoraz: accept del campo lavorazione con aiuto F8 (TGL030) e controllo x-controlla-tm-lavoraz (verifica su CLCLAVOR).
4. a-leggi-dati / z-grid-det-crea-transito: scandisce TGLUTENS per lavorazione tramite chiave secondaria (st-tglutens-notmin-chia3 + loop rdnxt-tglutens), saltando i record con tute-fl-canc valorizzato. Per ogni utensile risolve, via TGLS02 (CERCA-INFO), gli id di utensile e placchetta; recupera scorta minima (COGMERCI) e giacenza su magazzino "U" (COGSLMAG) di utensile e placchetta.
5. a-grid: ciclo accept sulla griglia con SF4, SF5 (export), Invio (in selezione restituisce utensile+merce), F5 (apre TGL061 se c'e' un codice utensile valido), F7 (richiedo-note, edita tm-r-note), F3 (valida tutta la griglia con x-controlla-grid-det-tutto e x9-controlli, poi b-aggiorna), Ctrl+A (nuova riga), Ctrl+E (marca la riga per cancellazione con flag "C").
6. Controlli di cella (principali): x-controlla-tm-r-cod (codice obbligatorio, no duplicati), x-controlla-tm-r-des, x-controlla-tm-r-diame, x-controlla-tm-r-id-ute e -id-pla (risolvono/creano l'articolo merce via TGLS02, propagano scorta minima e giacenza), x-controlla-tm-r-sco-min-ut/-pl (riscrivono mer-sco-min su COGMERCI), x-controlla-tm-r-inc-costo-sp/-soglia-sp/-inc-mm-sp (coerenza costo oltre soglia spessore).
7. x9-controlli: verifica di quadratura sui parametri costo oltre soglia (se e' impostato l'incremento costo servono anche soglia spessore e incremento mm), eseguito prima del salvataggio.
8. b-aggiorna: scandisce il transito e persiste su TGLUTENS: se la riga e' stata marcata cancellata (codice precedente presente, codice a spazi) imposta tute-fl-canc = "C" in riscrittura; altrimenti scrive/riscrive il record (b-aggiorna-record) con tutti i campi (descrizione, lavorazione, merci, diametri, costo, qta placchette, note, parametri soglia spessore).
9. fine / z-chiudi: chiusura file e transito, distruzione menu, uscita.

Note tecniche

• La cancellazione utensili e' logica: si valorizza tute-fl-canc = "C" (i record cancellati vengono saltati nel caricamento della griglia).
• Il flag di working flag-salta-modify ("281123") consente, in fase di validazione globale F3, di rieseguire i controlli di cella evitando gli effetti collaterali di riscrittura su COGMERCI (scorta minima) nei controlli x-controlla-tm-r-sco-min-ut/-pl.
• I parametri "costo oltre soglia spessore" ("090124": tute-soglia-spessore, tute-inc-costo-spessore, tute-inc-mm-spessore) modellano un incremento del costo/minuto dell'utensile oltre un dato spessore; sono validati sia per cella sia globalmente (x9-controlli).
• La griglia mostra anche scorta minima e giacenza di utensile e placchetta, lette da COGMERCI/COGSLMAG (magazzino "U"); la scorta minima puo' essere modificata dalla griglia e propagata su COGMERCI.
• La creazione/ricerca degli articoli merce (classe "U" utensili, "L" placchette) e' delegata interamente a TGLS02; TGL030 e' un programma di aiuto reale (non gestore Y*).
• Inserimento/cancellazione righe inibiti con filtro attivo.