COGZA1 — Piani di fabbricazione standard per cliente
| Campo |
Valore |
| Sorgente |
cbl/cogza1.cbl |
| Program-ID |
cogza1 |
| Tipo |
Maschera GUI interattiva (griglia spaginata) |
| Posizione menu |
Lab.Odont. > Archivi > Piani di Fabbr.x Cliente |
Scopo
Gestisce l'archivio dei piani di fabbricazione standard associati a un singolo cliente (LODPFSTD). Per un cliente scelto in testata, permette di definire — per ciascun tipo di dispositivo — quale piano di fabbricazione (LODPNTES) applicare di default e in quanti giorni di consegna. In fase di creazione di una nuova commessa questi piani standard vengono proposti automaticamente in base al cliente e al tipo di dispositivo.
Struttura e flusso
apri: init standard (z-99-init-program, ctr-abil, open-files, rd-azi, x-carica-lingua), lettura divisa conto (get-divisa-conto), predisposizione tasti funzione (invio, F3 aggiorna/conferma/selezione/modifica, S-F4 griglia, S-F5 export Excel, F8 aiuto, C-A aggiungi, C-E elimina, F9 ricerca avanzata). Se il programma e' chiamato da altro modulo (za1-called/za1-caller, copybook utilza1.cpy), si predispone in modalita' called leggendo i parametri di ingresso (w-dc-in-ana).a-tm-ana-cod: accept del codice cliente, gestito con la subroutine di ricerca anagrafica COGS65W (z-s65-tm-ana-cod) e validato su COGGEANA (x-controlla-tm-ana-cod).a-fine-testata / a-elabora: conferma della testata, quindi spaginamento dei piani gia' presenti per il cliente.a-grid-ini / a-grid-show / a-grid / a-grid-disp: costruzione e gestione della griglia spaginata (z-99-accept-paged-grid, pg-after-pg-dwn / pg-after-pg-up) con lettura sequenziale di LODPFSTD per chiave cliente. La modalita' a-modalita alterna Selezione ("S") e Aggiornamento ("A").a-riga-dettaglio: apertura riga di dettaglio in inserimento ("I") o modifica ("M"). Campi: tipo dispositivo (tm-r-dsp-cod), codice piano di fabbricazione (tm-r-pia-cod), giorni di consegna (tm-r-gg-cns).a-tm-r-dsp-cod / a-tm-r-pia-cod / a-tm-r-gg-cns: accept e validazione dei campi di dettaglio.a-fine-dettaglio: conferma del dettaglio e aggiornamento del record LODPFSTD (chiave = cliente + tipo dispositivo). Se il record esiste esegue rwr-lodpfstd (modifica), altrimenti wr-lodpfstd (inserimento). Vincolo: per ogni combinazione cliente+tipo dispositivo e' ammesso un solo piano.- Cancellazione riga (
ctrl-e): con conferma, del-lodpfstd.
fine/z-chiudi: chiusura file.
Tabelle utilizzate
| Tabella |
Accesso |
Descrizione |
LODPFSTD (pfs) |
lettura/scrittura/cancellazione |
Piani di fabbricazione standard per cliente (chiave pfs-ana + pfs-tip-dsp); campi pfs-pia, pfs-gg-cns |
COGGEANA (ana) |
lettura |
Anagrafica clienti (validazione codice, descrizione ana-nome) |
LODTABEL (lta) |
lettura |
Tabella tipi dispositivo (tipo 08, lta-08-des, flag cancellazione lta-08-fl-canc) |
LODPNTES (lpt) |
lettura |
Testata piani di fabbricazione (validazione piano, descrizione lpt-des) |
Programmi chiamati
| Programma |
Interfaccia |
Scopo |
| COGS65W |
util-s65 |
Subroutine di ricerca/gestione anagrafica cliente sul campo codice |
| COGZ93 |
util-z93 |
Aiuto/ricerca tipi dispositivo (chiamato su F8 del campo tipo dispositivo) |
| WINZ04 |
util-wz04 (send-wz04) |
Aiuto/ricerca piani di fabbricazione (F8 sul campo piano) |
| GRIDADMN |
util-gdad |
Gestore standard della griglia (prepara, add record, svuota, inizializza) |
Copybook principali
| Copybook |
Ruolo |
cogza1.select / cogza1.fd / cogza1.prc / cogza1-01.scr |
Definizioni generate da Screen Designer |
cogza1.wrk |
Costanti e ID controlli della maschera |
utilza1.cpy |
Interfaccia di chiamata (parametri in/out quando COGZA1 e' invocato da altri moduli) |
lodpfstd.k02 |
Copybook chiave secondaria LODPFSTD (aggiunto manualmente a fine procedure) |
wgrid.cpy / utilgdad.cpy / utilpggr.cpy / fscrol2.cpy |
Griglia GUI e gestione spaginamento |
utils52.cpy / utils65.cpy / utilu05.cpy / utilu10.cpy / utilu20.cpy / utilz93.cpy / utilwz04.cpy |
Interfacce verso subroutine di supporto |
getdcont.cpy |
Recupero divisa conto |
cogazien.cpy / wstato.cpy / wopenf.cpy / wgrave.cpy / wnscr.cpy |
Working-storage standard |
Note
- La griglia usa il meccanismo di spaginamento (
fscrol2.cpy / utilpggr.cpy): i record LODPFSTD sono letti a pagine con restart in avanti/indietro (st-lodpfstd-may / st-lodpfstd-min / st-lodpfstd-notmin).
- Il tipo dispositivo vuoto (
spaces) rappresenta la voce "Tutti".
- La griglia e' personalizzabile via GRIDADMN con nome personalizzazione pari al program-id (
w-prg-pers, gdad-forza-custom = "S").
- Se il tipo dispositivo risulta cancellato logicamente (
lta-08-fl-canc = "C") viene mostrato un avviso ma il record resta visualizzato.