COGF74 - Visualizzazione Movimenti Lotti¶

Intestazione¶

Campo	Valore
Programma	COGF74
Titolo	Visualizzazione movimenti lotti
Posizione menu	Magazzino → Visualizzazioni → Lotti Merce → Movimenti
Note	Il menu riporta due voci per COGF74: una con titolo "Movimenti" e una senza titolo esplicito

Scopo e logica generale¶

COGF74 e' un programma interattivo con griglia paginata (GRIDADMN) per la visualizzazione dei movimenti di carico e scarico relativi ai lotti di merce. Permette di filtrare i lotti per tipo di ricerca (per produttore, per fornitore, per articolo), per intervallo di date, per numero lotto specifico, per produttore e per fornitore.

I risultati (lotti di entrata con relative uscite) vengono caricati in due file di transito: #$F74A.<operatore> (cogtrans, movimenti di entrata) e #$F74B.<operatore> (cogtrans2, movimenti di uscita). Il dettaglio delle uscite per il lotto selezionato e' accessibile tramite F8.

Supporta l'esportazione in formato CSV (expf74.csv nella tmp-dir) tramite F7.

Flusso principale¶

Inizializzazione (apri): creazione nomi file transito, caricamento lingua, apertura file, divisa conto, configurazione tasti funzione (S-F4-griglia, F3-conferma, F8-aiuto/calendario, S-F5-esporta-excel, F7-esporta, F9-ric-avanzata), bitmap custom ("Dettaglio uscite (F8)"), rd-msk-pop, inizializzazione COGS68 per tm-merce, costruzione controlli e griglia
Accept parametri:
a-tm-ricerca: tipo di ricerca con COGS60; cambio tipo scatena reset griglia (eccetto cambio tra 'F' e 'M')
a-tm-merce: ricerca articolo con COGS68 (visibile solo se abilitato dal tipo ricerca)
a-tm-da-data: data inizio con COGS52 (default primo giorno anno corrente se zero)
a-tm-a-data: data fine con COGS52 (default datasis se zero)
a-tm-lotto: numero lotto (libero, con validazione)
a-tm-prod: codice produttore
a-tm-prod-des: descrizione produttore con F9-ric-avanzata
a-tm-for: codice fornitore
(altri accept per descrizione fornitore)
Conferma e caricamento (a-richiesta-conferma): costruzione transiti da archivi lotti, caricamento griglia paginata
Griglia (a-grid): navigazione con pagina-su/giu'; F8 mostra dettaglio uscite (cogtrans2); S-F4 personalizza griglia; S-F5 esporta Excel; F7 esporta CSV
Chiusura (fine): eliminazione file transito, z-99-exit-program

File e tabelle acceduti¶

File logico	Record	Modalita'	Uso
Vari (da `cogf74.select` e `cogf74.fd`)	—	Input	File lotti e movimenti (non leggibili senza i copybook select/fd)
FEURTAB	feurtab	Input	Tabella generica Eurosystem
COGTRANS	trs-rec	I-O	Transito movimenti di entrata lotti
COGTRANS2	trs2-rec	I-O	Transito movimenti di uscita lotti
COGEXPORT	exp-rec	Output	File CSV di esportazione

Struttura COGTRANS (movimenti entrata)¶

trs-chia1:
  trs-lotto          pic x(15)   Codice lotto
  trs-merce:
    trs-mer-gru      pic x(02)
    trs-mer-sot      pic x(02)
    trs-mer-cod      pic 9(05)
  trs-lotto-int      pic 9(06)   Lotto interno (progressivo)
  trs-doc-ent:       (mag + ann + tip + num + progressivo)
trs-mer-des          pic x(30)   Descrizione merce
trs-produttore:
  trs-prod           pic 9(05)   Codice produttore
  trs-prod-des       pic x(40)
trs-ana:
  trs-ana-tip        pic x(01)   Tipo anagrafica
  trs-ana-cod        pic 9(05)   Codice anagrafica (fornitore)
  trs-ana-des        pic x(40)
trs-qta              pic 9(07)v999
trs-lot-gia          pic s9(07)v999   Giacenza residua lotto

