Vai al contenuto

COSO33 - Gestione Tabella Tipi Conteggio Quota

Scopo

Gestione della tabella tipi di conteggio quota dell'unione soci (inserimento, modifica, cancellazione). I record sono memorizzati sulla tabella COGTABEL con tipo configurabile (default 06) e codso1 configurabile (default 50). Il programma presenta i dati in formato griglia e supporta sia la modalita' di aggiornamento che la modalita' selezione (quando richiamato da altri programmi come lookup).

File e tabelle

File Tipo Descrizione
COGTABEL Indicizzato Tabella generica - record tipo 06, codso1=50 (default)
FEURTAB Indicizzato File tabelle parametri

Copybook

Copybook Sezione Utilizzo
coso33.select FILE-CONTROL SELECT dei file
coso33.fd FILE SECTION FD dei file
coso33.wrk WORKING-STORAGE Variabili di lavoro
coso33-01.scr SCREEN SECTION Maschera video
coso33.decla PROCEDURE Declaratives
cogfiles.cpy FILE SECTION Record FEURTAB
k-u10.cpy WORKING-STORAGE Costanti utility
wstato.cpy WORKING-STORAGE Gestione stato file
wgrave.cpy WORKING-STORAGE Gestione errori gravi
wgrid.cpy WORKING-STORAGE Gestione griglia
wopenf.cpy WORKING-STORAGE Gestione apertura file
wnscr.cpy WORKING-STORAGE Variabili screen
cogazien.cpy WORKING-STORAGE Dati azienda
utilgdad.cpy WORKING-STORAGE Utility grid admin
utilu10.cpy WORKING-STORAGE Utility importi
wcont.cpy LINKAGE Struttura stringhe
wcont1.cpy LINKAGE Struttura stringhe aggiuntiva
utilo33.cpy LINKAGE Parametri input/output per modalita' called

CALL

Programma Funzione
GRIDADMN Gestione griglia (ordinamento, export, amministrazione colonne)

Logica di elaborazione

Struttura dati

Record COGTABEL con tipo=06 (o altro configurato), codso1=50 (o altro configurato): - euta-codso2 = codice tipo conteggio quota - euta-descr1 = struttura w-dati contenente: - descr (40 char): descrizione - quota-impo (s9(09)v99): importo base quota - coadiu-sn (x): flag coadiuvanti (S/N) - coadiu-impo (s9(09)v99): importo coadiuvanti - forfe-sn (x): flag forfait (S/N)

Flusso principale

  1. Apertura: init programma, lettura azienda, apertura file
  2. Configurazione tipo/codso1: da parametri di linkage (o33-in-tip, o33-in-cod) o da wo-parametro, con default tipo=06, codso1=50
  3. Se richiamato come lookup (o33-called = k-program-id), attiva modalita' "Selezione"
  4. Caricamento griglia (a10/a10-loop): lettura sequenziale COGTABEL; salta record con codso2=0; per ogni record decodifica la struttura w-dati
  5. Visualizzazione griglia (a30)
  6. Gestione interazione:
  7. Invio in modalita' Aggiornamento: apre dettaglio riga in modifica
  8. Invio in modalita' Selezione: restituisce codice e descrizione al chiamante
  9. Ctrl+A: inserimento nuova riga
  10. Ctrl+E: cancellazione riga con conferma

Dettaglio riga (a-riga-dettaglio)

Apre il frame di dettaglio per inserimento o modifica: - In modifica: lock del record con rd-cogtabel-lk - Accept campi: codice (solo in inserimento), descrizione, importo quota, flag coadiuvanti, importo coadiuvanti, flag forfait - F3: ricostruzione della struttura w-dati e salvataggio (WRITE o REWRITE su COGTABEL)

Cancellazione

  1. Controllo abilitazione
  2. Controllo prerequisiti (c1-ctrl-canc)
  3. Richiesta conferma
  4. DELETE su COGTABEL
  5. Ricompattazione array griglia

Note tecniche

  • Massimo 999 righe (k-max-ele-tab = 999)
  • Il tipo tabella e il codso1 sono configurabili via parametri di linkage (utilo33.cpy): o33-in-tip per il tipo, o33-in-cod per codso1
  • Se non passati, i default sono tipo=06 e codso1=50
  • Il parametro di linkage definisce anche: o33-called, o33-caller, o33-out-cod, o33-out-des
  • La modalita' si commuta con F3 (come COSO26)
  • I record con euta-codso2 = 0 sono saltati durante il caricamento (record intestazione categoria)
  • La conversione divisa conto e' verificata tramite get-divisa-conto
  • Utilizza PERFORM ... THRU in alcuni punti (c-cancella/ex-c, c1-ctrl-canc/ex-c1)