Vai al contenuto

TGL020 -- Tabella Macchine (Taglio Lamiere / Industria 4.0)

Sorgente: cbl/tgl020.cbl | Tipo: Programma interattivo GUI a griglia (gestore tabella anagrafica), con modalita' selezione | Program-ID: TGL020

Menu:

  • Magazzino > Archivi & Tabelle > Taglio Lamiere > Macchine
  • Lab.Odont. > Operativo > Varie > Industria 4.0 > Gestione macchine

Scopo

Gestione dell'anagrafica macchine (taglio lamiere / Industria 4.0). Griglia editabile con codice, descrizione, n. operatori, codice lavorazione (con aiuto F8), flag lavorazione meccanica, flag doppia testa, percorso di interscambio (path), stato. Supporta modalita' "Aggiornamento" (default a menu) e "Selezione" (se chiamato da altro programma). Da una macchina si accede all'abilitazione lavorazioni (F6 -> TGL021).

File e tabelle

Tabella Chiave Campi principali
CLCANAMA (mac-) mac-cod (K01, K02) mac-des, mac-n-operatori, mac-lav, mac-mag, mac-fl-lav-mec, mac-fl-doppia-testa, mac-val (stato; "C" = cancellata logicamente)
CLCMACC2 (mac2-) mac2-cod mac2-path (percorso interscambio)
CLCLAVOR (lav-) lav-cod lav-des (descrizione lavorazione, per validazione/aiuto)
FEURTAB Parametri azienda (cogfiles.cpy)

Cancellazione logica: b3-cancella non esegue del-clcanama ma move "C" to mac-val + rwr (le righe cancellate restano marcate; in b2-modifica e' offerta la riattivazione).

Copybook principali

Working: wgrave/wnscr/wopenf/wstato/cogazien, opensave.def (C$OPENSAVEBOX), wgrid.cpy, utilgdad.cpy, utilu20.cpy, utiltgl021.cpy. Linkage: wcont.cpy, util-tgl020.cpy (ingresso: tgl020-called/tgl020-caller/tgl020-out-cod/tgl020-out-des), util-tgl030.cpy (aiuto lavorazioni), wcont1.cpy. Screen Designer generati: tgl020.select/.fd/.wrk/.prc/.decla, tgl020-01.scr.

Chiamate ad altri programmi

TGL021 (F6 "Abilita lavorazioni"), TGL030 (F8 aiuto su cella codice lavorazione, via util-tgl030.cpy), C$OPENSAVEBOX (F5 su cella path, selezione percorso), GRIDADMN (gestore griglia).

Flusso / Paragrafi principali

  • apri: determina modalita' — se tgl020-called = k-program-id e tgl020-caller <> spaces -> modalita' "S" (selezione), altrimenti "A" (aggiornamento). Init, tasti funzione, prepara griglia.
  • a4/a10-loop: carica la griglia scorrendo CLCANAMA (st-clcanama-notmin + rdnxt-clcanama, max 900 righe); per riga legge CLCLAVOR (descrizione lavorazione) e CLCMACC2 (path).
  • a-grid/a-accept-grid: accept griglia; S-F4 (GRIDADMN), F3 (salva/aggiorna o seleziona), CTRL-A (aggiungi riga), CTRL-E (cancella con conferma), F6 (TGL021).
  • a1-aggiorna/b-aggiorna: confronto tm-cod vs tm-cod-prec -> b1-inserisci/b2-modifica/b3-cancella; update-clcanama scrive CLCANAMA + CLCMACC2.
  • Controlli campo: x-controlla-tm-cod (duplicati), x-controlla-tm-des, x-controlla-tm-lav-cod (obbligatorio, valida su CLCLAVOR).
  • fine/z-chiudi: se called, ritorna codice/descrizione in util-tgl020.

Non legge configurazioni RNEWCONF.

Note

  • Modalita' "Selezione" via util-tgl020.cpy: F3/invio seleziona e restituisce codice/descrizione.
  • Cancellazione logica con flag mac-val="C" (non fisica).