COGMAF - Scorte per Magazzino¶

Sorgente: cbl/cogmaf.cbl | Tipo: Programma a menu | Program-ID: COGMAF

Menu: Magazzino > Giacenze & Sottoscorta > Scorte > Scorte per magazzino

Scopo¶

Gestisce le scorte minime e massime delle merci a livello di magazzino + merce (chiave composta), distinte rispetto alle scorte impostate sull'anagrafica articolo. Mantiene anche i valori storici precedenti (trs-scorta-min-old, trs-scorta-max-old) per tracciare le modifiche.

File e Tabelle¶

File/Tabella	Uso
FEURTAB	Parametri generali
File da `cogmaf.select`	File principali (anagrafica merci, magazzini, ecc.)
COGTRANS	File indicizzato di transito per costruzione griglia (chiave: `trs-chia1`, alt key: `trs-merce, trs-chia1`)

Copybook principali¶

cogmaf.select, cogmaf.fd, cogmaf.wrk, cogmaf.decla — strutture da Screens
k-personal.cpy — costanti personalizzazione
Standard: vari working e cogazien

Costanti significative¶

k-f7-mag-aut = 01 — t.f. F7 (filtro magazzino abilitato)
k-colid-pma, k-colid-curr-pma, k-colid-pua, k-colid-curr-pua — ID colonne griglia per personalizzazioni divisa
k-max-ele-tab = 900 — numero max righe griglia

Struttura dati COGTRANS¶

Campo	Descrizione
trs-chia1	Chiave numerica progressiva
trs-mag	Codice magazzino
trs-merce (gru/sot/cod)	Codice merce
trs-um	Unita' di misura
trs-scorta-min	Scorta minima corrente
trs-scorta-max	Scorta massima corrente
trs-scorta-min-old	Scorta minima storica (270217 = data introduzione)
trs-scorta-max-old	Scorta massima storica

Logica di elaborazione¶

Apertura: apertura file, lettura azienda, costruzione mask, inizializzazione COGTRANS (file di transito locale).
Filtro/selezione magazzino (F7): filtra le righe per magazzino specifico se attivato.
Caricamento griglia (fl-fill): scansione del file scorte gia' presente (definito in select) e/o costruzione COGTRANS con i record correnti. Popolamento di tm-tab (max 900 righe).
Modifica griglia: inserimento, modifica e cancellazione direttamente in griglia.
Salvataggio (F3): rewrite/write/delete sul file scorte. I valori precedenti (*-old) vengono aggiornati automaticamente prima di sovrascrivere quelli correnti, in modo da preservare il tracciato storico.
Esportazione griglia (Shift+F4): chiamata a GRIDADMN.

Programmi chiamati¶

COGS50 (e altri standard) per gestione divisa
GRIDADMN per gestione griglia
Possibili call a copybook utility specifiche

Note¶

Il file COGTRANS viene aperto per chiave alternativa trs-merce, trs-chia1 per supportare ricerche per merce.
I campi storici *-old permettono di confrontare la modifica con il valore precedente (introdotti il 27/02/2017 secondo il commento 270217 nel sorgente).
La griglia supporta funzioni avanzate (esportazione, ordinamento, filtri) tramite il framework standard Eurocoge.