Vai al contenuto

COGP05 - Stampa Macrocodici per Commesse

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

Menu: Magazzino > Archivi & Tabelle > Tabelle > Stampe (macrocodici per commesse)

Scopo

Stampa l'elenco dei macrocodici per commesse memorizzati su COGTABEL (euta-tipo = 49), con il dettaglio delle merci collegate a ciascun macrocodice.

File e Tabelle

File/Tabella Uso
FEURTAB (cogfiles) Parametri generali
COGTABEL Tabella generica: euta-tipo = 49 per macrocodici commesse
COGMERCI Anagrafica merci (per recuperare descrizioni)
FLSTA File stato per output stampa

Programmi chiamati

Programma Scopo
COGS54 Selezione stampante e gestione output

Copybook principali

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

Costanti

  • k-euta-tipo = 49 — tipo COGTABEL per macrocodici

Logica di elaborazione

  1. Apertura: lettura azienda, apertura file.
  2. Conferma stampa (a002): chiamata COGS54 per selezione stampante e conferma.
  3. Scansione COGTABEL (stampa00+st-10-loop):
  4. Inizializza scansione con euta-tipo = 49
  5. st-cogtabel-notmin + rdnxt-cogtabel
  6. Per ogni record di tipo 49: estrazione macrocodice da euta-cod (struttura wo-codice + wo-progr)
  7. Stampa per macrocodice:
  8. Cambio macrocodice (sav-macro != wo-codice): stampa intestazione macrocodice (codice + descrizione merce con codice = macrocodice)
  9. Per ogni record figlio (stesso macrocodice): lettura COGMERCI con chiave euta-cb-des per recuperare la merce collegata, stampa riga
  10. Gestione testata (testa): stampata ogni (s54-stm-lin - 12) righe.
  11. Chiusura: COGS54 con s54-after-print = "S" per finalizzazione stampa.

Note

  • Le merci con codice non valido vengono evidenziate con asterischi nella descrizione (move all '*' to mer-descr).
  • Se nessun macrocodice e' presente: messaggio "NESSUN MACROCODICE PRESENTE" e uscita.
  • Il sorgente non ha screen section propria — usa solo l'overlay COGS54 per la stampa.