Vai al contenuto

TGL461 - Dettaglio consuntivo lavorazioni (Taglio/Lamiere)

Panoramica

TGL461 e' un programma di visualizzazione a griglia GUI (Screens) per il modulo Siderpress Taglio/Lamiere: estrae e mostra il consuntivo delle lavorazioni registrate (tabella TGLLCONS), con macchina, lavorazione, tempi (ora inizio/fine, durata), ordine e commessa di lavorazione collegati. E' un'interfaccia a due pagine (tab-control): pagina "filtri" e pagina "risultati" con la griglia. Puo' essere lanciato da menu oppure richiamato da un altro programma (tramite util-tgl461), passando un ordine/riga preimpostato; in quel caso applica il filtro e va direttamente ai risultati.

Posizione nel menu

Menu Percorso
Magazzino Produzione > Taglio > Lamiere > Visualizzazioni > Consuntivo lavorazioni

Struttura del programma

File e tabelle utilizzati

File/Tabella Tipo Descrizione
TGLLCONS Indicizzato (input) Consuntivo lavorazioni: macchina, lavorazione, commessa, riga ordine, data/ora inizio-fine, tempo, tipo lavorazione; scansione su chiavi secondarie chia2 (commessa), chia3 (macchina+periodo), chia4 (periodo)
COGLAVOR Indicizzato (input) Commesse di lavorazione; letta per collegamento ordine-commessa (chiave secondaria chia5 su cla-ordine) e per recuperare l'ordine dalla commessa del consuntivo
COGTESOR Indicizzato (input) Testate ordini; verifica esistenza dell'ordine impostato nei filtri (rd-cogtesor)
COGRIGOR Indicizzato (input) Righe ordine; letta (chiave secondaria chia2) per recuperare la merce della riga ordine collegata
TGLPRRIG Indicizzato (input) Righe preventivo taglio; letta (chiave secondaria chia2 su testa ordine) per recuperare l'eventuale preventivo collegato
CLCANAMA Indicizzato (input) Anagrafica macchine (record mac-rec); letta per la descrizione macchina
CLCLAVOR Indicizzato (input) Anagrafica lavorazioni (record lav-rec); letta per la descrizione lavorazione
T-GRID-DET Indicizzato (transito temporaneo) File di transito della griglia (record t-gor-r-rec); cancellato in chiusura

Copybook principali

Copybook Descrizione
tgl461.select / tgl461.fd / tgl461.wrk / tgl461.tm / tgl461.prc / tgl461.decla Componenti generati da Screens
tgl461.imppredf-wrk / tgl461.imppredf Gestione filtri predefiniti/salvati
tgl461-01.scr Screen con tab-control e griglia e-grid-det
wgrid.cpy Framework di gestione griglia
utilgdad.cpy Area per GRIDADMN
utils52.cpy / utils68.cpy Aree subroutine campo data (S52) e ricerca/aiuto (S68)
utilu10.cpy / utilu20.cpy Utility standard di maschera
utilimppredf.cpy / utilncnf.cpy Filtri predefiniti e area configurazioni (RNEWCONF non attivata: x99-confi commentato)
k-u10.cpy / k-personal.cpy Costanti standard
util-tgl020.cpy Area per TGL020 (ricerca macchina)
utilo40.cpy Area per COGO40 (selezione ordine)
utiltgl461.cpy Area di interfaccia (linkage): tgl461-caller, tgl461-called, tgl461-i-ordine, tgl461-i-riga-ordine
cogrigor.k02 / coglavor.k05 / tgllcons.k02 / tgllcons.k03 / tgllcons.k04 / tglprrig.k02 Routine I/O su chiavi secondarie
cogazien.cpy / wgrave / wnscr / wopenf / wstato / grave / mmmask / opengen / stato / stato1 / winmsg Copybook standard

Chiamate a sottoprogrammi (CALL)

Programma Scopo
COGO40 Selezione avanzata dell'ordine (F9 sui campi anno/numero/progressivo ordine); operazione SELEZIONE, tipo C
TGL020 Ricerca/selezione della macchina (F8 sul campo macchina); ritorna tgl020-out-cod
GRIDADMN Amministrazione/formattazione griglia (Prepara) e personalizzazione colonne (SF4)
W$MENU Attivazione menu pop-up contestuale sulla griglia (right-click)

