ASN142 - Documenti magazzino x intervento
Intestazione
| Campo |
Valore |
| Programma |
ASN142 |
| Titolo |
Visualizzazione documenti magazzino x intervento |
| Modulo |
Assist 2.0 |
| Posizione menu |
Assist 2.0 > Operativo > Visualizzazioni > Documenti magazzino x intervento |
| Sorgente |
cbl/asn142.cbl (771 righe) |
Scopo
Visualizza in griglia tutti i documenti di magazzino (DDT, bolle, scarichi, P.N., entrate prestazione) generati a partire da un intervento di assistenza, leggendo il file di raccordo ASNINDMG.
Puo' essere chiamato da altri programmi (chiave ASN142-CALLED su utilasn142) per la selezione documento; in tal caso restituisce l'id intervento selezionato in asn142-out-id.
Flusso principale
- Inizializzazione:
inspect asn142-in-id replacing all spaces by zero
- Caricamento configurazione
ass-strum / modo-chiusura
- Se
asn142-in-id valorizzato e l'intervento esiste, salta direttamente a a-avanti (riempimento griglia)
- Altrimenti accept dell'id intervento (con F9 = ASN230 ricerca avanzata)
- Validazione tramite
x-controlla-tm-id-int:
- Lettura ASNINTES + ASNCHTES
- Se
acht-classe <> "C" blocca, eccetto quando tm-cfg-modo-chiusura = "E"
- Caricamento dati cliente assistito
- Loop ASNINDMG per
acim-id-intervento = tm-id-int (chiave primaria):
- Mapping tipo (
acim-tipo-ddt, acim-tip) -> stringa visualizzata
- Composizione
tm-documento come <mag>/<ann>/<tip>/<num>
- Lettura COGTESBO via
tes-chia3 = acim-tes-chia3 per la data documento
- Caricamento
tm-tes-chia3 (i) per uso successivo (F3/Shift-F2)
- Visualizzazione griglia paginata
- Gestione azioni:
- F3 ->
COGU78 (apertura documento) passando u78-doc-tip = "COGTESBO" e chiave
- Shift-F2 ->
COGMA3 filiera documenti (cogma3-doc-classe = "B")
- Shift-F4 ->
GRIDADMN configurazione griglia
- Invio (modalita'
S) -> ritorna l'id selezionato
File e tabelle acceduti
| File |
Record |
Modalita' |
Uso |
| ASNINTES |
acit-rec |
Input |
Lettura testata intervento (id, data, ora, id chiamata) |
| ASNCHTES |
acht-rec |
Input |
Lettura chiamata collegata (classe, cliente assistito) |
| ASNINDMG |
acim-rec |
Input |
Raccordo intervento -> documento magazzino (loop principale) |
| COGTESBO |
tes-rec |
Input |
Testata documento magazzino (per data; chiave chia3) |
| COGGEANA |
ana-rec |
Input |
Anagrafica cliente assistito |
Chiavi secondarie utilizzate
| Copybook |
Tabella |
Scopo |
asnintes.k02 |
ASNINTES |
Disponibile per riuso (non strettamente necessaria al flusso principale) |
Mapping tipo documento
| Condizione |
Etichetta visualizzata |
acim-tipo-ddt = "V" |
Doc. Vendita |
acim-tipo-ddt = "G" |
Doc. Garanzia |
acim-tipo-ddt = "I" |
Scarico Interno |
acim-tipo-ddt = spaces and acim-tip = "D" |
DDT di Uscita |
acim-tipo-ddt = spaces and acim-tip = "P" |
P.N. Magazzino |
| (altrimenti) |
Entrata Prest. |
Programmi chiamati (CALL)
| Programma |
Scopo |
| ASN230 |
Ricerca avanzata intervento (F9) |
| COGU78 |
Apertura documento (F3) |
| COGMA3 |
Filiera documento (Shift-F2) |
| GRIDADMN |
Gestione/configurazione griglia (Shift-F4) |
| DIALOGS |
(disponibile, non usata nel flusso principale) |
| RNEWCONF |
Caricamento configurazione |
Configurazioni
| Gruppo |
Parametro |
Variabile |
Effetto |
ass-strum |
modo-chiusura |
tm-cfg-modo-chiusura |
Se "E", bypassa il controllo acht-classe = "C" permettendo la visualizzazione su chiamate non standard |
Parametri di interfaccia (utilasn142)
| Campo |
Direzione |
Uso |
asn142-called |
Input |
Se = "ASN142-CALLED" modalita' called |
asn142-caller |
Input |
Nome programma chiamante |
asn142-in-id |
Input |
Id intervento da visualizzare |
asn142-out-id |
Output |
Id selezionato (modalita' selezione, su Invio) |
Tasti funzione
| Tasto |
Contesto |
Funzione |
| F3 |
Griglia |
Apertura documento (COGU78) |
| F9 |
Id intervento |
Ricerca avanzata (ASN230) |
| Shift-F2 |
Griglia |
Filiera documento (COGMA3) |
| Shift-F4 |
Griglia |
Configurazione colonne (GRIDADMN) |
| Invio |
Griglia (modalita' S) |
Selezione documento e return |
| ESC |
- |
Esci |
Limiti
| Elemento |
Limite |
Costante |
| Righe in griglia |
500 |
k-max-ele-tab |
Note di implementazione
- Programma standalone con
mmmask.cpy
- Modalita'
a-modalita: "S" (selezione, quando chiamato) oppure "A" (aggiornamento/visualizzazione standalone)
- Sul Shift-F2 il programma usa un push-button-custom (
k-sf2-filiera), bitmap magazzino (icona 26)
- L'inspect iniziale
asn142-in-id replacing spaces by zero (commento 021024) gestisce l'input non azzerato proveniente da chiamanti che passano spazi
- Modifica 141123: introdotta
tm-cfg-modo-chiusura per consentire la visualizzazione anche su chiamate con acht-classe diversa da "C"