Vai al contenuto

ASN072 - Franchigie assicurative

Sorgente: cbl/asn072.cbl | Program-ID: ASN072 | Tipo: Programma interattivo (gestore tabella su COGTABEL)

Menu: Assist 2.0 > Archivi > Contratti > Tabelle > Franchigie assicurative

Scopo

Gestisce l'elenco delle franchigie assicurative associate alle compagnie. I dati risiedono su COGTABEL con tipo "FF" (campo euta-tipo-x); chiave euta-ff-cod (codice compagnia, 2 char) con campi euta-ff-soglia ed euta-ff-franchigia. Le descrizioni delle compagnie sono recuperate dal tipo "FE" (cfr. ASN069). Supporta modalita' "selezione" via utilasn072.

File e tabelle

File/Tabella Tipo Modalita' Descrizione Chiave
FEURTAB ISAM Input Parametri generali azienda std
COGTABEL ISAM I-O Tipo "FF" = franchigie; tipo "FE" = compagnie (lookup descrizione) euta-tipo-x + euta-cod

Copybook utilizzate

Copybook Ruolo
asn072.select, asn072.fd, asn072.wrk, asn072-01.scr, asn072.prc, asn072.decla Screen Designer
cogfiles.cpy Layout FEURTAB
wgrave, wnscr, wopenf, wstato, cogazien Working storage standard
wgrid.cpy, utilgdad.cpy Working griglia + linkage GRIDADMN
utilasn069, utilu20 Linkage chiamate (ASN069 per scelta compagnia)
utilasn072.cpy Linkage di chiamata esterna

Logica di elaborazione

Pattern "tabella anagrafica" con scrittura full-rewrite:

  1. apri: open files, decisione modalita' (A/S).
  2. a4 → a10-loop: scan COGTABEL filtrato per euta-tipo-x = "FF", caricamento tm-cod/tm-soglia/tm-franch.
  3. a30: per ogni riga caricata viene letto il record "FE" corrispondente per riempire tm-des (descrizione compagnia).
  4. a-grid / a-accept-grid: accept griglia.
  5. F3 aggiornamento: x-controlla-tm-tab-tutto poi b-aggiorna. Approccio full-rewrite: prima cancella tutti i record "FF" esistenti (loop st-cogtabel-notmin + del-cogtabel), poi reinserisce tutte le righe non vuote in griglia (wr-cogtabel).
  6. Invio o F3 in modalita' selezione: ritorna tm-cod/tm-des.

Tasti speciali: F8 sulla colonna codice chiama ASN069 (compagnie assicuratrici) per scegliere il codice.

Programmi richiamati: GRIDADMN, ASN069.

Linkage (utilasn072.cpy)

Campo Direzione Descrizione
asn072-called in "ASN072" attiva modalita' selezione
asn072-caller in Identificativo del chiamante
asn072-in-cod in Codice di pre-posizionamento (eventuale)
asn072-out-cod out Codice franchigia (= codice compagnia) selezionato
asn072-out-des out Descrizione

Note

  • Massimo righe griglia: k-max-ele-tab = 500.
  • Salvataggio distruttivo: il b-aggiorna rimuove sempre tutti i record "FF" e li riscrive da griglia. Se l'utente esce senza salvare le modifiche restano in memoria; se salva, righe parziali (codice vuoto) vengono perse silenziosamente.
  • Cancellazione semplice: c1-ctrl-canc controlla solo che la griglia non sia vuota.
  • I dati condividono il file fisico COGTABEL con altri tipi.