COGV04 - Contropartite Contabili
Sorgente: cbl/cogv04.cbl | Program-ID: COGV04 | Tipo: Interattivo (tabella con griglia)
Menu: Contabilita' > Archivi & Tabelle > Tabelle > Contropartite > Co/Ge
Scopo
Gestione della tabella delle contropartite contabili (tipo COGTABEL con euta-tipo = 16). Ogni record associa un codice di contropartita a un conto del piano contabile (mastro/conto/sottoconto) e a un tipo (Vendita, Acquisto, Diverse). Supporta sia la modalita' di aggiornamento che la modalita' di selezione quando richiamato da altri programmi.
File e tabelle
| File/Tabella |
Tipo |
Modalita' |
Descrizione |
| FEURTAB |
Tabella |
Input |
Tabella generale Eurosystem |
| COGTABEL |
Tabella |
I-O |
Tabella contropartite (euta-tipo = 16) |
| COGPNCON |
Tabella |
Input |
Piano conti (per decodifica descrizione) |
I file acceduti sono quelli dichiarati in cogv04.select tramite Screen Designer.
Copybook utilizzate
| Copybook |
Descrizione |
cogfiles.cpy |
Struttura generica FEURTAB |
cogv04.select |
SELECT file generati da Screens |
cogv04.fd |
FD file generati da Screens |
cogv04.wrk |
Working storage generata da Screens |
cogv04-01.scr |
Maschera grafica |
cogv04.decla |
Declaratives |
cogv04.prc |
Procedure copy generate da Screens |
wstato.cpy |
Working stato |
wgrave.cpy |
Working errori gravi |
wgrid.cpy |
Working griglia |
wopenf.cpy |
Working apertura file |
wnscr.cpy |
Working screen |
cogazien.cpy |
Dati azienda |
utils67.cpy |
Interfaccia COGS67W (ricerca piano conti) |
utilgdad.cpy |
Interfaccia GRIDADMN |
Linkage
| Copybook |
Descrizione |
wcont.cpy |
Contesto chiamante |
wcont1.cpy |
Contesto esteso |
utilv04.cpy |
Interfaccia di chiamata COGV04 (parametri selezione) |
Struttura del programma
Variabili della maschera (tab-maschera)
| Variabile |
PIC |
Descrizione |
tm-ele-sav |
X(1000) |
Salvataggio riga per annullamento modifiche |
tm-pnt |
9(04) |
Puntatore numero elementi caricati |
tm-cod |
9(03) |
Codice contropartita |
tm-pco-mas |
9(02) |
Mastro del piano conti |
tm-pco-con |
9(02) |
Conto del piano conti |
tm-pco-sot |
9(06) |
Sottoconto del piano conti |
tm-pco-des |
X(40) |
Descrizione del conto (display) |
tm-tip |
X(01) |
Tipo: "V"=Vendita, "A"=Acquisto, "D"=Diverse |
Costanti
| Costante |
Valore |
Descrizione |
k-euta-tipo |
16 |
Tipo record in COGTABEL per contropartite |
k-max-ele-tab |
900 |
Numero massimo righe griglia |
Flusso principale
- apri - Inizializzazione (
z-99-init-program), controllo abilitazione, apertura file
- Determinazione modalita': se
v04-called = k-program-id → modalita' Selezione ("S"), altrimenti Aggiornamento ("A")
- a10 - Caricamento da COGTABEL: scansione sequenziale di tutti i record con euta-tipo = 16, filtro per tipo se in selezione
- a30 - Costruzione griglia con i record caricati
- a-grid / a-accept-grid - Loop principale di gestione griglia (selezione, modifica, inserimento)
Gestione griglia
Il programma usa il pattern standard con GRIDADMN:
- Inserimento (Ctrl+A): genera un nuovo codice incrementale, accept dei campi di dettaglio
- Modifica (Invio/doppio clic): carica la riga nel riquadro di dettaglio, accept dei campi
- Eliminazione (Ctrl+E): cancella il record da COGTABEL dopo conferma
- Selezione: restituisce il codice al chiamante via
util-v04
Accept dei campi
| Paragrafo |
Campo |
Controlli |
a-tm-cod |
Codice |
Accept numerico; F8 per ricerca piano conti |
a-tm-pco |
Mastro/Conto/Sottoconto |
Validazione esistenza in COGPNCON via COGS67W |
a-tm-tip |
Tipo |
Validazione "V", "A", "D" |
Chiamate esterne
| Programma |
Modalita' |
Scopo |
| COGS67W |
CALL |
Ricerca piano conti |
| GRIDADMN |
CALL |
Gestione griglia |
Note
- Il programma opera su record COGTABEL con euta-tipo = 16 (costante
k-euta-tipo).
- Quando chiamato in modalita' selezione, filtra per tipo contropartita (parametro
v04-in-tip), a meno che il tipo sia "T" (tutti).
- La descrizione del conto viene letta da COGPNCON ad ogni caricamento; se il conto non esiste, viene mostrato "***".