COGR31 - Valorizzazione P.N. magazzino

Sorgente: cbl/cogr31.cbl | Tipo: Maschera GUI con elaborazione massiva | Program-ID: COGR31

Menu: Magazzino > P.N. Magazzino > Valorizzazione

Scopo

Valorizza le prime note di magazzino non valorizzate, applicando il prezzo di acquisto corrente. Gestisce anche la logica di valorizzazione per merci da distinta base.

File e Tabelle

File/Tabella	Uso
COGMERCI	Anagrafica merci
COGMAGAZ	Magazzini
COGTESBO	Testate bolle
COGMOMAG	Prime note magazzino (target dell'aggiornamento)
COGDBASE	Distinta base
#COGR31.<utente>	File di transito su disco temporaneo per lock operatore

Configurazioni RNEWCONF

Tabella euta-c037:

Chiave	Significato
euta-c037-tip-val	Tipo valorizzazione (prezzo medio/ultimo acquisto/etc.)
euta-c037-tip-agg	Tipo aggiornamento

Configurazioni dinamiche per merce(z), percentuale(z), tipo-val-distinta — accessibili via F1 e gestite da COGS16A.

Programmi chiamati

Programma	Scopo
COGS16A	Gestione configurazione tab-cfg-merce
COGS64	Utility
COGL61	Linguaggio
COGQ74	Utility produzione
COGU10W	Divisa
COGS68	Aiuto merce
RNEWCONF	Configurazione

Logica

1. Lock operatore: apre file di transito #cogr31.<utente> in modalita' esclusiva; se gia' aperto da altro operatore, errore.
2. Lettura configurazione: euta-c037-tip-val, euta-c037-tip-agg + configurazioni dinamiche per merce.
3. Maschera: magazzino, data, merce, flag rivalorizzazione, tipo merce.
4. F1 → configurazione: chiamata a COGS16A per impostare tipo valorizzazione, soglie distinte.
5. F3 → elaborazione: scansione COGMOMAG, per ciascun movimento non valorizzato (o tutti se rivalorizzazione) calcolo prezzo da COGLISFO/distinta, REWRITE.
6. Cleanup: chiusura e rimozione file di transito.

Note

• Programma con impatto su archivio: l'esecuzione modifica permanentemente i valori dei movimenti.
• Per merci con distinta base la logica di valorizzazione richiede configurazione tipo-val-distinta (per ciascuna merce).