CRMK23 - Gestione raggruppamento statistico dossier¶
Sorgente: cbl/crmk23.cbl | Program-ID: CRMK23 | Tipo: Programma interattivo GUI (gestione tabella di supporto)
Menu: CRM > Archivi > Dossier/Workflow > Raggr. statistico
Scopo¶
Gestisce l'anagrafica dei codici di raggruppamento statistico legati ad un tipo di dossier (tabella CRMDOSRS). Per ogni tipo dossier (tm-tdo) consente inserimento, modifica, cancellazione e copia in blocco delle voci. L'etichetta visualizzata sul campo e nel titolo della maschera (tm-cfg-ragg-stat) e' configurabile via RNEWCONF. Strutturalmente analogo a CRMK14 (mezzi/provenienza) ma su tabella diversa. Puo' essere richiamato anche in modalita' "selezione" da altri programmi (parametro crmk23-called/crmk23-caller).
File e tabelle¶
| File/Tabella | Tipo | Modalita' | Descrizione |
|---|---|---|---|
| CRMDOSRS | ISAM | I-O | Codici raggruppamento statistico per tipo dossier (chiave = tipo dossier + codice) |
| CRMDOSTP | ISAM | Input | Anagrafica tipi dossier (per validazione tm-tdo e descrizione) |
| FEURTAB | ISAM | Input | Tabella features/abilitazioni utente |
Copybook utilizzate¶
| Copybook | Descrizione |
|---|---|
crmk23.select, crmk23.fd, crmk23.wrk |
SELECT, FD, working storage (Screens) |
crmk23-01.scr, crmk23.decla, crmk23.prc |
Screen, declaratives, procedure I/O |
cogfiles.cpy |
Record FEURTAB |
wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy |
Working storage standard |
cogazien.cpy |
Dati azienda |
wgrid.cpy, utilgdad.cpy, utilgrid.cpy |
Supporto griglia (GRIDADMN) |
utilncnf.cpy |
Linkage RNEWCONF |
utilcrmk01.cpy |
Linkage chiamata a CRMK01 (selezione tipo dossier) |
utilcrmk23.cpy |
Linkage di chiamata (called/caller, in/out) |
wcont.cpy, wcont1.cpy |
Linkage standard |
stato, stato1, winmsg, grave, opengen, mmmask |
Infrastruttura standard |
Logica di elaborazione¶
Inizializzazione (apri): Init programma, apertura file, lettura azienda. Lettura configurazione RNEWCONF per il titolo della maschera (tm-cfg-ragg-stat). Se chiamato (crmk23-called = CRMK23), pone a-modalita = "S" (selezione) e precompila tm-tdo con crmk23-in-tdo; altrimenti a-modalita = "A" (aggiornamento). Configura tasti funzione standard (Ctrl+A, Ctrl+E, Ctrl+C/V, F8, F1, Shift+F4).
Selezione tipo dossier (a-tm-tdo): Accept del campo tm-tdo. F8 chiama CRMK01. F1 apre configurazione RNEWCONF. F3 conferma e passa al caricamento griglia.
Caricamento griglia: Scansione di CRMDOSRS filtrata per tipo dossier; accumula le righe in tm-tab (occurs 800).
Loop griglia (a-grid / a-accept-grid): - Invio in modalita' "A" -> modifica riga - Invio in modalita' "S" -> ritorna al chiamante con codice scelto - Ctrl+A -> inserimento - Ctrl+E -> cancellazione (con conferma) - Ctrl+C / Ctrl+V -> copia in blocco da un altro tipo dossier - Shift+F4 -> personalizzazione griglia (GRIDADMN)
Dettaglio riga: Accept codice e descrizione, scrittura/riscrittura su CRMDOSRS, aggiornamento griglia via GRIDADMN.
Chiamate a sottoprogrammi¶
| Programma | Utilizzo |
|---|---|
CRMK01 |
Selezione tipo dossier (F8 su tm-tdo) |
GRIDADMN |
Gestione griglia (prepara, add/modify record, personalizzazione, svuota) |
RNEWCONF |
Lettura configurazione etichetta raggruppamento statistico |
Note implementative¶
- Autore: Gianluca Tonti (17/05/2007).
k-max-ele-tab = 800: dimensione massimatm-tabin memoria.- Programma strutturalmente "gemello" di CRMK14 (stessa logica di gestione, stessi tasti funzione, stessa tabella di lavoro in memoria) ma operante sulla tabella CRMDOSRS anziche' CRMDOSMP.
- L'etichetta personalizzata e' letta da RNEWCONF e usata nel titolo della maschera e nei messaggi di conferma/copia.
- La modalita' "selezione" (richiamato) abilita anche F3 selezione/F3 modifica e Invio seleziona.