COGL01 -- Avanzamento lotti di produzione¶
Sorgente: cbl/cogl01.cbl | Tipo: Programma interattivo GUI a maschera | Program-ID: COGL01
Menu:
- Magazzino > Produzione > Produzione > Avanzamento
Scopo¶
Registra l'avanzamento di un lotto di produzione: scarica dal magazzino conto-lavoro i componenti previsti dalla distinta base e carica i semilavorati / il prodotto finito. Prepara i movimenti su file di transito e delega l'effettivo movimento di magazzino a COGP13A e l'aggiornamento a COGL01A.
File e tabelle¶
| Tabella | Ruolo |
|---|---|
| FEURTAB | Menu/tab di sistema |
| COGLAVOR | Lotti di lavorazione (chiave figlio via cerca-max-figlio) |
| COGGENER | Generico (BDP aperti, tipo "LB") |
| COGTESBP | Testata buoni di prelievo |
| COGGEANA | Anagrafica |
| COGMAGAZ | Anagrafica magazzini |
| COGMERCI | Anagrafica merce (mer-padre="P" = distinta base) |
| CLCDALAV | Lotto esterno (conto-lavoro) |
| COGTABEL | Tabelle (tipo 57 = data consolidato) |
| TRAN-P13 / TRBN-S16 | Transiti temporanei: #$COGP13.<oper>, #$BOGS16.<oper> |
Copybook principali¶
Standard working-storage, utilncnf.cpy (RNEWCONF), copybook dei sottoprogrammi. Chiavi secondarie incluse manualmente a fine procedura: coglavor.k02, cogmdtes.k02, clcdalav.k02.
Chiamate ad altri programmi¶
COGP13A (movimento di magazzino), COGL01A (aggiornamento avanzamento), COGU73 (merci critiche/tracciabilita', se az-personal = EC grafico), WIN083 (selezione lotto), COGV94 (matricole, F5, se az-ges-sn="S"), COGS14 (selezione ordini), DIALOGS, COGS65W.
Flusso / Paragrafi principali¶
apri->x99-confi(config) + open files.- Selezione lotto (WIN083). Controlli: dev'essere di Produzione 1, fase/posizione 1/1, non chiuso, senza BDP aperti (COGTESBP via COGGENER tip "LB"), pronto per l'avanzamento (
cla-fl-rdy-cmp), merce di distinta base (mer-padre="P"). - Controllo data-consolidato (COGTABEL tipo 57).
- Preparazione transiti scorrendo COGLAVOR:
tran-p13(#$COGP13.<oper>) per lo scarico componenti,trbn-s16(#$BOGS16.<oper>) per il carico. COGP13Aesegue i movimenti,COGL01Aaggiorna lo stato di avanzamento.
Configurazioni¶
Lettura via RNEWCONF in x99-confi:
| Gruppo | Chiave | Variabile / Effetto |
|---|---|---|
| PRNTLSPREL | euta-c019-lot-ext |
tm-cfg-lotto-ext (gestione lotto esterno / conto-lavoro) |
Note¶
- Richiamabile in modalita' batch via
utill01.cpy(l01-called = "COGL01-CALLED"). - La gestione delle matricole (F5, COGV94) e' attiva solo con
az-ges-sn = "S"; le merci critiche/tracciabilita' (COGU73) solo per la personalizzazione EC grafica.