ASN013 - Modelli matricola¶

Sorgente: cbl/asn013.cbl | Program-ID: ASN013 | Tipo: Programma interattivo (gestore tabella anagrafica con griglia)

Menu: Assist 2.0 > Archivi > Tabelle > Matricole > Modelli

Scopo¶

Gestisce l'anagrafica dei modelli matricola (ASNMODEL). Diversamente dai gestori "semplici" della stessa famiglia (es. ASN011), ASN013 usa il pattern "griglia con transito" (z-grid-det-*) per supportare filtri salvabili, ordinamenti multipli, esportazione Excel e generazione automatica di nome modello numerico progressivo. Supporta anche modalita' "selezione" via utilasn013.

File e tabelle¶

File/Tabella	Tipo	Modalita'	Descrizione	Chiave
FEURTAB	ISAM	Input	Parametri generali azienda	std
ASNMODEL	ISAM	I-O	Anagrafica modelli matricola	`amod-id` (12)
ASNMATRI	ISAM	Input	Matricole (verifica per cancellazione)	`amtr-id-modello` (chia7)
ASNCTRRC	ISAM	Input	Raccordi controlli qualita' (verifica cancellazione)	tipo+codice oggetto (chia3)
ASNCTRTB	ISAM	Input	Tabella controlli qualita' (verifica fl-canc)	`actr-cod`

Chiavi secondarie usate: asnmatri.k07, asnctrrc.k03.

Copybook utilizzate¶

Copybook	Ruolo
`asn013.select`, `asn013.fd`, `asn013.wrk`, `asn013.imppredf-wrk`, `asn013-01.scr`, `asn013.prc`, `asn013.decla`, `asn013.tm`	Screen Designer
`cogfiles.cpy`	Layout FEURTAB
`wgrave`, `wnscr`, `wopenf`, `wstato`, `cogazien`, `k-personal`	Working storage standard
`wgrid.cpy`, `utilgdad.cpy`	Working griglia + linkage GRIDADMN
`utilu10.cpy`, `utilu20.cpy`, `utils68.cpy`, `utile04.cpy`	Utility
`utilasn012`, `utilasn081`, `utilasn029`, `utilasn010`	Linkage di programmi richiamati
`utilcrm010`, `utilcrms07`, `utilcrm030`, `utilcrm031`	Integrazione CRM
`utilgesstr`, `utilagprg`, `utilncnf`, `utilimppredf`	Utility configurazione/Areagate
`utilasn013.cpy`	Linkage di chiamata esterna

Logica di elaborazione¶

Pattern "tabella con transito" (vedi ASN032/ASN015 per riferimento):

apri: open files, lettura azienda, lettura configurazione (utilncnf → x99-confi), decisione modalita' (A/S) in base a asn013-called+asn013-caller.
a4: impostazione ordinamento predefinito (per descrizione o per nome a seconda di tm-cfg-ordinamento), caricamento filtro di default (z-imppredf-carica-default).
a-leggi-dati: apertura file di transito (grid-det), z-grid-det-crea-transito (scan ASNMODEL e popolamento transito), z-grid-det-riordina-transito.
a-grid / a-grid-ini: accept griglia con z-99-accept-grid-det.
Tasti: F1 configurazione, S-F4 GRIDADMN, S-F5 esporta Excel, F7 apre ASN081 sul modello corrente (tm-cfg-modo = 'M'), Ctrl+A nuova riga con possibile auto-generazione nome numerico, Ctrl+E cancella, F3 salva.
F3 aggiornamento: x-controlla-grid-det-tutto poi b-aggiorna (b1-inserisci/b2-modifica/b3-cancella).
c1-ctrl-canc: blocca cancellazione se modello e' usato su ASNMATRI (chia7) oppure se collegato a controlli qualita' attivi (ASNCTRRC + ASNCTRTB, fl-canc <> "C").

Programmi richiamati: GRIDADMN, ASN081 (componenti del modello via F7), e in catena per scelte F8 vari ASN0*/CRM.

Linkage (utilasn013.cpy)¶

Campo	Direzione	Descrizione
`asn013-called`	in	"ASN013" attiva modalita' selezione
`asn013-caller`	in	Identificativo del chiamante
`asn013-in-marca`	in	Marca pre-filtro (eventuale)
`asn013-in-id`	in	Id modello pre-posizionamento
`asn013-out-id`	out	Id modello selezionato

Note¶

Massimo righe griglia: k-max-ele-tab = 900.
Configurazioni RNEFCONF lette via utilncnf: ordinamento, modo, tipologia CRM, digits-modello, nome-modello-numerico.
Auto-numerazione: se tm-cfg-nome-modello-numerico = "S" su Ctrl+A il programma calcola un nuovo progressivo zero-padded (tm-cfg-digits-modello) e lo propone come nome modello.
Cancellazione bloccata da matricole esistenti o da controlli qualita' attivi.
F7 sul modello selezionato chiama ASN081 in modo M (componenti per modello).