COGP16 - Stampa Prodotti con Locazione
Scopo
Stampa un elenco dei prodotti dell'anagrafica merci con la prima locazione di magazzino associata, ordinabile per codice, descrizione o barcode. Su richiesta stampa il prezzo di ultimo acquisto (con conversione divisa).
- Magazzino > Archivi & Tabelle > Stampe > Merci > Con Locazione Magazzino
File e Tabelle
| File |
Copybook |
Utilizzo |
| FEURTAB |
cogfiles.cpy |
Tabella file di sistema |
| COGMERCI |
cogp16.fd |
Anagrafica merci (lettura tramite COGU16W) |
| COGLGMER |
cogp16.fd |
Locazioni di magazzino merci |
| FLSTA |
flsta.cpy |
File di stampa |
Copybook
cogp16.select, cogp16.fd, cogp16.wrk, cogp16-01.scr, cogp16.decla, cogp16.prc
feurtab.fd, cogfiles.cpy, flsta.fd, flsta.cpy
wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy, cogazien.cpy
utils21.cpy, utils22.cpy, utils54.cpy, utilu10.cpy, utilu16.cpy, utils50.cpy, utils68.cpy, utilw80.cpy
utilcogl61.cpy, k-u10.cpy
wcont.cpy, util021.cpy, wcont1.cpy (linkage)
stato.cpy, stato1.cpy, grave.cpy, winmsg.cpy, opengen.cpy, mmmask.cpy, sendw80.cpy, getdcont.cpy
CALL
| Programma |
Scopo |
| COG021 |
Help di dettaglio sull'ordinamento (F1) |
| COGS50 |
Composizione stringa descrittiva merce in base all'ordinamento |
| COGS54 |
Gestione parametri stampante e anteprima |
| COGS68W |
Ricerca prodotto con zoom (range merce da/a) |
| COGU10W |
Conversione divisa, edit prezzo ultimo acquisto |
| COGU16W |
Estrazione merci ordinate (ord-mer, range merce, sequenza) |
| COGL61 |
Calcolo prezzo ultimo acquisto della merce |
Logica di elaborazione
tm-ord-mer: criterio di ordinamento (gestito tramite COGU16W)
tm-da-merce / tm-a-merce (gru/sot/cod): range prodotti
tm-prezzi (S/N): includere prezzo ultimo acquisto
Flusso
apri/a000: apertura file, lettura azienda, divisa conto, init S68 per i campi merce
- Accept campi maschera (ordinamento, range, prezzi) con conferma F3
a-cogs54: chiamata COGS54 per scelta destinazione stampa
st-10: inizializzazione COGU16W con Set-Estremi
ela-10-loop: per ogni merce estratta da Leggi:
- Composizione descrittore tramite COGS50
- Se richiesto, prezzo ultimo acquisto tramite COGL61, conversione e edit con COGU10W (operazione "Edita")
- Lettura
coglgmer con start key not < su lgm-chia1 (gru+sot+cod+prog) per la prima locazione
- Composizione
rg-locazione (Box / Corsia / Colonna / Piano)
- Stampa riga, salto pagina dopo
s54-stm-lin - 16 righe
Note tecniche
- Programma GUI (screen section, F-event, mouse handling)
- Larghezza stampa: 80 caratteri
- Locazione: lettura sequenziale da COGLGMER usando key
lgm-chia1 (gru+sot+cod+prog), prende la prima locazione del prodotto
- Prezzo acquisto: COGL61 restituisce prezzo + divisa, conversione a divisa conto via COGU10W con operazione "Cambio"
- Controllo
w-abi-val-acq per la stampa prezzi (operatore abilitato)