ASN008 - Cruscotto gestione anagrafiche clienti¶

Sorgente: cbl/asn008.cbl | Program-ID: ASN008 | Tipo: Programma interattivo (cruscotto / maschera anagrafica clienti Assist)

Menu: Assist 2.0 > Archivi > Clienti Visualizz.

Scopo¶

Cruscotto di consultazione e variazione dell'anagrafica cliente dal punto di vista del modulo Assistenza. Consente di ricercare un cliente (per codice, partita IVA, codice fiscale, denominazione, elenco da COGE08R), di aggiornarne i dati anagrafici principali e di accedere rapidamente alle funzioni operative collegate (matricole, interventi, scadenze, chiamate, commesse, contratti, destinazioni diverse).

La maschera lavora solo in variazione (fl-vario = "V"): tutti i rami di inserimento nuovo cliente sono commentati nel sorgente. Il codice cliente deve gia' esistere in coggeana.

File e tabelle¶

File/Tabella	Tipo	Modalita'	Descrizione / campi chiave
FEURTAB	ISAM	Input	Parametri generali azienda
COGGEANA	ISAM	I-O	Anagrafica clienti; chiave `ana-tipo`+`ana-cod`, chiave 2 `ana-tipo2`+`ana-piva` (usa `coggeana.k03`), campi `ana-nome`/`ana-ind`/`ana-loca`/`ana-cap`/`ana-prov`/`ana-piva`/`ana-cofi`/`ana-zona`/`ana-fascia-trf`/`ana-padre`
COGAPPOG	ISAM	I-O	Dati di appoggio cliente (`app-tip-stt`, `app-tel`, `app-fax`)
COGANAPP	ISAM	I-O	Dati appoggio aggiuntivi (`aap-nr-km-cliente`, `aap-cap`, `aap-loca`)
COGANCAP	ISAM	I-O	Marker per esportazione anagrafica verso KPN
COGTABEL	ISAM	Input	Tabelle di validazione: province (tipo 26), tipologie cliente (tipo 84), zone (tipo 88)
ASNFRIMB	ISAM	Input	Fasce rimborso / trasferte (`afri-cod`, `afri-des`)
LODTMDES	ISAM (temp)	Output/I-O	File temporaneo per gestione note lunghe del cliente (`ltd-tip`/`ltd-cod`/`ltd-len`/`ltd-des`)
COGDESCR	ISAM	Input	Descrizioni/note origine, ricopiate su LODTMDES
TRAN-E08	ISAM (temp)	I-O	Transito con l'elenco clienti trovati da COGE08R per la navigazione avanti/indietro (`trs-e08-cod`, `trs-e08-des`)
ANACLGPS	binary sequential	Output/Extend	File `anaclgps.txt` di export anagrafica verso il programma esterno GPS (ambiente Assist), abilitato dalla config `path-exp-verso-gps`

Copybook utilizzate¶

Copybook	Descrizione
`asn008.select`, `asn008.fd`, `asn008.wrk`, `asn008-01.scr`, `asn008.prc`, `asn008.decla`	Screen Designer
`feurtab.fd`, `cogfiles.cpy`	Parametri azienda
`lodtmdes.fd`/`.cpy`/`.k01`, `tran-e08.fd`/`.cpy`	File temporanei note / transito ricerca
`coggeana.k03`	Chiave secondaria partita IVA di COGGEANA
`wgrave`, `wnscr`, `wopenf`, `wstato`, `cogazien`, `utilncnf`	Working storage standard + dati azienda + config
`utilcrm030.cpy`	Linkage CRM030 (scheda CRM su clienti potenziali)
`utile08r`, `utilf01`, `utilf10`, `utilw06`, `utilzde`, `utilagprg`	Linkage moduli di ricerca / utility
`utilasn019`, `utilasn110`, `utilasn200`, `utilasn210`, `utilasn220`, `utilasn230`	Linkage moduli Assist collegati
`utils43`, `utils44`, `utils65`	Linkage gestori descrizioni / help codice
`utilu35w.cpy`, `utilm79.cpy`	Linkage commesse (WIN129) / destinazioni diverse (COGM79)
`wcont.cpy`, `wcont1.cpy`	Linkage standard maschera; `user-area` reinterpretata come `util-e32` (`e32-tip`/`e32-cod`) per ricevere un cliente in ingresso
`grave`, `mmmask`, `opengen`, `stato`, `stato1`, `winmsg`, `sendw06`	Chiusura procedure division

Logica¶

Flusso principale¶

