COGDB8 - Modifica Agente su Anagrafiche Clienti¶

Sorgente: cbl/cogdb8.cbl | Program-ID: COGDB8 | Tipo: utility interattiva a maschera

Menu: Contabilita' > Archivi & Tabelle > Varie > Modifica Agente Anagrafiche Clienti

Scopo¶

COGDB8 esegue la sostituzione massiva dell'agente assegnato a tutte le anagrafiche clienti (COGGEANA tipo "C") che appartengono a un vecchio agente, aggiornandole con un nuovo agente scelto dall'operatore. L'elaborazione aggiorna il campo ana-agente su COGGEANA e, se la configurazione gestione-amministratore-condominio e' attiva, propaga anche l'email dell'agente sui contatti speciali del cliente (*E per estratto conto, *R per solleciti, *M per messaggistica) su COGRIFER, aggiorna il telefono su COGAPPOG e l'email di fatturazione su COGDESTI. Al termine viene aperto automaticamente il log di elaborazione tramite GESLPRC.

File e tabelle¶

File/Tabella	Copybook	Modalita'	Uso
COGGEANA	`coggeana.fd`, `coggeana.k01`	I/O (scansione + riscrittura)	Anagrafiche clienti: aggiornamento agente e, se condominio, email
COGTABEL	`cogtabel.fd`, `cogtabel.k01`	Input	Verifica esistenza agente (tipo da `k-tipi-cogtabel.cpy`)
COGAPPOG	`cogappog.fd`, `cogappog.k01`	I/O (lettura + riscrittura / scrittura)	Aggiornamento telefono agente sui dati appoggio cliente (solo se condominio)
COGDESTI	`cogdesti.fd`, `cogdesti.k01`	I/O (lettura + riscrittura / scrittura)	Aggiornamento email fatturazione (solo se condominio)
COGRIFER	`cogrifer.fd`, `cogrifer.k01`, `cogrifer.k02`	I/O (scansione k02 + riscrittura / scrittura / cancellazione)	Contatti speciali `E`, `R`, `*M` del cliente (solo se condominio)
FEURTAB	`feurtab.fd`, `cogfiles.cpy`	Utility	File di sistema per gestione maschere

Programmi chiamati¶

Programma	Scopo
COGE35	Ricerca agente tramite F8; riceve codice agente in ingresso, restituisce il codice selezionato in `e35-out-cod`
COGS65W	Gestione campo di ricerca anagrafica fornitore/agente (widget di ricerca per vecchio e nuovo agente)
COGSAD	Numerazione automatica nuovi contatti COGRIFER (operazione "NUMERAZIONE", tipo "C")
GESLPRC	Visualizzazione log di procedura al termine dell'elaborazione (operazione "CONSULTA-PROCEDURA")
SWN004	Sincronizzazione KPN per i contatti COGRIFER modificati (operazione "ESPORTA-KEY")
RNEWCONF	Lettura configurazione RNEWCONF (chiave `clienti / gestione-amministratore-condominio`)

Copybook principali¶

Screen Designer / maschera: - cogdb8.select, cogdb8.fd, cogdb8.wrk, cogdb8.prc, cogdb8.decla, cogdb8-01.scr

Gestionale - tabelle: - coggeana.fd, coggeana.k01 - cogtabel.fd, cogtabel.k01, k-tipi-cogtabel.cpy - cogappog.fd, cogappog.k01 - cogdesti.fd, cogdesti.k01 - cogrifer.fd, cogrifer.k01, cogrifer.k02 - cogfiles.cpy, feurtab.fd

Linkage / interfaccia: - wcont.cpy, wcont1.cpy

Utility / infrastruttura: - wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, cogazien.cpy - utils65.cpy, utile35.cpy, utilcogsad.cpy, utildlg.cpy - utilncnf.cpy, utilgesdebug.cpy, utilagprg.cpy, utilgeslprc.cpy - grave.cpy, mmmask.cpy, opengen.cpy, stato.cpy, stato1.cpy, winmsg.cpy, gesdebug.cpy

Logica di elaborazione¶

Avvio (apri): inizializzazione, lettura configurazione RNEWCONF (gestione-amministratore-condominio), apertura log debug.

Immissione dati (a-tm-age-1 / a-tm-age-2): l'operatore inserisce il vecchio agente e il nuovo agente. F8 apre COGE35 per la ricerca. La validazione (x-controlla-tm-age-1/2) verifica che l'agente esista in COGTABEL come tipo agente e in COGGEANA come fornitore. In modalita' condominio vengono caricati anche email e telefono dell'agente.

Conferma (a-richiesta-conferma): il messaggio di conferma varia a seconda che i due agenti siano uguali (solo aggiornamento mail/telefono) o diversi (cambio agente completo).

Elaborazione massiva (b-00-loop): scansione sequenziale di COGGEANA (tipo "C"). Per ogni cliente con ana-agente = vecchio-agente: - Aggiornamento ana-agente su COGGEANA (sempre). - Se condominio: aggiornamento ana-email su COGGEANA, app-tel su COGAPPOG, dst-email su COGDESTI. - Aggiornamento o inserimento dei contatti *E (mail estratto conto), *R (mail solleciti), *M (mail notifiche) su COGRIFER, con sincronizzazione KPN via SWN004 per ogni modifica. - Il contatore tm-letti / tm-scri viene visualizzato in maschera ogni 100 record.

Fine elaborazione (b-50): chiusura log, apertura automatica GESLPRC per consultazione.

Configurazioni RNEWCONF¶

Gruppo	Chiave	Uso
`clienti`	`gestione-amministratore-condominio`	Se "S": attiva la propagazione di email e telefono dell'agente sui contatti del cliente (COGRIFER, COGAPPOG, COGDESTI)

Riferimento: gestione-amministratore-condominio

Note¶

La scansione di COGRIFER usa la chiave secondaria .k02 (inclusa esplicitamente con copy "cogrifer.k02".).
Il log di elaborazione (gesdebug) registra ogni cliente modificato con codice e nome.
Se un contatto speciale (*E, *R, *M) non esiste e la mail non e' vuota, viene creato tramite COGSAD con numerazione automatica.
Se la mail del nuovo agente e' vuota, il contatto *E o *R eventualmente esistente viene cancellato.

Documentazione tecnica generata -- 2026-07-15