COGL23 - Scarico Componenti¶

Scopo¶

Permette di scaricare dal magazzino i componenti di una lavorazione che non sono stati scaricati durante la fase di creazione (COGP13). Opera su un lotto di produzione esistente, preparando le prime note di scarico e delegando l'esecuzione a COGP13A e COGL23A.

Struttura¶

Tipo: Programma standalone (mmmask.cpy) / richiamabile come subroutine
Righe: ~1.887
Program-ID: COGL23
Screen: cogl23-01.scr
Interfaccia: GUI AcuCOBOL

Flusso principale¶

apri - Inizializzazione, apertura file, configurazione tasti, controllo consolidato
a4 - Inizializzazione maschera con data di sistema; se chiamato (l23-called = "COGL23-CALLED"), riceve il lotto dalla linkage
a-tm-lot-ann .. a-tm-ord-pro - Catena di accept: lotto (anno/numero/esterno), magazzino, cliente, ordine (anno/numero/progressivo)
a-fine-dati - Se il lotto non e' specificato direttamente, propone la ricerca tramite WIN083; validazione completa dei dati
b-elabora - Preparazione file di transito con i componenti da scaricare
Chiamata a COGP13A - Visualizzazione e conferma della lista prelievo
Chiamata a COGL23A - Esecuzione effettiva dello scarico
Eventuale chiamata a COGP09 (per personalizzazione Alfa O'Erre)
send-scr-doc / tratta-distinta - Post-elaborazione

Modalita' called¶

Se l23-called = "COGL23-CALLED", il programma riceve il lotto dalla linkage (l23-lot) e salta direttamente alla validazione dei dati, senza la fase di accept del lotto.

Tabelle/File utilizzati¶

Tabella	Tipo	Utilizzo
FEURTAB	Input	Archivio nomi file
Tabelle via cogl23.select	I/O	COGMERCI, COGGEANA, COGMAGAZ, COGLAVOR, COGCONOR, COGMOVDB, COGDBAGG, COGGENER, COGSLMAG, COGTESOR, etc.
TRBN-S16	Transito	File temporaneo S16 binario
TRAN-P13	Transito	File temporaneo formato P13
TRAN-W51	Transito	File temporaneo W51
COGTRANS2	Transito	File temporaneo merci aggregate

Logica di elaborazione¶

Ricerca lotto¶

Se l'utente non indica direttamente il lotto: - Se indica il magazzino, apre WIN083 per la ricerca lotti nel magazzino - Se indica l'ordine, apre WIN083 con filtro ordine per trovare il lotto collegato - WIN083 restituisce anno e numero del lotto selezionato

Validazione (x-controlla-dati)¶

Verifica in sequenza: 1. x-controlla-tm-lot-ann - Anno lotto valido 2. x-controlla-tm-lot-num - Numero lotto esistente su COGLAVOR 3. x-controlla-tm-lot-ext - Lotto esterno (se abilitato) 4. x-controlla-tm-mag - Magazzino valido 5. x-controlla-tm-cli - Cliente valido 6. x-controlla-tm-ord-aa/num/pro - Ordine valido

Elaborazione (b-elabora)¶

Prepara i file di transito TRAN-P13 e TRBN-S16 con i componenti della distinta base associata al lotto, calcolando le quantita' da scaricare sulla base della distinta e della quantita' del lotto.

Esecuzione scarico¶

COGP13A (funzione "SC"): mostra la lista di prelievo per conferma, riceve il lotto e il magazzino
COGL23A: esegue lo scarico effettivo, ricevendo magazzino, lotto, merce, data e consegna

Chiamate a sottoprogrammi¶

Programma	Funzione
COGS52	Gestione campo anno/data con calendario
COGS65	Gestione campo anagrafica
COGS68W	Gestione campo merce
COGP13A	Visualizzazione/conferma lista prelievo (funzione "SC")
COGL23A	Esecuzione scarico componenti
COGP09	Gestione matricole (solo personalizzazione Alfa O'Erre)
WIN036	Ricerca magazzini
WIN083	Ricerca lotti di produzione
COGS14	Ricerca ordini
COGV12	Utility V12

Configurazione (x99-confi / x99-confi-bdp)¶

tm-cfg-mag-stoc - Magazzino di stoccaggio
tm-cfg-lotto-ext - Abilitazione lotto esterno
tm-cfg-scarico-con-bdp - Scarico con buono di prelievo

COPY utilizzate¶

File section¶

cogfiles.cpy, cogl23.fd, trbn-s16.cpy, tran-p13.cpy, tran-w51.cpy

Working-storage¶

cogl23.wrk, k-personal.cpy, wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, cogazien.cpy, utilp13a.cpy, utill23a.cpy, utils18.cpy, utils52.cpy, utils65.cpy, utils68.cpy, utilu20.cpy, utilu65.cpy, utilw36.cpy, utilw83.cpy, utildlg.cpy, utilncnf.cpy, utilcogv12.cpy

Linkage¶

wcont.cpy, utill23.cpy, utilp09.cpy, utilp64.cpy, utils14.cpy, wcont1.cpy

Screen / Procedure¶

cogl23-01.scr, cogl23.decla

Note¶

I file di transito sono: #$COGP13.{oper}, #$BOGS16.{oper}, #BOGP13.{oper}, #LCOGW51.{oper}.
Il programma verifica il consolidamento: se la data di sistema e' <= alla data di consolidato, blocca l'esecuzione.
Gestisce la personalizzazione k-personal-alfaoerre per il flusso matricole post-scarico.
Supporta sia la modalita' interattiva (accept da maschera) sia la modalita' called (lotto passato dalla linkage).