COGZ93 - Tipi Dispositivo¶
| Campo | Valore |
|---|---|
| Sorgente | cbl/cogz93.cbl |
| Tipo | Programma interattivo (maschera con griglia) |
| Menu | Lab.Odont. > Archivi > Tabelle > Tipi Dispositivo |
Descrizione¶
Gestione della tabella dei tipi di dispositivo del laboratorio odontotecnico. Ogni tipo dispositivo e' identificato da un codice di 2 caratteri e comprende: descrizione, classe, giorni di garanzia, numero uscite consentite, vita utile, linea di produzione, giorni previsti di produzione e note rischi.
Le note rischi sono salvate come file di testo esterno nella cartella modelli/rischi/{codice}.txt, caricate al caricamento dei dati e salvate alla conferma.
Il programma supporta classi gerarchiche di categorizzazione: se la configurazione classe-categoria (gruppo LABAVANZ) e' valorizzata, i dispositivi possono essere raggruppati in gerarchie tramite la tabella CODTRAGR.
File e tabelle¶
| File/Tabella | Tipo | Descrizione |
|---|---|---|
| FEURTAB (cogfiles) | Input | Parametri generali azienda |
Tabelle da cogz93.select |
I-O | Tabella LODTABEL tipo 08 (tipi dispositivo) |
| COGASCII | I-O | File di testo per note rischi (record fisso 8000 byte, organizzazione binary sequential) |
Tabella LODTABEL tipo 08¶
Ogni record contiene:
| Campo | Posizione | Descrizione |
|---|---|---|
lta-tipo |
08 | Tipo fisso (tipi dispositivo) |
lta-cod |
- | Codice tipo dispositivo (2 char) |
lta-04-cod-des |
- | Descrizione (40 char) |
lta-04-classe |
- | Classe del dispositivo |
lta-08-gg-garanzia |
- | Giorni di garanzia |
lta-08-n-uscite |
- | Numero uscite consentite |
lta-08-vita-um |
- | Unita' misura vita utile |
lta-08-vita-qta |
- | Quantita' vita utile |
lta-08-linea |
- | Linea di produzione |
lta-08-gg-prod |
- | Giorni previsti di produzione |
Copybook principali¶
| Copybook | Descrizione |
|---|---|
| cogz93.wrk / .select / .fd / .scr / .prc / .decla | Screen Designer: working, select, fd, screen, procedure, declaratives |
| utilncnf.cpy | Struttura per lettura configurazioni RNEWCONF |
| k-personal.cpy | Costanti personalizzazioni aziendali |
Chiamate a sottoprogrammi¶
| Programma | Scopo |
|---|---|
| RNEWCONF | Lettura configurazioni: LABAVANZ / CLASSE-CATEGORIA |
| GRIDADMN | Gestione griglia (preparazione, amministrazione) |
| DIALOGS | Dialog box di conferma |
Configurazioni RNEWCONF¶
| Gruppo | Chiave | Descrizione |
|---|---|---|
| LABAVANZ | CLASSE-CATEGORIA | Classe di categorizzazione gerarchica per tipi dispositivo. Se vuota, la categorizzazione non e' attiva |
Flusso di controllo¶
Paragrafi principali¶
| Paragrafo | Funzione |
|---|---|
apri |
Apertura file, caricamento configurazioni, preparazione griglia |
a10 |
Caricamento dati da LODTABEL tipo 08 nella tabella maschera, incluso caricamento file rischi da modelli/rischi/{codice}.txt |
a-grid |
Accept griglia, gestione tasti funzione (F6 = piani standard, F3 = conferma) |
a-dettaglio |
Dettaglio singola riga: accept campi codice, descrizione, classe, giorni garanzia, uscite, vita utile, linea, giorni produzione, note rischi |
a-fine-dettaglio |
Validazione e salvataggio record, con scrittura file rischi se le note sono valorizzate |
a-tm-note |
Accept del campo note rischi (testo libero 8000 char) |
x-controlla-tm-note |
Validazione campo note (attualmente sempre valido) |
x-test-mouse |
Gestione eventi mouse sulla griglia e sui campi dettaglio |
Caricamento file rischi (a10)¶
Per ogni tipo dispositivo caricato, il programma cerca il file {ext-mod-dir}/rischi/{codice}.txt e ne legge il contenuto nel campo tm-note. Se il file non esiste, le note restano vuote.
Salvataggio file rischi (a-fine-dettaglio)¶
Se le note rischi sono valorizzate, il programma scrive il file {ext-mod-dir}/rischi/{codice}.txt con il contenuto delle note, troncando gli spazi finali per determinare la lunghezza effettiva del record.
Note¶
- Il campo note rischi (
tm-note, 8000 byte) e' stato aggiunto con TASK-4683 - Il file rischi viene usato anche da COGZS9 (estrazione XML per Dichiarazione di Conformita') con il tag
LOD-RISCHI - Il file COGASCII e' definito come record fisso
pic x(8000)(organizzazionebinary sequential); la versione iniziale a record variabile (varying from 0 to 8000 depending on txt-rec-len) e' stata abbandonata in favore della scrittura/lettura del buffer intero, lasciando a COBOL il trim degli spazi finali quando rilevante - La configurazione classe-categoria e' opzionale: se non attiva, il campo classe e' di libera digitazione
Storico modifiche¶
2026-05-13: Consolidamento TASK-4683 (note rischi)¶
Il campo tm-note (PIC X(8000)) e' ora integrato nella griglia con accept dedicato (a-tm-note), validazione (x-controlla-tm-note), gestione spostamento mouse e reset del valore in inserimento. Aggiunto file di interscambio COGASCII come record fisso a 8000 byte (organizzazione binary sequential). In caricamento (a10) il file {ext-mod-dir}/rischi/{codice}.txt viene letto se esiste; in salvataggio (a-fine-dettaglio) viene riscritto solo se le note non sono vuote.