Vai al contenuto

COGP69 — Stampa Modulo D.d.T. in bianco su laser

Sorgente: cbl/cogp69.cbl | Tipo: stampa (laser HP GL-2/PCL) | Program-ID: cogp69

Menu: Vendite > Stampe > Modulo D.d.T. su Laser

Scopo

Stampa il modulo D.d.T./fattura "in bianco" (solo la modulistica prestampata: riquadri, linee ed etichette) su stampante laser, per il numero di copie indicato dall'operatore. Il disegno del modulo e' costruito interamente via comandi HP GL-2 (rettangoli EA, linee PU/PD, etichette LB) inviati alla coda di stampa attraverso il file flsta, includendo il logo aziendale (PUTLOGO) e un eventuale file di stampa esterno.

Il numero di copie di default e alcuni parametri (annotazioni bolla/fattura, riferimento ordine) derivano dalla configurazione PRNTSTBOLL. La stampa vera e propria e' pilotata da COGS54 (selezione stampante/emulazione HPLJ3).

File e tabelle principali

File/Tabella Copybook Uso
feurtab cogfiles.cpy, cogp69.fd File dati generico Eurocoge
flsta flsta.cpy File di stampa (riga riga); riceve i comandi HP GL-2/PCL
pclinp dichiarato nel sorgente (pcl-inp-rec) File esterno da riversare sulla stampante (es. TESFAT.PRN)
pclout dichiarato nel sorgente (pcl-out-rec, assign to 'printer') Uscita diretta verso la stampante per la copia del file esterno
COGTABEL cogfiles.cpy Tabelle generiche (routine rd-tab)
COGAZIEN cogazien.cpy Dati azienda (rd-azi)

Flusso principale

  1. apri — inizializza programma, apre i file, legge azienda, prepara la maschera con il solo campo "Numero copie".
  2. a4 / a-tm-copie — accept del numero copie (tm-copie), con controllo di obbligatorieta' (x-controlla-tm-copie).
  3. a-fine-dati — validazione finale dei dati (x-controlla-dati).
  4. a002 — richiesta conferma stampa tramite COGS54 (emulazione HPLJ3, 150 caratteri, selezione manuale stampante). Su conferma apre flsta in output e carica la configurazione (x99-src-cfg).
  5. a005 — ciclo per il numero di copie richiesto: per ogni copia inizializza la pagina (x41-init-page, con logo via x42-logo), stampa il modulo (testa -> x4-format-page) e chiude la pagina (x41-close-page). Al termine segnala fine stampa a COGS54 (s54-after-print).
  6. x4-format-page — genera l'intero disegno del modulo in HP GL-2: rettangolo principale, linee della coda fattura/trasporto, riquadri cod.fiscale/P.IVA, agente, n.fattura, causale/tipo documento, ombreggiature ed etichette (LB...), gestendo la variante con/senza codice invoice (w-fl-ic).
  7. fine / z-chiudi — chiude i file e la finestra ed esce.

Sottoprogrammi chiamati

Programma Ruolo
RNEWCONF Lettura configurazioni di stampa modulo (x99-src-cfg)
COGS54 Selezione stampante/emulazione e pilotaggio della stampa (a002, fine stampa)
PUTLOGO Inserimento del logo aziendale nella pagina (x42-logo)

Configurazioni (RNEWCONF)

Gruppo PRNTSTBOLL, pacchetto C (letto in x99-src-cfg):

Gruppo Chiave Pilota
PRNTSTBOLL euta-c022-not Tipo annotazioni bolla/fattura (tm-cfg-not, default "B")
PRNTSTBOLL euta-c022-rif-ord Riferimento ordine (tm-cfg-rif-ord, default "T")
PRNTSTBOLL euta-c022-cop Numero copie di default / bin stampante &l<nn>X (tm-cfg-cop, default 1)

Note

  • Il disegno del modulo e' interamente hard-coded in comandi HP GL-2 (coordinate in unita' plotter): le linee move '...' to riga seguite da write riga scrivono direttamente il flusso di stampa nel file flsta.
  • x41-init-page invia i comandi PCL di setup pagina, incluso il vassoio stampante tramite &l<tm-cfg-cop>X (la configurazione copie e' anche usata come selezione bin).
  • Il paragrafo x41-logo riversa un file esterno (TESFAT.PRN) direttamente in stampante copiando byte per byte da pclinp a pclout; nel flusso attivo il logo e' inserito da x42-logo (PUTLOGO).
  • Trattandosi di stampa "in bianco", il modulo non contiene dati di documento: vengono stampate solo le griglie e le etichette del prestampato.
  • Codice legacy: alcuni PERFORM ... thru ex-...; struttura per lo piu' lineare.