COGF36 - Stampa Completamento Lotti¶
Sorgente: cbl/cogf36.cbl | Program-ID: COGF36 | Tipo: Interattivo con stampa (Screens)
Menu: Magazzino > Entrate > Stampe; Produzione 2
Scopo¶
Stampa completamento lotti da documento di carico o da giacenza. Partendo dalle quantita' di un carico o dalla giacenza di un gruppo di merci, individua quali ordini/consegne gia' aperti possono essere soddisfatti per ogni singolo componente.
File e tabelle¶
| File/Tabella | Tipo | Modalita' | Descrizione |
|---|---|---|---|
| FEURTAB | Tabella | Input | Tabella generale Eurosystem |
File via cogf36.select |
Vari | Vari | File generati da Screens (COGMOMAG, COGTESBO, COGMERCI, COGGEANA, COGORDSC, COGRILOR, ecc.) |
| TRAN-F36 | Transito | I-O | File transito per risultati elaborazione |
| FLSTA | Stampa | Output | File lista per output stampa |
Copybook utilizzate¶
| Copybook | Descrizione |
|---|---|
cogf36.select, cogf36.fd, cogf36.wrk |
SELECT, FD, working generati da Screens |
cogf36-01.scr |
Maschera grafica |
cogf36.decla |
Declaratives |
k-personal.cpy |
Costanti personalizzazioni |
k-u10.cpy |
Costanti divise |
tran-f36.cpy |
Record file transito F36 |
flsta.cpy |
Record file lista stampa |
wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy |
Working storage comuni |
cogazien.cpy |
Dati azienda |
utils50.cpy |
Interfaccia COGS50 (output stampa) |
utils52.cpy |
Interfaccia COGS52 (accept date) |
utils54.cpy |
Interfaccia COGS54 (gestione stampa) |
utils68.cpy |
Interfaccia COGS68 (accept merce) |
utilu10.cpy |
Interfaccia COGU10 (divise) |
utilu16.cpy |
Interfaccia COGU16 (selezione per stampa) |
utilw36.cpy |
Interfaccia ricerca magazzino |
utilu18.cpy |
Interfaccia COGU18 (ricerca ordini) |
utilwordmdl.cpy |
Interfaccia WORDMDL (export Word) |
utilcogpa3.cpy |
Interfaccia COGPA3 |
Linkage¶
| Copybook | Descrizione |
|---|---|
wcont.cpy, wcont1.cpy |
Contesto chiamante |
utilf36.cpy |
Parametri in ingresso (tipo ricerca, documento) per modalita' CALLED |
Struttura del programma¶
Variabili della maschera (tab-maschera)¶
| Variabile | PIC | Descrizione |
|---|---|---|
tm-divisa |
X(02) | Divisa di conto |
tm-ric |
X(01) | Tipo ricerca: D=Documento, G=Gruppo merci |
tm-doc |
compound | Documento: mag X(1) + anno 9(4) + tipo X(1) + numero 9(6) |
tm-mag |
X(01) | Magazzino (per ricerca G) |
tm-ord-mer |
X(01) | Criterio ordinamento |
tm-da-merce / tm-a-merce |
X(09) | Range merci (gru+sot+cod) |
tm-fl-qta |
X(01) | Tipo elaborazione quantita': T=Totale |
Flusso principale¶
- apri - Inizializzazione, apertura file, lettura divisa corrente via COGU10, setup Screens
- a4 - Reset maschera, apertura file transito
- a-tm-ric - Accept tipo ricerca (D/G)
- a-tm-doc-mag..a-tm-doc-num - Accept riferimento documento (se tipo D)
- a-tm-mag - Accept magazzino (se tipo G)
- a-tm-ord-mer - Accept ordinamento
- a-tm-da-merce / a-tm-a-merce - Accept range merci (se tipo G)
- a-tm-fl-qta - Accept tipo elaborazione
- a-richiesta-conferma - Validazione, eventuale stampa Word, output su stampante
Elaborazione (b-elabora)¶
L'elaborazione avviene in due step:
- Step 1 (
b-tip-ela = "1"): ricerca ordini/consegne interessateb1-da-entrata: scansione COGMOMAG per documento, per ogni merce chiamab3-elabora-merceb2-da-merci: scansione per range merci, per ogni merce con giacenza chiamab3-elabora-merceb3-elabora-merce: cerca ordini/consegne aperti (COGORDSC/COGRILOR) per la merce, scrive su TRAN-F36
- Step 2 (
b-tip-ela = "2"): stampa- Rielabora con la stessa logica ma genera le righe di stampa (testa prodotto, righe consegna con date, quantita' necessaria/evasa/evadibile)
Formato stampa¶
Larghezza 132 caratteri. Per ogni prodotto:
- Riga di testata con codice, descrizione e quantita' disponibile
- Dettaglio consegne: data consegna, ordine, consegna, cliente, lotto, qta necessaria, qta evasa, qta evadibile
- Flag "T" sulla riga se la consegna e' completamente evadibile
Modalita' CALLED¶
Se f36-called = "COGF36-CALLED", i parametri di ricerca vengono precompilati da utilf36.cpy. Usato tipicamente dopo un carico di magazzino.
Chiamate esterne¶
| Programma | Scopo |
|---|---|
| COGU10 | Lettura divisa di conto |
| COGU18 | Ricerca ordini per merce/commessa |
| COGS50 | Output stampa |
| COGS52 | Accept date con calendario |
| COGS54 | Gestione output stampa (anteprima, stampante) |
| COGS68 | Accept merce con barcode |
| COGU16W | Selezione/ordinamento per stampa |
| COGPA3 | Utility generica |
| WORDMDL | Export Word (stampa completamento con modello) |
Note¶
- La personalizzazione SGARBI usa quantita' 99999999 invece della quantita' reale del carico.
- Il file transito TRAN-F36 e' per operatore (
#$COGF36.{operatore}) per consentire accesso concorrente. - L'elaborazione supporta la gestione commesse (
b4-commessa) per l'analisi per commessa.