TGL042 - Tipi di taglio per macchina

Panoramica

TGL042 gestisce la tabella TGLMACTT (tipi di taglio abilitati per ciascuna macchina di taglio lamiere). E' un programma a griglia GUI (grid-det editabile con file di transito indicizzato), che opera in due modalita': "A" (aggiornamento) quando lanciato da menu, "S" (selezione) quando richiamato da un altro programma per scegliere una coppia macchina/tipo taglio. La modalita' e' decisa in apri in base al parametro tgl042-called del copybook utiltgl042.cpy: se vale "TGL042-CALLED" entra in selezione filtrando sulla macchina passata (tgl042-macchina) e restituisce al chiamante tgl042-tipo-taglio e tgl042-macchina.

Posizione nel menu

Menu	Percorso
Magazzino	Archivi & Tabelle > Taglio Lamiere > Tipi taglio x macchina

Struttura del programma

File e tabelle utilizzati

File/Tabella	Tipo	Descrizione
TGLMACTT (tmtt-rec)	Indexed I/O	Tabella principale gestita: tipi taglio per macchina. Chiave tmtt-chia1 = macchina (x(5)) + tipo taglio (x(2)); dati tmtt-fl-default, tmtt-fl-evidenziare
CLCANAMA (mac-rec)	Indexed input	Anagrafica macchine: da mac-cod si ricava mac-des per la descrizione a video
TGLTIPGG (tttg-rec)	Indexed input	Anagrafica tipi di taglio: da tttg-tipo-taglio si ricava tttg-des
t-grid-det (t-gor-r-rec)	Indexed I/O (transito)	File di transito che alimenta la griglia; creato/cancellato a runtime
feurtab	Indexed	File tabelle generico (apertura standard via cogfiles.cpy)
exp-grid	Line sequential	File di appoggio per l'export Excel della griglia

Copybook principali

Copybook	Descrizione
utiltgl042.cpy	Interfaccia di linkage (parametri chiamata: called/caller, macchina, tipo taglio)
utiltgl044.cpy	Interfaccia verso TGL044 (aiuto tipo taglio)
utilq08.cpy / sendq08.cpy	Interfaccia e wrapper per l'aiuto sulle macchine (COGQ08)
wgrid.cpy, utilgdad.cpy	Gestione griglia e amministrazione colonne (GRIDADMN)
utilimppredf.cpy	Filtri predefiniti della griglia
utils52.cpy, utilu20.cpy, utilscrgtmvf.cpy, utilscrgfdip.cpy	Copybook di supporto controlli/griglia generati da Screens
mmmask.cpy, wstato.cpy, wopenf.cpy, wgrave.cpy, cogazien.cpy	Infrastruttura standard programma GUI
tgl042.tm, tgl042-01.scr, tgl042.prc, tgl042.decla, tgl042.wrk	Artefatti Screens (maschera, procedure, working)

Chiamate a sottoprogrammi (CALL)

Programma	Scopo
GRIDADMN	Preparazione/amministrazione della griglia (colonne, ordinamento)
TGL044	Aiuto (F8) sulla colonna tipo taglio; restituisce tgl044-o-tttg-tipo
COGQ08	Aiuto (F8) sulla colonna macchina, tramite send-q08
W$MENU	Attivazione menu pop-up a destra sulla griglia

Logica di elaborazione

1. apri (par. main): inizializzazione programma (z-99-init-program), apertura file, lettura azienda, determinazione modalita' S/A da tgl042-called, impostazione tasti funzione previsti, costruzione menu pop-up e maschera; caricamento id colonne griglia (x-trova-col-num-grid-det) e x-set-fl-mod.
2. a4: reset maschera, impostazione ordinamento predefinito fisso (macchina asc, poi tipo asc via gcn-r-macc/gcn-r-tipo), caricamento filtro predefinito (z-imppredf-carica-default).
3. a-leggi-dati / z-grid-det-crea-transito: apre il transito e lo popola scandendo TGLMACTT con il pattern st-tglmactt-notmin + loop rdnxt-tglmactt. In modalita' selezione con macchina valorizzata, posiziona e interrompe quando la macchina cambia. Per ogni record risolve descrizione macchina (rd-clcanama) e descrizione tipo taglio (rd-tgltipgg) e salva i valori "prec" per gestire la cancellazione.
4. a-grid: ciclo di accept sulla griglia (z-99-accept-grid-det), gestione eventi/mouse, tasti SF4 (admin colonne), SF5 (export Excel), Invio (in selezione restituisce riga e va a fine), F3 (in selezione alterna S/A e/o salva; da menu salva e ricarica), Ctrl+A (z-grid-det-nuova-riga) e Ctrl+E (svuota riga = cancellazione logica), menu pop-up.
5. Controlli di cella: x-controlla-tm-r-tipo (verifica tipo taglio su TGLTIPGG), x-controlla-tm-r-macc (verifica macchina su CLCANAMA); F8 su tipo apre TGL044, F8 su macchina apre COGQ08.
6. b-aggiorna: scandisce il transito e persiste su TGLMACTT: cancella il record precedente (delete-record-prec) se la riga e' stata svuotata o se la chiave e' cambiata, quindi riscrive il record modificato (b-aggiorna-record, con wr/rwr-tglmactt) aggiornando tmtt-fl-default e tmtt-fl-evidenziare.
7. fine / z-chiudi: chiusura file, chiusura/delete transito, distruzione menu, chiusura finestra, uscita.

Note tecniche

• Il flag tmtt-fl-evidenziare = "S" (da copybook) indica che i particolari lavorati con quel tipo di taglio vengono evidenziati nella stampa distinta e nella gestione lanci; tmtt-fl-default marca il tipo di taglio predefinito per la macchina.
• La griglia usa un file di transito indicizzato con chiave primaria e secondaria duplicata (t-gor-r-chia1/t-gor-r-chia2); l'export Excel avviene via z-esporta-grid-det su exp-grid.
• Inserimento e cancellazione righe sono inibiti se e' attivo un filtro sulla griglia (grid-det-filtro-attivo = "S").
• Programma con doppia funzione (menu + subroutine di selezione): quando chiamato con macchina, filtra la scansione sulla sola macchina passata. TGL044 e COGQ08 sono programmi di aiuto veri e propri (non gestori Y*).