COGD47 — Legali (Tabella)
Sorgente: cbl/cogd47.cbl | Program-ID: COGD47 | Tipo: Programma di gestione tabella con griglia
Menu: Contabilita' > Archivi & Tabelle > Tabelle > Legali
Scopo
Gestisce la tabella dei legali (tipo "AL" in COGTABEL). Consente l'inserimento, la modifica, la cancellazione e la selezione di elementi tramite un'interfaccia a griglia. Il programma puo' funzionare in modalita' standalone (aggiornamento) o chiamato da un altro programma (selezione + aggiornamento).
Struttura della maschera
Griglia principale
| Colonna |
Campo |
Descrizione |
| Codice |
tm-cod |
Codice legale (3 caratteri) |
| Descrizione |
tm-des |
Descrizione/nome del legale (40 caratteri) |
Dettaglio (frame sotto la griglia)
| Campo |
Variabile |
Descrizione |
| Codice |
tm-cod (i) |
Codice legale (editabile solo in inserimento) |
| Descrizione |
tm-des (i) |
Descrizione legale |
Logica di elaborazione
Modalita' di funzionamento
- Standalone (
w-dc-called = "N"): modalita' aggiornamento, con inserimento (Ctrl+A), modifica (Invio), cancellazione (Ctrl+E)
- Chiamato (
w-dc-called = "S"): modalita' selezione iniziale (Invio seleziona e restituisce d47-out-cod/d47-out-des), con possibilita' di passare in modalita' aggiornamento (F3) e viceversa
Flusso principale
- Caricamento: lettura sequenziale di COGTABEL tipo "AL", caricamento in tabella
tm-tab (max 900 elementi)
- Visualizzazione: la tabella viene mostrata in griglia tramite GRIDADMN
- Operazioni:
- Inserimento (Ctrl+A): aggiunge una riga, accetta codice (obbligatorio, univoco) e descrizione, poi scrive su COGTABEL con
wr-cogtabel
- Modifica (Invio): apre il dettaglio con codice non editabile, modifica descrizione, poi aggiorna con
rwr-cogtabel
- Cancellazione (Ctrl+E): con conferma, elimina da COGTABEL con
del-cogtabel
- Selezione (Invio in modalita' selezione): restituisce codice e descrizione al programma chiamante
Interfaccia chiamata
| Campo linkage |
Descrizione |
d47-called |
Deve essere = k-program-id per attivare modalita' chiamata |
d47-caller |
Programma chiamante |
d47-out-cod |
Codice selezionato in uscita |
d47-out-des |
Descrizione selezionata in uscita |
File utilizzati
| File |
Accesso |
Scopo |
| COGTABEL |
I-O |
Tabella legali (tipo "AL") |
Programmi chiamati
| Programma |
Scopo |
| GRIDADMN |
Gestione griglia (prepara, svuota, aggiungi, modifica, personalizzazione SF4) |
Copybook principali
cogd47.wrk, cogd47.select, cogd47.fd, cogd47.decla, cogd47-01.scr, cogd47.prc, cogazien.cpy, utilgdad.cpy, utilgrid.cpy, utild47.cpy, wgrid.cpy
Note
- Il tipo COGTABEL utilizzato e' "AL" (tipo alfanumerico a 2 caratteri, salvato in
euta-tipo-x).
- Il codice e' editabile solo in inserimento; in modifica il campo viene disabilitato.
- La griglia supporta il ridimensionamento della finestra (
ntf-resized in z-99-event-form-1).
- Max 900 elementi in tabella (
k-max-ele-tab).