COGF53 -- Creazione P.M.A. FIFO¶

Sorgente: cbl/cogf53.cbl | Tipo: Programma batch con interfaccia e stampa | Program-ID: COGF53

Menu: - Magazzino > Controllo Magazzino > Prezzo Medio > Creazione P.M.A. FIFO

Scopo¶

Calcola il Prezzo Medio di Acquisto con metodo FIFO continuo. Scorre i movimenti di magazzino in ordine cronologico, associa le uscite ai carichi precedenti secondo logica FIFO, e aggiorna il prezzo medio sulle merci. Produce opzionalmente una stampa di dettaglio.

File e tabelle¶

File/Tabella	Tipo	Modalita'	Descrizione
COGMERCI	Indicizzato	I-O	Anagrafica merci (aggiorna prezzo medio)
COGMOMAG	Indicizzato	Input	Movimenti di magazzino
COGTABEL	Indicizzato	Input	Tabelle generiche (causali, configurazioni)
COGTRANS	Indicizzato temp	I-O	File transito per movimenti in elaborazione
COGTRANS2	Indicizzato temp	I-O	File transito riordinato per data + priorita'
FLSTA	Stampa	Output	File di stampa
FEURTAB	Indicizzato	I-O	File configurazioni generali

Struttura file transito¶

COGTRANS: chiave = doc-testa + doc-rig; dati = data, currency, segno, qta, qta-gia-usata, val-fifo, pre-ven, val-ven, margine.

COGTRANS2: chiave alternata per data + priorita' + solo-val + doc. Priorita' "Z" per documenti non considerati nel PM (elaborati prima per determinare giacenza corretta), "A" per gli altri.

Programmi chiamati¶

Programma	Scopo
RNEWCONF	Lettura configurazioni

Copybook principali¶

cogf53.select, cogf53.fd, cogf53.wrk, cogf53.prc -- screen-generated
k-personal.cpy -- costanti personalizzazione
k-u10.cpy -- costanti divisa
flsta.fd, flsta.cpy -- gestione stampa
cogazien.cpy -- dati azienda

Struttura del programma¶

Flusso principale¶

apri: inizializzazione, lettura configurazioni, apertura file
Richiesta parametri: magazzino, intervallo merci, data riferimento, opzioni stampa
Per ogni merce nell'intervallo:
A1-CALCOLA-PREZZO: calcolo P.M.A. classico
A3-CREA-TRANSITO: creazione file transito con movimenti riordinati
A2-CALCOLA-VAL-FIFO: abbinamento uscite ai carichi in logica FIFO
Aggiornamento prezzo medio su COGMERCI
Stampa dettaglio se richiesta

Algoritmo FIFO¶

I movimenti vengono caricati nel transito ordinati per data
Le uscite consumano i carichi dal piu' vecchio al piu' recente
Per ogni carico si tiene traccia della qta-gia-usata
Il valore FIFO di ciascuna uscita e' la somma ponderata dei prezzi dei carichi consumati
A parita' di data, i movimenti di solo valore (svalutazioni, rettifiche) vengono elaborati prima

Parametri chiave¶

a1-prezzo: prezzo medio calcolato
a1-tot-val / a1-tot-qta: accumulatori valore e quantita'
a2-uscite-da-compensare: contatore uscite da abbinare a carichi
trs-qta-gia-usata: quantita' del carico gia' utilizzata da uscite precedenti

Documentazione tecnica -- 2026-04-29