COGP49 - Stampa etichette libere

Sorgente: cbl/cogp49.cbl | Tipo: Programma a menu (maschera + stampa) | Program-ID: COGP49

Menu: Magazzino > Archivi & Tabelle > Stampe > Merci > Etichette Libere

Scopo

Stampa etichette con 8 righe di testo libero (28 caratteri ciascuna), replicate per il numero di copie indicato. Formato fisso "7,2 x 3,6 cm su 3 piste" (24 etichette per foglio).

File e Tabelle

File/Tabella	Uso	Descrizione
COGTABEL	Input	Tipo 71, chiave euta-c071-frm per formato etichetta
FLSTA	Output	File di stampa testuale (linage 9) con sequenze escape KYOCERA
FEURTAB	Input	Parametri generali

Configurazioni RNEWCONF

Gruppo	Chiave	Significato
PROGCOGP49	euta-c071-frm	Formato/modello etichetta (in tm-cfg-frm). Se "B" abilita i campi di posizione iniziale (verticale/orizzontale) per stampa parziale del foglio

Programmi chiamati

Programma	Scopo
COGS54	Utility stampa (chiamata in apertura e in chiusura)
RNEWCONF	Lettura configurazione formato

Logica

1. Legge configurazione tm-cfg-frm.
2. Maschera: 8 righe testo, n. copie, posizione iniziale (visibile solo se frm = "B").
3. Stampa: itera per tm-copie volte le 8 righe; coordinate KYOCERA hardcoded:
4. w-kyo-v-ini = 180, w-kyo-h-ini = 0
5. w-kyo-v-max = 8, w-kyo-h-max = 3 (8 righe x 3 piste = 24 etichette/foglio)
6. w-kyo-v-dim = 855, w-kyo-h-dim = 1620, w-kyo-spa = 90
7. Output su flsta con codici escape per cpi, qualita', cambio pagina.

Note

• Le 8 righe sono in tm-rig1...tm-rig8 di 28 caratteri.
• Include anche un campo barcode (w-bar-code) nel record di stampa, anche se il programma e' "libero".
• Maschera GUI con Screen Section.