ASN130 - Estrazione Immagini Chiamate
Intestazione
| Campo |
Valore |
| Programma |
ASN130 |
| Titolo |
Estrazione documenti chiamata |
| Modulo |
Assist 2.0 |
| Posizione menu |
Assist 2.0 > Operativo > Gestione Interventi a Richiesta > Estrazione Immagini Chiamate |
| Sorgente |
cbl/asn130.cbl (1.017 righe) |
| Storico |
Nato come personalizzazione Torricelli (vedi commento di testa), oggi standardizzato |
Scopo
Per un cliente e un periodo selezionati, scorre le chiamate di assistenza ed i relativi interventi, estrae dall'archivio ottico (COGU06) le immagini archiviate sugli interventi e le copia (COPIAF) nel filesystem del client in una cartella organizzata per cliente.
Le immagini gestite come "gruppo" (file primario con suffisso -001.jpg) generano anche un PDF unificato tramite SVIEW.
Flusso principale
- Caricamento configurazioni (paragrafo
x99-load-config)
- Input maschera: cliente di fatturazione, periodo da/a chiamata (
acht-data), flag "gia' estratte"
- Conferma F3 -> paragrafo
a10-acc
- Scan ASNCHTES per chiave 6 (data chiamata) a partire da
tm-da-data
- Per ogni record:
- Controllo finestra date e cliente di fatturazione
- Se flag "gia' estratte" =
S: estrai sempre
- Altrimenti: estrai solo se
acht-fl-estratti-doc <> 'S'
- Per ogni intervento (ASNINTES) della chiamata con
acit-img-prog <> 0:
- Costruzione chiave doc
<acht-id><IM><acit-img-prog>
COGU06 "Cerca-esistenza-doc" (tipo "A2", flag interno "D"); se esiste:COGU06 "Estrai-da-doc" silent mode -> ritorna u06-file e u06-n-files-estrattiCOPIAF copy per ciascuno dei file estratti, dal server al client- Aggiorna
acht-fl-estratti-doc = "S" e propaga su ASNINTE2
- Se gruppo multi-immagine,
SVIEW "CONVERTI" per generare il PDF unificato, poi COPIAF delete per rimuovere il temporaneo
File e tabelle acceduti
| File |
Record |
Modalita' |
Uso |
| ASNCHTES |
acht-rec |
I-O |
Scan per data via chia6; aggiornamento acht-fl-estratti-doc |
| ASNINTES |
acit-rec |
Input |
Loop interventi per chiamata via chia2 |
| ASNINTE2 |
acit2-rec |
I-O |
Aggiornamento (insert se mancante, rewrite altrimenti) |
| COGGEANA |
ana-rec |
Input |
Validazione cliente |
| COGGENER |
gnr-rec |
Input |
Raccordo chiamata interna <-> chiamata portale (tipi AC, AT) |
Chiavi secondarie utilizzate
| Copybook |
Tabella |
Scopo |
asnchtes.k06 |
ASNCHTES |
Scan per data chiamata |
asnintes.k02 |
ASNINTES |
Loop interventi per chiamata |
Programmi chiamati (CALL)
| Programma |
Scopo |
| COGU06 |
Archivio ottico: Cerca-esistenza-doc, Estrai-da-doc (tipo doc A2, flag interno D) |
| COPIAF |
Trasferimento file server -> client (copy) e delete locale |
| SVIEW |
Conversione gruppi immagine in PDF (CONVERTI) |
| COGS65W |
Help cliente (F8) |
| RNEWCONF |
Caricamento configurazione |
Configurazioni
| Gruppo |
Parametro |
Variabile |
Effetto |
ASSIST |
path-export-chiamate |
tm-cfg-path |
Percorso destinazione delle immagini. Se vuoto, blocca l'input cliente e apre la configurazione |
assist |
gestione-chiamate-da-portale-web |
tm-cfg-chiam-portale |
Se S, prima di costruire il nome file cerca in COGGENER tipo AC (API/IP, EUROPAM) e tipo AT (TOTALERG) per ricavare il numero chiamata esterno (tm-chiam-gisone) |
Convenzione naming dei file estratti
Costruito in lancia-copiaf:
<tm-cfg-path>/<tm-cli>/<chiamata>_<acit-id-prog>_<idx>.jpg
Dove <chiamata> e':
tm-chiam-gisone se configurazione portale attiva e raccordo trovato- altrimenti
acht-id
Per gruppi (file con suffisso -001.jpg): l'idx (w-k) varia da 1 a u06-n-files-estratti e nel file viene sostituito al suffisso -001 la sequenza -<w-k>. Per il PDF unificato (converti-pdf) viene rinominata l'estensione .jpg -> .pdf.
Tasti funzione
| Tasto |
Contesto |
Funzione |
| F1 |
Tutti |
Configurazione (apre RNEWCONF in modifica) |
| F2 |
Tutti |
Back campo precedente |
| F3 |
Tutti |
Conferma e avvia elaborazione |
| F8 |
Cliente / Date |
Help cliente (COGS65W) / Calendario |
| ESC |
- |
Esci |
Note di implementazione
- Programma standalone, screen
asn130-01.scr
- Il flag
acht-fl-estratti-doc traccia l'elaborazione gia' avvenuta; il flag "Chiamate gia' estratte" della maschera permette di forzarne il bypass
aggio-asninte2 segue il pattern standard del modulo: dopo ogni rewrite di ASNCHTES, propaga la modifica su tutti gli ASNINTE2 collegati- L'algoritmo di ricerca del suffisso
-001.jpg usa un loop PERFORM VARYING FROM 80 BY -1 (legacy)
- Il filename di destinazione subisce un
INSPECT ... REPLACING ALL "/" BY "\" per Windows-friendly paths