Vai al contenuto

TGL459 -- Ricerca disegni

Sorgente: cbl/tgl459.cbl | Tipo: Programma interattivo GUI (maschera filtri + griglia read-only) | Program-ID: TGL459

Menu:

  • Magazzino > Produzione > Taglio > Lamiere > Visualizzazioni > Ricerca disegni
  • Magazzino > Produzione > Taglio > Profilati > Visualizzazioni > Ricerca disegni

Scopo

Consultazione dell'anagrafica disegni per cliente e revisioni. Presenta una maschera di filtri e una griglia read-only (framework GRIDMODOA/grid-det, derivato da SKVIS1). Puo' essere richiamato in modalita' selezione da altri programmi.

File e tabelle

Tabella Ruolo Campi principali
TGLDISEG (tdsg-) Anagrafica disegni tdsg-cliente, tdsg-disegno, tdsg-revisione, tdsg-merce, tdsg-data-rev; chiave primaria per cliente e chiave 2 tdsg-chia2 (inclusa manualmente via copy "tgldiseg.k02")
COGGEANA (ana-) Anagrafica clienti rd-coggeana, ana-tipo='C'/ana-cod per il nome cliente
t-grid-det Transito temporaneo della griglia

Copybook principali

utils52/s65/s68/s93/u10/u20, utilgesstr.cpy (GESSTR), utilgdad.cpy, wgrid.cpy, utiltgl459.cpy (modalita' selezione), utilimppredf.cpy (import/export filtri), standard working-storage. Chiave secondaria tgldiseg.k02 inclusa manualmente.

Chiamate ad altri programmi

GRIDADMN (gestore griglia), GESSTR (ricerca per contenuto: CERCA-PREPARA/CERCA-ESEGUI), COGS65W (aiuto cliente), W$MENU (popup griglia).

Flusso / Paragrafi principali

  1. apri -> open files.
  2. a4: accept filtri (a-tm-fil-cli-cod, a-tm-disegno, a-tm-tipo-ricerca).
  3. Modalita' ricerca (tm-tipo-ricerca): "I" = inizia per, "C" = per contenuto (via GESSTR).
  4. a-fine-richiesta -> a-leggi-dati / z-grid-det-crea-transito.
  5. ricerca-disegni / ric-disegni-loop: scan TGLDISEG (start su chiave 1 se cliente valorizzato, altrimenti chiave 2).
  6. a-grid: presentazione griglia; fine.

Non legge configurazioni RNEWCONF.

Note

  • Richiamabile in modalita' selezione via utiltgl459.cpy (tgl459-called="TGL459", input cliente/tipo/disegno, output tgl459-chiave-disegno + tgl459-o-merce).
  • Import/export dei filtri via utilimppredf (CTRL-S salva, CTRL-F carica). Export Excel con Shift+F5.