COGQ78 - Inserimento Costi Lavorazioni Esterne¶

Sorgente: cbl/cogq78.cbl | Tipo: Programma a menu | Program-ID: COGQ78

Menu: Magazzino > Produzione > Cicli di Lavorazione > Operativo > Inserimento Costi Lavorazioni Esterne

Scopo¶

Inserimento dei costi per fase di lavorazione esterna, filtrato per fornitore e periodo. Il programma permette di imputare il costo esterno (cns-costo-lav in CLCCCCNS) su ciascuna fase di lavorazione affidata a un fornitore, selezionando le fasi tramite ricerca su CLCCCDAY/CLCCCCNS per fornitore e intervallo di date. Complementare a COGQ75 che gestisce i tempi; COGQ78 si concentra sul solo inserimento del costo economico.

File e Tabelle¶

File/Tabella	Uso
FEURTAB (cogfiles)	Lettura parametri generali
COGMERCI	Lettura anagrafica merci (external)
COGGEANA	Lettura anagrafica generale (fornitori)
CLCTABEL	Lettura tabelle cicli di lavorazione
CLCLAVOR	Lettura lavorazioni
CLCANAMA	Lettura anagrafica macchine
CLCDISEG	Lettura disegni/articoli cicli
CLCLAVMA	Lettura assegnazioni lavorazione-macchina
CLCCCTES	Lettura testate cicli commessa
CLCCCRIG	Lettura righe cicli commessa
CLCCCDAY	Lettura/aggiornamento dettaglio giornaliero cicli commessa
CLCCCCNS	Lettura/aggiornamento consuntivo cicli commessa
FLSTA	File stato (gestione I/O)

Programmi chiamati¶

Programma	Scopo
COGS52	Input data/anno con calendario (selezione lotto e periodo)
COGS65	Ricerca anagrafica fornitore
COGQS1	Utility cicli: gestione selezione macchina/fornitore (utilqs1.cpy)
COGQS2	Utility cicli: ricerca fasi per fornitore (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)
COGU10	Utility U10 (utilu10.cpy)
COGU20	Utility U20 (utilu20.cpy)
COGQS7	Log eventi cicli lavorazione (utilcogqs7.cpy)

Copybook principali¶

WSTATO.CPY, WOPENF.CPY, WGRAVE.CPY, WNSCR.CPY — standard working storage
COGAZIEN.CPY — dati azienda
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
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 filtro
tm-num	9(06)	Numero lotto filtro (0 = tutti)
tm-da-data	9(08)	Data inizio periodo
tm-a-data	9(08)	Data fine periodo
tm-for	9(05)	Codice fornitore selezionato
tm-for-des	X(40)	Descrizione fornitore

tm-tab (griglia fasi, 500 elementi)¶

Per ogni riga: lotto (anno/numero), fase, codice e descrizione lavorazione, disegno e descrizione articolo, costo esterno (tm-costo, 9(12)v9(06)).

sm-tab (riga corrente in editing)¶

Struttura di supporto per il record in modifica: lotto, fase, lavorazione, tempi (programmato, attrezzaggio, lavorazione, disattrezzaggio), pezzi prodotti/scartati/scaricati, flag fine, costo.

tab-opt-tip¶

Opzioni tipo selezione: A=Macchina, B=Fornitore, C=Non macchina. COGQ78 opera prevalentemente in modalita' B (Fornitore).

Logica di Elaborazione¶

Inizializzazione: verifica abilitazione (ctr-abil), apertura file gestionali e cicli, lettura dati azienda, lettura divisa conto (get-divisa-conto).
Loop principale (a4):
c-visualizza (che include la logica di accettazione parametri):
- a-10: selezione fornitore tramite COGS65.
- a-12/a-14: inserimento anno e numero lotto (opzionale) tramite COGS52.
- a-15/a-18: inserimento data inizio e data fine periodo tramite COGS52.
- a-90: conferma parametri.
- search-ccday (thru ex-s2): ricerca su CLCCCDAY/CLCCCCNS filtrando per fornitore (tm-for) e intervallo di date; popola tm-tab con le fasi trovate.
c-00/c-05: gestione risultati — se non ci sono fasi, messaggio informativo; altrimenti posizionamento sulla griglia.
d-aggiorna (thru ex-d): navigazione sulla griglia, selezione della riga, input del costo (tm-costo), salvataggio su CLCCCCNS tramite COGQ69.
Salvataggio costo: il costo inserito viene scritto nel campo cns-costo-lav del record CLCCCCNS corrispondente al lotto/fase. Il campo tm-variato segnala che il valore e' stato modificato.
Gestione F3: conferma e scrittura dei record modificati (solo quelli con tm-variato = 'S').

Note implementative¶

A differenza di COGQ75, COGQ78 non usa file temporanei (COGTRANS/COGPZPRD) e non ha controllo di uso esclusivo: piu' operatori potrebbero teoricamente accedere contemporaneamente su fornitori diversi.
Il filtro per lotto singolo (tm-anno e tm-num) e' opzionale: se non specificato (tm-anno=0), la ricerca restituisce tutte le fasi del fornitore nel periodo.
La griglia ammette fino a 500 fasi (t-size-max=500, t-size iniziale=100, dimensionabile dinamicamente).
Il titolo della finestra e' "Costi Lavorazioni Esterne" (riga 1, col 22).
La maschera principale (mm-1) ha 24 righe di altezza, con colonne: Lotto, Fase, Lav., Disegno, Costo Est.