COGV25 - Stampa Magazzino Valorizzato
Funzione
Produce la stampa della valorizzazione del magazzino per un dato periodo: rimanenza iniziale, carichi, scarichi e rimanenza finale per articolo, con valori calcolati secondo il metodo di valorizzazione scelto (medio, LIFO, acquisto, vendita, ecc.). Supporta filtri per magazzino, sede, divisa, intervallo merce, reparto, tipo estrazione/ordinamento e opzioni di inclusione/esclusione merci particolari.
- Magazzino > Controllo Magazzino > Stampa Mag. Valorizzato
Tabelle e file principali
| Tabella |
Descrizione |
Accesso |
| COGMERCI |
Anagrafica merci |
Lettura |
| COGMAGA2 |
Anagrafica magazzini |
Lettura |
| COGGEANA |
Anagrafica generale (clienti) |
Lettura |
| COGTABEL |
Tabelle di codifica (tipi, parametri) |
Lettura |
| TRAN-M36 |
File temporaneo di stampa (M36) |
Scrittura/Lettura |
| FEURTAB |
Tabelle configurazione sistema |
Lettura |
| File da cogv25.select |
File giacenze/movimenti (definiti in screen) |
Lettura |
Logica principale
Configurazione iniziale
- Il programma legge da COGTABEL (tipo 57, cod 1) il campo
euta-dc-aa-acc e euta-dc-mm-acc per proporre la data ultima accumulazione come valore iniziale di tm-aa-ult e tm-mm-ult.
- Crea il file temporaneo
TRAN-M36 con percorso in ext-tmp-dir (nome #$COGM36.{oper}).
Parametri di filtro (schermata principale)
| Campo |
Nome interno |
Note |
| Data periodo |
tm-data (aaaammgg) |
Obbligatorio; F8=calendario, F1=det.stampa |
| Magazzino |
tm-mag |
Facoltativo; F8=WIN036 |
| Sede |
tm-sede |
Abilitato solo se configurato |
| Divisa |
tm-div |
F8=COGE22 |
| Valoriz. rim. iniziali |
tm-val-ri |
Combo (M=medio, A=acquisto, ...) |
| Valoriz. rim. finali |
tm-val-rf |
Combo |
| Rim. finali negative |
tm-rf-neg |
Checkbox |
| Tipo LIFO |
tm-tip-lif |
Abilitato solo se val=LIFO |
| Tipo estrazione |
tm-opt |
I=elenco, G=per gruppo, S=reparto, E=selezione merci |
| Tipo estrazione "gallo" |
tm-opt-gallo |
Variante visibile solo in alcune configurazioni |
| Stampa |
tm-stampa |
S=si, N=no (solo elabora senza stampare) |
| Rim. finali negative (flag) |
tm-rf-neg |
Checkbox |
| Magazzini conto terzi |
tm-conto-terzi |
S=includi |
| Escludi merci servizio |
tm-fl-no-serv |
N=includi, S=escludi (aggiunto il 140425) |
| Tipo ord. |
tm-ord |
G=per gruppo, ... |
| Ordinamento merci |
tm-ord-mer |
All'interno del gruppo |
| Da merce |
tm-da-merce |
Intervallo inizio |
| A merce |
tm-a-merce |
Intervallo fine |
| Reparto |
tm-rep |
F8=COGF11; abilitato se tm-ord = "S" |
| Merci clienti |
tm-fl-merci-cli + tm-cli |
Se "S": filtra per cliente specifico (COGS65) |
Tipo estrazione tm-opt
"I": elenco articoli (default); stampa riga per ogni merce."G": per gruppo merce; aggiunge subtotali per gruppo."S": per reparto (COGM35S); filtra sul reparto scelto."E": selezione multipla merci (COGU05).
Elaborazione (a-fine-dati -> stampa)
- Validazione parametri.
- Avvio elaborazione con
z-99-exit-program differito.
- Scan su file giacenze/movimenti nell'intervallo merce/magazzino/sede/data.
- Per ogni articolo calcola:
w-val-inv: valore rimanenza iniziale (metodo tm-val-ri).- Somma carichi (
tot-a-qta, tot-a-val) e scarichi (tot-v-qta, tot-v-val).
- Rimanenza finale (
tot-f-qta, tot-f-val) con metodo tm-val-rf.
- Prezzo medio ponderato (
w-pma), prezzo di vendita (w-pv), LIFO (w-pmv).
- Scrittura riga di stampa su
TRAN-M36 e su stampante.
- Totali per gruppo (
tst-*) e totali generali (ttt-*).
Struttura stampa (righe di output)
testa1...testa7: intestazioni con bordi grafici, nome azienda, magazzino, periodo, colonne.rigel: riga articolo con descrizione (46 car.), UM, rim.iniziale (qta+segno+valore), carichi (qta+valore), scarichi (qta+valore), rim.finale (qta+segno+prezzo+valore), colonna opzionale.rig-tot: riga totale per gruppo/reparto/generale.- Larghezza stampa: 187 caratteri (
w-siz-stampa).
Chiamate principali
| Chiamata |
Tipo |
Scopo |
COGE22 |
CALL/CANCEL |
Selezione divisa (F8 su tm-div) |
COGF11 |
CALL/CANCEL |
Selezione reparto (F8 su tm-rep) |
COGM35S |
CALL/CANCEL |
Selezione reparto per tipo "S" |
COGU05 |
CALL/CANCEL |
Selezione multipla merci per tipo "E" |
COGU10W (non diretto) |
via utilu10.cpy |
Recupero divisa conto |
COGU16W |
via utilu16.cpy |
Gestione ordinamento/filtro merci |
COGM35S |
CALL/CANCEL |
Gestione reparto |
COGF11 |
CALL/CANCEL |
Aiuto reparto |
COGS65 |
via utils65.cpy |
Ricerca cliente (tm-cli) |
COGS68 |
via utils68.cpy |
Ricerca merce (da/a merce) |
COGL61 |
via utilcogl61.cpy |
Utility lotti |
COG021 |
CALL/CANCEL |
Dettaglio stampa (F1) |
WIN036 |
via utilw36.cpy |
Selezione magazzino (F8) |
GRIDADMN |
non usato |
(output su stampante, non griglia) |
z-99-init-program / z-99-exit-program |
PERFORM (mmmask.cpy) |
Init/exit |
Note tecniche
source-computer. acu-cobol / object-computer. acu-cobol.- Corrente di elaborazione identificata da
w-cur-id = "SMVA".
- File
TRAN-M36 usato come buffer temporaneo di stampa (nome #$COGM36.{wo-oper}).
- Parametri passabili dalla linkage:
util021 (impostazioni stampa), utils01, utils08, utilu61, utilv94, utilr26.
- Colonna opzionale in stampa (
ts6-opt, 15 car.): contenuto dipendente dalla configurazione "gallo".
- I valori negativi in rimanenza finale sono segnalati con segno nel campo
rg-rf-s.
- Encoding: ISO-8859-1. Caratteri grafici box-drawing nei record di intestazione stampa.