COGQ84 - Collegamento tra Lotti¶

Sorgente: cbl/cogq84.cbl | Tipo: Programma a menu | Program-ID: COGQ84

Menu: Magazzino > Produzione > Cicli di Lavorazione > Operativo > Collegamento tra Lotti

Scopo¶

Gestisce il legame tra un lotto di produzione finale e i lotti di semilavorati che lo compongono. Serve a evidenziare e attribuire correttamente i costi di un lotto che sia assemblato a partire da semilavorati. I legami vengono memorizzati nella tabella CLCLEGLO.

File e Tabelle¶

File/Tabella	Uso
FEURTAB (cogfiles)	Parametri generali
COGMERCI	Lettura descrizione merce del lotto
COGGEANA	Anagrafica generale
CLCTABEL	Tabelle cicli di lavorazione
CLCLAVOR	Lavorazioni cicli
CLCANAMA	Anagrafica macchine
CLCDISEG	Disegni/codici articolo
CLCLAVMA	Lavorazioni macchina
CLCCCTES	Testata commessa/lotto (chiave: anno + numero)
CLCLEGLO	Legami tra lotti (lettura e scrittura)

Programmi chiamati¶

Programma	Scopo
COGS52	Input anno lotto (gestione input anno con validazione)
COGU20	Input numerico (numero lotto, quantita')
COGS21	Input selezione valore da lista (flag N/S costi)
COGQ65	Visualizzazione dettaglio lotto (F6)

Copybook principali¶

cogfiles.cpy — Descrizione record FEURTAB
cogmerci.cpy / coggeana.cpy — Anagrafiche merci e anagrafica generale
clctabel.cpy, clclavor.cpy, clcanama.cpy, clcdiseg.cpy, clclavma.cpy — Strutture dati cicli di lavorazione
clccctes.cpy — Testata commessa (lotto finale)
clcleglo.cpy — Record legame tra lotti
WSTATO.CPY, WOPENF.CPY, WGRAVE.CPY, WNSCR.CPY, COGAZIEN.CPY — Copybook standard
k-u10.cpy, wdisp002.cpy — Utility display/popup
utilqs1.cpy, utilqs2.cpy, utilqs3.cpy, utilqs4.cpy — Utility sessione/schermo cicli
utilq05.cpy, utilq07.cpy, utilq08.cpy, utilq14.cpy — Utility input cicli
utilq62.cpy, utilq65.cpy, utilq67.cpy, utilq69.cpy — Utility varie cicli
utilp13s.cpy — Utility parametri
utils21.cpy, utils52.cpy, utils54.cpy, utils60.cpy, utils62.cpy, utils65.cpy — Utility subroutine standard
utilu10.cpy, utilu20.cpy — Utility input numerico
WCONT.CPY, WCONT1.CPY — Area di comunicazione linkage

Struttura dati principali¶

tab-maschera¶

Campo	Tipo	Descrizione
tm-anno	9(04)	Anno del lotto finale
tm-num	9(08)	Numero del lotto finale
tm-disegno	X(36)	Descrizione merce del lotto finale

tm-tab (tabella griglia, max 500 righe)¶

Campo	Tipo	Descrizione
tm-lot-ann	9(04)	Anno lotto semilavorato
tm-lot-num	9(06)	Numero lotto semilavorato
tm-dis	X(10)	Codice disegno del semilavorato
tm-dis-des	X(36)	Descrizione merce semilavorato
tm-lot-qta	9(08)	Quantita' collegata
tm-fl-xqta	X(01)	Flag costi: N=solo qta utilizzata, S=intera qta prodotta

Logica di Elaborazione¶

Inizializzazione: apertura file generali (open-files) e file cicli (open-files-cl), lettura dati azienda (rd-azi), caricamento maschera popup (rd-msk-pop).
Input lotto finale (paragrafi a-12, a-14):
Anno tramite COGS52 con verifica (campo tm-anno)
Numero lotto tramite accept diretto (campo tm-num)
Lettura CLCCCTES per verifica esistenza del lotto; se non trovato: messaggio di errore e ritorno all'input anno
Se trovato: lettura CLCDISEG e COGMERCI per recuperare la descrizione merce (tm-disegno)
Caricamento legami esistenti (search-ccleg): scansione di CLCLEGLO per chiave lotto finale; i legami trovati vengono caricati nella tabella tm-tab.
Visualizzazione e input griglia (c-visualizza, c-05, c-06):
Display della griglia con i semilavorati collegati
Per ogni riga: input anno semilavorato (COGS52), numero semilavorato (COGU20), quantita' (COGU20), flag costi (COGS21)
F6 su qualsiasi riga invoca COGQ65 per il dettaglio del lotto
Navigazione righe con SU/GIU/PG-UP/PG-DWN
Aggiornamento (d-aggiorna, paragrafo e-controlla):
Attivato con F3
Cancellazione dei legami esistenti su CLCLEGLO per il lotto finale
Riscrittura dei nuovi legami dalla tabella tm-tab
Chiusura: z-chiudi chiude tutti i file e termina il programma.

Note¶

La maschera principale e' definita inline nel sorgente (mm-1, griglia 24 righe x 76 colonne).
Il flag fl-ore-minuti e' impostato a 'O' all'avvio (visualizzazione in ore).
La tabella tm-tab supporta fino a 500 elementi (costante t-size-max = 500), ma ne vengono visualizzati 15 per pagina (t-length = 15), a partire dalla riga 7 dello schermo (t-start = 7).
Il programma usa PERFORM ... THRU per alcuni blocchi (es. c-visualizza thru ex-c, d-aggiorna thru ex-d, e-controlla thru ex-e): convenzione legacy presente nel sorgente originale.