Vai al contenuto

ASN057 -- Etichette barcode interventi + archiviazione ottica

Sorgente: cbl/asn057.cbl | Tipo: interattivo | Program-ID: ASN057

Menu: Assist 2.0 > Operativo > Gestione Interventi a Richiesta > Stampe > Etichette Barcode + Arch.Ottica


Scopo

Maschera unica per due funzioni: creazione del legame chiamata/archiviazione ottica (per archiviazione automatica delle chiamate) e ristampa etichette barcode intervento. Selezione su intervallo numero chiamata o su tutti gli interventi aperti.


File e tabelle principali

File/Tabella Uso
feurtab Tabella parametri Eurocoge
File definiti in asn057.select / asn057.fd Chiamate/interventi/legami archivio ottico

Copybook chiave

Copybook Uso
utilu06.cpy Utility U06 (probabile gestione documenti/archivio)
utilncnf.cpy Lettura configurazioni RNEWCONF
utilasn054.cpy Linkage da/a programma ASN054 (called/caller)

Maschera

tab-maschera: - tm-da-num (9(12)) / tm-a-num (9(12)): intervallo chiamate - tm-arc-ott (X): flag archiviazione ottica (default "N") - tm-st-eti (X): flag stampa etichette (default "N")

Configurazioni RNEWCONF

Gruppo Chiave Note
Personale tm-cfg-gest-imp-carbur Gestione impianto carburante (parametro letto in config)

Programmi chiamati

Programma Scopo
COGU06 Subroutine archivio documenti / archiviazione ottica
RNEWCONF Configurazioni

Logica di elaborazione

  1. Init standard, apertura file, lettura configurazione (x99-confi).
  2. Display maschera con campi default a "N".
  3. Sequenza accept: a-tm-da-num -> a-tm-a-num -> a-tm-arc-ott -> a-tm-st-eti -> conferma F3.
  4. Sul F3: per ogni chiamata nell'intervallo:
  5. Se tm-arc-ott="S": crea record di legame archiviazione ottica (w-img-doc-coge composto da chiave + tip + prog) tramite COGU06.
  6. Se tm-st-eti="S": invia alla stampante l'etichetta barcode per l'intervento.

Documentazione tecnica generata -- 2026-06-04