TGL304 - Stampa Etichette Taglio¶
Funzione¶
Stampa etichette identificative su stampante Zebra (formato EPL2) per i particolari derivanti dal taglio di lamiere o profilati, a partire da un ordine cliente o da una commessa.
Menu¶
- Magazzino > Produzione > Taglio > Lamiere > Stampe > Etichetta
- Magazzino > Produzione > Taglio > Profilati > Stampe > Etichetta
Tabelle e file principali¶
| Tabella/File | Descrizione | Accesso |
|---|---|---|
| COGTESOR (tor) | Testata ordini | Lettura |
| COGTORAG (tar) | Aggiuntivi testata ordine | Lettura |
| COGRIGOR (ror) | Righe ordini | Lettura (chiave 2) |
| COGLAVOR (cla) | Commesse (lavori) | Lettura (chiave 5: ordine -> commessa) |
| COGGEANA (ana) | Anagrafica generale | Lettura |
| TGLPRRIG (trpr) | Righe piano taglio lamiere | Lettura (chiave 2: ordine) |
| TGLPRRIP (trpp) | Righe piano taglio profilati | Lettura (chiave 2: ordine) |
| flsta | File stampa (output EPL2) | Scrittura |
Copybook e sottoprogrammi¶
| Elemento | Tipo | Ruolo |
|---|---|---|
| tgl304.wrk | Copybook | Working storage |
| tgl304.select | Copybook | Select file |
| tgl304.fd | Copybook | FD file |
| tgl304-01.scr | Screen | Maschera di selezione |
| tgl304.prc | Copybook | Procedure I/O |
| utiltgl304.cpy | Copybook | Parametri linkage (called) |
| COGS54 | Sottoprogramma | Gestione scelta stampante |
| cogrigor.k02 | Copybook | Chiave secondaria righe ordini |
| tglprrig.k02 | Copybook | Chiave secondaria piano taglio lamiere |
| tglprrip.k02 | Copybook | Chiave secondaria piano taglio profilati |
| coglavor.k05 | Copybook | Chiave 5 commesse (ordine -> commessa) |
| sendw92.cpy | Copybook | Invio word/modello |
Logica principale¶
Modalita' di chiamata¶
Puo' essere chiamato standalone o da altri programmi (TGL420, ecc.) tramite utiltgl304.cpy. Se chiamato, riceve tgl304-tor-chia (ordine) e tgl304-cla-chia1 (commessa) e salta direttamente alla conferma.
Selezione¶
L'utente puo' inserire:
- Ordine (anno/numero/progressivo): il sistema cerca la commessa tramite coglavor chiave 5
- Commessa (anno/numero): il sistema cerca l'ordine collegato tramite coglavor -> cogtesor
Validazione: l'ordine deve esistere, essere collegato a una commessa, e il tipo ordine della commessa deve essere 'C' (cliente).
Stampa (b2-stampa-zebra)¶
Distingue tra lamiere e profilati tramite tar-tipo-speciale:
- Lamiere (default): cicla su TGLPRRIG (chiave 2 = ordine), per ogni riga cerca la corrispondente COGRIGOR
- Profilati (
tar-tipo-speciale = 'PR'): cicla su TGLPRRIP (chiave 2 = ordine), per ogni riga cerca la corrispondente COGRIGOR
Per ogni riga trovata, chiama ok-stampa che:
1. Invia i comandi di setup Zebra (b1-set-printer-zebra)
2. Stampa il nome cliente
3. Stampa il riferimento ordine cliente (tor-cnf-num)
4. Stampa il codice disegno con la quantita'
5. Stampa il riferimento ordine interno (anno/numero/progressivo riga)
Output EPL2¶
Comandi: Q320, q831, S4, D7, ZT, JB, OD, R175. Etichette stampate con font EPL2 (comandi A con parametri posizione).
Note¶
- I caratteri doppi apici (
") vengono sostituiti con apici singoli (') nel nome cliente e nel codice disegno per evitare problemi con il formato EPL2. - La stampante viene configurata tramite COGS54 con emulazione 'EPL2' e 200 caratteri per riga.
- Il
PERFORM ... THRUe' usato inok-stampa thru ex-ok-stampa(presente nel sorgente originale).