COGQ97 - Stampa Cartellino bordo macchina (Scheda Lavorazione)¶

Campo	Valore
Sorgente	`cbl/cogq97.cbl`
Tipo	Stampa interattiva (maschera input + motore Word)
Posizione menu	Magazzino > Produzione > Cicli di Lavorazione > Stampe > Scheda Lavoro

Scopo¶

Produce la scheda di lavorazione "bordo macchina" del lotto/commessa in formato Word a partire da un modello .docx. Riporta merce, disegno, cliente, ordine, data consegna, commessa, pezzi e fino a 4 fornitori coinvolti nelle lavorazioni esterne.

File e tabelle¶

CLCCCTES: testata commessa
CLCCCRIG: righe commessa (filtro ccr-tip = 'E' per lavorazioni esterne, max 4 fornitori)
CLCDISEG: disegni
COGMERCI: anagrafica merci
COGGEANA: anagrafica (clienti tipo C, fornitori tipo F)
COGTESOR / COGCONOR: testata ordine e consegna (per data consegna)
COGLEGCM (k03 dichiarata, codice commentato)

Programmi chiamati¶

Programma	Scopo
COGS54	Selezione periferica di stampa
COGPA3	Selezione modello Word
WORDMDL	Motore generazione/stampa documenti Word con tag XML
C$JUSTIFY	Utility runtime AcuCOBOL

Configurazioni RNEWCONF¶

Nessuna (no x99-confi).

Logica di elaborazione¶

Input anno e numero lotto (validazioni: anno >= 1996, numero > 0, esistenza in CLCCCTES).
Display merce/disegno/cliente/quantita' al video.
Genera file XML temporaneo cogq97.txt in ext-tmp-dir con i tag:
DATA-STAMPA
DISEGNO-COD/DES
MERCE-COD/DES
CLIENTE-COD/DES
ORDINE
CONSEGNA
COMMESSA
PEZZI
FORNITORE-1..4
Chiama WORDMDL con operazione Apri-XML / Aggiungi-XML / Chiudi-XML / Esegui.
Data consegna: priorita' a cogconor legato a cct-cns-*; fallback a tor-dascad (giscad/mescad/anscad).
Fornitori popolati scorrendo clcccrig con ccr-tip = 'E' (max 4); slot rimanenti svuotati.

Note implementative¶

Puo' essere richiamato da altri programmi (q33-prog-prove) con lotto gia' valorizzato.
Pattern legacy con GO TO e PERFORM ... THRU (da non replicare in nuovi sorgenti).