Vai al contenuto

COGV76 - Stampa Composizione Commesse per Cliente

Scopo

Stampa, per un cliente e un gruppo/sottogruppo merceologico, l'elenco delle commesse del cliente con il dettaglio della loro composizione. Per ogni commessa stampa la riga di testata (codice merce, descrizione, quantita', riferimento bolla di emissione) e le righe componenti tratte dalla prima nota di magazzino della commessa (con quantita' unitaria = quantita' componente / quantita' prodotta).

Il programma utilizza un SORT interno per ordinare le commesse per codice articolo prima della stampa.

Posizioni menu

  • Magazzino > Produzione > Commesse > Stampa Composizione

File e Tabelle

File Copybook Utilizzo
FEURTAB cogfiles.cpy Tabella file di sistema
COGTABEL cogtabel.cpy Tabella generale (default merce)
COGMERCI cogmerci.cpy Anagrafica merci (descrizioni e dati commessa)
COGGEANA coggeana.cpy Anagrafica generale (cliente)
COGMOMAG cogmomag.cpy Movimenti di magazzino (commesse e componenti)
FLSORT (interno) Sort di ordinamento commesse
FLSTA flsta.cpy File stampante

Copybook

  • feurtab.fd, cogtabel.fd, cogmerci.fd, coggeana.fd, cogmomag.fd
  • flsta.fd, flsta.cpy
  • cogfiles.cpy, cogtabel.cpy, cogmerci.cpy, coggeana.cpy, cogmomag.cpy
  • wstato.cpy, wgrave.cpy, wopenf.cpy, wnscr.cpy, cogazien.cpy
  • utils21.cpy, utils52.cpy, utils54.cpy
  • wcont.cpy, wcont1.cpy
  • mmmask.cpy, stato.cpy, stato1.cpy, winmsg.cpy, grave.cpy, open1.cpy

CALL

Programma Scopo
WIN006.COB Ricerca alfabetica cliente (zoom)
COGS54 Conferma parametri stampante / chiusura

Logica di elaborazione

Parametri input (tab-maschera)

  • tm-gru, tm-sot: gruppo/sottogruppo merceologico (obbligatori; pre-popolati da merce 999999999 in COGMERCI - record di default)
  • tm-cli: codice cliente
  • tm-desc-cli: descrizione cliente

Flusso

  1. Apertura/setup (apro): legge il record di default merce (codice 999999999) per ricavare gru/sot di default per le commesse, propone la maschera in modalita' carattere su mm-1 (24x80).
  2. Input parametri: cliente (con possibile ricerca alfabetica via WIN006.COB), gruppo, sottogruppo. Conferma con COGS54 a 132 colonne.
  3. SORT (sort flsort su s-cod ascending): input procedure elabora, output procedure stampa.
  4. Input procedure (elabora): scandisce COGMOMAG con chiave 6 (mag-chia6 = tipocf+nonno+padre+figlio+gru+sot+cod+anno+bolla), filtra per:
  5. mag-tipocf6 = 'C' (cliente)
  6. mag-nonno6 = tm-cli
  7. mag-tipob1 in ('I','D','B') (importazione/distinta/bolla)
  8. mag-gru6 = tm-gru and mag-sot6 = tm-sot Per ogni record che passa il filtro, costruisce un record di sort con codice articolo, magazzino, anno, tipo, numero bolla e data.
  9. Output procedure (stampa): per ogni record uscente dal sort:
  10. Se cambia il codice cliente o e' la prima riga, stampa testata pagina + testata cliente.
  11. wr-com: stampa la riga di testata commessa (codice, descrizione da COGMERCI, quantita') e cerca la prima nota della commessa (chiave mag-chia3a con tipob='P' e gru/sot/cod) per ricavare i riferimenti del documento sorgente.
  12. wr-det: scandisce COGMOMAG con chiave principale (mag-chiap = mag/anno/tip/numero/prog) sul documento sorgente, filtra per mag-entrusc <> 'E' (esclude entrate) e stampa una riga per ogni componente con quantita' = qta-magaz / quantita'-prodotta (pno-qta).

Chiavi COGMOMAG utilizzate

  • chiave 6: mag-chia6 (tipocf+nonno+padre+figlio+gru+sot+cod+anno+bolla) per scansione commesse cliente
  • chiave 3a: mag-chia3a (gru+sot+cod+anno+bolla) per ricerca documento di emissione commessa
  • chiave principale: mag-chiap (mag+anno+tipob+bolla+prog) per scansione righe documento

Note tecniche

  • Stampa larghezza 132 colonne, gestita con COGS54.
  • Cambio pagina basato su s54-stm-lin (numero righe pagina della stampante).
  • Maschera in screen mode carattere classica (no GUI screen section).
  • I copybook chiave secondaria sono inclusi via cogtabel.fd ecc. (Screens-style FD).