COGM14 - Visualizzazione/Stampa Merci Nuove¶
Sorgente: cbl/cogm14.cbl | Program-ID: COGM14 | Tipo: Interattivo (raccolta parametri + elaborazione + visualizzazione/stampa)
Menu: Magazzino > Archivi & Tabelle > Varie > Vis./Stampa Merci Nuove
Scopo¶
Estrazione e visualizzazione delle merci inserite a partire da una data specificata. Il programma legge la data dell'ultima pulizia dalla COGTABEL (tipo 10), permette all'utente di modificarla, poi scandisce tutte le merci e carica in un file temporaneo quelle inserite dalla data indicata. Il risultato viene presentato in griglia paginata con possibilita' di stampa.
File e tabelle¶
| File/Tabella | Tipo | Modalita' | Descrizione |
|---|---|---|---|
| FEURTAB | Tabella | Input | Tabella generale Eurosystem |
| COGTABEL | Tabella | Input | Tabella generale (tipo 10: data ultima pulizia) |
| COGMERCI | Tabella | Input | Anagrafica merci |
| COGTRANS | File temp. | I-O | File temporaneo indicizzato per risultati (chiave1: merce, chiave2: data+merce) |
| FLSTA | File stampa | Output | File di stampa |
I file acceduti sono quelli dichiarati in cogm14.select tramite Screen Designer, piu' COGTRANS e FLSTA dichiarati nel sorgente.
Copybook utilizzate¶
| Copybook | Descrizione |
|---|---|
cogfiles.cpy |
Struttura generica FEURTAB |
cogm14.select |
SELECT file generati da Screens |
cogm14.fd |
FD file generati da Screens |
cogm14.wrk |
Working storage generata da Screens |
cogm14-01.scr |
Maschera grafica |
cogm14.decla |
Declaratives |
cogm14.prc |
Procedure copy generate da Screens |
flsta.fd, flsta.cpy |
Definizione file stampa |
wgrave.cpy |
Working errori gravi |
wnscr.cpy |
Working screen |
wopenf.cpy |
Working apertura file |
wstato.cpy |
Working stato |
cogazien.cpy |
Dati azienda |
wgrid.cpy |
Working griglia |
utilgdad.cpy |
Interfaccia GRIDADMN |
utils50.cpy |
Interfaccia COGS50 (stampa) |
utils52.cpy |
Interfaccia COGS52W (date/calendario) |
utils54.cpy |
Interfaccia COGS54 (gestione stampa) |
utils68.cpy |
Interfaccia COGS68W (ricerca merce) |
Linkage¶
| Copybook | Descrizione |
|---|---|
wcont.cpy |
Contesto chiamante |
wcont1.cpy |
Contesto esteso |
Struttura del programma¶
Variabili della maschera (tab-maschera)¶
| Variabile | PIC | Descrizione |
|---|---|---|
tm-fl-ord |
X(01) | Ordine estrazione: "M" = per Merce, "D" = per Data |
tm-data |
9(08) | Data a partire dalla quale estrarre (AAAAMMGG) |
Costanti¶
| Costante | Valore | Descrizione |
|---|---|---|
k-max-ele-tab |
100 | Numero massimo righe per pagina griglia |
Flusso principale¶
- apri - Inizializzazione, apertura file, creazione file temporaneo COGTRANS
- a4 - Lettura data ultima pulizia da COGTABEL (tipo 10); proposta data; display calendario (COGS52W)
- a-tm-fl-ord - Accept ordine estrazione ("M" o "D")
- a-inizio-dati - Validazione, conferma, avvio elaborazione
- b-elabora - Scansione COGMERCI: per ogni merce con mer-data-inserimento >= tm-data, scrittura in COGTRANS
- vis-tabella - Visualizzazione risultati in griglia paginata (read dal file temporaneo COGTRANS)
Elaborazione (b-elabora)¶
La scansione legge tutte le merci dalla tabella 10 (COGTABEL tipo 10) e per ogni merce con data inserimento >= data richiesta, scrive un record nel file temporaneo COGTRANS con: - trs-merce = codice merce - trs-data = data inserimento
Visualizzazione e stampa¶
La griglia e' paginata: mostra k-max-ele-tab righe per volta. La navigazione pagina usa il pattern con GRIDADMN e variabili si/sj/i1/j1.
La stampa (F9) produce un tabulato con: - Testata: titolo, data filtro, data stampa, pagina - Righe: codice merce (60 car.) + data inserimento
Chiamate esterne¶
| Programma | Modalita' | Scopo |
|---|---|---|
| COGS52W | CALL | Gestione date con calendario |
| COGS54 | CALL | Gestione stampa |
| COGS50 | CALL | Anteprima di stampa |
| GRIDADMN | CALL | Gestione griglia |
Note¶
- Il file temporaneo COGTRANS viene creato nella cartella tmp con nome
#$COGM14.{operatore}e cancellato alla chiusura. - Se il file temporaneo e' gia' in uso (stesso operatore), viene segnalato errore e il programma esce.
- La data ultima pulizia e' memorizzata in COGTABEL con euta-tipo = 10, campo euta-data-sco. Se non esiste, default 01/01/1990.
- L'ID cursore e' "MRNV" (Merci Nuove Visualizzazione).