Vai al contenuto

COGE28 -- Tabella Tassi Interesse

Sorgente: cbl/coge28.cbl | Tipo: Programma maschera (mmmask) | Program-ID: COGE28

Menu: Contabilita' > Unione soci/clienti

Scopo

Gestione della tabella dei tassi di interesse di mora. Permette di visualizzare, modificare e salvare fino a 7 tassi con le rispettive date di decorrenza. I dati sono memorizzati nella tabella COGTABEL con tipo 75.

File e tabelle

File/Tabella Tipo Descrizione
FEURTAB Input File tabelle di sistema (path file)
COGTABEL I-O Tabella generica; record tipo 75 = tassi interesse di mora

Copybook principali

  • cogfiles.cpy -- Record FD di FEURTAB
  • cogtabel.cpy -- Record FD di COGTABEL (contiene euta-tipo, euta-codr, euta-tassi, euta-dat(i), euta-tas(i))
  • wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy -- Working-storage standard
  • cogazien.cpy -- Dati azienda corrente
  • UTILS52.CPY -- Utility per accept date (COGS52)
  • WCONT.CPY, WCONT1.CPY -- Area di linkage
  • stato.cpy, winmsg.cpy, grave.cpy, open1.cpy -- Routine standard di fine procedure
  • mmmask.cpy -- Gestione maschera standard (programma standalone)
  • dtab.cpy -- Display tabella
  • tstfun1.cpy -- Test funzioni tasto (scroll su/giu')

Struttura del programma

main section
  apri            -- Inizializzazione, open file, display maschera
  a4              -- Display maschera, accept data sistema
  a10-loop        -- Carica tassi da COGTABEL (tipo 75) in tab-maschera
  a40             -- Visualizza tabella e posiziona cursore
  a50             -- Accept data decorrenza (via COGS52)
  a65/a65f        -- Accept parte intera del tasso
  a70/a70f        -- Accept parte decimale del tasso
  agg-00          -- Aggiornamento: write/rewrite del record tipo 75
  agg-30-loop     -- Copia tab-maschera in record COGTABEL
  fine            -- Chiusura file e uscita

Routine di servizio:
  disp-riga       -- Display singola riga della tabella
  rd-tab-lk       -- Lettura record COGTABEL con gestione errori
  search-file     -- Open I-O di COGTABEL

Logica di elaborazione

  1. Caricamento: legge COGTABEL con euta-tipo = 75 e euta-codr = 0. Se non esiste, inizializza tutto a zero. Copia le 7 coppie data/tasso in tab-maschera.

  2. Navigazione: l'utente naviga tra le 7 righe. Per ogni riga:

  3. La data viene accettata tramite COGS52 (con verifica formato "Z").

  4. La parte intera e decimale del tasso vengono accettate separatamente.

  5. Aggiornamento (F3): rilegge il record tipo 75, copia i dati da tab-maschera nel record COGTABEL e fa write (se nuovo) oppure rewrite (se esistente, tramite invalid key).

  6. Struttura dati tab-maschera: 7 occorrenze di:

  7. tmr-data (8 cifre: AAAAMMGG)
  8. tmr-tas (2 interi + 2 decimali)