COGO34 -- Clienti Senza Ordini¶
Sorgente: cbl/cogo34.cbl | Tipo: Interattivo | Program-ID: COGO34
Menu:
- Ordini > Clienti > Visualizzazioni > Clienti Senza Ordini
Scopo¶
Visualizzazione interattiva dei clienti che non hanno effettuato ordini a partire da una certa data, filtrati per tipologia statistica. Crea un file di transito indicizzato con l'elenco dei clienti trovati e li presenta in griglia paginata con possibilita' di stampa.
File e tabelle¶
| File/Tabella | Tipo | Modalita' | Descrizione |
|---|---|---|---|
| FEURTAB | Sistema | Input | Tabella di sistema |
| File da cogo34.select | Dati | I-O | COGGEANA, COGAPPOG, COGTESOR, COGTABEL |
| COGTRANS | Temp | I-O | File transito indicizzato: nopre + codice cliente + data |
| FLSTA | Stampa | I-O | File di stampa |
Programmi chiamati¶
| Programma | Scopo |
|---|---|
| COGF10 | Ricerca in tabella (per tipologia cliente) |
| GRIDADMN | Gestione griglia avanzata (preparazione, add-record, personalizzazione, export) |
| COGS54 | Configurazione stampa |
Copybook principali¶
- cogo34.select, cogo34.fd, cogo34.wrk, cogo34.prc, cogo34-01.scr, cogo34.decla
- cogfiles.cpy, cogazien.cpy, wstato.cpy, wopenf.cpy, wgrave.cpy, wnscr.cpy
- wgrid.cpy, utilgdad.cpy
- utils52.cpy, utils54.cpy, utilf10.cpy
- k-u10.cpy
- flsta.fd, flsta.cpy
- cogtrans.k01, cogtesor.k02
- dtab.cpy, fscrol2.cpy, utilpggr.cpy
- wcont.cpy, wcont1.cpy
Struttura del programma¶
Flusso principale¶
-
Inizializzazione (
apri): apre file, carica lingua. Crea nome file transito nella directory temp con formato#$COGO34.<operatore>. Configura tasti funzione (F3, F5, F8, F9, S-F4, S-F5). -
Accept filtri (
a-tm-app-tip-stt,a-tm-da-data): tipologia cliente (da tabella tipo 84, con ricerca F8 tramite COGF10), data di inizio. -
Creazione file di transito (
b-elabora): per la tipologia scelta, scorre l'anagrafica clienti (COGGEANA di tipo "C"). Per ogni cliente verifica tramite COGAPPOG se appartiene alla tipologia richiesta. Poi cerca se esiste almeno un ordine (COGTESOR chiave 2) a partire dalla data indicata. Se non trova ordini, aggiunge il cliente al file COGTRANS con: codice, ragione sociale, telefono e fax. -
Visualizzazione griglia (
vis-tabella-ini): griglia spaginata fino a 100 elementi. Se nessun cliente trovato, mostra messaggio e torna ai filtri. -
Stampa (F9): report con intestazione (data, azienda, tipologia), elenco clienti senza ordini e conteggio totale.
Variabili principali¶
| Variabile | Tipo | Descrizione |
|---|---|---|
| tm-app-tip-stt | x(02) | Codice tipologia statistica cliente |
| tm-des-categ | x(30) | Descrizione tipologia |
| tm-da-data | 9(08) | Data a partire dalla quale verificare assenza ordini |
| k-euta-tipo | 9 | Costante tipo tabella per tipologia (84) |
| k-euta-cod-1 | x(01) | Costante "C" (tipo anagrafica clienti) |
| name-trs | x(70) | Nome file COGTRANS di transito |
| t-ana-cod | 9(05) | Codice cliente in elaborazione |
| t-ana-ragsoc | x(40) | Ragione sociale |
| n-m | 9(04) | Numero righe nella griglia |
Documentazione tecnica -- 2026-04-29