COGV89 - Storia Serial Number
Sorgente: cbl/cogv89.cbl | Program-ID: COGV89 | Tipo: Interattivo con griglia (Screens)
Menu: Magazzino > RMA; Visualizzazioni > Serial Numbers
Scopo
Visualizzazione della storia completa di una matricola/serial number. Scansiona i movimenti di magazzino collegati a un serial number e li presenta in griglia con dettaglio documento, cliente/fornitore, fattura, prodotto finito, lotto, ubicazione e gruppo aziende. Supporta la navigazione al documento (COGU78) e alla filiera (COGMA3).
File e tabelle
| File/Tabella |
Tipo |
Modalita' |
Descrizione |
| FEURTAB |
Tabella |
Input |
Tabella generale Eurosystem |
File via cogv89.select |
Vari |
Vari |
File generati da Screens (COGMATRI, COGMOMAG, COGTESBO, COGMERCI, COGGEANA, COGFATTU, COGUBIAZ, ecc.) |
| COGTRANS |
Transito |
I-O |
File transito temporaneo per dati griglia (chiave: id numerico + chiave alfanumerica) |
| GRPAZIEN |
Tabella |
Input |
Gruppi aziende |
Copybook utilizzate
| Copybook |
Descrizione |
cogv89.select, cogv89.fd, cogv89.wrk |
SELECT, FD, working generati da Screens |
cogv89-01.scr |
Maschera grafica |
cogv89.decla |
Declaratives |
k-u10.cpy, wrk-u10.cpy |
Costanti e working divise |
wstato.cpy, wgrave.cpy, wgrid.cpy, wopenf.cpy, wnscr.cpy |
Working storage comuni |
cogazien.cpy |
Dati azienda |
utilgdad.cpy |
Interfaccia GRIDADMN (gestione griglia) |
utils52.cpy |
Interfaccia COGS52 (accept date) |
utilu07.cpy |
Interfaccia COGU07 (ricerca matricole) |
utilu10.cpy |
Interfaccia COGU10 (divise) |
utilu20.cpy |
Interfaccia COGU20 |
utilu78.cpy |
Interfaccia COGU78 (navigazione documento) |
utilcogma3.cpy |
Interfaccia COGMA3 (filiera documento) |
utilncnf.cpy |
Interfaccia RNEWCONF |
Linkage
| Copybook |
Descrizione |
wcont.cpy, wcont1.cpy |
Contesto chiamante |
utilv89.cpy |
Parametri in ingresso: fun, caller, called, sn X(30), mat (anno+num) |
Struttura del programma
Variabili della maschera (tab-maschera)
| Variabile |
PIC |
Descrizione |
tm-criterio |
X(01) |
Criterio ricerca: G=Garanzia, S=Serial |
tm-sn |
X(30) |
Serial number di ricerca |
tm-key-alt |
X(50) |
Chiave alternativa |
tm-ms-tip |
X(01) |
Tipo magazzino secondario |
tm-ms-cod |
X(05) |
Codice magazzino secondario |
tm-ms-des |
X(40) |
Descrizione magazzino secondario |
Griglia dati (grid-record)
| Variabile |
PIC |
Descrizione |
grd-matr |
X(13) |
Codice matricola |
grd-sn |
X(30) |
Serial number |
grd-prodotto |
X(09) |
Codice prodotto |
grd-entrata-uscita |
X(07) |
Tipo movimento |
grd-cli-for |
X(09) |
Tipo C/F |
grd-cod-cli-for |
zzzzzzzz |
Codice anagrafica |
grd-des-cli-for |
X(40) |
Ragione sociale |
grd-documento |
X(15) |
Riferimento documento |
grd-data-doc |
X(10) |
Data documento |
grd-fattura |
X(14) |
Riferimento fattura |
grd-data-fatt |
X(10) |
Data fattura |
grd-prodotto-finito |
X(09) |
Codice prodotto finito (se componente) |
grd-matr-pf |
X(13) |
Matricola prodotto finito |
grd-documento-pf |
X(15) |
Documento prodotto finito |
grd-lotto-pf |
X(13) |
Lotto prodotto finito |
grd-tipo-lotto-pf |
X(11) |
Tipo lotto prodotto finito |
grd-tipo-mag-sec |
X(10) |
Tipo magazzino secondario |
grd-cod-mag-sec |
z(05) |
Codice magazzino secondario |
grd-des-mag-sec |
X(40) |
Descrizione magazzino secondario |
grd-ubi-* |
Vari |
Ubicazione (tipo, codice, locazione, descrizione) |
grd-grp-az-cod |
X(04) |
Codice gruppo aziende |
grd-grp-az-des |
X(40) |
Descrizione gruppo aziende |
grd-id-inter |
z(12) |
ID intervento |
grd-ora-movim |
X(11) |
Ora movimento |
Tabella interna (tm-tab, max k-max-ele-tab = 900)
Per ogni elemento:
| Variabile |
PIC |
Descrizione |
tab-key(i) |
X(66) |
Chiave movimento |
tab-mat(i) |
compound |
Matricola: anno 9(4) + numero 9(8) |
Configurazioni RNEWCONF
| Variabile |
Descrizione |
tm-cfg-etichetta-key-alt |
Etichetta per la colonna chiave alternativa (vuota = colonna nascosta) |
tm-cfg-gruppo-aziende |
Flag S/N per visualizzare le colonne gruppo aziende |
Flusso principale
- apri - Inizializzazione, configurazione RNEWCONF, apertura file, setup pulsanti custom (S-F2 filiera), gestione case serial number
- a4 - Reset maschera, gestione called (Garanzia/Serial/Selezione)
- a-tm-sn - Accept serial number con F8 per ricerca (COGU07)
- a-tm-key-alt - Accept chiave alternativa
- a-richiesta-conferma - Validazione
- a-carica-griglia - Caricamento dati (
carica-tab), costruzione griglia
Caricamento dati (carica-tab)
Scansiona i movimenti di magazzino collegati al serial number/matricola. Per ogni movimento:
- Legge il documento (COGTESBO) per data e fattura
- Legge l'anagrafica (COGGEANA) per cliente/fornitore
- Determina entrata/uscita dal segno del movimento
- Cerca il prodotto finito di destinazione (se componente)
- Cerca l'ubicazione e il magazzino secondario
- Compone
grid-record e lo scrive su COGTRANS
Griglia e navigazione
- F3 su una riga: apre il documento in COGU78
- S-F2: navigazione filiera documento via COGMA3
- S-F4: personalizzazione colonne griglia via GRIDADMN
- Invio (in modalita' Selezione): restituisce la matricola selezionata (
v89-mat)
Modalita' CALLED
| Funzione |
Comportamento |
"Garanzia" |
Criterio G, carica direttamente la griglia |
"Serial" |
Criterio S, carica direttamente la griglia |
"Selezione" |
Preimposta il serial number, Invio restituisce la matricola |
Chiamate esterne
| Programma |
Scopo |
| COGU07 |
Ricerca matricole per serial number parziale (F8) |
| COGU78 |
Navigazione al documento (F3 su riga) |
| COGMA3 |
Filiera documento (S-F2) |
| GRIDADMN |
Gestione griglia: personalizzazione colonne, ordinamento |
| RNEWCONF |
Lettura configurazioni (etichetta key-alt, gruppo aziende) |
Note
- Il file transito COGTRANS e' temporaneo (viene cancellato alla chiusura del programma).
- La gestione maiuscole/minuscole del serial number e' configurabile tramite
ext-case-sn (I=insensitive, U=uppercase, altro=lowercase).
- La griglia supporta fino a 900 elementi.
- Il display del pulsante custom usa la bitmap "magazzino" con indice 26 per il pulsante S-F2 (filiera).
- La finestra supporta il ridimensionamento (
ntf-resized) con ricalcolo automatico della griglia.