COGF67 - Estrazione File per Report Trimestrali Vendite¶

Sorgente: cbl/cogf67.cbl | Program-ID: COGF67 | Tipo: Estrazione dati / Elaborazione

Menu: Statistiche > Estrazione Report Vendite

Descrizione¶

Estrae e prepara i dati di vendita per la produzione di report trimestrali. L'utente configura tipo di statistica, anno, trimestre (o intervallo di mesi), tipo di estrazione e agente; il programma legge i movimenti dalle tabelle di vendita e produce file di transito utilizzati dai report statistici. Supporta la selezione interattiva dei raggruppamenti tramite griglia.

Tabelle utilizzate¶

Tabella	Copybook/Layout	Accesso	Descrizione
FEURTAB	cogfiles.cpy	Random	Tabella generale di sistema
File da cogf67.select	(da cogf67.fd/select)	Dynamic	Tabelle vendite e classifiche
cogtrans	Inline (trs-rec: trs-rag, trs-des, trs-sel)	Dynamic	File temporaneo raggruppamenti selezione
cogtrans2	Inline (trs2-rec: trs2-nome, trs2-cli, trs2-cat, trs2-mese, trs2-qta, trs2-colonna, trs2-distr)	Dynamic	File temporaneo dati estratti
rtdati	Inline (rtd-rec)	Line sequential	File testo output dati
rttipo	Inline (rtt-rec)	Line sequential	File testo output tipi
tran-cogs96	tran-cogs96.cpy	Dynamic	File transito COGS96 per interscambio

I path dei file temporanei (cogtrans, cogtrans2) sono costruiti a runtime in ext-tmp-dir con prefisso #$f67A. e #$f67B. piu' il codice operatore.

Struttura maschera (cogf67-01.scr)¶

Campo (tab-maschera)	Tipo	Descrizione
`tm-tipo-stat`	X(01)	Tipo statistica
`tm-anno`	9(04)	Anno di riferimento
`tm-trim`	X(01)	Trimestre (1-4)
`tm-mese1/2/3`	X(03)	Mesi del trimestre
`tm-tip-est`	X(01)	Tipo estrazione (default 'D')
`tm-age`	9(05)	Codice agente (facoltativo)
`tm-age-des`	X(40)	Descrizione agente
`tm-ini` / `tm-fin`	9(06)	Periodo AAAAMM da/a (alternativo al trimestre)
`tm-tab`	Occurs 200	Griglia raggruppamenti (trs-rag, trs-des, trs-sel)

Flusso di elaborazione¶

Inizializzazione: costruisce i path dei file temporanei, legge i dati azienda, recupera la divisa di conto (get-divisa-conto).
Caricamento griglia: z-prepara-tm-grid e z-costruisci-grid popolano la griglia con i raggruppamenti disponibili letti da cogtrans.
Caricamento vari: z-carica-vari precarica i dati di contesto (agente, configurazione).
Configurazione: legge la chiave di configurazione RNEWCONF C018 (x99-src-cfg) per determinare il comportamento del tipo statistica (tab-cfg-c018.tm-cfg-c018-stat-ext).
Accept parametri: sequenza di accept su tipo statistica, anno, trimestre, mesi, tipo estrazione, agente, periodo.
Conferma (F3): chiama a-richiesta-conferma → elaborazione principale.
Elaborazione: estrae i dati dai file di vendita e scrive i file di output rtdati e rttipo.
Interscambio COGS96: utilizza tran-cogs96 e utilcogs96.cpy per il transito dati verso il sottoprogramma COGS96.

Paragrafi principali¶

Paragrafo	Funzione
`apri`	Inizializzazione generale
`a4`	Reset maschera e griglia
`a-tm-tipo-stat`	Accept tipo statistica
`a-tm-anno`	Accept anno
`a-tm-trim`	Accept trimestre
`a-tm-mese*`	Accept mesi del periodo
`a-tm-tip-est`	Accept tipo estrazione
`a-tm-age`	Accept codice agente
`a-richiesta-conferma`	Avvia elaborazione dopo conferma F3
`carica-agenti`	Carica lista agenti in griglia
`z-prepara-tm-grid`	Predispone la griglia di selezione
`z-costruisci-grid`	Costruisce la griglia a video

Chiamate a sottoprogrammi¶

Programma	Scopo
COGS96	Elaborazione statistica di dettaglio (via tran-cogs96)
UTILE35	Utilities date/periodo
UTILU20	Utilities generali
UTILS52	Input date con calendario
UTILS65	Gestione griglia dati
UTILGDAD	Utilities griglia avanzata

Copybook principali¶

cogfiles.cpy - Layout FEURTAB
cogf67.wrk - Working storage (da Screen Designer)
tran-cogs96.cpy - Layout transito COGS96
utilcogs96.cpy - Utilities COGS96
wgrid.cpy, utilgdad.cpy - Gestione griglia
utilu20.cpy, utils52.cpy, utils65.cpy, utilu10.cpy, utile35.cpy - Utilities varie
utilncnf.cpy - Lettura configurazioni RNEWCONF
cogazien.cpy - Dati azienda
wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy - Working storage standard

Configurazioni RNEWCONF¶

Chiave	Gruppo	Effetto
C018	Statistiche	Controlla la visibilita'/abilitazione del campo tipo statistica (`tm-cfg-c018-stat-ext`). Se assente, il campo tipo statistica non e' abilitato.

Note implementative¶

Massimo 200 elementi nella griglia (k-max-ele-tab = 200).
Il valore di default al caricamento: tm-tipo-stat = "V", tm-trim = "1", tm-tip-est = "D".
Il pulsante "Avvio Estrazione (F3)" e' un push-button custom con bitmap estraz (caricato con load-bitmap-custom).
fl-no-leg gestisce i casi di assenza di dati leggibili.
Tasto Shift+F5 attiva l'esportazione Excel tramite w-presenza-sf5-esporta-excel.