Vai al contenuto

COGZ14 — Visualizzazione impegni giornalieri

Campo Valore
Sorgente cbl/cogz14.cbl
Program-ID cogz14
Tipo Lista-griglia/visualizzazione (con stampa)
Posizione menu Lab.Odont. > Operativo > Visualizzazioni > Impegni giornalieri

Scopo

Visualizza in forma aggregata gli impegni di produzione del laboratorio per reparto e sottoreparto, in un intervallo di date scelto dall'operatore. Per ciascun reparto/sottoreparto e data somma gli impegni attivati e li confronta con la capacita' disponibile, evidenziando il residuo. E' una funzione di consultazione con possibilita' di scomporre l'impegno per reparto o sottoreparto e di produrre una stampa riepilogativa in HP-GL/2.

Struttura e flusso

  • apri — init, open-files, rd-azi, definizione tasti funzione (F1 configura, S-F4 griglia, F3 conferma, F8 calendario/aiuto, F9 stampa), lettura divisa conto via COGU10W, x99-confi, caricamento bitmap/pulsanti custom (F5 Scomponi Sottoreparto, F7 Scomponi Reparto), preparazione griglia. Costruisce il nome del file di transito temporaneo COGTRANS.
  • a4 — reset griglia, apre in output/i-o il transito COGTRANS (lock di funzione per operatore), imposta date e sede di default (magazzino principale az-main-mag).
  • a-tm-data-ini / a-tm-data-fin / a-tm-sede — accept dei filtri (date inizio/fine tramite COGS52/calendario, sede tramite aiuto COGW36).
  • a-fine-intestazione — validazione, lettura configurazione is-modo per la sede, poi elabora e carica.
  • elabora — scandisce LODCARSP per data (chiave chia4) nel range; per ogni impegno, per i laboratori "lori" scarta le commesse chiuse (leggendo LODCMTES/LODPRESC); accumula gli impegni per reparto/sottoreparto/data nel record di transito COGTRANS. In modalita' "A" (is-modo) legge la capacita' massima da LODIMPRS; in modalita' "B" legge la disponibilita' reparto da LODIMPRS/LODIMPMD e calcola il residuo.
  • carica — riversa COGTRANS nella tabella di maschera (tm-righe occurs 900).
  • a-grid / a-accept-grid — loop di griglia; F5/F7 richiamano COGZ32 per scomporre l'impegno per sottoreparto o reparto, F9 avvia la stampa, S-F4 la personalizzazione colonne.
  • stampa / c-stampa / x4-format-page / d-rect — stampa HP-GL/2 del riepilogo impegni (via COGS54 per la scelta stampante), con testata, cornice e colonne condizionate da multi-sede e da is-modo.
  • fine / z-chiudi — chiusura file, cancellazione del transito temporaneo, uscita.

Tabelle utilizzate

Tabella Accesso Descrizione
LODCARSP (csp-) lettura (chiavi chia2,chia4) Carico/impegno per commessa, data, reparto/sottoreparto
COGTRANS (trs-) file transito temporaneo, i-o Record aggregato per data/sede/reparto/sottoreparto
LODCMTES (lct-) lettura Testata commessa (per esclusione commesse chiuse)
LODPRESC (lpm-) lettura (chia4) Prescrizione/commessa (stato)
LODIMPRS (irs-) lettura Impegno massimo reparto/sottoreparto
LODIMPMD (irsp-) lettura Impegno reparto per periodo (modalita' "B")
COGMAGAZ (magz-) lettura Anagrafica magazzino/sede
COGTABEL (euta-) lettura Descrizione reparto (tipo 85)
LODTABEL (lta-) lettura Descrizione sottoreparto (tipo 11)

Programmi chiamati

Programma Interfaccia Scopo
COGZ32 util-z32 Scomposizione impegno per reparto/sottoreparto (F5/F7)
COGU10W util-u10 Divisa conto ed editing importi
COGS52 util-s52 Gestore campo data
COGS54 util-s54 Scelta stampante / stampa
COGW36 sendw36 Aiuto/ricerca sede
GRIDADMN util-gdad Gestione e personalizzazione griglia
RNEWCONF util-ncnf Lettura configurazioni

Copybook principali

Copybook Ruolo
cogz14.wrk / cogz14.prc / cogz14-01.scr Costanti, working, procedure e screen
cogz14.select / cogz14.fd, flsta.fd/.cpy Definizione file del programma e file di stampa
cogtrans.k01, lodcarsp.k02/.k04, lodpresc.k04 Chiavi secondarie aggiunte manualmente
utilz32, utilu10, utils52, utils54, utilw36 Interfacce ai programmi chiamati
k-u10, k-personal, utilncnf, utilgdad Costanti e utility standard
mmmask, cogazien, wstato, wopenf, wgrave Infrastruttura maschera GUI

Configurazioni (RNEWCONF)

Gruppo Chiave Uso
odonto gestione-multi-sede Attiva le colonne/stampa per sede
labimp is-modo Modalita' di calcolo impegni: "A" = impegno totale, "B" = disponibilita' reparto + residuo

Note

  • Il file COGTRANS e' un transito temporaneo per operatore (nome con ext-tmp-dir + wo-oper): all'ingresso e' aperto in output per verificare che la funzione non sia gia' in uso dallo stesso operatore, e viene cancellato in uscita.
  • Le colonne della griglia (impegno totale / disponibilita' reparto / residuo, colonne sede) sono mostrate condizionatamente da is-modo e da multi-sede tramite vis-colonne (flag gdad-cst-vis).

Storico modifiche

  • 10/10/2024 (marcatore 101024): aggiunta la gestione per data (trs-data, filtri data inizio/fine), la modalita' is-modo con disponibilita' reparto (trs-disp-rep) e residuo (trs-residuo) letti da LODIMPRS/LODIMPMD, e le relative colonne in griglia e in stampa.