COGG69 -- Importazione bdp¶

Sorgente: cbl/cogg69.cbl | Tipo: Programma selettore (dispatcher) | Program-ID: COGG69

Menu: - Magazzino > Uscite > Evasione vendite > Importazione bdp

Scopo¶

Dispatcher per l'evasione buoni di prelievo da terminalino. Seleziona e richiama la versione personalizzata del programma (COGG69xx, dove xx = az-personal) o, in assenza, la versione standard COGG69NO.

File e tabelle¶

Nessun file proprio. Usa solo le copybook standard per accesso ai dati azienda.

Programmi chiamati¶

Programma	Scopo
COGG69xx	Versione personalizzata (xx = az-personal dell'azienda)
COGG69NO	Versione standard (fallback)

Copybook principali¶

wgrave.cpy, wstato.cpy, wopenf.cpy -- standard
wscree.cpy -- gestione screen
cogazien.cpy -- dati azienda (az-personal)
wcont.cpy, wcont1.cpy -- linkage standard
stato.cpy, msend.cpy, grave.cpy -- procedure standard

Struttura del programma¶

Flusso principale¶

a000: lettura az-personal dall'area azienda
Se az-personal non e' vuoto: compone "COGG69" + az-personal e tenta la call
Se la call va in overflow (programma non trovato): passa a versione standard
a05-standard: chiama "COGG69NO"
a10-cancel: cancel del programma chiamato e uscita

Note implementative¶

Programma molto semplice (72 righe), senza file section ne' screen section.
Il pattern dispatcher con az-personal e' comune nel gestionale per supportare personalizzazioni cliente-specifiche.

Varianti¶

Variante	Descrizione
COGG69NO	Versione standard
COGG69HT	Versione personalizzata (gestione commesse con lotti e assemblaggio COGG77)

Storico modifiche¶

2026-04-04 — COGG69HT: correzione assegnazione lotti in assemblaggio¶

Nel paragrafo x212-cerca-commesse-collegate corretto il recupero dei dati lotto dopo l'associazione della commessa collegata: i campi tm-ll-merce, tm-ll-prog, tm-ll-mag e tm-ll-lotto ora vengono valorizzati dai campi correnti della riga di prelievo.

Nel paragrafo di caricamento dati nella tabella di transito, corretta l'assegnazione dei campi lotto e commessa: ora usa i valori x212-mlt-prog, x212-mlt-mag, x212-lotto, x212-cla-ann, x212-cla-num (valori corretti per la riga corrente) al posto dei campi trs-g77-* (che potevano contenere dati del ciclo precedente).

Documentazione tecnica -- 2026-05-05