COGM79 — Destinazioni Diverse¶

Sorgente: cbl/cogm79.cbl | Tipo: Programma interattivo a griglia (gestione tabella) | Program-ID: COGM79

Menu: Contabilita' > Archivi & Tabelle > Varie > Destinazioni Diverse

Scopo¶

Gestisce le destinazioni diverse associate a un'anagrafica (cliente/fornitore): indirizzi di corrispondenza, di consegna merce, giri (pasticcerie), fatturazione. Per l'anagrafica selezionata presenta in griglia l'elenco delle destinazioni con ragione sociale, indirizzo, CAP/localita'/provincia, nazione, contatti (telefono, fax, email, skype), fascia/zona, agente, coordinate geografiche, orari di apertura e flag di destinazione predefinita. L'operatore aggiunge (CTRL-A), elimina (CTRL-E) e modifica le destinazioni; con F7 imposta il default, con F12 cerca CAP/localita', con SHIFT-F2 gestisce gli orari di apertura e con SHIFT-F5 le commesse. I dati sono persistiti su COGDESTI (testata) e COGDEST2 (dati estesi).

File e tabelle principali¶

File/Tabella	Copybook	Uso
COGDESTI	`cogdesti.cpy`	Destinazioni diverse. Chiave `dst-chia1` = tipo anagr. + codice + tipo destinazione (`dst-id-tip`: C=Corrispondenza, D=Merce, G=Giro, F=Fatture) + id (`dst-id-idx`). Contiene rag. sociale, indirizzo, CAP, localita', provincia, `dst-fl-default`, `dst-fl-canc`, email, CAP alfanumerico
COGDEST2	`cogdest2.cpy`	Dati estesi della destinazione: orari di apertura (giorni mattina/pomeriggio), contatti aggiuntivi, coordinate, note, agente, ecc.
COGGEANA	(in feurtab)	Anagrafica cliente/fornitore, per nome e indirizzo (`rd-coggeana`/`rwr-coggeana`)
COGANCAP	(in feurtab)	Appoggio CAP/localita' anagrafico (`rd-cogancap`/`wr`/`rwr`)
COGTABEL	`k-tipi-cogtabel.cpy`	Tabelle di codifica (zone, fasce) lette con `rd-cogtabel`
ASNFRIMB	(in feurtab)	Aperto in input solo se `az-assist = "S"` (rimborsi/fasce assist)
feurtab	`cogfiles.cpy`	Contenitore file indicizzati standard

Parametri di linkage (chiamata da altri programmi)¶

procedure division using stringhe con copy "utilm79.cpy". Quando m79-called = "COGM79-CALLED" il programma parte gia' posizionato:

m79-nuova ("S" → w-dc-nuova) — apertura in inserimento nuova destinazione;
m79-tipo / m79-cod — anagrafica su cui posizionarsi;
m79-tipo-destinazione — tipo destinazione preselezionato.

Flusso principale¶

apri (main): init, apertura file (ASNFRIMB se assist), lettura configurazioni (x99-confi), caricamento bitmap e pulsanti custom (F12 Ricerca CAP/Localita', SHIFT-F2 Orari di Apertura, SHIFT-F5 Commesse), mappatura parametri di linkage.
a4: reset griglia; se chiamato, precarica tipo/codice anagrafica.
Accept di tipo anagrafico (a-tm-ana-tipo, via COGS60) e codice (a-tm-ana-cod, aiuto via COGS65W).
a-inizio-dati: caricamento della griglia con le destinazioni dell'anagrafica da COGDESTI (st-cogdesti / rdnxt), integrate dai dati estesi di COGDEST2.
Gestione interattiva della griglia con accept cella per cella (provincia, nazione, fascia, agente, zona, ecc.), ciascuno con il proprio aiuto F8.
Conferma e aggiornamento su COGDESTI/COGDEST2 (wr/rwr/del), con eventuale clonazione su altri ambienti.

Sottoprogrammi chiamati (aiuti e servizi)¶

Programma	Ruolo
WIN161	Ricerca CAP / localita' (F12 e aiuti sui campi indirizzo)
COGF09	Ricerca provincia (aiuto F8 su campo provincia)
COGE04	Ricerca nazione (aiuto F8 su campo nazione)
ASN019	Ricerca fascia (aiuto F8 su campo fascia)
COGE35	Ricerca agente (aiuto F8 su campo agente)
COGF01	Ricerca/gestione zona
COGU34	Servizi anagrafici / geocoding coordinate
WIN129 (util-u35w)	Gestione commesse (SHIFT-F5)
COGEA2 (util-cogea2)	Agenda / orari di apertura (SHIFT-F2)
GESSTR	Costruzione chiavi di ricerca testo (operazione `CERCA-PREPARA`)
GETADDR	Geocoding indirizzo → coordinate
copiaana	Clonazione destinazione su altri ambienti
SWN041	Sincronizzazione destinazione verso APP/Areagate (`util-agprg`)
COGS65W / COGS60	Aiuto anagrafica / gestione combo
GRIDADMN	Configurazione/personalizzazione griglia
RNEWCONF	Lettura configurazioni

Configurazioni (RNEWCONF)¶

Il paragrafo x99-confi legge (via RNEWCONF):

tipo CAP (tm-cfg-tipo-cap) — se "N" richiede almeno CAP/localita'/provincia;
abilita / copiaana, copiaana-conf, copiaana-source-name, copiaana-destination-name (fino a 10 destinazioni) — clonazione della destinazione su altri ambienti (stessa logica di COGD20);
abilita / attiva-areaapp (tm-cfg-areaapp) — integrazione con Areagate/APP;
abilita / gestione-pasticcerie (tm-cfg-gest-pasticcerie) — abilita la gestione dei giri (destinazioni tipo "G").

Note¶

La griglia usa il file di transito standard wgrid.cpy (tm-tab, fino a k-max-ele-tab = 5000 righe) ed e' paginata.
Le coordinate geografiche (tm-r-latitudine/tm-r-longitudine) sono gestite tramite GETADDR/COGU34 e visualizzabili su mappa (browser, utilbrws.cpy).
La sincronizzazione verso l'APP/Areagate avviene chiamando SWN041 con l'area util-agprg (on overflow continue), coerente con il pattern di esportazione chiave degli altri gestori anagrafici.
Le cancellazioni sono logiche (dst-fl-canc).