Vai al contenuto

TGL450 - Consultazione impegni totali per macchina (taglio)

Intestazione

Campo Valore
Programma TGL450
Titolo Impegni totali per macchina (Materie prime)
Tipo Visualizzazione interattiva GUI con griglia
Menu Magazzino > Produzione > Taglio > Lamiere > Visualizzazioni > Impegni per macchina (anche presente in Profilati > Visualizzazioni)
Sorgente cbl/tgl450.cbl

Scopo e logica generale

TGL450 calcola e mostra, per ogni macchina di taglio, gli impegni di lavorazione totali derivanti dagli ordini in essere entro una data di consegna. Per ciascuna macchina aggrega il tempo di lavorazione richiesto per le lavorazioni previste, presenta i risultati in griglia ordinabile/esportabile, e consente drill-down sulla riga via TGL456.

Usa due file di transito: cogtrans indicizzato (chiave macchina+lavorazione, chiave alternata con duplicati) e cogtgl450 per ulteriori dettagli.

Flusso principale

  1. apri: init, lettura azienda, apertura file, abilitazione tasti funzione (F1/F3/F5/F7/F8/F9/SF4/SF5).
  2. a4: init griglia, init tab-maschera.
  3. a-tm-data-consegna: accept data limite (calendario COGS52).
  4. F3 / a-avanti: scansione ordini fino alla data, calcolo impegni per macchina+lavorazione, scrittura su transito.
  5. a-grid-ini / a-grid: presentazione griglia, eventi:
  6. F3 su riga: chiama TGL456 per la gestione/dettaglio della macchina selezionata (util-tgl456).
  7. SF4: personalizzazione colonne (GRIDADMN).
  8. fine / z-chiudi: chiusura, cancellazione transito.

File e tabelle acceduti

File logico Modalita' Uso
FEURTAB Input Tabella nomi file
(tgl450.fd: ordini taglio, anagrafica macchine/lavorazioni) Input Origini per calcolo impegni
COGTRANS I-O Transito principale griglia (chiave primaria macchina+lavorazione, alternata duplicates)
COGTGL450 I-O Transito dettagli specifici TGL

Copybook inclusi

  • tgl450.select, tgl450.fd, tgl450.wrk, tgl450-01.scr, tgl450.decla, tgl450.prc
  • cogtgl450.fd, cogtgl450.cpy
  • costanti-tgls.cpy, k-u10.cpy, k-personal.cpy
  • wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, cogazien.cpy
  • wgrid.cpy, utilgdad.cpy
  • utilu10.cpy, utilu20.cpy, utils65.cpy (lookup), utils52.cpy (calendario), utilw76.cpy, utiltgls02.cpy, utiltgl456.cpy, utilw92.cpy, utilu06.cpy
  • Linkage: wcont.cpy, wcont1.cpy

Programmi chiamati (CALL)

Programma Scopo
COGS52 Calendario (F8 sulla data)
COGS65 Lookup anagrafica
TGL456 Gestione/dettaglio impegni macchina (F3 su riga)
GRIDADMN Amministrazione griglia

Logica di business

  • Lo stesso programma TGL450 e' presente nei menu Lamiere e Profilati: il discrimine fra i due modi e' dato dalla configurazione delle macchine/articoli (campi costanti-tgls).
  • La chiave del transito principale (trs-chia1 = trs-mac + trs-lav) aggrega gli impegni per macchina+lavorazione; la chiave alternata duplicates serve per ordinamenti alternativi.
  • Limite di 100 righe per la griglia (k-max-ele-tab value 100).
  • Tempo lavorazione totale gestito come pic 9(07)v99 (tmr-mac-tempo-lav).
  • Il programma puo' essere chiamato da altri programmi (struttura w-dati-called), inizializzata a init.
  • Read-only sui dati origine; le modifiche avvengono nei moduli specifici (TGL456 ecc.).

Storico modifiche

  • Pagina creata in autodoc 2026-05-16.