COGG06 - Appunti su Cliente Potenziale per Data¶
Sorgente: cbl/cogg06.cbl | Program-ID: COGG06 | Tipo: interattivo a maschera (character-mode)
Menu: Contabilita' > Clienti Potenziali > Appunti su Cliente per Data
Scopo¶
COGG06 gestisce le note (appunti) associate a un cliente potenziale per una specifica data. Il programma puo' essere eseguito in modalita' autonoma (l'operatore digita il codice cliente e la data) oppure richiamato da un altro programma tramite linkage (g06-called = 'COGG06-CALLED'). Supporta due tipi di elaborazione: note generali del cliente (g06-tip-ela = 'N') e appunti per data (g06-tip-ela = 'A'). Le note sono memorizzate su COGDESPT e gestite con cancellazione e reinserimento completo ad ogni aggiornamento.
File e tabelle¶
| File/Tabella | Copybook | Modalita' | Uso |
|---|---|---|---|
| FEURTAB | feurtab.fd, cogfiles.cpy |
input | Tabella file environment |
| COGTABEL | cogtabel.fd, cogtabel.cpy |
input | Tabella agenti (tipo 21, per ricerca agente) |
| COGGEANA | coggeana.fd, COGGEANA.CPY |
input | Anagrafica generale (nome cliente/agente) |
| COGDESPT | cogdespt.fd, COGDESPT.CPY |
i-o | Testo descrittivo per data/cliente (note appunti) |
| COGCLIPT | cogclipt.fd, COGCLIPT.CPY |
input | Anagrafica cliente potenziale (descrizione) |
Programmi chiamati¶
| Programma | Scopo |
|---|---|
| COGS52 | Subroutine accettazione data (con call/cancel) |
Copybook principali¶
Linkage:
- WCONT.CPY, WCONT1.CPY (parametri g06-called, g06-tip-ela, g06-data, g06-tip, g06-cli)
Utility:
- utilg06.cpy (area util-g06)
- utils52.cpy (area util-s52 per input data)
- UTILW08.CPY (area util-w08, per ricerca agente -- codice presente ma non attivo in produzione)
- utilgw02.cpy (area util-gw02, per ricerca cliente per descrizione)
Gestionale standard:
- wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy, cogazien.cpy
- stato.cpy, stato1.cpy, winmsg.cpy, grave.cpy, open1.cpy, mmmask.cpy
- cogtabel.k01, coggeana.k01, cogclipt.k01, cogdespt.k01
- dtab.cpy, tstfun1.cpy, sendgw02.cpy, SENDW08.CPY, SCREE.CPY
Logica di elaborazione¶
Avvio: apertura file, lettura azienda; se g06-called = 'COGG06-CALLED', carica codice e tipo cliente da linkage e visualizza direttamente il form note (paragrafo a-50). Se g06-tip-ela = 'A' e g06-data e' valorizzato, salta alla visualizzazione note senza richiedere la data.
Ricerca cliente (a-10): in modalita' autonoma, accept del codice numerico cliente; se zero, accept della descrizione con ricerca per stringa via send-gw02 (COGG04-like). Conferma con rd-cogclipt (record cpt-rec).
Accettazione data (a-20-gg): chiamata a COGS52 (con call/cancel) per input data nel formato AAAAMMGG; posizionamento a riga 3, colonna 12 della maschera.
Caricamento note (a-50/a-50-loop): scan di COGDESPT con st-cogdespt-may su chiave dpt-tip + dpt-cli + dpt-data + dpt-pro; le righe trovate vengono caricate in tmr-not (1..100) (70 caratteri per riga, max 100 righe).
Modifica note (a-60/a-70): presentazione e accept multiriga in maschera character-mode. Navigazione con Su/Giu/PgUp/PgDwn. F3 conferma e avvia b-aggiorna.
Aggiornamento (b-aggiorna): cancellazione di tutti i record esistenti su COGDESPT per la chiave cliente+data (b1-cancella), poi reinserimento di tutte le righe non vuote (b2-ins-not) con dpt-fl-agg = 'W' (write, con rewrite in caso di key gia' esistente).
Finestra grafica (c-window-grafica): F1 apre una finestra floating con controllo multiline e-tm-righe (entry-field multiline, max 100 righe, 6000 caratteri) per editing piu' comodo. F3 dalla finestra chiude e torna alla maschera principale.
Note¶
- La chiave di COGDESPT e' composta da
dpt-tip + dpt-cli + dpt-data + dpt-pro(progressivo riga). - Il codice di ricerca agente (
send_age, F7/F8/F9) e' presente nel sorgente ma disabilitato (*>*comments). - Quando
g06-tip-ela = 'N'(note cliente, non per data),dpt-datae' zero: il campo data non viene mostrato e non si chiede all'operatore.
Documentazione tecnica generata -- 2026-07-15