Vai al contenuto

COSO01 - Gestione Tabella Codifiche Soci

Scopo

Gestione della tabella codifiche soci (inserimento, modifica, cancellazione). I record sono memorizzati sulla tabella COGTABEL con tipo 06. Ogni codifica e' identificata dalla combinazione di categoria (euta-codso1) e sottocategoria (euta-codso2). La descrizione del record contiene sia il testo che gli importi quota per tipo di terreno (pianura, montagna, incolto), codificati nella struttura wcond-dati.

File e tabelle

File Tipo Descrizione
COGTABEL Indicizzato Tabella generica - record tipo 06
FEURTAB Indicizzato File tabelle parametri (configurazione)

Copybook

Copybook Sezione Utilizzo
coso01.select FILE-CONTROL SELECT dei file
coso01.fd FILE SECTION FD dei file
coso01.wrk WORKING-STORAGE Variabili di lavoro
coso01-01.scr SCREEN SECTION Maschera video
coso01.decla PROCEDURE Declaratives
cogfiles.cpy FILE SECTION Record FEURTAB
wgrave.cpy WORKING-STORAGE Gestione errori gravi
wnscr.cpy WORKING-STORAGE Variabili screen
wopenf.cpy WORKING-STORAGE Gestione apertura file
wstato.cpy WORKING-STORAGE Gestione stato file
cogazien.cpy WORKING-STORAGE Dati azienda
utilu20.cpy WORKING-STORAGE Utility accept numerico
utilw14.cpy WORKING-STORAGE Utility
utilw59.cpy WORKING-STORAGE Utility
wcont.cpy LINKAGE Struttura stringhe (parametri chiamata)
wcont1.cpy LINKAGE Struttura stringhe aggiuntiva

CALL

Nessuna CALL esplicita a programmi esterni (la logica e' tutta interna con PERFORM su paragrafi generati dallo screen designer).

Logica di elaborazione

Struttura dati

I record COGTABEL con tipo=06 codificano le categorie soci: - euta-codso1 = codice categoria (mastro) - euta-codso2 = codice sottocategoria (conto) - euta-codso3 = 0 - euta-descr = struttura wcond-dati contenente: descrizione (30 char) + 4 occorrenze di sito+importo

La struttura wcond-dati codifica gli importi quota per tipo di terreno: - Posizione 1: P = Pianura - Posizione 2: M = Montagna - Posizione 4: I = Incolto

Flusso principale

  1. Apertura: init programma, lettura azienda, apertura file, display maschera
  2. Accept categoria (mastro): lettura tabella per descrizione categoria
  3. Accept sottocategoria (conto): se il record esiste, carica dati (flag "V"=variazione), altrimenti flag "I"=inserimento
  4. Accept descrizione e importi (pianura, montagna, incolto)
  5. Conferma (F3): se variazione, esegue REWRITE; se inserimento, esegue WRITE
  6. Cancellazione (F4): controlla che non esistano sottocategorie, poi elimina

Cancellazione

La cancellazione di una categoria (con codso2=0) e' impedita se esistono sottocategorie associate. La cancellazione di una sottocategoria specifica e' sempre permessa previo controllo abilitazione.

Note tecniche

  • Il campo fl-ins-var distingue inserimento ("I") da variazione ("V")
  • Il campo fl-perc controlla la visibilita' degli importi percentuali
  • La data di sistema viene letta con ACCEPT FROM CENTURY-DATE
  • Il record usa PERFORM ... THRU in alcuni punti legacy (disp-cod1/disp-cod2/disp-dati, ctrl-canc, cancella-cogtabel)