TGL061 - Parametri di avanzamento (tempi lavorazione) per utensile

Panoramica

TGL061 gestisce la tabella TGLUTEAV (parametri di avanzamento di un utensile in funzione della materia prima e della durezza: velocita' di avanzamento, delta avvicinamento rapido, delta sfondamento). E' un programma a griglia GUI editabile su file di transito indicizzato, sempre in modalita' aggiornamento ("A"). La griglia e' vincolata a un singolo utensile (tm-utensile, verificato su TGLUTENS). Normalmente e' richiamato da TGL060 con tgl061-called = "TGL061-CALLED" e utensile passato in tgl061-utensile (utiltgl061.cpy); in quel caso l'utensile e' precompilato e non modificabile.

Posizione nel menu

Menu	Percorso
Magazzino	Archivi & Tabelle > Taglio Lamiere > Tempi lavorazione per utensile

Struttura del programma

File e tabelle utilizzati

File/Tabella	Tipo	Descrizione
TGLUTEAV (tuav-rec)	Indexed I/O	Tabella principale gestita: parametri di avanzamento. Chiave tuav-chia1 = utensile (x(25)) + materia prima (x(2)) + durezza (x(8)); dati: velocita' avanzamento (tuav-velocita-av), delta avvicinamento rapido (tuav-delta-ar), delta sfondamento (tuav-delta-sfond)
TGLUTENS (tute-rec)	Indexed input	Anagrafica utensili: verifica esistenza utensile e descrizione (tute-des)
COGTABEL (euta-rec)	Indexed input	Tabella generica: verifica durezza materia prima (tipo 62, sottotipo DU)
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
utiltgl061.cpy	Interfaccia di linkage (called/caller, utensile)
utilw76.cpy / sendw76.cpy	Interfaccia e wrapper per l'aiuto sulle tabelle (WIN076), usato per la durezza
costanti-tgls.cpy	Costanti tabelle materia prima (k-tab-mp-dur = "DU")
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
tgl061.tm, tgl061-01.scr, tgl061.prc, tgl061.decla, tgl061.wrk	Artefatti Screens

Chiamate a sottoprogrammi (CALL)

Programma	Scopo
WIN076	Aiuto (F8) sulla colonna durezza, tramite send-w76 (tabella durezze materie prime)
GRIDADMN	Preparazione/amministrazione della griglia
W$MENU	Attivazione menu pop-up sulla griglia

Logica di elaborazione

1. apri: init programma, apertura file, lettura parametro tgl061-called; forza modalita' "A" (il ramo selezione e' commentato nel sorgente). Costruzione maschera "Tempi lavorazione per utensile" e griglia.
2. a4: ordinamento predefinito su materia prima (gcn-r-mp), caricamento filtro predefinito; se richiamato (w-dc-called = "S") precompila tm-utensile con l'utensile passato, ne verifica l'esistenza su TGLUTENS (se non esiste, messaggio e uscita) e ne mostra la descrizione, poi salta a a-richiesta-conferma.
3. a-tm-utensile: accept del campo utensile con controllo x-controlla-tm-utensile (verifica su TGLUTENS).
4. a-leggi-dati / z-grid-det-crea-transito: scandisce TGLUTEAV per l'utensile (st-tgluteav-notmin + loop rdnxt-tgluteav con rottura su tuav-cod = tm-utensile) e trasferisce nel transito materia prima, durezza, velocita' avanzamento e i due delta, salvando materia/durezza "prec" per la cancellazione.
5. a-grid: ciclo accept sulla griglia con SF4, SF5 (export), F3 (valida tutta la griglia con x-controlla-grid-det-tutto, poi b-aggiorna e ricarica), Ctrl+A (nuova riga), Ctrl+E (marca la riga per cancellazione con flag "C"), menu pop-up.
6. Controlli di cella: x-controlla-tm-r-mp (materia prima obbligatoria), x-controlla-tm-r-durezza (verifica su COGTABEL tipo 62 sottotipo DU; F8 apre l'aiuto WIN076), x-controlla-tm-r-velocita-av, x-controlla-tm-r-delta-ar, x-controlla-tm-r-delta-sfond.
7. b-aggiorna: scandisce il transito e persiste su TGLUTEAV: se la riga e' stata svuotata (materia precedente presente, materia a spazi) cancella il record precedente (del-tgluteav, chiave utensile+materia prec+durezza prec); altrimenti scrive/riscrive il record (b-aggiorna-record, con wr/rwr-tgluteav) con velocita' e delta.
8. fine / z-chiudi: chiusura file e transito, distruzione menu, uscita.

Note tecniche

• La chiave completa e' utensile + materia prima + durezza: per lo stesso utensile e la stessa materia prima possono esistere piu' righe distinte per durezza. La materia prima e' obbligatoria; la durezza puo' essere vuota (in quel caso il controllo di validita' su COGTABEL viene saltato).
• La durezza e' un codice della tabella generica COGTABEL di tipo 62, sottotipo DU (costante k-tab-mp-dur); l'aiuto (F8) e' fornito da WIN076 (send-w76) con k-tab-mp-dur.
• Le celle chiave (materia prima, durezza) sono in sola lettura sui record gia' esistenti (z-grid-det-mp-be-ep/-durezza-be-ep impostano w-cell-accept-ok = 'N' se tm-r-mp-prec non e' vuoto): la chiave si imposta solo alla creazione della riga.
• Il programma e' cablato in sola modalita' aggiornamento (i rami di selezione con restituzione al chiamante sono presenti ma commentati nel sorgente).
• Discrepanza etichetta/funzione: l'etichetta di menu "Tempi lavorazione per utensile" e il titolo maschera parlano di "tempi", ma i dati gestiti sono parametri di avanzamento (velocita' in mt/minuto e delta in mm) da cui i tempi di lavorazione vengono derivati altrove; la tabella TGLUTEAV e' descritta come "Parametri avanzamento utensili".