COGZ20 — Piani di Fabbricazione
| Campo |
Valore |
| Sorgente |
cbl/cogz20.cbl |
| Program-ID |
cogz20 |
| Tipo |
Maschera GUI interattiva (griglia di dettaglio) |
| Posizione menu |
Lab.Odont. > Archivi > Piani di Fabbricazione |
Scopo
Gestisce l'anagrafica dei piani di fabbricazione del laboratorio odontotecnico. Un piano di fabbricazione (PdF) e' una sequenza ordinata di azioni/fasi lavorative, ciascuna con reparto/sottoreparto, tempi standard, giorni da inizio e flag (prestazione obbligatoria, materiale obbligatorio, azione impegno). I piani "standard" (tipo "F") costituiscono i modelli riutilizzabili da cui COGZ41 deriva il piano temporaneo di ogni commessa. Nelle modalita' di progettazione avanzate ("B"/"C") il piano associa anche articoli/materiali e prestazioni alle singole azioni.
Struttura e flusso
- La struttura in memoria
tab-maschera contiene i dati testata piano (tm-piano, tm-pia-des, tm-rev, tm-data-rev, reparto/dispositivo, tm-classific) e la tabella righe tm-righe (occurs 800): per ogni azione sequenza, codice azione, descrizione, tempo standard, flag prestazione/materiale, reparto/sottoreparto, giorni da inizio, tempo attesa, azione impegno.
- apri: costruisce i nomi dei file temporanei di transito (
LODTMMAT.<oper>, #COGz20.<oper> per tr-pdfpr, $COGz20.<oper> per tr-ppraz, #$COGz20.<oper> per tr-cogzd4); ctr-abil, z-99-init-program, rd-azi, open-files; attiva i tasti funzione (invio-modifica, F1 configura, F3 conferma/aggiorna, F4 cancella, S-F4 griglia, cta/cte/cti riga, S-F1 copia-da); carica bitmap labodonto2/labodonto e crea i pulsanti custom (Salva Con Nome F1, Prestazioni F1, Materiali F5, Gestione F6, Clienti associati al PdF F7); legge la configurazione (x99-confi); imposta il titolo maschera in base al tipo piano.
- a4: reset griglia e
tab-maschera; se richiamato (z20-called = "COGZ20-CALLED") precarica il piano dalla linkage utilz20; esegue operazioni-di-startup; ricostruisce la griglia; disattiva F3-aggiorna / F4-cancella e il pulsante F7.
- operazioni-di-startup: apre/verifica i file di transito (lock di funzione per operatore); se l'archivio e' gia' in uso
fl-startup-ok <> k-yes e il programma esce.
- a-tm-pia-cod: accept del codice piano, con aiuto F8 (
send-wz04, mostra anche i cancellati) e F1 configura; controlli in x-controlla-tm-pia-cod.
- a-richiesta-conferma: valida il codice; in modalita' progettazione "B"/"C" esegue la migrazione (
migra) e imposta tm-pdf-modalita; carica i dati del piano dai temporanei (carica-pdfpr, carica-ppraz, carica-griglia) e costruisce la griglia; in variazione (fl-ela = "V") attiva F3-aggiorna/F4-cancella e il pulsante F7.
- a-tm-pia-des / a-tm-pia-cod-salva / a-tm-rev / a-tm-rep-cod / ...: accept dei campi testata; "Salva con nome" (F1) chiede un nuovo codice destinazione (
tm-pia-cod-salva).
- Righe azione: la griglia (
e-tm-tab, gestita via GRIDADMN) permette di aggiungere/inserire/eliminare azioni; il dettaglio della singola azione consente F1 (prestazioni via COGZ25/COGZD4), F5 (materiali), F6 (gestione azione via COGZ23), copia-da (COGZCL).
- Salvataggio (
a-richiesta-conferma-tes → inserisci-dati / aggiorna-dati):
wr-lodpntes scrive la testata piano su LODPNTES (codice, descrizione, revisione tm-rev, data revisione, reparto, dispositivo, flag cancellato/classificazione);- per ogni azione:
wr-lodpnrig scrive la riga su LODPNRIG (sequenza, azione, reparto/sottoreparto, giorni inizio, flag obbligatorieta'), wr-lodpnmat scrive materiali/prestazioni su LODPNMAT (dal temporaneo lodtmmat), wr-lodppraz scrive i collegamenti azione-prestazione su LODPPRAZ;
wr-lodpdfpr scrive gli articoli del piano su LODPDFPR (modalita' avanzata).- In variazione
aggiorna-dati prima cancella (cancella-dati: del-lodpntes, del-lodpnrig, del-lodpnmat, del-lodpdfpr, del-lodppraz) poi riscrive.
- fine / z-chiudi:
z-close-files, chiusura window, z-99-exit-program, exit program.
Tabelle utilizzate
| Tabella |
Accesso |
Descrizione |
LODPNTES (lpt-) |
Lettura/Scrittura/Cancellazione |
Testata piano di fabbricazione |
LODPNRIG (lpr-) |
Lettura/Scrittura/Cancellazione |
Righe azione del piano |
LODPNMAT (lmt-) |
Scrittura/Cancellazione |
Materiali/prestazioni delle azioni |
LODPDFPR (pdr-) |
Scrittura/Cancellazione |
Dettagli articoli del piano (modalita' avanzata) |
LODPPRAZ (ppz-) |
Scrittura/Cancellazione |
Collegamenti azione-prestazione |
LODAZION (laz-) |
Lettura |
Anagrafica azioni |
LODTABEL (lta-) |
Lettura |
Tabelle generali (dispositivi, sottoreparti) |
COGTABEL (euta-) |
Lettura |
Tabella reparti (tipo 85) |
LODCLIPF (clp-) |
Lettura |
Clienti associati al piano (F7) |
LODPFSTD (pfs-) |
Lettura |
Piani standard per cliente/dispositivo |
COGMERCI (mer-) |
Lettura |
Anagrafica merci |
LODPREAZ (prz-) |
Lettura |
Prestazioni standard (migrazione) |
COGDBASE (dba-) |
Lettura |
Distinte / composizioni merci |
LODTMMAT (ltm-) |
I-O (temp) |
Buffer materiali/prestazioni per operatore |
TR-PDFPR / TR-PPRAZ / TR-COGZD4 (tr-) |
I-O (temp) |
File di transito articoli / collegamenti / elaborazioni COGZD4 |
| FEURTAB |
Lettura |
Parametri/anagrafica azienda (cogfiles.cpy) |
Programmi chiamati
| Programma |
Interfaccia |
Scopo |
| GRIDADMN |
utilgdad.cpy (util-gdad) |
Gestore griglia di dettaglio (record azioni) |
| COGZC0 |
utilzc0.cpy (util-zc0) |
Gestione clienti associati al PdF (F7) |
| COGZ23 |
utilz23.cpy (util-z23) |
Gestione/ricerca azioni (F6 sul dettaglio) |
| COGZ25 |
utilz25.cpy (util-z25) |
Materiali/prestazioni per azione (F1/F5) |
| COGZD4 |
utilcogzd4.cpy (util-cogzd4) |
Gestione avanzata materiali/prestazioni (modalita' "B"/"C") |
| COGZCL |
utilcogzcl.cpy (util-cogzcl) |
Copia materiali/prestazioni da altra azione |
| COGF11 |
utilf11.cpy |
Gestione/aiuto reparti (F8) |
| COGZ93 |
utilz93.cpy |
Scelta tipo dispositivo (F8) |
| COGS95 |
(gestore controlli) |
Gestione check-box (Cancellato, ecc.) |
| COGS52W |
utils52.cpy |
Gestione data / controlli maschera |
| RNEWCONF |
utilncnf.cpy |
Lettura configurazione da odonto.CNF |
Copybook principali
| Copybook |
Ruolo |
cogz20.select / cogz20.fd / cogz20.wrk / cogz20.prc / cogz20.decla / cogz20-01.scr |
Componenti generati da Screen Designer |
feurtab.fd, cogfiles.cpy |
FD FEURTAB |
lodtmmat.fd/.cpy/.k01, tr-pdfpr.fd/.cpy, tr-ppraz.fd/.cpy, tr-cogzd4.fd/.cpy |
File di lavoro / transito |
wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, cogazien.cpy |
Working storage standard + dati azienda |
wgrid.cpy, utilgdad.cpy |
Gestione griglia |
utilf11.cpy, utils52.cpy, utilu20.cpy, utilz25.cpy, utilcogzd4.cpy, utilw80.cpy, utilwz03.cpy, utilwz04.cpy, utilwz19.cpy, utilz93.cpy, utilzc0.cpy, utilcogzcl.cpy, utilncnf.cpy |
Linkage subroutine chiamate / lookup |
wcont.cpy, utilz20.cpy, utilz23.cpy, wcont1.cpy |
Linkage di chiamata (interfaccia COGZ20 come chiamato) |
lodpfstd.k03, lodpdfpr.k02/.k03, lodpnrig.k03, tr-pdfpr.k02/.k03, tr-ppraz.k02/.k03, tr-cogzd4.k02 |
Copybook chiavi secondarie |
grave.cpy, mmmask.cpy, opengen.cpy, stato.cpy, stato1.cpy, winmsg.cpy |
Copybook di fine procedure |
Configurazioni lette
| File |
Gruppo |
Chiave |
Uso |
odonto.CNF |
odonto |
gestione-reparti |
Mostra/gestisce i reparti (tm-cfg-fl-rep) |
odonto.CNF |
odonto |
selezione-mat-prest |
Selezione combinata materiali/prestazioni (tm-cfg-mat-prest) |
odonto.CNF |
abilita |
labod-progettazione |
Modalita' progettazione A/B/C (tm-cfg-modalita-prog), abilita COGZD4 |
Note
- Il tipo piano gestito (
w-tip-piano) e' "F" (piano standard); il titolo maschera cambia di conseguenza. I piani per commessa (tipo "T") sono generati da COGZ41.
- Il pulsante F7 "Clienti associati al PdF" (
flag-f7-attivo) e' disponibile solo in variazione: chiama COGZC0 con tipo/codice/descrizione piano e, al ritorno, ricarica l'anagrafica di default (x-carica-ana-def).
- Le tre modalita' di progettazione (A base, B/C avanzata) determinano se il piano gestisce solo azioni o anche articoli/materiali/prestazioni tramite COGZD4 e le tabelle LODPDFPR/LODPPRAZ.
- I file di transito (tr-pdfpr, tr-ppraz, tr-cogzd4) e LODTMMAT sono per-operatore e fungono da lock di funzione.
Storico modifiche
040122: introdotti i campi tm-fl-canc e tm-classific e la visualizzazione dei piani cancellati nell'aiuto (wz04-vis-cancellati).100622: gestione modalita' progettazione "C" accanto a "B".020724: rimosso il controllo azienda criptata (PBUG-1925); l'azienda viene ora solo tracciata (w-int).