TGL465 -- Consultazione Log/Avanzamenti Macchine (Industria 4.0)¶

Sorgente: cbl/tgl465.cbl | Tipo: Programma interattivo GUI a griglia | Program-ID: TGL465

Menu:

Magazzino > Produzione > Taglio > Lamiere > Visualizzazioni > Avanzamenti taglio
Lab.Odont. > Operativo > Varie > Industria 4.0 > Consultazione log macchine

Scopo¶

Consultazione del log/avanzamenti delle macchine collegate al MES (Industria 4.0). Ha doppia valenza applicativa (dichiarata nell'intestazione):

Siderpress Taglio/Lamiere: consultazione log di taglio;
Nexxta (laboratori odontotecnici): consultazione log macchine (stampanti 3D Galassia).

Legge la tabella clcmaclg ("Log avanzamenti macchina"), popolata dalle macchine collegate al MES, e la mostra in una griglia interattiva filtrabile per macchina, n. lancio e intervallo di date (tab-control a 2 pagine: filtri e risultati). Il titolo maschera a runtime e' "Consultazione log macchine".

L'unico output esterno e' l'export Excel/CSV della griglia (SHIFT-F5). Non produce report a modello (il ramo Wordmdl su F9 e' commentato).

File e tabelle¶

Tabella	Ruolo / campi principali
clcmaclg	Tabella principale: log avanzamenti macchina (`macl-rec`). Scansionata per chiave `macl-chia4` (= `macl-cod-macchina` + `macl-inizio` + `macl-chia1`). Campi: `macl-programma`, `macl-ini-ora`/`macl-fin-ora`, `macl-tempo-minuti`, `macl-mp-qta` (materia prima, stampanti 3D), `macl-pn-scarico-mp`, `macl-id`
clcanama	Anagrafica Macchine Cicli Lav. (`mac-rec`, chiave `mac-chia`=`mac-cod`). Lookup descrizione/validazione macchina filtro (`mac-des`) via `rd-clcanama`
tgllncts	Testata "lanci" software Alma (`tclt-rec`, chiave `tclt-chia1`=`tclt-id`). Validazione filtro n. lancio (`rd-tgllncts`)
cogtabel / cogmerci	Tabelle codificate e anagrafica merci: descrizioni merce materia prima (usate dalle utility S60/S68/S95)
feurtab	File tabelle generiche di sistema (aperto standard)
t-grid-det	File indicizzato temporaneo (nome dinamico `w-nome-t-grid-det`) di transito griglia (`t-gor-r-rec`, chiave `t-gor-r-chia1`=`t-gor-r-prog`). Creato/cancellato a runtime
exp-grid	File line sequential per l'export Excel/CSV della griglia (`exp-grid-rec`)

Accesso via gestori tabella generati (rd-clcanama, rd-tgllncts, rd-clcmaclg, st-clcmaclg-notmin-chia4, rdnxt-clcmaclg). La chiave secondaria macl-chia4 non e' generata da Screens: e' inclusa manualmente a fine procedure con copy "clcmaclg.k04"..

Copybook principali¶

Copybook	Descrizione
`tgl465.select`, `tgl465.fd`, `tgl465.wrk`, `tgl465.tm`, `tgl465.decla`, `tgl465-01.scr`, `tgl465.prc`, `tgl465.imppredf`, `tgl465.imppredf-wrk`	Screen Designer
`feurtab.fd`, `cogfiles.cpy`	FEURTAB / tabelle generiche
`clcmaclg.k04`, tracciati `clcmaclg`/`clcanama`/`tgllncts`/`cogtabel`/`cogmerci`	Tabelle e chiave secondaria manuale
`wgrid.cpy`, `utilgdad.cpy`	Working griglia + linkage GRIDADMN
`utilimppredf.cpy`	Filtri predefiniti (salva/carica impostazioni)
`utils52`, `utils68`, `utils93`, `utilu10`, `utilu20`, `utiltgl431`, `utilu78`, `utilcogzq1`	Linkage sottoprogrammi (calendario, aiuti, ricerca lanci, drill-down documento/lavorazione)
`utilncnf.cpy`	Linkage RNEWCONF
`wgrave`, `wnscr`, `wopenf`, `wstato`, `cogazien.cpy`	Working storage standard + dati azienda (`az-ges-lo`)
`k-u10.cpy`, `k-personal.cpy`	Costanti
`wcont.cpy`, `wcont1.cpy`, `util-tgl020.cpy`	Linkage in ingresso (`stringhe`)

Chiamate ad altri programmi¶

