COGM17 - Visualizzazione Trasferimenti¶

Intestazione¶

Campo	Valore
Programma	COGM17
Titolo	Visualizzazione trasferimenti
Posizione menu	Magazzino > Trasferimenti > Visualizzazione; Magazzino > Trasferimenti > Inserimento/gestione > Visualizzazione

Scopo e logica generale¶

COGM17 e' un programma di visualizzazione interattivo per i trasferimenti di magazzino. Presenta una maschera con parametri di filtro (magazzino, anno, tipo movimento, stato accertamento testata/righe) e una griglia paginata con i risultati. La griglia e' basata su spaginamento dinamico (lettura incrementale dal file). Dal dettaglio riga e' possibile aprire il documento completo tramite WIN038.

Flusso principale¶

Inizializzazione (apri): controllo abilitazione, lettura azienda, apertura file, tasti funzione, data di sistema, caricamento lingua, titolo maschera
Accept parametri (a4 → a-tm-mag → a-tm-ann → a-tm-eu → a-tm-ac-t → a-tm-ac-r):
Magazzino (tm-mag): con aiuto WIN036 (F8)
Anno (tm-ann): con calendario COGS52W (F8)
Tipo movimento (tm-eu): combo/select ("U" = uscite, altri valori configurabili), tramite COGS60
Accertato testata (tm-ac-t): tramite COGS60; disabilitato se magazzino 1 o tipo U
Accertato righe (tm-ac-r): tramite COGS60; disabilitato se magazzino 1 o tipo U
Conferma (a-fine-dati): validazione globale, dialog di conferma (acc-conf); se magazzino = "1" o tipo = "U", forza tm-ac-t e tm-ac-r a "T"
Caricamento (x-spaginamento-start): avvio spaginamento paginato dei trasferimenti dal file, popolamento griglia con z-costruisci-grid
Griglia (a-grid):
Paginazione: PgDown/PgUp tramite pg-after-pg-dwn / pg-after-pg-up
F8: apertura dettaglio documento con WIN038 (passando mag/ann/tip/num e flag accertamento righe)
SF4: amministrazione griglia (GRIDADMN)
SF5: esportazione Excel (z-esporta-paged-grid)
ESC: ritorno ai parametri
Chiusura (fine): chiusura file, z-99-exit-program

File e tabelle acceduti¶

File logico	Record	Modalita'	Uso
COGMAGAZ	magz-rec	Input	Anagrafica magazzini (validazione tm-mag)
FEURTAB	feurtab	Input	Tabella generica Eurosystem
(file trasferimenti)	-	Input	Movimenti di trasferimento (tramite select cogm17.select)

I file specifici dei trasferimenti sono dichiarati in cogm17.select e cogm17.fd.

Struttura griglia (grid-record)¶

grd-doc:      mag / anno / tipo / numero  (identificativo documento)
grd-data:     gg/mm/aaaa
grd-des:      descrizione (40 caratteri)
grd-fl-ac:    flag accertamento (2 caratteri)
grd-rif:      mag / anno / tipo / numero (documento riferimento)

Tab-maschera principali¶

tm-mag          pic x(01)   Codice magazzino
tm-ann          pic 9(04)   Anno
tm-eu           pic x(01)   Tipo movimento ("U" = uscita, ...)
tm-ac-t         pic x(01)   Filtro accertamento testata ("T" = tutti)
tm-ac-r         pic x(01)   Filtro accertamento righe ("T" = tutti)

Copybook inclusi¶

Screen Designer¶

Copybook	Contenuto
`cogm17-01.scr`	Maschera principale (screen section)
`cogm17.select`	SELECT dei file
`cogm17.fd`	FD dei file
`cogm17.wrk`	Working storage maschera
`cogm17.decla`	Declaratives

Strutture dati e utility¶

Copybook	Contenuto
`cogfiles.cpy`	FD feurtab
`wgrave.cpy`	Gestione errori gravi
`wnscr.cpy`	Gestione schermo
`wopenf.cpy`	Apertura file
`wstato.cpy`	Working storage stato
`cogazien.cpy`	Dati azienda
`wgrid.cpy`	Gestione griglie
`utilgdad.cpy`	Utility grid admin
`utils52.cpy`	Interfaccia COGS52W (calendario)
`utilw36.cpy`	Interfaccia WIN036 (selezione magazzino)
`utilw38.cpy`	Interfaccia WIN038 (dettaglio documento)
`wcont.cpy` / `wcont1.cpy`	Linkage section

Programmi chiamati (CALL)¶

Programma	Scopo
COGS52W	Calendario per selezione anno
WIN036	Selezione magazzino (F8 su tm-mag)
WIN038	Visualizzazione dettaglio documento trasferimento (F8 in griglia)
GRIDADMN	Amministrazione griglia (prepara, add record, svuota, personalizzazione SF4)

Logica di business¶

Spaginamento¶

Il programma usa il meccanismo di spaginamento paginato (x-spaginamento-start, pg-after-pg-dwn, pg-after-pg-up) per caricare i trasferimenti in blocchi della dimensione della griglia (w-grid-lines - 1). Questo consente di navigare anche su volumi grandi di dati senza caricare tutto in memoria.

Il flag fl-read segnala la fine della lettura ("E" = fine, "B" = inizio) per gestire i messaggi di "nessun dato ulteriore/precedente".

Gestione abilitazioni filtri¶

I filtri tm-ac-t (accertamento testata) e tm-ac-r (accertamento righe) vengono automaticamente disabilitati (e forzati a "T") se il magazzino selezionato e' il magazzino principale (cod = "1") o se il tipo movimento e' "U" (uscite). Questo perche' per quelle combinazioni il filtro di accertamento non e' significativo.

Dettaglio documento (F8)¶

Alla pressione di F8 su una riga della griglia, vengono passati a WIN038: magazzino, anno, tipo e numero del documento (tm-d-mag(i), tm-d-ann(i), tm-d-tip(i), tm-d-num(i)) piu' il flag accertamento righe (tm-ac-r).

Variabili di stato principali¶

Variabile	Descrizione
`tm-mag`	Codice magazzino selezionato
`tm-ann`	Anno di ricerca
`tm-eu`	Tipo movimento
`tm-ac-t` / `tm-ac-r`	Filtri accertamento testata / righe
`n-m`	Numero di righe caricate nella pagina corrente
`fl-read`	Stato lettura: "E" = fine file, "B" = inizio file
`fl-esc-agg`	Flag uscita/aggiornamento