COGL34 - Evasione Buoni di Prelievo di Produzione¶

Scopo¶

Visualizza l'elenco dei buoni di prelievo di produzione e permette di procedere alla loro evasione singola, delegando l'operazione effettiva al sottoprogramma COGL35.

Struttura¶

Tipo: Programma standalone (mmmask.cpy)
Righe: ~922
Program-ID: COGL34
Screen: cogl34-01.scr
Interfaccia: GUI AcuCOBOL con griglia paginata

Flusso principale¶

apri - Inizializzazione, apertura file, configurazione tasti, caricamento bitmap custom (icona "produz"), configurazione griglia
a4 - Inizializzazione tab-maschera, display maschera, caricamento dati, configurazione
carica-dati - Lettura dei buoni di prelievo da COGTRANS
a-grid-ini - Caricamento griglia; se vuota, messaggio "Nessun buono trovato" e uscita
a-grid - Accept sulla griglia paginata con gestione eventi (doppio click, timer, tasti funzione)
fine / z-chiudi - Chiusura file, cancellazione file transito

Timer di aggiornamento¶

La griglia supporta un timer configurabile (tm-cfg-sec-agg): allo scadere, ricarica i dati dalla sorgente per mostrare eventuali nuovi buoni.

Tabelle/File utilizzati¶

Tabella	Tipo	Utilizzo
FEURTAB	Input	Archivio nomi file
Tabelle via cogl34.select	Input	Tabelle buoni prelievo produzione (COGTESBO, COGLAVOR, etc.)
COGTRANS	Transito	File temporaneo indicizzato per visualizzazione buoni

Struttura COGTRANS (record di transito)¶

trs-chia1:
  trs-tbp-mag    x(01)   magazzino
  trs-tbp-aa     9(04)   anno
  trs-tbp-num    9(06)   numero buono
  trs-tbp-mm     9(02)   mese
  trs-tbp-gg     9(02)   giorno

trs-dati:
  trs-data       9(08)   data buono
  trs-lotto      12 bytes (anno 4 + numero 8)
  trs-lt-pf      12 bytes (lotto PF)
  trs-sl         x(09)   semilavorato
  trs-pf         x(09)   prodotto finito
  trs-ordine     x(13)   ordine (tipo+anno+num+pro)
  trs-cli-cod    9(05)   codice cliente
  trs-cli-des    x(40)   ragione sociale cliente

Griglia (grid-record)¶

grd-buono        Mag/Anno/Numero formattato
grd-data         GG/MM/AAAA
grd-lotto        Anno/Numero
grd-lt-pf        Anno/Numero (lotto PF)
grd-sl           Codice semilavorato
grd-pf           Codice prodotto finito
grd-ordine       Anno/Numero/Progressivo
grd-cli-cod      Codice cliente
grd-cli-des      Ragione sociale

Logica di elaborazione¶

Caricamento buoni (carica-dati)¶

Legge i buoni di prelievo dalle tabelle del magazzino e li scrive nel file COGTRANS per la visualizzazione in griglia. Il caricamento viene ripetuto ad ogni timeout del timer.

Evasione (F7)¶

Verifica che il pulsante F7 sia visibile (w-pbc-visible(k-f7-evadi) = 1)
Inizializza util-cogl35 con la chiave del buono selezionato (tm-r-tbp-chia1(i))
Chiama COGL35 che esegue l'evasione effettiva
Ricarica i dati nella griglia

Dettaglio (F8)¶

Chiama WIN085 passando la chiave del buono per visualizzare il dettaglio completo del buono di prelievo.

Stampa (F9)¶

Chiama COGP64 in modalita' called, passando il buono selezionato per la stampa.

Chiamate a sottoprogrammi¶

Programma	Funzione
COGL35	Evasione effettiva del buono di prelievo
WIN085	Visualizzazione dettaglio buono di prelievo
COGP64	Stampa buono di prelievo
GRIDADMN	Gestione griglia personalizzabile
COGS60	Gestione combo box
COGS68W	Gestione campo merce

COPY utilizzate¶

File section¶

cogfiles.cpy, cogl34.fd

Working-storage¶

cogl34.wrk, wgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, cogazien.cpy, wgrid.cpy, utilgdad.cpy, utils52.cpy, utils68.cpy, utilw85.cpy, utilcogl35.cpy, utilncnf.cpy

Linkage¶

wcont.cpy, utilp64.cpy, wcont1.cpy

Screen / Procedure¶

cogl34-01.scr, cogl34.decla

Note¶

Il file COGTRANS e' nominato #COGL34.{operatore} e viene cancellato alla chiusura.
Utilizza un pulsante custom con bitmap "produz" (icona specifica produzione).
Max 900 elementi nella griglia (k-max-ele-tab = 900).
L'event-type = msg-begin-entry sulla griglia forza il fail-terminate per impedire l'editing diretto delle celle.
La griglia si auto-aggiorna se configurato un intervallo di secondi > 0 (f-tempo-scaduto).