Modulo	Trigger	Scopo
RNEWCONF	`x99-confi`	Lettura configurazione (`abilita` / `taglio-lamiere`)
TGL020	F8 su campo Macchina	Aiuto/selezione da Tabella Macchine (`tgl020-out-cod` -> `tm-macchina-cod`)
TGL431	F9 su N.lancio	Ricerca avanzata "Consultazione lanci x software Alma (Materie prime)" (`tgl431-id` -> `tm-lancio`)
COGU78	F3 su riga griglia con documento di scarico	Apertura documento di magazzino (`u78-doc-tip="COGTESBO"`, chiave da `macl-pn-scarico-mp`)
COGZQ1	F8 su riga griglia, solo se `az-ges-lo="S"`	Consultazione lavorazioni per commessa (laboratori odontotecnici)
GRIDADMN	SHIFT-F4 e preparazione colonne	Amministrazione/personalizzazione colonne griglia
W$MENU	right-click su griglia	Menu pop-up contestuale (range exception 151-199)

Non ci sono CALL a gestori tabella Y*: la persistenza usa i verbi rd-/st-/rdnxt- generati inline.

Flusso / Paragrafi principali¶

main/apri: init (z-99-init-program, ctr-abil, rd-azi, open-files), abilitazione tasti funzione (F7 filtra, SHIFT-F4 griglia, SHIFT-F5 excel, F3 conferma/gestione, F8 aiuto/calendario/dettaglio, F9 ricerca avanzata), lettura config (x99-confi), lingua, costruzione pop-up griglia (build-main-popup-grid-det), pulsanti custom (CTRL-S "Salva impostazione", CTRL-F "Cerca impostazione"), preparazione griglia.
a4: reset filtri, ordinamento predefinito (gcn-r-data-ini ASC), caricamento filtro predefinito, pagina filtri.
a-pag-filtri: catena accept dei filtri a-tm-macchina-cod -> a-tm-lancio (saltata se x-visible-tm-lancio=0) -> a-tm-data-da -> a-tm-data-a, con validazione x-controlla-* e gestione eccezioni.
a-controlla-filtri (x-imposta-conferma) -> a-pag-risultati.
a-leggi-dati: z-grid-det-apri-transito, z-grid-det-crea-transito -> z-grid-ricerca-dati (scansione clcmaclg per macl-chia4, filtro n.lancio in post-lettura via unstring+function numval, popolamento t-gor-r-rec), riordino, z-grid-det-carica-tab.
a-grid: loop interattivo (z-99-accept-grid-det): SHIFT-F4 GRIDADMN, SHIFT-F5 export, F3 documento COGU78, F8 COGZQ1, ESC -> a-grid-fine, menu pop-up 151-199.
fine/z-chiudi: z-close-files, close+delete t-grid-det, distruzione menu, uscita.

La gestione errori restituisce i messaggi di validazione via x-f3-msg + vbx-msg-error/box-msg ("Macchina inesistente!!", "Codice lancio non trovato", "Da data maggiore di A data !", "Nessun dato estratto!"). Le DECLARATIVES hanno io-error-rout. exit. (solo gestione stato file standard).

Configurazioni¶

Gruppo	Chiave	Effetto
abilita	`taglio-lamiere`	Valorizza `tm-cfg-taglio-lamiere` (pacchetto "C"). Letta in `x99-confi`

Il flag azienda az-ges-lo (Gestione laboratori odontotecnici, da cogazien.cpy) non e' RNEWCONF ma pilota il ramo laboratori (F8 -> COGZQ1 e attivazione tasto F8 dettaglio in griglia).

Note¶

Integrazione Industria 4.0 / MES: clcmaclg e' scritta dalle macchine di taglio (Siderpress/Alma) e dalle stampanti 3D (Nexxta/Galassia). TGL465 e' la sola consultazione di questo log. Non usa DB esterni/SQL: tutto su file indicizzati AcuCOBOL/Vision; il "collegamento" alle macchine avviene tramite la tabella popolata da altri flussi/interfacce.
Elaborazione tempi: conversione da macl-tempo-minuti (9(8)v99) a formato hh:mm:ss con redefines e compute ... rounded; ore inizio/fine formattate hh:mm:ss:ds da macl-ini-ora/macl-fin-ora.
Documento scarico MP: composizione stringa mag/ann/tip/num da macl-pn-scarico-mp in t-gor-r-doc-sca; drill-down su documento (F3) via COGU78 con tipo COGTESBO.
Filtri predefiniti: salva/carica impostazioni filtro (CTRL-S/CTRL-F) via utilimppredf.
Griglia read-only: z-99-begin-entry-grid-det fa event-action-fail-terminate per tutte le colonne (nessun editing).
Le modifiche recenti sono marcate col change-marker interno 150124 (data in colonna 1-6), non con *>DOC:; nessun marcatore *>DOC: presente.