COGD58 - Trasferimento tra Lotti
| Campo |
Valore |
| Sorgente |
cbl/cogd58.cbl |
| Tipo |
Interattivo (form grafica con griglia) |
| Richiamato da |
Menu |
Descrizione
Programma per il trasferimento di merci (componenti) tra due lotti di produzione. L'utente indica il lotto di origine e il lotto di destinazione, poi seleziona le merci da trasferire con le relative quantita'. Il programma genera automaticamente quattro documenti di prima nota di produzione (due per magazzino principale e due per magazzino classificato, su ciascun lotto) e aggiorna i movimenti di dettaglio dei lotti (COGMOVDB) e gli impegni (COGIMPCA) se presente un magazzino Modula.
File e tabelle
| File/Tabella |
Modalita' |
Descrizione |
| FEURTAB |
Input |
Tabella file aziendali |
| COGLAVOR |
Input |
Lotti di produzione (validazione, dati lotto) |
| COGTESOR |
Input |
Ordini/commesse (per visualizzazione riferimenti) |
| COGGEANA |
Input |
Anagrafica clienti/fornitori (per visualizzazione cliente) |
| COGMOVDB |
I-O |
Movimenti di dettaglio lotto (componenti, distinta base) |
| COGTESBO |
Output |
Testate documenti di magazzino (prima nota produzione) |
| COGMOMAG |
I-O |
Righe documenti di magazzino |
| COGGENER |
I-O |
Raccordi generici (lotto/prima nota, tipo "LP") |
| COGIMPCA |
I-O |
Impegni magazzino (per Modula) |
Copybook principali
| Copybook |
Tipo |
Utilizzo |
cogd58.select |
Select |
Definizioni SELECT dei file |
cogd58.fd |
FD |
Definizioni FD |
cogd58.wrk |
Working |
Variabili working-storage |
cogd58-01.scr |
Screen |
Definizione maschera grafica |
cogd58.decla |
Declaratives |
Sezione error procedure |
cogd58.prc |
Procedure |
Procedure standard I/O file |
k-u10.cpy |
Costanti |
Costanti divisa |
wrk-u10.cpy |
Working |
Working divisa |
k-personal.cpy |
Costanti |
Costanti personalizzazione |
wgrid.cpy |
Working |
Supporto griglia |
utilgdad.cpy |
Working |
Supporto GRIDADMN |
utils25.cpy |
Working |
Interfaccia COGS25 (numeratori) |
utils52.cpy |
Working |
Interfaccia COGS52 (date) |
utils68.cpy |
Working |
Interfaccia COGS68 (ricerca merci) |
utilu10.cpy |
Working |
Interfaccia COGU10W (divisa) |
utilu12.cpy |
Working |
Interfaccia COGU12 (movimenti magazzino) |
utilw123.cpy |
Working |
Interfaccia ricerca lotti |
utilcogl61.cpy |
Working |
Interfaccia COGL61 |
utilncnf.cpy |
Working |
Accesso configurazioni RNEWCONF |
cnfgprnt.cpy |
Working |
Configurazione stampa |
coglavor.k02 |
Chiave sec. |
Chiave secondaria lotti |
cogimpca.k02 |
Chiave sec. |
Chiave secondaria impegni |
Logica di elaborazione
Selezione lotti
- L'utente indica lotto di origine (anno + numero) e lotto di destinazione.
- Per ogni lotto il programma valida:
- Esistenza in COGLAVOR
- Tipo = "1" (produzione)
- Non chiuso (
cla-fl-cls <> "C")
- I due lotti devono essere diversi
- Per ciascun lotto legge i dati dell'ordine collegato (COGTESOR) e del cliente (COGGEANA) per visualizzarli.
- Determina la merce prodotto finito e semilavorato del lotto leggendo il lotto padre se fase/posizione > 1.
Griglia merci
- L'utente inserisce le righe con: merce (gruppo/sottogruppo/codice) e quantita'.
- Per ogni riga il programma controlla:
- Che la merce sia presente tra i componenti del lotto di origine (COGMOVDB, tipo "CL")
- Che la quantita' disponibile sia sufficiente (tenendo conto delle quantita' gia' assegnate nelle righe precedenti tramite
ctrl-gia-ass)
Registrazione (registra)
- Genera 4 numeratori via COGS25 (codice 1 = prima nota): due per magazzino principale (da/a) e due per magazzino classificato (da/a).
- Inserisce 4 testate documento (
ins-tes-prod):
- Lotto origine su mag. principale: tipo "P", segno "E" (uscita)
- Lotto origine su mag. classificato: tipo "P", segno "U" (uscita)
- Lotto destinazione su mag. principale: tipo "P", segno "U" (entrata)
- Lotto destinazione su mag. classificato: tipo "P", segno "E" (entrata)
- Per ogni testata crea il raccordo lotto/prima nota in COGGENER (tipo "LP").
- Inserisce le righe (
registra-riga-doc):
- Per ogni merce nella griglia inserisce righe su tutti e 4 i documenti tramite
ins-rig-mag (COGU12).
- Aggiorna i movimenti di dettaglio lotto (COGMOVDB) tramite
ins-movdb-cl.
- Aggiorna impegni Modula (
ciclo-impca): se presente az-mag-modula, cerca i documenti collegati al lotto di origine e aggiorna gli impegni in COGIMPCA.
- Aggiorna stato lotti (
ctrl-lavor): verifica e aggiorna lo stato dei lotti dopo il trasferimento.
Chiamate a sottoprogrammi
| Programma |
Descrizione |
| COGS25 |
Gestione numeratori (codice 1 = prima nota produzione) |
| COGU12 |
Inserimento righe documento di magazzino |
| COGL61 |
Utilita' lotti |
| COGU10W |
Formattazione importi in divisa di conto |
| GRIDADMN |
Gestione griglia |
| RNEWCONF |
Lettura configurazioni |
Configurazioni
| Chiave |
Descrizione |
tm-cfg-mag-stoc |
Magazzino stoccaggio |
tm-cfg-liv-esp |
Livello esplosione |