COGV55 -- Visualizzazione lotti per magazzino¶

Sorgente: cbl/cogv55.cbl | Tipo: Programma con interfaccia grafica (griglia interattiva paginata) | Program-ID: COGV55

Menu: Magazzino > Giacenze & Sottoscorta > Lotti merce > Lotti per magazzino

Scopo¶

Visualizza i lotti presenti in un magazzino, con due modalita' di ricerca: per merce (mostra i lotti di un articolo in un magazzino) e per documento (mostra i lotti movimentati da un documento specifico). Per ogni lotto mostra merce, lotto fornitore, quantita', date di produzione e scadenza, stato.

Puo' funzionare sia in modalita' autonoma sia come programma richiamato (CALLED) con merce e magazzino precompilati.

Interfaccia utente¶

Modalita' di funzionamento¶

Modalita'	Condizione	Comportamento
Autonomo	Chiamata diretta da menu	Filtri liberi
CALLED	`v55-called = "COGV55-CALLED"`	Precompila merce, mag e operazione

Maschera di filtro¶

Campo	Tipo	Descrizione
`tm-tipo-ricerca`	x(01)	Tipo ricerca: M=per merce, D=per documento
`tm-merce`	x(09)	Codice merce (visibile se tipo=M)
`tm-mag-mag1`	x(01)	Magazzino (visibile se tipo=D)
`tm-mag-anno`	9(04)	Anno documento (visibile se tipo=D)
`tm-mag-tipo`	x(01)	Tipo documento (visibile se tipo=D)
`tm-mag-num`	9(06)	Numero documento (visibile se tipo=D)
`tm-mag`	x(01)	Codice magazzino (per ricerca per merce)
`tm-fl-stato`	x(01)	Stato lotto: A=Attivi, C=Chiusi, T=Tutti, B=Bloccati

Griglia (tramite tmr-righe)¶

Campo	Tipo	Descrizione
`tmr-merce`	x(09)	Codice merce
`tmr-merce-des`	x(40)	Descrizione merce
`tmr-lotto`	x(15)	Codice lotto fornitore
`tmr-qta`	s9(07)v999	Quantita' residua
`tmr-data-prod`	9(08)	Data produzione
`tmr-data-scad`	9(08)	Data scadenza
`tmr-stato`	x(01)	Stato lotto
`tmr-mag`	x(01)	Magazzino

Tasti funzione¶

Tasto	Funzione
F3	Conferma ricerca
F8	Dettaglio: richiama COGM48 per il dettaglio lotti della merce selezionata
F9	Stampa lotti
S-F4	Gestione griglia (GRIDADMN)
S-F5	Esportazione Excel
ESC	Uscita

File e Tabelle¶

File/Tabella	Copybook	Uso
COGTRANS	(definito inline)	File transito con chiave merce+lotto, per paginazione
FLSTA	flsta.cpy	File stampa
FEURTAB	cogfiles.cpy	File tabelle Euro
Tabelle via cogv55.select	cogv55.fd	COGMERLT (lotti), COGMERCI, COGMAGAZ, movimenti, ecc.

Struttura del programma¶

Flusso principale¶

apri -> z-99-init-program -> ctr-abil -> rd-azi -> open-files
     -> Gestione CALLED (precompilazione)
     -> Creazione file transito COGTRANS
     -> a4 (inizializzazione)
     -> Accept filtri: a-tm-tipo-ricerca, a-tm-merce (o dati documento),
                       a-tm-mag, a-tm-fl-stato
     -> a-fine-dati (caricamento lotti in griglia)
     -> a-grid (navigazione e operazioni)

Paragrafi principali¶

Paragrafo	Funzione
`a4`	Inizializzazione, creazione transito
`a-tm-tipo-ricerca`	Accept tipo ricerca (M/D)
`a-tm-merce`	Accept codice merce
`a-tm-mag-mag1`	Accept magazzino documento
`a-tm-mag-anno/tipo/num`	Accept dati documento
`a-tm-mag`	Accept magazzino per ricerca per merce
`a-tm-fl-stato`	Accept stato lotto
`a-fine-dati`	Validazione e caricamento
`a-grid`	Navigazione griglia e operazioni
`x-spaginamento-start`	Caricamento paginato lotti

Logica di elaborazione¶

Ricerca per merce¶

Scansiona i lotti da COGMERLT per la merce e il magazzino indicati, filtrando per stato. Popola il file transito COGTRANS e la griglia.

Ricerca per documento¶

Legge i movimenti del documento indicato e per ogni riga che ha un lotto, aggiunge il lotto al transito se non gia' presente. Mostra i lotti movimentati dal documento.

Drill-down su COGM48 (F8)¶

Premendo F8 sulla riga selezionata, il programma chiama COGM48 con operazione CALLED passando la merce e il magazzino della riga selezionata. COGM48 mostra il dettaglio completo dei lotti per quell'articolo con possibilita' di navigare sui movimenti.

Stampa (F9)¶

Genera il report dei lotti tramite COGS54.

Chiamate esterne¶

Programma	Scopo
COGM48	Dettaglio lotti per merce (CALLED)
COGS54	Utility stampa
COGS68W	Gestione campo merce
GRIDADMN	Gestione griglia interattiva

Copybook utilizzate¶

Copybook generate da Screens¶

cogv55.select, cogv55.fd, cogv55.wrk, cogv55.prc, cogv55.decla, cogv55-01.scr

Copybook di libreria¶

cogfiles.cpy -- Definizione file Euro
flsta.cpy -- File stampa
k-u10.cpy -- Costanti utility valute
wstato.cpy, wopenf.cpy, wgrave.cpy, wnscr.cpy -- Working storage standard
cogazien.cpy -- Dati azienda
wgrid.cpy, utilgdad.cpy -- Griglia interattiva
utils52.cpy, utils54.cpy, utils68.cpy -- Interfacce sottoprogrammi
utilm48.cpy -- Interfaccia COGM48
utilw82.cpy -- Interfaccia W82

Linkage¶

wcont.cpy -- Struttura linkage standard
wcont1.cpy -- Linkage supplementare
utilv55.cpy -- Interfaccia per chiamata CALLED

Note tecniche¶

Il file COGTRANS ha chiave trs-merce + trs-lotto per la ricerca per merce, e la stessa struttura viene usata per entrambe le modalita' di ricerca.
La visibilita' dei campi nella maschera di filtro cambia dinamicamente in base al tipo di ricerca selezionato: per merce mostra codice merce e magazzino, per documento mostra i campi del documento.
Il programma supporta la paginazione della griglia.
Quando richiamato come CALLED, se il magazzino non e' specificato viene usato il magazzino principale dell'azienda (az-main-mag).

Documentazione tecnica -- 2026-04-18