COGG14 - Schede Clienti da Modello
Funzione
Visualizzazione e compilazione di schede descrittive strutturate per i clienti potenziali, generate a partire da un modello testuale. Ogni scheda e' identificata da tipo anagrafico + codice cliente + data + numero scheda progressivo (dgn-chia1). Il contenuto delle righe e' archiviato in COGDESGN. Il programma puo' essere eseguito in modalita' standalone o richiamato da COGG03 e altri con i parametri di linkage g14-called/data/scheda/tip/cli (utilg14.cpy).
- Contabilita' > Clienti Potenziali > Schede Clienti da Modello
Parametri di linkage (utilg14.cpy)
| Campo |
Descrizione |
g14-called |
"Y" se richiamato da altro programma |
g14-data |
Data di memorizzazione note (yyyymmdd) |
g14-scheda |
Numero scheda progressivo sul cliente |
g14-tip |
Tipo anagrafico ("C" = cliente potenziale) |
g14-cli |
Codice anagrafico numerico |
Tabelle e file principali
| Tabella |
Descrizione |
Accesso |
| COGDESGN |
Schede descrittive (righe di testo) |
I-O (start, read next, rewrite, write) |
| COGPOTCL |
Anagrafica clienti potenziali |
Input (lettura dati cliente, rd-cpt) |
| COGCLIPT |
Informazioni clienti potenziali |
Input (lettura valori informazioni) |
| COGINFPT |
Definizione informazioni |
Input |
| COGCNDCF |
Configurazione clienti potenziali |
Input |
| COGTABEL |
Tabelle generiche |
Input |
| COGGEANA |
Anagrafica generale |
Input (lookup alternativo) |
| COGAPPOG |
File d'appoggio |
Input |
| FEURTAB |
Tabella generica Eurosystem |
Input |
| INPFIL |
File modello (line sequential) |
Input (caricamento struttura modello) |
Struttura record COGDESGN
| Campo |
Descrizione |
dgn-chia1 |
Chiave: tip + cli + data + scheda + progressivo riga |
dgn-tip |
Tipo anagrafico |
dgn-cli |
Codice cliente |
dgn-data |
Data scheda (yyyymmdd) |
dgn-scheda |
Numero scheda progressivo |
dgn-pro |
Progressivo riga all'interno della scheda |
dgn-des |
Testo della riga (80 caratteri) |
Logica principale
Flusso standalone
- Selezione cliente (
a-10): accept del codice numerico o ricerca per descrizione tramite send-gw02 (COGW02 lookup clienti potenziali).
- Configurazione (
x99-src-cfg / x99-rd-cfg): lettura configurazione da COGCNDCF per determinare il modello da usare.
- Caricamento modello (
load_modello): apertura del file modello (nome_modello), lettura righe e costruzione struttura w-maschera (array di righe con posizioni campi editabili).
- Ricerca sesso e telefono (
src_sex, src_tel): legge le informazioni con codici specifici (configurati in tm-cfg-inf-sex e tm-cfg-inf-tel) da COGCLIPT per precompilare i campi.
- Selezione scheda (
a-30-scheda): se scheda = 0, cerca la prima scheda disponibile (src_scheda). Accept del numero scheda.
- Input data (
a-55-gg, a-55-mm, a-55-aa): immissione data giorno/mese/anno con validazioni (giorno 1-31, mese 1-12, anno >= 1988).
- Caricamento righe esistenti (
a-50): start COGDESGN su dgn-chia1 + loop read next. Carica le righe di testo esistenti nella struttura w-maschera.
- Editing scheda (
a-60-ini, a-70): accept riga per riga tramite acc_riga. Navigazione con TAB/Shift+TAB (avanti/indietro nelle posizioni editabili di ogni riga) e frecce (riga precedente/successiva). Loop gestito tramite tst-fun via tstfun2.cpy.
- Salvataggio (
b-aggiorna): rewrite/write di ogni riga modificata in COGDESGN.
- Cancellazione (
b1-cancella): cancella tutte le righe della scheda da COGDESGN.
Modalita' chiamato (g14-called = "Y")
- Il cliente, tipo, data e scheda vengono preimpostati dai parametri di linkage.
- All'ESC o F3 terminante il programma va a
fine anziche' tornare a a4.
- Mantiene
util-g14 in user-area per trasmettere il contesto al chiamante.
Stampa (f5)
Richiama COGG14P passando i dati correnti (tip, cli, data, scheda) tramite util-g14/user-area. Se gia' in modalita' chiamato, mantiene il flag g14-called = "Y".
Copybook principali
| Copybook |
Contenuto |
feurtab.fd ... coginfpt.fd |
SELECT file (8 file) |
cogfiles.cpy / COGGEANA.CPY ecc. |
FD file |
wstato.cpy / wgrave.cpy / wopenf.cpy / wnscr.cpy |
WS comuni |
cogazien.cpy |
Dati azienda |
utilgw04.cpy |
Interfaccia COGW04 (utilita' generiche) |
utilg14.cpy |
Struttura linkage (g14-called, g14-data, g14-scheda, g14-tip, g14-cli) |
utilgw02.cpy |
Interfaccia COGW02 (ricerca clienti potenziali per descrizione) |
wcont.cpy / wcont1.cpy |
Linkage section |
stato.cpy / winmsg.cpy / grave.cpy |
Gestione errori |
open1.cpy |
Apertura file generica |
mmmask.cpy |
Init/exit programma standalone |
tstfun2.cpy |
Gestione tasti navigazione |
Programmi chiamati (CALL)
| Programma |
Scopo |
| COGG14P |
Stampa della scheda (F5) |
| COGW02 (tramite send-gw02) |
Ricerca cliente potenziale per descrizione |
Note tecniche
- Il programma e' un programma standalone (usa
mmmask.cpy).
- La maschera e' gestita in modo testuale: 25 righe x 80 colonne, posizione 1/1.
- La struttura
w-maschera e' un array dinamico (occurs 0 to 200 depending on wm-ind) con per ogni riga: testo 80 byte, numero campi editabili (wm-ctr), array posizioni campi (wm-arr occurs 35).
- La data viene accettata campo per campo (gg/mm/aa separati) in tre accept distinti.
- Il file modello e' un file line sequential; il path e' letto da configurazione COGCNDCF (
tm-cfg-nom-dat).
- Il campo
tm-ind-sex gestisce la navigazione tra i valori possibili del campo sesso (array tm-ele-sex occurs 20).