Vai al contenuto

COGP45 - Stampa Raggruppamenti Merci

Sorgente: cbl/cogp45.cbl | Tipo: Programma a menu (stampa) | Program-ID: COGP45

Menu: Magazzino > Archivi & Tabelle > Tabelle > Stampe > Raggruppamenti Merci

Scopo

Stampa l'elenco dei raggruppamenti merci memorizzati su COGTABEL (euta-tipo = 17), suddivisi in tre tipi (tm-tip = "1", "2", "3"). L'utente seleziona il tipo da stampare tramite combo.

File e Tabelle

File/Tabella Uso
FEURTAB Parametri generali
COGTABEL euta-tipo = 17 per raggruppamenti merci
FLSTA File stato output stampa

Programmi chiamati

Programma Scopo
COGS54 Selezione stampante e finalizzazione
COGS60W Combo box per tm-tip (3 opzioni)

Copybook principali

  • File: feurtab.fd, cogp45.select, cogp45.fd, flsta.fd
  • Record: cogfiles.cpy, flsta.cpy
  • Working: cogp45.wrk, wstato, wgrave, wopenf, wnscr, cogazien, utils21.cpy, utils54.cpy
  • Screen: cogp45-01.scr
  • A fine procedure: stato, winmsg, grave, opengen, stato1, mmmask, cogp45.prc

Costanti

  • k-chr-stampa = 78
  • ID controllo combo: k-id-tm-tip = 101

Tabella opzioni tab-opt-tm-tipo (per COGS60W)

Codice Descrizione
1 "Raggruppamento 1"
2 "Raggruppamento 2"
3 "Raggruppamento 3"

Logica di elaborazione

  1. Apertura (apri): apre file, prepara mask "Stampa Raggruppamenti Merci".
  2. Selezione tipo (a-tm-tip): combo gestita da COGS60W; default tm-tip = "1". La descrizione viene letta da COGTABEL euta-tipo = 17, euta-cfg-arg = tm-tip, euta-cfg-key = spaces.
  3. Conferma stampa (a-riga-fine): COGS54 per selezione stampante.
  4. Stampa (b-stampa):
  5. Inizializza scansione COGTABEL con euta-tipo = 17, euta-cfg-arg = tm-tip, euta-cfg-key = spaces
  6. st-cogtabel-may + rdnxt-cogtabel
  7. Loop fino a cambio tipo o cambio cfg-arg
  8. Per ogni record: stampa codice (da euta-cfg-key) e descrizione (euta-descr)
  9. Testata (testa): intestazione con azienda, tipo + descrizione, data; cambio pagina ogni (s54-stm-lin - 14) righe.

Note

  • La struttura euta-cfg-arg + euta-cfg-key di COGTABEL e' usata per organizzare i raggruppamenti per tipo (cfg-arg = 1/2/3) e codice raggruppamento (cfg-key).
  • Le opzioni del combo sono hard-coded in tab-opt-tm-tipo: per aggiungere un quarto tipo serve modificare il sorgente.
  • Convenzioni standard Eurocoge GUI (z-99-init/exit, x-carica-lingua, x-status-bar-init).