COGZ55 — Archiviazione allegati (batch)¶

Campo	Valore
Sorgente	`cbl/cogz55.cbl`
Program-ID	`cogz55`
Tipo	Elaborazione batch a maschera (con contatori)
Posizione menu	Lab.Odont. > Operativo > Varie > Archiviazione Allegati

Scopo¶

Archivia in blocco, su archiviazione ottica riepilogativa, la documentazione (prescrizioni e allegati) delle commesse di laboratorio evase in un intervallo di date. Per ogni commessa selezionata richiama COGZ62 in modalita' SLAVE, che esegue l'effettiva archiviazione dei documenti. Facoltativamente puo' "forzare" l'archiviazione anche di commesse gia' archiviate, ripulendo prima i documenti gia' presenti (con esclusione dei documenti di classe "PT"). Al termine mostra i contatori delle commesse lette/elaborate e degli allegati archiviati/cancellati.

Struttura e flusso¶

Programma a maschera semplice: l'operatore indica il periodo, poi conferma (F3) e parte l'elaborazione batch.

apri: init, open-files, rd-azi, apertura del log di debug (gesdebug), lettura configurazione (x99-load-config).
Sezione filtri: accept di data inizio, data fine, flag "forzo archiviazione commesse gia' archiviate". F3 conferma.
a-richiesta-conferma: validazione date, doppia conferma (con avviso aggiuntivo se e' attivo il forzo), scrittura dei parametri sul log, poi lancio dell'elaborazione: c-elabora se la configurazione periodo e' "B", altrimenti b-elabora.
fine/z-chiudi: chiusura log e file, cancel "COGZ62" e cancel "COGU06", exit program.

File e tabelle¶

Tabella	Accesso	Descrizione
`LODPRESC` (`lpm-`)	lettura (chiavi `.k03` per data, `.k04` per numero)	Testata prescrizione/commessa: seleziona le commesse in stato "E" (evasa) nel periodo
`COGTESBO` (`tes-`)	lettura (chiave `.k02` per data)	Testate documenti magazzino (buoni di consegna), usata nella modalita' per data emissione buono
`COGRACBB` (`rbb-`)	lettura (chiave `.k02`)	Raccordo bolle: risale dalla bolla di consegna alla commessa collegata
`LODRACCO` (`lrc-`)	lettura/cancellazione	Raccordo documenti archiviati della commessa (tipo "PI"): elenco documenti da eliminare in caso di forzo

Copybook principali¶

Copybook	Ruolo
`cogz55.select`/`.fd`/`.wrk`/`.prc`/`.decla`	Definizioni generate da Screens
`cogz55-01.scr`	Screen section
`utilz62.cpy`	Linkage COGZ62 (archiviazione, modalita' SLAVE)
`utilu06.cpy`	Linkage COGU06 (eliminazione documento archiviato)
`utils52.cpy`, `utils54.cpy`, `utilncnf.cpy`	Linkage subroutine chiamate
`utilgesdebug.cpy`, `gesdebug.cpy`	Log di elaborazione
`cogtesbo.k02`, `cogracbb.k02`, `lodpresc.k03`/`.k04`	Chiavi secondarie
`mmmask.cpy`	Maschera GUI standalone

Programmi chiamati¶

Programma	Interfaccia	Scopo
`COGZ62`	`util-z62`	Archiviazione documenti della commessa (chiamato con `z62-called = "COGZ62-SLAVE"`)
`COGU06`	`util-u06`	Eliminazione documenti gia' archiviati (in caso di forzo)
`RNEWCONF`	`util-ncnf`	Lettura configurazione

Logica di elaborazione¶

Due modalita' di selezione delle commesse, scelte dalla configurazione labavanz / periodo-archiviazione:

b-elabora (default): scandisce LODPRESC per data entrata commessa nel periodo; considera solo le commesse in stato "E" (evasa) e per ognuna chiama COGZ62 SLAVE passando la prescrizione (lpm-chia1).
c-elabora (config = "B"): scandisce COGTESBO per data di emissione buono di consegna; per ogni buono di uscita lavoro risale via COGRACBB alla commessa collegata, verifica che sia in stato "E" e la archivia.

In entrambi i casi, se e' attivo il forzo, forzo-arch scorre LODRACCO (documenti tipo "PI" della commessa) e, tramite COGU06, elimina i documenti gia' archiviati prima di ri-archiviare — con l'eccezione dei documenti di classe "PT", che non vengono cancellati.

I contatori aggiornati a video sono: commesse lette (tm-c-l), commesse elaborate (tm-c-c), allegati archiviati (tm-a-l, tm-a-i) e documenti cancellati (tm-d-c).

Configurazioni RNEWCONF¶

Gruppo	Chiave	Uso
`labavanz`	`periodo-archiviazione`	Se "B" seleziona per data emissione buono (`c-elabora`), altrimenti per data entrata commessa (`b-elabora`)

Storico modifiche¶

080118: aggiunta la modalita' di selezione per data emissione buono di consegna (c-elabora) governata dalla configurazione periodo-archiviazione.
080824 (PBUG-2069): esclusi dalla cancellazione i documenti di classe "PT" durante il forzo.

Note¶

COGZ62 e' richiamato in modalita' SLAVE: l'archiviazione vera e propria e i suoi contatori (z62-ctr-a-l, z62-ctr-a-i) sono demandati a quel programma.
E' un batch senza griglia: l'unico output interattivo sono i contatori e i messaggi di fine elaborazione; il dettaglio operazione per operazione e' sul log di debug (gesdebug).