Logica di elaborazione

  1. apri / main: inizializza il programma, apre i file, imposta i tasti funzione (F7 filtra, F8 aiuto/calendario, F9 ricerca avanzata, SF4/SF5 griglia/Excel), carica le bitmap custom e crea due pulsanti custom "Salva impostazione (CTRL-S)" e "Cerca impostazione (CTRL-F)". Se richiamato da altro programma (tgl461-caller valorizzato), memorizza l'ordine/riga in ingresso.

  2. a4: inizializza la maschera (tipo ordine default C), imposta filtro contestuale e ordinamento predefinito per ordine (gcn-r-ordine). Se non chiamato da altro programma, carica l'eventuale filtro predefinito. Imposta la prima pagina del tab-control (filtri). Se chiamato con ordine, precompila i campi ordine e valida (x-controlla-tm-prog-ord), predisponendo il salto diretto ai risultati.

  3. a-pag-filtri e paragrafi a-tm-*: pagina filtri. Campi: anno/numero/progressivo ordine (a-tm-anno-ord, a-tm-num-ord, a-tm-prog-ord, con F9 -> COGO40), macchina (a-tm-macchina-cod, con F8 -> TGL020), data inizio/fine estrazione (a-tm-data-da, a-tm-data-a). Il tasto F7 conferma i filtri (k-exc-conferma -> a-controlla-filtri).

  4. x-controlla-tm-prog-ord: se e' impostato un ordine, verifica su COGTESOR che esista, poi ricerca la commessa di lavorazione collegata scandendo COGLAVOR (chiave chia5 su tor-chia) e memorizza anno/numero commessa in tm-cla-chia1; se l'ordine non e' collegato ad alcuna commessa segnala errore.

  5. a-controlla-filtri: rivalida tutti i filtri (x-imposta-conferma); se ok passa alla pagina risultati.

  6. a-pag-risultati / a-leggi-dati / z-grid-det-crea-transito / z-grid-ricerca-dati: estrazione. La chiave di ricerca su TGLLCONS e' scelta in base ai filtri impostati:

  7. macchina presente -> chia3 (macchina + periodo), z-grid-start3;
  8. solo ordine presente -> chia2 (commessa recuperata), z-grid-start2;

  9. altrimenti solo periodo -> chia4, z-grid-start4. Su ogni record letto applica i filtri comuni (z-grid-filtri: periodo, macchina, commessa) e compone la riga di griglia recuperando le descrizioni collegate (ordine da COGLAVOR, merce da COGRIGOR, preventivo da TGLPRRIG, descrizione macchina da CLCANAMA, descrizione lavorazione da CLCLAVOR) e formattando le ore inizio/fine.

  10. a-grid: ciclo sulla griglia (sola visualizzazione): SF4 (GRIDADMN), SF5 (esporta Excel), menu pop-up contestuale, ESC per tornare ai filtri o uscire. Se non ci sono dati estratti mostra "Nessun dato estratto!".

  11. fine / z-chiudi: chiude e cancella il transito griglia, distrugge il menu pop-up e termina.

Note tecniche

  • La griglia e' di sola lettura: z-99-begin-entry-grid-det blocca l'editing di ogni colonna (event-action-fail-terminate su tutte tranne il caso fittizio "xxx"). Il programma e' quindi una VISUALIZZAZIONE, coerente con la label di menu.
  • La scelta della chiave di scansione su TGLLCONS (chia2/chia3/chia4) e' guidata dai filtri per ottimizzare l'estrazione: il collegamento ordine->commessa e' indiretto e passa da COGLAVOR (la commessa e' la chiave con cui il consuntivo e' registrato).
  • Supporta il salvataggio e il richiamo di filtri predefiniti (CTRL-S / CTRL-F, framework imppredf), con i pulsanti custom nella toolbar. Il pulsante "Salva" appare solo se i parametri sono cambiati rispetto a quelli caricati (tm-interfaccia vs tm-interfaccia-copia).
  • L'interfaccia a due pagine e' gestita da un tab-control (k-pag-filtri = 1, k-pag-risultati = 2) con eventi cmd-tabchanged (paragrafo x-cambia-pagina).
  • La lettura configurazioni RNEWCONF e' predisposta (utilncnf.cpy, x99-confi) ma commentata: attualmente il programma non usa configurazioni.
  • Le ore sono memorizzate in formato HHMMSSCC (w-ini-ora / w-fin-ora) e formattate HH:MM:SS:CC per la griglia.