ASN020 - Categorie parti¶

Sorgente: cbl/asn020.cbl | Program-ID: ASN020 | Tipo: Programma interattivo (maschera con griglia, modalita' aggiornamento/selezione)

Menu: Assist 2.0 > Archivi > Strumenti > Categorie parti

Scopo¶

Gestisce l'anagrafica delle categorie di parti (componenti/ricambi) per la procedura strumenti del modulo Assist 2.0. Per ogni categoria sono mantenuti codice, descrizione e descrizione breve. Il programma puo' essere richiamato da altri (es. da ASN021) in modalita' selezione tramite linkage utilasn020.

Pattern standard "tabella anagrafica" con griglia editabile e duplice modalita' aggiornamento/selezione.

File e tabelle¶

File/Tabella	Tipo	Modalita'	Descrizione
FEURTAB	ISAM	Input	Parametri generali azienda
ASNCATPA	ISAM	I-O	Anagrafica categorie parti (record principale)
ASNPARTI	ISAM	Input	Anagrafica parti (referenziato per controllo cancellazione)

Copybook utilizzate¶

Copybook	Descrizione
`asn020.select`, `asn020.fd`, `asn020.wrk`, `asn020-01.scr`, `asn020.prc`, `asn020.decla`	Screen Designer: select, FD, working, screen, procedure, declaratives
`cogfiles.cpy`	Layout FEURTAB
`wgrave`, `wnscr`, `wopenf`, `wstato`, `cogazien`	Working storage standard + dati azienda
`wgrid.cpy`, `utilgdad.cpy`	Working griglia + linkage GRIDADMN
`utile04.cpy`	Linkage COGE04 (utility generica, gestione/decodifiche)
`utilf62.cpy`	Linkage COGF62 (utility)
`utilasn021.cpy`	Linkage ASN021 (apertura parti della categoria)
`utilasn020.cpy`	Linkage del programma (per chiamata esterna)
`wcont.cpy`, `wcont1.cpy`	Linkage standard

Logica di elaborazione¶

Apertura (apri): init, apertura file, valutazione utilasn020 per modalita' selezione/aggiornamento. Pulsante custom "Parti (F5)" via bitmap assist (numero 17). Tasti funzione: F3 conferma, F8 aiuto, S-F4 griglia, Ctrl+A aggiungi, Ctrl+E elimina.

Modalita': - Se asn020-called = k-program-id e asn020-caller valorizzato -> modo "S" (selezione). - Altrimenti modo "A" (aggiornamento).

Caricamento griglia (a4 / a10-loop): start su ASNCATPA senza chiave, scan fino a k-max-ele-tab = 500. Per ogni record copia actp-cod, actp-des, actp-des-breve nella griglia. Memorizza tm-cod-prec per tracciamento modifiche.

Gestione griglia (a-grid / a-accept-grid): - F3 (modo A): valida e salva -> a1-aggiorna -> b-aggiorna. Pattern: confronto tm-cod vs tm-cod-prec -> inserisce/modifica/cancella su ASNCATPA tramite b1-inserisci / b2-modifica / b3-cancella. - F3 (modo S): conferma selezione (asn020-out-cod / asn020-out-des) e ritorna. - F5 (su riga con codice valorizzato): chiama ASN021 passando asn021-in-cat = tm-cod (i) per aprire le parti della categoria. - Invio (modo S): seleziona la categoria corrente e ritorna. - Ctrl+A / Ctrl+E: aggiungi / elimina riga. - S-F4: GRIDADMN per personalizzazione/amministrazione griglia.

Controllo cancellazione (c1-ctrl-canc): verifica che non esistano parti (ASNPARTI) collegate alla categoria prima di permettere la cancellazione.

Chiamate a sottoprogrammi¶

Programma	Utilizzo
`ASN021`	Apre gestione parti per la categoria selezionata (F5)
`GRIDADMN`	Personalizzazione griglia (S-F4)

Linkage di chiamata (utilasn020)¶

Campo	Direzione	Descrizione
`asn020-called`	in	Se uguale a "ASN020" indica chiamata in modalita' selezione
`asn020-caller`	in	Identificativo del chiamante
`asn020-in-cod`	in	Codice categoria su cui posizionarsi
`asn020-out-cod`	out	Codice categoria selezionato
`asn020-out-des`	out	Descrizione categoria selezionata

Note implementative¶

Massimo righe griglia: k-max-ele-tab = 500.
Pulsante custom "Parti (F5)" da bitmap assist, numero 17.
Pattern di aggiornamento via tm-cod vs tm-cod-prec standard nei programmi Assist:
tm-cod = tm-cod-prec: modifica (se tm-fl-riga-mod = "S")
tm-cod-prec vuoto: inserimento
tm-cod vuoto: cancellazione
Codici diversi: cancella vecchio + inserisce nuovo
Sui controlli di abilitazione (w-abi-ins, w-abi-agg, w-abi-del) sono presenti messaggi specifici m-asn020-10-1, m-asn020-11-1 ecc.
L'autore originale e' Daniele (annotato nei commenti); il programma e' parte della "Procedura strumenti x Endonova".