COGQ77 - Integrazione Dati per Lotto¶

Sorgente: cbl/cogq77.cbl | Tipo: Programma a menu | Program-ID: COGQ77

Menu: Magazzino > Produzione > Cicli di Lavorazione > Operativo > Integrazione Dati per Lotto

Scopo¶

Chiusura e integrazione dati su lotto di produzione. Permette di aggiornare per ciascun lotto i dati integrativi non rilevati direttamente dalle fasi macchina: costo di trasporto esterno e tempo impiegato in attivita' varie (es. collaudo, imballaggio). Presenta un elenco filtrabile di lotti con selezione per anno/numero, cliente, periodo e stato (aperti/chiusi/tutti).

File e Tabelle¶

File/Tabella	Uso
FEURTAB (cogfiles)	Lettura parametri generali
COGGEANA	Lettura anagrafica generale (clienti)
COGGENER	Lettura anagrafica generale estesa
COGLAVOR	Lettura lavorazioni
COGTESBO	Lettura testate documenti (bolle)
COGMOMAG	Lettura movimenti magazzino
COGMOVDB	Lettura/aggiornamento movimenti database
CLCTABEL	Lettura tabelle cicli di lavorazione
CLCDISEG	Lettura disegni/articoli cicli
CLCCCTES	Lettura/aggiornamento testate cicli commessa
CLCCCCNS	Lettura/aggiornamento consuntivo cicli commessa
CLCCCRIG	Lettura righe cicli commessa
COGTRANS	File temporaneo transazioni (uso esclusivo operatore)
FLSTA	File stato (gestione I/O)

Programmi chiamati¶

Programma	Scopo
COGS52	Input anno lotto con verifica
COGS60	Selezione tipo estrazione (Aperti/Chiusi/Tutti)
COGS65	Ricerca anagrafica cliente
COGQ65	Utility gestione fasi a consuntivo (utilq65.cpy)
COGQ81	Utility aggiornamento dati lotto - costo trasporto e tempi varie (utilq81.cpy)
COGU10	Utility U10 (utilu10.cpy)
COGU12	Utility U12 (utilu12.cpy)
COGQS7	Log eventi cicli lavorazione (utilcogqs7.cpy)
GESEVLOG	Gestione event log (utilgesevlog.cpy)

Copybook principali¶

WSTATO.CPY, WOPENF.CPY — standard working storage
COGAZIEN.CPY — dati azienda
wdisp002.cpy — utility display maschera
utilp13s.cpy, utils21.cpy, utils52.cpy, utils54.cpy, utils60.cpy, utils65.cpy — utility generali
utilu10.cpy, utilu12.cpy — utility U10/U12
utilq65.cpy, utilq81.cpy — utility cicli lavorazione
k-u10.cpy — costanti U10
costanti-cogevlog.cpy — costanti event log
utilgesevlog.cpy — gestione event log
utilcogqs7.cpy — log eventi cicli
wcont.cpy, wcont1.cpy — linkage con chiamante

Struttura dati principali¶

tab-maschera¶

Campo	Tipo	Descrizione
tm-anno	9(04)	Anno lotto di ricerca
tm-num	9(06)	Numero lotto di ricerca
tm-elab	X(01)	Tipo estrazione: A=Solo aperti, C=Solo chiusi, T=Tutti
tm-occ	X(01)	Flag occupazione
tm-ana-tip/cod	X(01)/9(05)	Tipo e codice anagrafica cliente
tm-ana-des	X(40)	Descrizione cliente
tm-da-data	9(08)	Data inizio periodo filtro
tm-a-data	9(08)	Data fine periodo filtro

tm-tab (griglia lotti, max 10 elementi visibili)¶

Per ogni lotto: anno/numero, codice cliente, descrizione cliente, disegno, quantita', data inizio, stato, costo trasporto, minuti attivita' varie.

COGTRANS (record per lotto)¶

Struttura del record temporaneo: chiave anno+numero lotto, dati cliente, stato, disegno, quantita', data inizio, costo trasporto (trs-costo-trasp, 9(12)v9(06)), tempo varie (trs-tempo-varie, 9(08)).

Logica di Elaborazione¶

Inizializzazione: verifica abilitazione, apertura file gestionali e cicli, lettura dati azienda.
Controllo uso esclusivo: tentativo di apertura in OUTPUT di COGTRANS (path <tmp-dir>/#$COGQ77.<operatore>); se fallisce, la funzione e' gia' in uso.
Loop principale (a4):
a-accetta: accetta i parametri di filtro — anno/numero lotto diretto (via COGS52), oppure tipo estrazione (via COGS60) + cliente (via COGS65) + periodo (due date via COGS52).
b-elabora: scansiona CLCCCTES con i filtri impostati; per ogni lotto trovato, legge i dati di integrazione da COGTRANS (se gia' presenti) o li inizializza; popola tm-tab con i dati da mostrare.
c-visualizza: mostra la griglia dei lotti trovati; l'operatore naviga con cursore e seleziona il lotto da aggiornare.
Selezione lotto: riapre COGTRANS in OUTPUT (reset) e poi in I-O per il ciclo successivo.
Aggiornamento: per il lotto selezionato, tramite COGQ81 viene presentata la finestra di modifica costo trasporto e tempo varie. I valori aggiornati vengono scritti sia su COGTRANS sia su CLCCCTES (cct-costo-trasp, cct-tempo-varie).
Elenco situazione: e' disponibile la stampa dell'elenco lotti (righe di stampa rigel, intestazione testa1/testa2/testa4).

Note implementative¶

Il file COGTRANS viene svuotato (OUTPUT) e ricreato (I-O) a ogni ciclo di elaborazione per evitare residui di sessioni precedenti.
Il controllo di concorrenza usa lo stesso meccanismo di COGQ75 (file temporaneo come lock).
sw-momag-cancellati conta i movimenti di magazzino eventualmente cancellati durante l'elaborazione.
L'event log e' attivato tramite costanti-cogevlog.cpy e utilgesevlog.cpy (aggiunto 09/2022).
La griglia visualizza al massimo 10 lotti alla volta (t-size=10, w-t-size=10).