Vai al contenuto

BI3001 - Scaricamento anagrafiche cicli di lavorazione su B.I. (SW-ING)

Scopo

Estrae le anagrafiche dei cicli di lavorazione (macchine, lavorazioni, lavorazioni per macchina, disegni, legami tra lotti, costi macchina) verso il set di tabelle di interscambio del modulo "Lotti" del cruscotto Business Intelligence (SW-ING). L'estrazione e' completa: le tabelle di destinazione vengono ricreate ad ogni esecuzione (i file vengono aperti in OUTPUT e poi riaperti in I-O).

Posizione menu

  • Magazzino > Produzione > Cicli di Lavorazione > Esportazione > Lotti x B.I.: base

File e Tabelle

Input (gestionale)

File Copybook Utilizzo
FEURTAB cogfiles.cpy Tabella file di sistema
CLCANAMA (da bi3001.select) Anagrafica macchine (mac-rec)
CLCLAVOR (da bi3001.select) Anagrafica lavorazioni (lav-rec)
CLCLAVMA (da bi3001.select) Lavorazioni per macchina (lvm-rec)
CLCDISEG (da bi3001.select) Disegni di ciclo (dis-rec)
CLCLEGLO (da bi3001.select) Legami fra lotti (ccl-rec)
CLCCOSMA (da bi3001.select) Costi macchina/lavorazione (cos-rec)
CLCSTRUM (da bi3001.select) Strumenti (dichiarata ma non scritta nella versione corrente)

Output (interscambio B.I.)

File FD Contenuto
BICLCANAMA biclcanama.cpy / biclcanama.fd Anagrafica macchine per B.I. (xfd td_clcanama)
BICLCLAVOR biclclavor.cpy / biclclavor.fd Anagrafica lavorazioni per B.I. (xfd td_clclavor)
BICLCLAVMA biclclavma.cpy / biclclavma.fd Lavorazioni per macchina per B.I. (xfd td_clclavma)
BICLCDISEG biclcdiseg.cpy / biclcdiseg.fd Disegni di ciclo per B.I. (xfd td_clcdiseg)
BICLCLEGLO biclcleglo.cpy / biclcleglo.fd Legami tra lotti per B.I. (xfd td_clcleglo)
BICLCCOSMA biclccosma.cpy / biclccosma.fd Costi macchina per B.I. (xfd td_clccosma)
BICLCSTRUM biclcstrum.cpy / biclcstrum.fd Strumenti (FD dichiarato ma non popolato)

I file di interscambio sono indirizzati al canale BI tramite set environment "td_<nome>_HOST" to "DCI" prima dell'apertura. L'host DCI e' il nodo dati del cruscotto B.I.

Copybook

Working storage

  • bi3001.wrk, k-u10.cpy, utilu10.cpy, k-personal.cpy
  • biclcnomif.cpy (nomi fisici dei file biclc*)
  • wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, cogazien.cpy

Linkage

  • wcont.cpy, wcont1.cpy

Procedure

  • grave.cpy, mmmask.cpy, opengen.cpy, stato.cpy, stato1.cpy, winmsg.cpy
  • bi3001.prc
  • Chiavi: biclclavma.k01, biclclavor.k01, biclcanama.k01, biclcstrum.k01, biclcdiseg.k01, biclcleglo.k01, biclccosma.k01

CALL

Programma Scopo
C$RERR Verifica errore dopo apertura OUTPUT delle tabelle BI
COGU10W Conversione/arrotondamento divisa (in Lire/Euro)

Logica di elaborazione

Apertura tabelle di output

Per ciascuna tabella biclc* il programma esegue:

  1. set environment "td_<nome>_HOST" to "DCI"
  2. open output (rigenera la tabella) + check con C$RERR
  3. close + open i-o per la successiva scrittura

In caso di errore in fase di inizializzazione viene mostrato un box di messaggio e si esce con go to fine.

Sequenza di elaborazione

Procedura elabora esegue in sequenza:

Paragrafo Descrizione
fase1 Anagrafica macchine: scan CLCANAMA, scrive BICLCANAMA
fase2 Anagrafica lavorazioni: scan CLCLAVOR, scrive BICLCLAVOR
fase3 (commentata) Lavorazioni per macchina: scan CLCLAVMA, scrive BICLCLAVMA
fase4 Anagrafica disegni: scan CLCDISEG, scrive BICLCDISEG (logica differenziata per disegno di testata vs fase, e per lavorazione esterna vs interna)
fase5 Legami tra lotti: scan CLCLEGLO, scrive BICLCLEGLO
fase6 Costi macchina/lavorazioni: scan CLCCOSMA, scrive BICLCCOSMA, con conversione Lire->Euro se cos-currency = "L" (cambio fisso 1936,27)

Nota: fase3 e' presente nel codice ma il PERFORM e' commentato in elabora. La struttura dati BICLCLAVMA viene comunque inizializzata in apertura.

Ad ogni record scritto viene assegnata datasis come "data aggiornamento" (b*-data-agg).

Contatori

Variabili tm-letti e tm-scritti (in tab-maschera) sono aggiornate ad ogni iterazione tramite i paragrafi next-tm-letti / next-tm-scritti e visualizzate negli edit e-tm-letti / e-tm-scritti. La descrizione della fase corrente viene mostrata in e-tm-table-des.

Conversioni e mapping notevoli

  • fase4 (disegni): se dis-num = 0 -> riga di testata (bdis-testa); altrimenti riga di fase (bdis-programma). Per le righe di fase con lavorazione esterna (lav-esterna = "S", letta da CLCLAVOR) si esportano soglie/attivita'/tempi/disattivazioni; altrimenti i campi dis-no-mac-pz e dis-no-mac-forf.
  • fase6 (costi): per costi con cos-data < 1900 si forza 19000101. Per cos-currency = "L" (Lire) si converte in Euro con cos-costo / 1936,27 e si forza cos-currency = "E".

Note tecniche

  • GUI minimale: una sola screen bi3001-01.scr con titolo "Scaricamento Cicli lavoro: Anagrafiche su SW-ING" e contatori; conferma con F3.
  • decimal-point is comma.
  • L'errore in apertura di ognuna delle tabelle BI fa terminare il programma (go to fine).
  • BICLCSTRUM e' dichiarata e aperta in tutti i punti del codice ma nella versione corrente non viene mai scritta (fase strumenti non implementata).

Parametri di chiamata (linkage)

procedure division using stringhe. Nessun parametro applicativo specifico oltre allo stringhe standard del framework.