COGP33 - Stampa Riepilogo Componenti¶
Sorgente: cbl/cogp33.cbl | Tipo: Programma a menu (stampa) | Program-ID: COGP33
Menu: Magazzino > Produzione > Produzione > Stampe > Riepilogo Componenti
Scopo¶
Produce il riepilogo dei componenti necessari per gli ordini di produzione selezionati, con il dettaglio delle quantita' richieste, utilizzate, prodotte, in sottoscorta e in giacenza per ciascun componente. Utilizza un file di transito indicizzato (COGTRANS) per accumulare i dati durante la scansione degli ordini.
File e Tabelle¶
| File/Tabella | Uso |
|---|---|
| FEURTAB | Parametri generali |
| COGTABEL | Tabelle generiche |
| COGMERCI | Anagrafica merci |
| COGMAGAZ (cogmaga2) | Magazzini |
| COGSLMAG | Saldi merci/magazzino |
| COGTESOR | Testate ordini |
| COGDBASE | Distinte base |
| COGLAVOR | Lavorazioni |
| COGCONOR | Conoscenze ordini |
| COGMOVDB | Movimenti distinta base |
| TRAN-S16 | File transito ordini (definito in tran-s16.fd) |
| COGTRANS | File transito locale (indicizzato, chiave primaria trs-chia1 su tipo+sl-gru+merce, alt key trs-chia2) |
| FLSTA | Output stampa |
Copybook principali¶
- File: tutti i
.fdsopra elencati +cogfiles.cpy,cogmerci.cpy,cogtabel.cpy,cnfgprnt.cpy,cogmaga2.cpy,cogslmag.cpy,cogtesor.cpy,cogdbase.cpy,coglavor.cpy,cogconor.cpy,cogmovdb.cpy,tran-s16.cpy - Standard: vari
Costanti¶
k-program-id = "COGP33"
Struttura COGTRANS (file di transito)¶
| Campo | Descrizione |
|---|---|
| trs-chia1 | Chiave primaria: tipo + sl-gru + merce |
| trs-tip | Tipo (M=padre, F=figlio) |
| trs-sl-gru | Selezione gruppo |
| trs-merce (gru/sot/cod) | Codice merce |
| trs-qta-ric | Quantita' richiesta |
| trs-qta-uti | Quantita' utilizzata |
| trs-qta-prd | Quantita' prodotta |
| trs-qta-sot | Quantita' sottoscorta |
| trs-qta-gia | Quantita' giacenza |
Logica di elaborazione¶
- Apertura: lettura azienda, apertura file (incluso COGTRANS aperto in transito).
- Input parametri: range ordini (da/a tipo/anno/numero/progressivo), singolo, range consegne, magazzino, flag giacenza.
- Costruzione COGTRANS:
- Scansione TRAN-S16 / COGTESOR per ordini selezionati
- Per ogni ordine: lettura distinta base (COGDBASE), espansione componenti, accumulo su COGTRANS
- Lettura COGSLMAG per giacenza attuale (se richiesta) e sottoscorta
- Stampa:
- Scansione COGTRANS per chiave primaria (raggruppa padre + figli)
- Per ogni componente: codice, descrizione, qta richiesta, utilizzata, prodotta, sottoscorta, giacenza
- Cambio pagina con testata
Note¶
- Variabile
w-rif-mov(X(20)) marca le righe con riferimento documento. tab-sl(max 100 elementi) usato come accumulatore intermedio.- Il file COGTRANS e' creato in transito locale (per sessione utente): non interferisce con altre esecuzioni.
- Programma legacy (PC-Sperry).