COGZAK — Gestione file denti (WILOCS)
| Campo |
Valore |
| Sorgente |
cbl/cogzak.cbl |
| Program-ID |
cogzak |
| Tipo |
Maschera GUI con griglia di dettaglio (acquisizione da scanner) |
| Posizione menu |
Lab.Odont. > Operativo > File denti |
Scopo
Gestisce i materiali/prodotti (denti e componenti) associati a una commessa di laboratorio, acquisiti tramite lettura di codici a barre ("file denti" per la personalizzazione WILOCS). L'operatore inquadra un barcode nel campo di lettura: il programma decodifica prodotto e lotto, li riconcilia con l'anagrafica fornitore (COGMERFO) e aggiorna il conteggio dei materiali provvisori della commessa su LODCMMTA, mantenendo l'aggancio all'ordine su LODCMMOR.
Struttura e flusso
Programma a maschera con griglia in sola visualizzazione (le righe non si editano manualmente: si aggiornano tramite lettura barcode).
main/apri: init, open-files, rd-azi, x99-confi. Se richiamato (zak-called = "COGZAK-CALLED") riceve la prescrizione in zak-presc.a-tm-cli/a-10-cerca/a-fine-commessa: accept prescrizione via COGS98W; x-controlla-commessa verifica la commessa e imposta w-com.a1-carica (thru ex-a1): carica in griglia le righe provvisorie LODCMMTA della commessa (filtro mpa-commessa = w-com, mpa-prs-id = 0, mpa-prov = 'C').a-tm-lettura: cuore del programma. Accept del campo di lettura barcode; gestisce F4 (attiva modalita' cancellazione), riconoscimento formato "Major" (x-controlla-lettura-major, formato GS1 01...10...) e formato standard con separatore 0-$ (x-controlla-tm-lettura/-bis).tratta-cogmerfo (thru ex-tratta-cogmerfo): risolve prodotto+lotto su COGMERFO (chiave secondaria .k04, per fornitore interno az-for-int); se trovato chiama aggiorna-griglia, con gestione delle righe gia' legate a ordine (non cancellabili).aggiorna-griglia: incrementa/decrementa la quantita' del materiale (in base a flag-ok-cancella); scrive/aggiorna/cancella il record provvisorio LODCMMTA (wr-/rwr-/del-lodcmmta) e richiama aggiorna-lodcmmor per mantenere una riga ordine "A" collegata alla commessa. Al termine ricarica la griglia (go to a-carica-griglia).aggiorna-lodcmmor (thru ex-aggiorna-lodcmmor): garantisce l'esistenza di almeno una riga LODCMMOR tipo "A" non ancora agganciata a ordine per la commessa.a-grid/a-accept-grid: loop griglia con Ctrl+A/Ctrl+E/Invio (la logica di editing riga e' in gran parte disattivata; l'aggiornamento avviene via lettura).b-aggiorna: nel caso di questo programma e' vuoto (l'aggiornamento e' immediato ad ogni lettura).
Tabelle utilizzate
| Tabella |
Accesso |
Descrizione |
LODCMMTA (mpa-) |
lettura/scrittura/riscrittura/cancellazione |
Materiali provvisori della commessa (merce, lotto, um, quantita', progressivo) |
LODCMMOR (mor-) |
lettura/scrittura |
Righe ordine/aggancio della commessa (tipo "A") |
COGMERFO (mfr-) |
lettura (chiave .k04) |
Anagrafica merci-fornitore (codice fornitore -> merce interna) |
COGMERCI (mer-) |
lettura |
Anagrafica articoli (descrizione, unita' di misura) |
LODPRESC (lpm-) |
lettura |
Prescrizione/commessa (via COGS98) |
feurtab (cogfiles.cpy) |
— |
File tabelle Euro standard |
Programmi chiamati
| Programma |
Interfaccia |
Scopo |
COGS98W |
util-s98 |
Selezione/validazione prescrizione |
GRIDADMN |
util-gdad |
Gestione griglia di visualizzazione |
COGU10W |
util-u10 |
Gestione valori/divisa |
RNEWCONF |
util-ncnf |
Lettura configurazioni |
Copybook principali
| Copybook |
Ruolo |
cogzak.select/.fd/.wrk/.prc/.decla |
Definizioni generate |
cogzak-01.scr |
Screen section |
utilzak.cpy |
Linkage di chiamata (prescrizione in ingresso) |
utils98/utilgdad/utils52/utils68/utilu10/utilu20/utilncnf |
Linkage subroutine |
cogmerfo.k04 |
Chiave secondaria merci-fornitore |
mmmask.cpy |
Maschera GUI standalone |
wstato/wgrave/wgrid/wopenf/wnscr/cogazien/utilgrid |
Working-storage standard |
Note
- Il campo lettura riconosce il formato barcode "Major" (GS1: prefisso
01 + prodotto, 10 + lotto). Su richiesta cliente l'ultimo carattere del lotto viene rimosso perche' non ne fa parte.
- Le righe gia' legate a un ordine (
tm-ord-ann <> 0) non sono cancellabili tramite lettura in modalita' F4.
- La configurazione RNEWCONF letta e'
colori / colonna-griglia-modificabile (colore colonne editabili).