COGMAI - Consumi per Magazzino Cliente

Panoramica

Programma interattivo per la visualizzazione dei consumi di merce per magazzino e cliente (o fornitore) in un intervallo di date. Legge i movimenti di magazzino (COGMOMAG) scansionando le testate bolle (COGTESBO) per il magazzino e la causale selezionati, accumula i totali in un file di transito indicizzato e li mostra in griglia. Supporta filtri per cliente, articolo, causale, periodo e tipo prezzo medio. Puo' essere richiamato come "called" da altri programmi (es. da un documento di bolla) per visualizzare i consumi contestuali.

Posizione nel menu

Menu	Percorso
Magazzino	Visualizzazioni > Consumi per Magazzino Cliente

Struttura del programma

File e tabelle utilizzati

File/Tabella	Tipo	Descrizione
FEURTAB	Input	Tabella di sistema
COGMAGAZ	Input	Anagrafica magazzini
COGTABEL	Input	Tabella generica (causali)
COGTESBO	Input	Testata bolle/DDT (scan per data, con chiave secondaria)
COGMOMAG	Input	Movimenti di magazzino (scan per testata)
COGMERCI	Input	Anagrafica merci
COGGEANA	Input	Anagrafica clienti/fornitori
COGTRANS (temp)	I-O	File di transito indicizzato per accumulo dati griglia

Copybook principali

Copybook	Descrizione
cogmai.select	SELECT dei file
cogmai.fd	File Description
cogmai.wrk	Working storage generata
cogmai-01.scr	Screen section
k-u10.cpy	Costanti formattazione importi
k-personal.cpy	Personalizzazioni clienti
wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy	Standard working storage
cogazien.cpy	Dati azienda
wgrid.cpy, utilgdad.cpy	Gestione griglia
utilncnf.cpy	Lettura configurazioni RNEWCONF
utils52.cpy	Utilita' date
utils68.cpy	Ricerca merce
utilu09.cpy	Utilita' documenti
utilu10.cpy	Formattazione importi
utilu20.cpy	Utilita' varie
utilu25.cpy	Utilita'
utils65.cpy	Ricerca anagrafica
utilw01.cpy	Interfaccia WIN01 (ricerca causali)
utilw36.cpy	Interfaccia WIN36 (ricerca magazzini)
wcont.cpy, wcont1.cpy	Linkage section standard

Struttura record transito (COGTRANS)

La chiave primaria e' composta da: tipo anagrafico (1) + codice anagrafico (5) + gruppo merce (2) + sottogruppo (2) + codice merce (5). I dati memorizzati per riga sono: descrizione anagrafica, quantita', prezzo, valore, prezzo ivato, valore ivato.

Chiamate a sottoprogrammi (CALL)

Programma	Scopo
GRIDADMN	Gestione griglia (personalizzazione colonne, export)
COGU10W	Formattazione importi
RNEWCONF	Lettura configurazioni
COGS68W	Ricerca/selezione merce (utils68)
COGS65W	Ricerca/selezione anagrafica (utils65)
WIN01	Ricerca causali (utilw01)
WIN36	Ricerca magazzini (utilw36)

Logica di elaborazione

Flusso principale

1. Inizializzazione (apri): legge configurazioni (RNEWCONF), legge azienda, apre file. Imposta tipo anagrafico default a "C" (clienti). Se richiamato come called (v11-called), riceve il riferimento documento chiamante.

2. Filtri (a4): inizializza i campi con default (anno corrente, magazzino da configurazione, causale da configurazione, tipo prezzo medio = "C"). Apre il file di transito in output per cancellazione e riuso.

3. Accept campi: sequenza a-tm-da-data → a-tm-a-data → a-tm-ana-cod → a-tm-mer → a-tm-cau-cod → a-tm-mag-cod → a-tm-tip-pre-med. Il magazzino e' obbligatorio. Il cliente 0 equivale a "tutti i clienti".

4. Elaborazione (a-fine-dati): scan di COGTESBO per data (chiave secondaria chia2 con ordinamento per data), filtro per magazzino e causale. Per ogni testata valida, scan di COGMOMAG per la stessa testata. Per ogni riga di movimento che corrisponde ai filtri merce e anagrafico, richiama fill-trs che accumula i dati nel file di transito (somma quantita' e valori per chiave anagrafico+merce).

5. Griglia (a-grid-ini, a-grid): carica la griglia dalla tabella in memoria (carica-tab thru ex-carica-tab). Supporta paginazione (PgUp/PgDn), personalizzazione colonne (S-F4) tramite GRIDADMN, export Excel (S-F5).

Configurazioni lette da RNEWCONF

Gruppo	Chiave	Effetto
(non documentata)	(parametri mag-sca, cau-sca)	Magazzino e causale di default preimpostati nei filtri

Note tecniche

• Il file di transito (COGTRANS) viene ricreato a ogni elaborazione: aperto in output (cancellazione), poi riaperto in i-o. Il nome del file e' costruito con il percorso temp + prefisso #$ + program-id + operatore.
• Il programma verifica che il file di transito non sia gia' in uso dall'operatore (stato "93" all'apertura).
• La griglia ha un massimo di 900 elementi (k-max-ele-tab = 900).
• La scan di COGTESBO usa la chiave secondaria chia2 (ordinamento per data), limitata al periodo tm-da-data / tm-a-data.
• I valori visualizzati includono sia importo imponibile che ivato.
• Il programma e' chiamabile esternamente: la linkage section include util-v11 (campo v11-called e v11-doc) per ricevere il contesto dal chiamante.
• La configurazione tm-cfg-mag-sca / tm-cfg-cau-sca preimposta magazzino e causale di default.