Struttura COGTRANS2 (movimenti uscita)¶

Stessa struttura di COGTRANS con trs2-doc-usc al posto di trs-doc-ent.

Record griglia¶

grd-lotto      pic x(15)
grd-ana-cod    pic zzzzz
grd-ana-des    pic x(40)
grd-doc-ent    pic x(15)
grd-qta        pic -------,999
grd-lot-gia    pic -------,999
grd-merce      pic x(9)

Copybook inclusi¶

Screen Designer¶

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

Strutture dati¶

Copybook	Contenuto
`cogfiles.cpy`	FD feurtab
`k-u10.cpy`	Costanti COGU10
`wgrave.cpy` / `wnscr.cpy` / `wopenf.cpy` / `wstato.cpy`	Working storage comuni
`cogazien.cpy`	Dati azienda

Utility e interfacce¶

Copybook	Contenuto
`wgrid.cpy` / `utilgdad.cpy`	Gestione griglie
`utilu20.cpy`	Utility formattazione
`utils52.cpy`	Interfaccia COGS52 (calendario)
`utils65.cpy`	Interfaccia COGS65 (ricerca anagrafica)
`utils68.cpy`	Interfaccia COGS68W (ricerca merce)
`utilu10.cpy`	Interfaccia COGU10W
`utilw36.cpy`	Interfaccia WIN036
`utilw06.cpy`	Interfaccia WIN006

Linkage¶

Copybook	Contenuto
`wcont.cpy` / `wcont1.cpy`	Stringhe comuni

Programmi chiamati (CALL)¶

Programma	Scopo
COGS52W	Calendario (date picker) per da-data e a-data
COGS60	Selezione tipo di ricerca (combo)
COGS65	Ricerca anagrafica (produttore, fornitore)
COGS68W	Ricerca merce per codice articolo
COGU10W	Formattazione importi e divisa
GRIDADMN	Amministrazione griglie
RNEWCONF	Lettura configurazione
WIN036	Dettaglio (via utilw36.cpy)
WIN006	(via utilw06.cpy)

Configurazione (RNEWCONF)¶

Il programma usa x99-src-cfg standard. Il campo x-visible-tm-merce-gru (pic 9(01)) controlla la visibilita' della colonna gruppo merce nella maschera.

Logica di business¶

Tipo di ricerca¶

Il campo tm-ricerca (gestito con COGS60) determina la struttura dei filtri attivi: - 'P' (default): ricerca per produttore - 'F': ricerca per fornitore - 'M': ricerca per merce/articolo

Quando il tipo cambia da 'P'/'M' a 'F' o viceversa, la griglia viene resettata se non si tratta di cambio tra 'F' e 'M'.

Struttura `ricordante`¶

Contiene la posizione corrente nella griglia per permettere il ripristino della navigazione dopo un'azione di dettaglio: - ri-merce, ri-ana, ri-mer-des, ri-ana-des - ri-w-b-key, ri-w-t-key (chiavi di paginazione) - Variabili di posizione griglia: ri-i, ri-j, ri-si, ri-sj, ri-i1, ri-j1, ri-n-m, ri-nm, ri-t-size, ri-t-start, ri-t-length, ri-w-end-read

File di export CSV¶

Il file expf74.csv ha record da 200 caratteri ed e' generato nella tmp-dir. L'esportazione viene attivata da F7 nella griglia.

Variabili di stato principali¶

Variabile	Descrizione
`tm-ricerca`	Tipo ricerca: P/F/M
`tm-lotto`	Numero lotto (filtro opzionale)
`tm-prod` / `tm-prod-des`	Produttore
`tm-for` / `tm-for-des`	Fornitore
`tm-merce`	Articolo (gru+sot+cod)
`tm-da-data` / `tm-a-data`	Intervallo date (AAAAMMGG)
`tm-tot-qta`	Totale quantita' in griglia
`n-m`	Numero record nella griglia
`fl-read`	Flag fine lettura transito
`fl-wr-entrata`	Flag scrittura record entrata
`w-primo`	Flag prima visualizzazione