COGO37 -- Ordini x Agente¶

Sorgente: cbl/cogo37.cbl | Tipo: Interattivo | Program-ID: COGO37

Menu:

Ordini > Clienti > Visualizzazioni > Ordini x Agente

Scopo¶

Visualizzazione interattiva dell'ordinato clienti raggruppato per agente. Presenta i dati in una griglia paginata con ordine, data, cliente, agente e importo (convertito in divisa di contabilizzazione). Supporta filtri per intervallo agenti, intervallo date, stato ordini e tipo visualizzazione righe. Include stampa riepilogativa, consultazione rimanenze e dettaglio ordine. Se l'operatore e' associato a un agente, filtra automaticamente tramite COGS96.

File e tabelle¶

File/Tabella	Tipo	Modalita'	Descrizione
FEURTAB	Sistema	Input	Tabella di sistema
File da cogo37.select	Dati	I-O	File gestionale (COGTABEL, COGGEANA, COGTESOR, COGRIGOR, COGCONOR)
COGTRANS	Temp	I-O	File transito indicizzato: agente + tipo/anno/numero/progressivo
TRAN-COGS96	Temp	I-O	File transito per filtro agenti operatore
FLSTA	Stampa	I-O	File di stampa

Programmi chiamati¶

Programma	Scopo
GRIDADMN	Gestione griglia avanzata (preparazione, add-record, personalizzazione, export)
COGU10W	Formattazione/conversione importi e cambi (cambio in divisa conto per prezzi riga)
WIN015	Finestra dettaglio ordine (F8 sulla griglia)
WIN027	Finestra rimanenza ordine (F5 sulla griglia)
COGS65W	Accept codice agente con ricerca
COGS50	Accept merci con ricerca
COGS52	Accept date con calendario (F8)
COGS54	Configurazione stampa
COGS96	Gestione filtro agenti per operatore
DIALOGS	Gestione dialog box contestuali

Copybook principali¶

cogo37.select, cogo37.fd, cogo37.wrk, cogo37.prc, cogo37-01.scr, cogo37.decla
cogfiles.cpy, cogazien.cpy, wstato.cpy, wopenf.cpy, wgrave.cpy, wnscr.cpy
wgrid.cpy, utilgdad.cpy, utildlg.cpy
utils50.cpy, utils52.cpy, utils54.cpy, utils65.cpy
utilw15.cpy, utilw27.cpy, utilu10.cpy, utilcogs96.cpy
k-u10.cpy
tran-cogs96.fd, tran-cogs96.cpy, tran-cogs96.k01
flsta.fd, flsta.cpy
cogtrans.k01
dtab.cpy, fscrol2.cpy, utilpggr.cpy, GetDCont.cpy
wcont.cpy, wcont1.cpy

Struttura del programma¶

Flusso principale¶

Inizializzazione (apri): apre file, carica lingua, crea il nome del file di transito COGTRANS nella directory temp con formato #$COGO37.<operatore>. Carica agenti operatore tramite carica-agenti (COGS96). Configura tasti funzione (F3, F5, F8, F9, S-F4, S-F5). Legge divisa di contabilizzazione.
Filtri (a-tm-da-age-cod ... a-tm-rig-ord): accept parametri: da agente, a agente, da data, a data, stato (A=Aperti, C=Chiusi, T=Tutti), tipo righe (T=Tutte, R=Residue).
Creazione file di transito (b-elabora): crea file COGTRANS indicizzato per agente + ordine. Scorre COGTESOR per tipo "C" dall'anno selezionato. Per ogni ordine verifica intervallo agenti (supporta fino a 2 agenti), intervallo date (su tor-datdecor), stato. Per le righe calcola importo: se tipo righe = "R", solo parte residua (ordinato - consegnato); converte prezzo in divisa conto tramite COGU10W. Scrive record nel transito per ogni ordine con almeno una riga valida.
Visualizzazione griglia (vis-tabella-ini): calcola totale generale scorrendo tutto il file. Spaginamento standard con navigazione PgUp/PgDn.
Navigazione griglia (vis-tabella-disp): F5 (WIN027 rimanenza), F8 (WIN015 dettaglio), F9 (stampa), S-F4/S-F5 (personalizzazione/export).
Stampa: report raggruppato per agente con subtotali e totale generale.

Variabili principali¶

Variabile	Tipo	Descrizione
tm-da-age-cod / tm-a-age-cod	9(05)	Intervallo codici agente
tm-da-data / tm-a-data	9(08)	Periodo di riferimento
tm-stato	x(01)	Stato ordini: "A" aperti, "C" chiusi, "T" tutti
tm-rig-ord	x(01)	Tipo righe: "T" tutte, "R" residue
tm-tot-gen	9(12)v9(06)	Totale generale importi
w-tot-age	9(12)v9(06)	Totale per agente
fl-ope-agente	x(01)	Flag operatore associato ad agente
name-trs	x(70)	Nome file COGTRANS di transito
trs-cogs96-name	x(70)	Nome file TRAN-COGS96
n-m	9(04)	Numero righe nella griglia

Documentazione tecnica -- 2026-04-29