COGE08C — Gestione anagrafica clienti (Co.Ge.)¶

Sorgente: cbl/coge08c.cbl | Tipo: interattivo a maschera | Program-ID: coge08c

Menu: Contabilita' > Archivi & Tabelle > Clienti ; Contabilita' > Unione soci/clienti > Attivita' in Zona > Anagrafica clienti ; Vendite > Centro Revisioni > Tabelle > Clienti

Scopo¶

E' il gestore dell'anagrafica clienti contabile: inserimento, modifica, cancellazione, ricerca e stampa delle anagrafiche cliente memorizzate nell'archivio generale anagrafico COGGEANA (tipo cliente). La maschera e' organizzata a tab control su piu' pagine e copre l'intera scheda cliente: dati generali (ragione sociale, indirizzo, CAP/localita', partita IVA, codice fiscale, natura giuridica), condizioni commerciali e contabili (divisa, fido, listino, sconti, provvigioni, banca/effetti, dilazioni), destinazioni diverse, contatti, dati PEC/fatturazione elettronica, orari di apertura, attivita' CRM e collegamenti verso altri ambienti applicativi (consorzi, assistenza, tessile, pasticcerie).

Data la larghezza funzionale, il programma coordina numerosi sottoprogrammi di dettaglio (sconti, condizioni particolari, contatti CRM, tariffe trasporto, contropartite, duplicazione anagrafica) e adatta pulsanti e pagine visibili in base alla configurazione dell'ambiente (az-consorzi, az-assist, az-tessile, az-personal). Puo' anche essere richiamato da altri programmi (es. inserimento da cliente potenziale, w-dc-ope = "Ins-da-clipot").

File e tabelle principali¶

File/Tabella	Copybook	Uso
`COGGEANA`	(FD in `cbl/screens/coge08c.fd`) + `coggeana.k02`/`.k03`/`.k05`	Archivio anagrafico principale (`ana-rec`): `ana-tipo`+`ana-cod` (chiave), `ana-nome`/`ana-nome2`, `ana-ind`, `ana-loca`/`ana-prov`/`ana-cap`, `ana-cofi`, `ana-piva`, `ana-natgiur`, condizioni commerciali/contabili. Chiavi secondarie per nome e partita IVA
`COGTABEL` (feurtab)	`cogfiles.cpy` / `k-tipi-cogtabel.cpy`	Tabelle di supporto (categorie, agenti, cause, tipi normativa ecc.)
`COGDESTI` / `COGDEST2`	(FD screens)	Destinazioni diverse del cliente (`dst-rec`), cancellate in cascata
`COGRIFER` / `COGRIFE2`	(FD screens) + `cogrifer.k02`	Riferimenti/referenti cliente
`COGSCONT` / `COGSCOCF` / `COGCNDCF`	(FD screens)	Sconti, condizioni per cliente/fornitore
`COGAGZON` / `COGANAAG` / `COGANAGS`	(FD screens) + `cogagzon.k02`	Aree/agenti/zone associati al cliente
`COGORARI`	(FD screens)	Orari di apertura del cliente
`CAPMAGAZ`/`CAPTABEL`/`CAPFIDO`/`CAPLOGFD`	`capazien.cpy` (FD screens)	Archivi consorzi (aperti solo se `az-consorzi = "S"`)
`ASNFRIMB`	(FD screens)	Archivio assistenza (aperto solo se `az-assist = "S"`)
`CRMINFOR`/`CRMANAGR`/`CRMANANF`/`CRMANANN`	(FD screens) + `crmanagr.k03`	Anagrafiche/contatti CRM
`LODTMDES`	`lodtmdes.cpy` / `lodtmdes.k01`	Tabella temporanea di descrizioni
`TRAN-E08`	`tran-e08.cpy`	Tabella temporanea di lavoro del programma
`ANACLGPS`	(FD inline `cgps-record`)	File di export anagrafica verso il programma esterno GPS (ambiente Assist)

Copybook di working/servizio principali: coge08c.wrk (in cbl/screens/), costanti-clipot.cpy, cogazien.cpy, e le numerose strutture di interscambio util* verso i sottoprogrammi chiamati (utile08c.cpy, utilcrms12.cpy, utildupcli.cpy, utilcopiaana.cpy, utilcoge08v.cpy, ecc.). Il modulo compila con opzione -big (dimensione codice elevata).

Flusso principale¶

apri — inizializzazioni, z-99-init-program, open-files; se ambiente consorzi/assistenza apre i relativi archivi (con messaggi di errore per apertura fallita); imposta tutti i tasti funzione della maschera (F1 sconti/configura, F3 conferma/aggiorna, F4 cancella, F5 ricerche/note, F6 scheda, F8 aiuto/calendario/nuovo/dettaglio, F9 stampa/ricerca avanzata, PgUp/PgDn, Shift-F1 copia/duplica, Shift-F7 contatti, Shift-F8 destinazioni); recupera divisa di conto (COGU10W) e restrizioni operatore (CRMS12); carica bitmap e pulsanti custom.
a4 — reset della scheda per una nuova consultazione: azzera la maschera (tab-maschera), reimposta la tab-control alla pagina 1, disattiva i tasti/pulsanti di modifica, prepara i menu custom per ambienti dedicati (es. k-personal-artic-seals), attiva la sola conferma. E' il punto di ripartenza dopo ogni operazione.
Accept della chiave e ricerca — l'operatore digita/ricerca il cliente (per codice, per nome via chiave secondaria, o ricerca avanzata); alla lettura di COGGEANA (rd-coggeana) la scheda viene popolata sulle pagine del tab.
Accept dei campi scheda — sequenza di paragrafi a-tm-* sulle varie pagine (dati generali, IVA/codice fiscale, condizioni, banca, ecc.), ciascuno con controlli e aiuti (chiamate a subroutine di dettaglio via F-key).
a-fine-dati-ins — al termine dell'inserimento/modifica travasa i campi di maschera nel record ana-rec e salva: in inserimento (fl-vario = "I") wr-coggeana (con verifica abilitazione w-abi-ins), in variazione (fl-vario = "V") rwr-coggeana (con w-abi-agg); gestisce eventuale export verso GPS se configurato (tm-cfg-path-exp-gps).
cancella — verifica la cancellabilita' tramite COGE08V, controlla l'abilitazione (w-abi-del), conferma, propaga la cancellazione agli altri ambienti (DUPCLI operazione CANCELLA), poi del-coggeana e cancellazione in cascata di destinazioni/riferimenti collegati.
fine / z-chiudi — chiusura file e finestra, z-99-exit-program, exit program.

Sottoprogrammi chiamati¶

Il programma effettua un numero elevato di CALL; i principali per ruolo:

Programma	Ruolo
`COGU10W`	Divisa di conto, cambi ed editing importi
`COGS44` / `COGS43` / `COGS65W` / `COGS10`	Subroutine di aiuto/gestione tabelle e codici
`CRMS12` / `CRMS06` / `CRMS03` / `CRM030` / `CRM051`	Restrizioni operatore e gestione anagrafiche/contatti CRM
`COGE05` / `COGE04` / `COGE22`	Gestioni contabili collegate al cliente
`COGE08R` / `COGE08V` / `COGE08D` / `COGE08DU` / `COGE08V`	Ausiliari specifici anagrafica cliente (ricerca, verifica cancellabilita', dettagli, duplicazione)
`DUPCLI` / `COPIAANA` / `DUPCLI`	Duplicazione/copia e cancellazione propagata dell'anagrafica su piu' ambienti
`COGSAD` / `COGSA...` / `GESSTR`	Servizi di sistema (indirizzi, stringhe)
`WIN161` / `WIN162` / `WIN022` / `WIN067` / `DIALOGS` / `W$MENU`	Finestre di dialogo, ricerche e menu a tendina
`SWN070` / `SWN004` / `SWA031` / `VPA008`	Interfacce verso servizi/ambienti esterni
`GETADDR` / `MTPCF` / `RNEWCONF`	Indirizzi, codice fiscale, lettura configurazioni

(Elenco non esaustivo: il sorgente contiene decine di CALL di dettaglio attivate dai singoli tasti funzione della maschera.)

Note¶

Sorgente molto grande (circa 23.700 righe) e in stile legacy: fa uso estensivo di GO TO (ritorno a a4, salti fra gli accept, x-test-mouse) e di PERFORM ... THRU (es. c-crea-menu thru ex-c). Da non replicare nei nuovi sviluppi.
La struttura file/anagrafiche collegate e' generata da Screens: SELECT e FD dei file gestiti stanno in cbl/screens/coge08c.select e cbl/screens/coge08c.fd, non in cpy/. Le chiavi secondarie (coggeana.k02/.k03/.k05, cogrifer.k02, cogmercl.k02, cogagzon.k02, coganap2.k02, crmanagr.k03) sono incluse manualmente a fine procedure division.
L'archivio ANACLGPS e i relativi paragrafi di export (esporta-dati-gps) sono attivi solo se e' configurato il percorso tm-cfg-path-exp-gps (integrazione ambiente Assist con il programma esterno GPS).
La cancellazione non e' immediata: passa da COGE08V (verifica movimenti/vincoli) e da DUPCLI per propagare la cancellazione agli altri ambienti applicativi collegati.
Comportamenti e pagine visibili variano in base alla configurazione azienda (az-consorzi, az-assist, az-tessile, az-personal, tm-cfg-gest-pasticcerie): la stessa maschera serve piu' scenari commerciali.