Vai al contenuto

COGP82 - Stampa Etichette Merce con Locazione

Scopo

Stampa una o piu' copie identiche di un'etichetta per un prodotto specificato, contenente codice/descrizione e prima locazione di magazzino. File flsta configurato come modulo continuo (linage 9, footing 9). Programma minimale, gemello "etichetta" di COGP16.

Posizioni menu

  • Magazzino > Archivi & Tabelle > Stampe > Merci > Etichette con Locazione

File e Tabelle

File Copybook Utilizzo
FEURTAB cogfiles.cpy Tabella file di sistema
COGMERCI cogp82.fd Anagrafica merci (validazione codice, descrizione)
COGLGMER cogp82.fd Locazioni di magazzino merci
COGRACMC cogp82.fd (k02) Codici merce alternativi (presente nel COPY finale)
FLSTA dichiarata in-line File stampante etichette (linage 9, footing 9, top/bottom 0)

Copybook

  • cogp82.select, cogp82.fd, cogp82.wrk, cogp82-01.scr, cogp82.decla, cogp82.prc
  • feurtab.fd, cogfiles.cpy
  • wstato.cpy, wopenf.cpy, wgrave.cpy, wnscr.cpy, cogazien.cpy
  • utils50.cpy, utils54.cpy, utils68.cpy
  • wcont.cpy, wcont1.cpy (linkage)
  • stato.cpy, stato1.cpy, winmsg.cpy, grave.cpy, mmmask.cpy, opengen.cpy
  • cogracmc.k02

CALL

Programma Scopo
COGS50 Composizione stringa codice + descrizione merce nel formato standard
COGS54 Selezione stampante / parametri di stampa (emulazione "IBM")
COGS68W Ricerca prodotto con zoom (campo merce)

Logica di elaborazione

Parametri input (tab-maschera)

  • tm-merce (gru/sot/cod) + tm-merce-des: prodotto da etichettare
  • tm-copie: numero di copie etichetta da stampare (default 1 se zero)
  • tm-ord-mer: presente in tab-maschera ma non utilizzato attivamente (residuo di pattern)

Flusso

  1. apri: ctr-abil, init programma, lettura azienda, open file, init S68 con operazione "Prepara"
  2. a-tm-merce: accept del codice merce con S68; controllo x-controlla-tm-merce legge cogmerci con rd-cogmerci, errore "Prodotto non codificato"
  3. a-tm-copie: accept del numero copie, default 1
  4. a222 (richiesta conferma): COGS54 con s54-emu = "IBM", s54-fl-manual = "S", larghezza 79
  5. open output flsta e composizione etichetta:
  6. COGS50 con s50-fun = "S" e s50-fl-opn = "O" per ottenere s50-str di 18+36 caratteri (codice + descrizione separati)
  7. Lettura coglgmer con start key not < su lgm-chia1 (gru+sot+cod+prog) per la prima locazione
  8. Composizione t2-pos con stringa "Box / Corsia / Colonna / Piano"
  9. wri-eti eseguito tm-copie volte:
  10. Scrive testa0 (codice), testa1 (descrizione), testa2 (locazione) ciascuna con after 2
  11. write riga after page per espellere l'etichetta su modulo continuo
  12. close flsta + COGS54 after-print, ritorno a a4 per nuova stampa

Note tecniche

  • Programma GUI semplice con screen section
  • File etichette gestito a linage 9, footing 9, top 0, bottom 0 per modulo continuo etichette da 9 righe
  • Larghezza etichetta: 80 caratteri (riga pic x(80))
  • Locazione: solo prima trovata su coglgmer (key 1), non viene fatta scansione di tutte le locazioni
  • Non ha range, non ha file di transito: stampa "diretta" della singola merce