ASN007 - Causali esito intervento¶

Sorgente: cbl/asn007.cbl | Program-ID: ASN007 | Tipo: Programma interattivo (gestore tabella anagrafica)

Menu: Assist 2.0 > Archivi > Tabelle > Tabelle chiamata > Causali esito intervento

Scopo¶

Gestisce la tabella ASNCAUES (causali di esito intervento), selezionabili in fase di chiusura intervento. Le causali sono classificate per tipo di esito (Positivo/Negativo). Programma standalone con maschera (combo "Tipo esito") + griglia di dettaglio; supporta anche modalita' "selezione" via utilasn007.

File e tabelle¶

File/Tabella	Tipo	Modalita'	Descrizione
FEURTAB	ISAM	Input	Parametri generali azienda
ASNCAUES	ISAM	I-O	Causali esito intervento

Campi principali del record ASNCAUES (aces-):

Campo	Descrizione
`aces-chia1`	Chiave primaria (tipo + causale)
`aces-tipo`	Tipo esito ("S" Positivo / "N" Negativo)
`aces-causale`	Codice causale
`aces-des`	Descrizione causale
`aces-note`	Note
`aces-fl-canc`	Flag logico di cancellazione

Il tipo di esito attivo e' determinato dalla combo di testata tm-tipo (default "S"); in modalita' selezione viene forzato dal parametro asn007-in-tipo.

Copybook utilizzate¶

Copybook	Descrizione
`asn007.select`, `asn007.fd`, `asn007.wrk`, `asn007.tm`, `asn007-01.scr`, `asn007.prc`, `asn007.decla`	Screen Designer
`asn007.imppredf-wrk`, `asn007.imppredf`, `utilimppredf.cpy`	Filtri predefiniti griglia
`cogfiles.cpy`	Layout FEURTAB
`wgrave`, `wnscr`, `wopenf`, `wstato`, `cogazien`	Working storage standard + dati azienda
`wgrid.cpy`, `utilgdad.cpy`	Working griglia + linkage GRIDADMN
`utilagprg.cpy`, `utilncnf.cpy`	Utility (chiamata SWN055 / RNEWCONF)
`utilasn007.cpy`	Linkage di chiamata esterna

Logica¶

Pattern standard "tabella anagrafica" con griglia su file di transito (t-grid-det):

Apertura, lettura configurazione ass-chiam / gestione-esito-interventi via RNEWCONF, scelta modalita' "A"/"S" in base a asn007-called + asn007-caller.
z-grid-det-crea-transito: scan di ASNCAUES filtrata per aces-tipo = tm-tipo, escludendo i record con aces-fl-canc valorizzato; caricamento nel transito.
Editing in griglia (Ctrl+A aggiunge riga, Ctrl+E marca cancellazione tramite flag), controlli campo (x-controlla-tm-r-causale verifica codice non duplicato, x-controlla-tm-r-des obbliga la descrizione).
Su F3 (aggiorna, con conferma custom): b-aggiorna scandisce il transito e per ogni riga confronta con ASNCAUES: se assente esegue wr-asncaues, altrimenti rwr-asncaues sui campi modificati. La cancellazione e' logica (valorizzazione aces-fl-canc), non fisica.
Dopo ogni scrittura viene invocato x-sincronizza-kpn (chiamata SWN055, operazione ESPORTA-KEY su aces-chia1).
Massimo righe griglia: k-max-ele-tab = 900.

Linkage (utilasn007)¶

Campo	Direzione	Descrizione
`asn007-caller`	in	Nome del programma chiamante
`asn007-called`	in	"ASN007" attiva la modalita' selezione
`asn007-in-tipo`	in	Tipo esito su cui operare (default "S")
`asn007-out-cau`	out	Codice causale selezionato

Note¶

La cancellazione e' logica (flag aces-fl-canc): i record cancellati vengono esclusi dalla griglia ma non rimossi dal file.
Chiave secondaria aces-chia2 (data/ora + chiave primaria) definita nel file, non usata direttamente dal programma.
La sincronizzazione KPN (SWN055) propaga le modifiche verso il gestionale esterno.