COSO35 - Tabella Condizioni Aziendali¶

Scopo¶

Gestione della tabella dei tipi di conduzione aziendale per l'Unione Soci. I dati sono memorizzati nella tabella generica COGTABEL (EUTA) con tipo "AG". Il programma presenta una griglia con codice e descrizione, consentendo inserimento, modifica e cancellazione.

Contabilita' > Unione soci/clienti > Tabelle > Tabella Cond.Aziendali

File e tabelle¶

File	Tipo	Descrizione
FEURTAB	Parametri	File parametri di ambiente
COGTABEL (EUTA)	Indicizzato	Tabella generica, filtrata su euta-tipo = "AG"

Copybook¶

File e select¶

feurtab.fd — FD file parametri
cogfiles.cpy — Record file parametri
coso35.select — SELECT dei file
coso35.fd — FD specifici del programma
coso35.wrk — Working-storage generata

Working-storage standard¶

wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, cogazien.cpy

Utilita'¶

wgrid.cpy — Strutture gestione griglia
utilgdad.cpy — Utility GRIDADMN
utilgrid.cpy — Procedure griglia

Linkage¶

wcont.cpy, wcont1.cpy — Stringhe di comunicazione

Procedure¶

coso35.prc — Procedure I/O su COGTABEL
grave.cpy, mmmask.cpy, opengen.cpy, stato.cpy, stato1.cpy, winmsg.cpy

CALL¶

Programma	Descrizione
GRIDADMN	Gestione griglia (preparazione, add/modify/delete record, svuota)

Logica di elaborazione¶

Inizializzazione: apre i file, legge i parametri azienda, prepara la griglia con GRIDADMN "Prepara"
Caricamento tabella (carica-tab): cicla sulla tabella COGTABEL con euta-tipo = "AG", leggendo tutti i record e caricandoli nell'array tab-maschera (max 999 elementi)
Costruzione griglia (z-costruisci-grid): popola la griglia con GRIDADMN "Add-Record" per ogni elemento
Ciclo principale (a-grid / a-accept-grid): attende input utente sulla griglia
Invio/doppio clic: entra in modifica riga (a-riga-dettaglio)
F4: richiama GRIDADMN per amministrazione griglia
Esc: chiude il programma
Modifica riga (a-riga-dettaglio): accept su campo codice e descrizione, validazione, conferma con acc-conf, aggiornamento su COGTABEL con write/rewrite
Cancellazione: se il codice viene azzerato e confermato, esegue delete su COGTABEL

Struttura dati in memoria¶

tab-maschera:
  tm-pnt          — numero elementi caricati
  tm-tab (occurs 999):
    tm-cod        — codice (PIC 9(04))
    tm-des        — descrizione (PIC X(40))

Chiave tabella¶

euta-tipo = "AG"
euta-codr = codice numerico progressivo

Note tecniche¶

Il programma usa la struttura standard a griglia con GRIDADMN per la presentazione e l'aggiornamento.
La griglia e' ridimensionabile (gestione evento ntf-resized).
Il salvataggio del record precedente in tm-ele-sav consente l'annullamento con Esc durante la modifica.
Usa PERFORM ... THRU in alcuni punti (codice legacy pre-convenzioni).