COGQ75 - Consuntivo Lavoro Svolto¶

Sorgente: cbl/cogq75.cbl | Tipo: Programma a menu | Program-ID: COGQ75

Menu: Magazzino > Produzione > Cicli di Lavorazione > Operativo > Consuntivo Lavoro Svolto

Scopo¶

Registrazione del consuntivo di produzione giornaliero per macchina. Dato un giorno di elaborazione, permette di inserire macchina per macchina le fasi a consuntivo: tempi effettivi di attrezzaggio, lavorazione e disattrezzaggio, quantita' prodotte e scarti, costo fase. Aggiorna le tabelle di consuntivo cicli di lavorazione (CLCCCCNS, CLCCCDAY) e la tabella pezzi prodotti (COGPZPRD).

File e Tabelle¶

File/Tabella	Uso
FEURTAB (cogfiles)	Lettura parametri generali
COGMERCI	Lettura anagrafica merci (external)
COGGEANA	Lettura anagrafica generale (clienti/fornitori)
COGCONOR	Lettura anagrafica contatti/operatori
CLCTABEL	Lettura tabelle cicli di lavorazione (data ultimo consuntivo)
CLCLAVOR	Lettura lavorazioni
CLCANAMA	Lettura anagrafica macchine
CLCDISEG	Lettura disegni/articoli cicli
CLCLAVMA	Lettura assegnazioni lavorazione-macchina
CLCCCTES	Lettura/aggiornamento testate cicli commessa
CLCCCRIG	Lettura/aggiornamento righe cicli commessa
CLCCCDAY	Lettura/aggiornamento dettaglio giornaliero cicli commessa
CLCCCCNS	Lettura/aggiornamento consuntivo cicli commessa
CLCLAVSP	File temporaneo "lavorazioni speciali" (segnalazione uso esclusivo)
COGTRANS	File temporaneo transazioni (uso esclusivo operatore)
COGTRMAC	File temporaneo per macchina (collegamento data-macchina a lotto/fase)
COGPZPRD	Tabella pezzi prodotti per lotto/fase
FLSTA	File stato (gestione I/O)

Programmi chiamati¶

Programma	Scopo
COGS52	Input data con calendario
COGS60	Selezione da lista opzioni
COGS65	Ricerca anagrafica (fornitore / macchina)
COGQS1	Utility cicli: gestione selezione macchina (utilqs1.cpy)
COGQS2	Utility cicli: ricerca fasi giornaliere (utilqs2.cpy)
COGQS3	Utility cicli: dettaglio lotto ciclo (utilqs3.cpy)
COGQS4	Utility cicli: dettaglio fase (utilqs4.cpy)
COGQ05	Utility: calcolo tempi (utilq05.cpy)
COGQ07	Utility: conversione ore/minuti (utilq07.cpy)
COGQ08	Utility: aggiornamento consuntivo (utilq08.cpy)
COGQ14	Utility: gestione costo fase (utilq14.cpy)
COGQ62	Utility: ricerca fase ciclo (utilq62.cpy)
COGQ65	Utility: gestione fase a consuntivo (utilq65.cpy)
COGQ67	Utility: aggiornamento CLCCCDAY (utilq67.cpy)
COGQ69	Utility: aggiornamento CLCCCCNS (utilq69.cpy)
COGQS7	Log eventi cicli lavorazione (utilcogqs7.cpy)
RNEWCONF	Lettura configurazioni (utilncnf.cpy)

Copybook principali¶

WSTATO.CPY, WOPENF.CPY, WGRAVE.CPY, WNSCR.CPY — standard working storage
COGAZIEN.CPY — dati azienda
k-personal.cpy — costanti personalizzazione
k-u10.cpy — costanti U10
wdisp002.cpy — utility display maschera
utilqs1.cpy, utilqs2.cpy, utilqs3.cpy, utilqs4.cpy — utility cicli lavorazione
utilq05.cpy, utilq07.cpy, utilq08.cpy, utilq14.cpy — utility calcolo tempi e costi
utilq62.cpy, utilq65.cpy, utilq67.cpy, utilq69.cpy — utility aggiornamento cicli
utilp13s.cpy, utils21.cpy, utils52.cpy, utils54.cpy, utils60.cpy, utils62.cpy, utils65.cpy — utility generali
utilu10.cpy, utilu20.cpy — utility U10/U20
utilncnf.cpy — lettura configurazione RNEWCONF
utilcogqs7.cpy — log eventi
wcont.cpy, wcont1.cpy — linkage con chiamante
utilomrdb001.cpy — utility OMR database (linkage)

Struttura dati principali¶

tab-maschera¶

Campo	Tipo	Descrizione
tm-data	9(08)	Data di elaborazione consuntivo
tm-data-ult	9(08)	Data ultimo aggiornamento consuntivo (da CLCTABEL)
tm-ore-lav-g	9(02)v99	Ore lavorate giornaliere totali
tm-minuti-lav-g	9(08)	Minuti lavorati giornalieri totali
tm-mac	X(05)	Codice macchina selezionata
tm-mac-des	X(40)	Descrizione macchina

tm-tab (griglia righe)¶

Tabella di 100 elementi contenente per ogni fase: lotto (anno/numero/fase), codice e descrizione lavorazione, tempi programmati e consuntivati (minuti e ore), pezzi prodotti/scartati/scaricati, flag fine fase, costo fase.

File temporanei¶

COGTRANS: scritto con chiave <tmp-dir>/#$COGQ75.<operatore> — garantisce uso esclusivo per operatore.
COGPZPRD: aggiornato con chiave anno/lotto/fase con quantita' prodotte e scaricate.
CLCLAVSP: scritto con path <tmp-dir>/CLCLAVSP.ARC — blocca funzioni di simulazione concorrenti.

Logica di Elaborazione¶

Inizializzazione: verifica abilitazione (ctr-abil), apertura file gestionali e cicli, lettura dati azienda, lettura configurazione RNEWCONF.
Controllo uso esclusivo: tentativo di apertura in OUTPUT di COGTRANS e COGPZPRD; se fallisce, la funzione e' gia' in uso da un altro operatore.
Controllo funzioni concorrenti: tentativo di apertura in OUTPUT di CLCLAVSP; se fallisce, e' attiva una funzione di simulazione incompatibile.
Loop principale (a4):
Lettura data di sistema.
c-visualizza: accetta parametri (data, tipo macchina, macchina/fornitore), ricerca le fasi previste per la macchina nella data, carica la griglia tm-tab con i dati programmati e consuntivati.
d-aggiorna: gestisce la navigazione sulla griglia, l'inserimento dei tempi/quantita'/costi per ogni fase, la conferma con F3 e il salvataggio su CLCCCDAY, CLCCCCNS e COGPZPRD.
Tipi di macchina: A=macchina interna, B=fornitore esterno, C=non macchina. La selezione influenza il tipo di ricerca sulle fasi.
Costo fase: calcolato tramite COGQ14 in base ai tempi e al costo orario della macchina/fornitore.
Flag fine fase: se impostato, la fase viene marcata come chiusa nel ciclo commessa.

Note implementative¶

Il file CLCLAVSP e' aperto e subito richiuso: serve solo come lock per impedire l'esecuzione contemporanea di funzioni di simulazione (es. COGQ70).
La data ultimo consuntivo e' letta da CLCTABEL con chiave cta-tipo=0, cta-codr=0 e memorizzata in cta-00-data-cns.
Il programma usa un file temporaneo COGTRANS distinto da quello di COGQ77 (prefisso #$COGQ75. vs #$COGQ77.).
La griglia gestisce fino a 100 fasi per macchina per giornata (t-size-max=100).