COGQ16 - Verifica avanzamento produzione (qualita')

Sorgente: cbl/cogq16.cbl | Tipo: Maschera testuale (verifica qualita') | Program-ID: COGQ16

Menu: Magazzino > Produzione > Stampaggio

Scopo

Inserimento dati di verifica lotto: quantita' verificate e scarti per produzione a matricole. Variante "verifica/controllo qualita'" del flusso di stampaggio.

File e Tabelle

File/Tabella	Uso
CLCCCTES, CLCCCRIG, CLCCCDAY, CLCCCCNS, CLCCCDET	Cicli / consuntivi commesse
CLCDALAV, CLCLVEXT	Avanzamenti lavorazioni
COGMERCI, COGGEANA	Anagrafiche
COGTESBO, COGMOMAG	Movimenti
COGTESOR	Ordini
COGMERAP, COGDBASE	Distinta
COGLAVOR, COGCONOR	Lavorazioni
COGMOVDB, COGRACMC	Movimenti distinta
COGMERLT, COGMOVLT	Lotti
COGLAVLA, COGMLTAG	Vari

Configurazioni RNEWCONF

Chiave	Significato
euta-c019-lot-ext	Gestione lotto esterno

Programmi chiamati

Programma	Scopo
COGU20	Display/colorazione campi maschera testo
COGP78	Stampa etichetta di lotto (F9, operazione documento "L")
COGQ44	Gestione lotto/stampaggio
COGQ57	Utility produzione
COGQS6, COGQS8	Gestione consuntivi/sedi
COGL61	Log produzione
COGU12, COGU10	Utility
DIALOGS	Dialoghi

Logica

1. Maschera testuale (mm-1, 22 righe con cornici grafiche IBM-OEM): inserimento lotto, dati di verifica.
2. Lookup ordine collegato, cliente, prodotto finito.
3. Inserimento tm-new-qta (qta verificata adesso) e tm-new-scar (scarti adesso).
4. Aggiornamento consuntivi (clcccdet, clcdalav) con scarti differenziati (verifica vs stampaggio).
5. Sezione "DATI ETICHETTE AVANZAMENTO": stampa etichette di avanzamento (tm-qta-stampa, tm-n-copie).

Stampa etichetta (F9)

Durante l'inserimento della nuova quantita' (acc-new-qta) viene mostrato in basso il tasto F9 = Stampa. Premendolo si esegue a1-stampa-etichetta, che richiama COGP78 (COGP78-CALLED, operazione documento "L" = etichetta di lotto) valorizzando p78-lotto-ava con i dati del lotto corrente: anno/numero lotto (tm-lot-ann/tm-lot-num), prodotto finito (tm-pf), data consegna (tm-data-cons), 1 copia. Al termine si rientra nell'accept della quantita'.

Note

• Interfaccia carattere (Sperry/PC), titolo "Verifica Avanzamento di Produzione".
• Logica k-w-pre = "1" / k-w-imp = "2" per pre-verifica/import.
• Distingue scarti precedenti vs scarti rilevati ora.

Storico Modifiche

Data	Descrizione
2026/06/16	Aggiunto tasto F9 (stampa etichetta di lotto) nell'inserimento della nuova quantita': nuovo paragrafo a1-stampa-etichetta che chiama COGP78 con operazione documento "L".