Vai al contenuto

COGQB0 - Assegnazione/Uscita Lavorazioni Esterne (Stampaggio)

Campo Valore
Sorgente cbl/cogqb0.cbl (~2018 righe)
Tipo Programma interattivo (maschera + griglia, GUI a controlli)
Posizione menu Magazzino > Produzione > Stampaggio > Lavorazioni esterne > Assegnazione/uscita

Scopo

Per una data e un fornitore, gestisce l'uscita di commesse di stampaggio verso il lavorante esterno: l'utente seleziona i lotti/fasi da assegnare, il programma scrive i documenti di uscita su CLCLEDOC (led-tipo='U', led-stato='A') e i record di gestione "manuale" in CLCLVEXT. Con F5 crea il DDT di trasferimento al lavorante tramite COGU30.

File e tabelle

  • CLCLEDOC: documenti lavorazioni esterne (chiave k02 per data — chiave principale di estrazione)
  • CLCLVEXT: gestione manuale uscite/rientri lavorazioni esterne (chiave k02 lotto/data)
  • CLCCCRIG: righe commessa, fasi
  • CLCCCTES: testate commessa
  • CLCCCCNS: consuntivi
  • CLCLAVES, CLCLAVOR, COGLAVOR: testata commessa di lavorazione
  • COGGEANA: anagrafica fornitori
  • COGMERCI: merci
  • File di transito TRAN-G43 (#$COGG43.<utente> in tmp): usato per passare le righe a COGU30 (u30-i-doc-tip = "X", u30-m-conto-lavoro = "S")

Programmi chiamati

Programma Scopo
GRIDADMN Gestione griglia
RNEWCONF Lettura configurazione
COGU30 Creazione DDT trasferimento al lavorante
COGU78 Modifica testata DDT
COGV52 Stampa DDT
DIALOGS Dialog post-creazione
COGQ05 Catena fasi (riga 1850/1868)

Include proc-cogqs7.cpy (registro note/cogqs7) — entry point proc-cogqs7 per note di sessione.

Configurazioni RNEWCONF

Gruppo Chiave Scopo
conto-lav classe bolla trasf Classe magazzino per DDT trasferimento (tm-cfg-classe)

Logica di elaborazione

  1. Input data (default odierna).
  2. F3 carica griglia con i lotti in stato 'A' per quella data da CLCLEDOC.
  3. Operazioni griglia:
  4. Ctrl-A: aggiungi riga (lotto + fornitore + fasi 1-5 + quantita')
  5. Ctrl-E: elimina riga non ancora confermata
  6. F3: applica aggiornamenti (b-aggiorna → inserimento o cancellazione)
  7. F5: crea DDT di conto-lavoro:
  8. Controlla coerenza fasi per fornitore
  9. Conferma
  10. Chiama COGU30 con file transito TRAN-G43
  11. Dialog di scelta: prosegui / modifica DDT (COGU78) / stampa DDT (COGV52)
  12. F9: stampa modello post-cure (c-stampa attualmente vuoto)

Note implementative

  • CLCLEDOC.led-id calcolato come max(led-id) + 1; analogo per CLCLVEXT.lve-id.
  • CLCLVEXT.uscita-aperta = "S" indica lavorazione esterna in corso (rientro non registrato).
  • Pattern legacy massiccio con GO TO e PERFORM ... THRU.