apri: init programma, ctr-abil per l'abilitazione, apertura file, x99-confi per la lettura configurazioni, creazione dei pulsanti custom (F1/F6/F7/F9 e Shift+F5/Shift+F6), preparazione file temporanei LODTMDES e TRAN-E08.
a4: reset stato, disattivazione pulsanti, avvio in variazione. Se il chiamante ha passato e32-cod (cliente pre-impostato via user-area) salta direttamente a a-inizio-dati.
a-tm-ana-cod: accept del codice cliente con help via COGS65W (z-s65-tm-ana-cod). F5 apre l'elenco clienti (COGE08R) e attiva la navigazione a scorrimento; F2 riprova.
a-inizio-dati: lettura coggeana; se il cliente esiste (fl-vario = "V") carica note (COGZDEW su LODTMDES), COGAPPOG e COGANAPP, visualizza i dati (x1-vis) e attiva i pulsanti operativi.
Accept dei singoli campi (a-tm-ana-nome ... a-tm-nr-km): ogni campo ha il proprio paragrafo con controllo x-controlla-..., colorazione errore e gestione F2 (campo precedente), Esc (torna a a4), mouse (x-test-mouse).
a-fine-inserimento: su F3 aggiorna coggeana (rwr-coggeana), allinea le descrizioni via COGS44, aggiorna COGANCAP, eventualmente esporta verso GPS (esporta-dati-gps), aggiorna COGAPPOG e COGANAPP, quindi torna a a4.

Ricerca a scorrimento (elenco COGE08R)¶

a1-init-ric apre TRAN-E08 (popolato da COGE08R con la lista dei clienti che soddisfano i filtri) e naviga con a2-ric-next / a2-ric-prev (PgDn/PgUp), aggiornando il contatore "n of m" in tm-disp-conta. Per ogni cliente scorso invoca POSTIT (area 'A') e ricarica i dati con disp-ctr-ric/x1-vis.

Validazioni campo (`x-controlla-*`)¶

Codice/partita IVA/codice fiscale: controllo formale via COGE05; unicita' partita IVA su chiave 2 di COGGEANA.
Provincia: esistenza in COGTABEL tipo 26 (non obbligatoria, per consentire clienti esteri).
Tipologia cliente: COGTABEL tipo 84; zona: COGTABEL tipo 88; fascia trasferta: ASNFRIMB; padre: COGGEANA.
Personalizzazione "TI" (Torricelli Impianti): i clienti di assistenza hanno codice >= 50.000.

Configurazioni (`x99-confi`)¶

Legge 22 chiavi via RNEWCONF (gruppi ODONTO/PROGCOG08C/CLIENTI/ASSIST/ass-chiam/areaapp). Le piu' rilevanti: path-exp-verso-gps (abilita export GPS), modo-ricerca-matricola (passata ad ASN200), agg-postgres-online (sincronizzazione online KPN via SWN070).

CALL a sottoprogrammi¶

Programma	Contesto
COGE08R	Ricerca clienti, produce l'elenco su TRAN-E08
COGS65W	Help/gestione campo codice e campo padre
COGS44	Allineamento descrizioni cliente
COGE05	Controllo formale partita IVA / codice fiscale
COGF01	Selezione zona
COGF10	Selezione tipologia cliente
ASN019	Selezione fascia rimborso trasferte
COGZDEW	Gestione note lunghe su file di lavoro
POSTIT	Post-it / note area applicativa
CRM030	Scheda CRM (attiva se `az-cli-pot = "S"`, F12 sui campi)
COGD20	Dettaglio cliente (F5 pagina dati)
ASN200	Visualizzazione matricole cliente (F1)
ASN230	Visualizzazione interventi (F6)
ASN210	Visualizzazione scadenze (F7)
ASN110	Inserimento nuova chiamata (F9)
WIN129	Visualizzazione commesse cliente (Shift+F5)
ASN220	Visualizzazione contratti cliente (Shift+F6)
COGM79	Destinazioni diverse (Shift+F8)
SWN070	Sincronizzazione online anagrafica verso KPN
RNEWCONF	Lettura configurazioni

Note¶

Programma di sola variazione dell'anagrafica: l'inserimento di nuovi clienti si fa dalle funzioni di Contabilita' (rami di inserimento presenti ma disattivati nel sorgente).
L'export verso GPS (esporta-dati-gps) scrive su anaclgps.txt solo se cambiano indirizzo, localita', provincia o CAP e la config path-exp-verso-gps e' valorizzata.
La maschera e' organizzata a pagine tramite tab control: i controlli di x-test-mouse sono suddivisi per range di control-id (100-199 chiave, 200-299 dati).
La ricerca per destinazione diversa puo' restituire lo stesso cliente piu' volte.