COGX31 - Stampa Ordini
Scopo
Programma di stampa/ristampa di un ordine commerciale. L'ordine vive sulla stessa coppia BCTESPRO + BCRIGPRO della proposta: la testata della proposta ha i campi btp-ord-ann/btp-ord-num e le righe il brp-ord-rig. La lettura avviene per chiave alternata 3 di BCTESPRO (ord-ann + ord-num). Layout adattivo come COGX27.
- Magazzino > Gestione Veicoli > Commerciale > Stampa Ordini
File e Tabelle
| File |
Copybook |
Utilizzo |
| FEURTAB |
cogfiles.cpy |
Tabella file di sistema |
| cogx31.select |
(generato da Screens) |
SELECT |
| cogx31.fd |
(generato da Screens) |
FD |
| BCTESPRO |
(da cogx31.fd) |
Testata proposta/ordine (lettura per chiave 3 = ord) |
| BCRIGPRO |
(da cogx31.fd) |
Righe proposta/ordine |
| BCVETTUR |
(da cogx31.fd) |
Anagrafica vetture |
| COGGEANA |
(da cogx31.fd) |
Anagrafica cliente |
| BCTABEL |
(da cogx31.fd) |
Tabelle (etichette colonne) |
| FLSTA |
flsta.cpy |
File stampante |
Copybook
Working storage
cogx31.wrk (generato da Screens), k-u10.cpywgrave.cpy, wnscr.cpy, wopenf.cpy, wstato.cpy, cogazien.cpyutillogo.cpy, utils52.cpy, utils54.cpy, utilu10.cpy
Linkage
wcont.cpy, wcont1.cpy, utilx31.cpy
Procedure
- Standard (
grave.cpy, mmmask.cpy, opengen.cpy, stato.cpy, stato1.cpy, winmsg.cpy)
cogx31.prc
CALL
| Programma |
Scopo |
| COGS54 |
Gestione stampante |
| COGU10 |
Formattazione importi |
| PUTLOGO |
Stampa logo aziendale |
Parametri di chiamata (linkage)
Vedi utilx31.cpy:
| Campo |
Tipo |
Significato |
x31-caller |
x(8) |
Programma chiamante |
x31-called |
x(8) |
Se = k-program-id, chiamata esterna |
x31-btp-ord-ann |
9(4) |
Anno ordine da stampare |
x31-btp-ord-num |
9(8) |
Numero ordine da stampare |
Logica di elaborazione
Flusso principale
- Se chiamato esternamente, anno e numero ordine sono precaricati e i campi disabilitati
a-tm-ord-ann / a-tm-ord-num: input parametria-inizio-dati: selezione stampante con COGS54- Lettura BCTESPRO con chiave alternata 3 (
st-bctespro-notmin-chia3 + rdnxt-bctespro) per anno/numero ordine; verifica corrispondenza dopo la lettura
- Calcolo dinamico numero colonne valori (1-5) e larghezza descrizione (
max-des 108 -> 60)
carica-valori: prepara le etichette delle 5 colonne effettive- Loop BCRIGPRO con stampa righe (solo quelle con
brp-ord-rig not = 0, cioe' effettivamente in ordine)
- Stampa testata, dettaglio per ogni vettura, totali finali
Stampa
- Larghezza pagina: 200 caratteri (
k-chr-stampa)
- Emulazione: HPLJ3
- Layout adattivo come COGX27
Note tecniche
- GUI (screen section con
cogx31-01.scr)
- Programma di sola stampa: non modifica dati
- Cerca per chiave 3 BCTESPRO perche' anno e numero ordine non sono la chiave primaria della proposta