COSO38 - Tabella Numerazioni¶

Scopo¶

Gestione della tabella numerazioni per l'Unione Soci. Memorizza i contatori progressivi per ricevute, ricevute fiscali e bollettini. I dati risiedono nella tabella generica COGTABEL (EUTA) con tipo = 07, dove il campo euta-num contiene il valore corrente del contatore.

Contabilita' > Unione soci/clienti > Tabelle > Numerazioni

File e tabelle¶

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

Copybook¶

File e select¶

feurtab.fd — FD file parametri
cogfiles.cpy — Record file parametri
coso38.select — SELECT dei file
coso38.fd — FD specifici del programma
coso38.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

Linkage¶

wcont.cpy, wcont1.cpy — Stringhe di comunicazione

Procedure¶

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

CALL¶

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

Logica di elaborazione¶

Inizializzazione: apre file, legge azienda, prepara la griglia
Caricamento (carica-tab): le descrizioni delle numerazioni sono fisse nel sorgente (tab-des: Ricevute, Ricevute fiscali, Numerazioni bollettini). Per ognuna, legge il record COGTABEL corrispondente (euta-tipo=07, euta-codr=progressivo) per ottenere il valore corrente (euta-num)
Costruzione griglia: mostra righe con riga, descrizione e ultimo numero
Modifica (a-riga-dettaglio): selezionando una riga e premendo Invio, si apre il campo numerico per modificare il contatore. Dopo conferma, aggiorna COGTABEL con write/rewrite
Nessun inserimento/cancellazione: le righe sono fisse (5 slot definiti, di cui 3 valorizzati), l'utente puo' solo modificare il valore numerico

Struttura dati in memoria¶

tab-maschera:
  tm-pnt              — numero elementi validi
  tm-tab (occurs 900):
    tm-des            — descrizione (PIC X(35))
    tm-num            — ultimo numero (PIC 9(08))
    tm-rig            — riga (PIC 9(04))

tab-des (fissa):
  td-des (5)          — descrizioni predefinite dei contatori

Chiave tabella¶

euta-tipo = 07
euta-codr = indice progressivo (1, 2, 3, ...)

Note tecniche¶

Le descrizioni dei contatori sono hardcoded nel sorgente (array tab-des), non modificabili dall'utente.
Il numero massimo di contatori e' 5 (k-td-des-size).
La griglia e' in sola modifica sul campo numerico; non e' possibile aggiungere o rimuovere righe.
Usa PERFORM ... THRU in carica-tab (codice legacy).