#include "inkey.ch"
SETCOLOR(COR7)
BOXSDIN(09,16,14,56,,,"Gerao de Cdigo de Barras - Argox")
do while .t.
   enter=chr(13)+chr(10)
   num    :=0
   etik   :=0
   acred  := 0
   grad   := space(2)
   barra  := space(13)
   acor   := 0
   setcursor(1)
   setcolor(cor7)
   @ 11,18 say "Modelo____:                          "
   @ 12,18 say "Referencia:        Grade:    Cor:    "
   @ 13,18 say "Quantidade:                          "
   SETCOLOR(COR2+COR7)
   @ 11,30 get etik picture "9" valid etik > 0 .and. etik < 3 when aviso("Disponveis Modelo 1 e 2")
   @ 12,30 get acred picture "999999" valid ! empty(acred) when aviso("Digite a referencia")
   @ 12,44 get grad picture "@!" when acred>0 .and. aviso("Digite a grade da mercadoria")
   @ 12,52 get acor picture "99" when acred>0 .and. aviso("Digite a cor da mercadoria")
   @ 13,30 get NUM picture "999" VALID NUM > 0 when aviso("Digite a quantidade de etiquetas a serem geradas")
   read
   if lastkey()=27
      SETPRC(0,0)
      exit
   endif
   select tabelaproduto
   set order to 3
   go top
   seek strzero(acred,6)+grad+strzero(acor,2)
   barra:=tp_cbar
   nome:=tp_nome
   if ! found()
      mensagem("Mercadoria no cadastrada !!!")
      loop
   endif
   if ! confirme("Imprimir "+strzero(num,3)+" etiquetas ?")
      loop
   endif
   select cores
   set order to 1
   go top
   seek tabelaproduto->tp_cor
   ncor:=co_nome
   select tabelaproduto
   setcursor(0)
   aviso("Aguarde... Imprimindo...")
   codigo:=strzero(acred,6)    // codigo da peca
   nomes:=alltrim(nome,21)     // nome da peca
   numecor:=strzero(acor,2)    // codigo da cor
   nomecor:=alltrim(ncor)      // nome da cor
   tamanho:=alltrim(grad)      // tamanho da peca
   quanti:=strzero(num,2)      // quantidade a imprimir
   barras:=alltrim(barra)      // numero do codigo de barras
   set device to printer
   if etik=1
      ***** primeira 
      @ prow(),pcol() say enter
      @ prow(),pcol() say 'N' + enter
      @ prow(),pcol() say 'q720' + enter
      @ prow(),pcol() say 'Q479,20+0' + enter
      @ prow(),pcol() say 'S6' + enter
      @ prow(),pcol() say 'D8' + enter
      @ prow(),pcol() say 'ZB' + enter
      @ prow(),pcol() say 'A12,160,0,2,1,1,N,"'+nomes+'"' + enter
      @ prow(),pcol() say 'A12,190,0,2,1,1,N,"REF.:'+codigo+'"' + enter
      @ prow(),pcol() say 'A12,220,0,2,1,1,N,"TAM.:' + tamanho + '"' + enter
      @ prow(),pcol() say 'A12,250,0,2,1,1,N,"COR:'+ nomecor + '"' + enter
      @ prow(),pcol() say 'B10,296,0,E30,2,2,102,B,"'+ barras + '"' + enter
      ***** segunda
      @ prow(),pcol() say 'A292,160,0,2,1,1,N,"' + nomes + '"' + enter
      @ prow(),pcol() say 'A292,190,0,2,1,1,N,"REF.:' + codigo + '"' + enter
      @ prow(),pcol() say 'A292,220,0,2,1,1,N,"TAM.:' + tamanho +'"' + enter
      @ prow(),pcol() say 'A288,250,0,2,1,1,N,"COR:' + nomecor + '"' + enter
      @ prow(),pcol() say 'B290,296,0,E30,2,2,102,B,"' + barras +'"' + enter
      ***** terceira
      @ prow(),pcol() say 'A591,160,0,2,1,1,N,"' + nomes + '"' + enter
      @ prow(),pcol() say 'A591,190,0,2,1,1,N,"REF.:' + codigo + '"' + enter
      @ prow(),pcol() say 'A591,220,0,2,1,1,N,"TAM.:' + tamanho + '"' + enter
      @ prow(),pcol() say 'A591,250,0,2,1,1,N,"COR:' + nomecor + '"' + enter
      @ prow(),pcol() say 'B589,296,0,E30,2,2,102,B,"' +barras +'"' + enter
      @ prow(),pcol() say 'P'+ quanti + enter
   elseif etik=2
      **** primeira
      @ prow(),pcol() say enter
      @ prow(),pcol() say 'N' + enter
      @ prow(),pcol() say 'q720' + enter
      @ prow(),pcol() say 'Q479,20+0' + enter
      @ prow(),pcol() say 'S6' + enter
      @ prow(),pcol() say 'D8' + enter
      @ prow(),pcol() say 'ZB' + enter
      @ prow(),pcol() say 'A12,40,0,1,2,2,N,"NOME LOJA"' + enter
      @ prow(),pcol() say 'A12,100,0,2,1,1,N,"TROCA SOMENTE COM"' + enter
      @ prow(),pcol() say 'A12,130,0,2,1,1,N,"ESTA ETIQUETA"' + enter
      @ prow(),pcol() say 'A12,160,0,2,1,1,N,"AFIXADA NA PECA"' + enter
      @ prow(),pcol() say 'A12,200,0,2,1,1,N,"' + nomes + '"' + enter
      @ prow(),pcol() say 'A12,230,0,2,1,1,N,"REF.:' + codigo + '"' + enter
      @ prow(),pcol() say 'A12,260,0,2,1,1,N,"TAM.:' + tamanho + '"' + enter
      @ prow(),pcol() say 'B10,296,0,E30,2,2,102,B,"' + barras + '"' + enter
      *** segunda
      @ prow(),pcol() say 'A292,40,0,4,1,1,N,"NOME LOJA"' + enter
      @ prow(),pcol() say 'A292,100,0,2,1,1,N,"TROCA SOMENTE COM"' + enter
      @ prow(),pcol() say 'A292,130,0,2,1,1,N,"ESTA ETIQUETA"' + enter
      @ prow(),pcol() say 'A292,160,0,2,1,1,N,"AFIXADA NA PECA"' + enter
      @ prow(),pcol() say 'A292,200,0,2,1,1,N,"' + nomes + '"' + enter
      @ prow(),pcol() say 'A292,230,0,2,1,1,N,"REF.:' + codigo + '"' + enter
      @ prow(),pcol() say 'A292,260,0,2,1,1,N,"TAM.:' + tamanho + '"' + enter
      @ prow(),pcol() say 'B290,296,0,E30,2,2,102,B,"' + barras + '"' + enter
      *** terceira
      @ prow(),pcol() say 'A591,40,0,4,1,1,N,"NOME LOJA"' + enter
      @ prow(),pcol() say 'A591,100,0,2,1,1,N,"TROCA SOMENTE COM"' + enter
      @ prow(),pcol() say 'A591,130,0,2,1,1,N,"ESTA ETIQUETA"' + enter
      @ prow(),pcol() say 'A591,160,0,2,1,1,N,"AFIXADA NA PECA"' + enter
      @ prow(),pcol() say 'A591,200,0,2,1,1,N,"' + nomes + '"' + enter
      @ prow(),pcol() say 'A591,230,0,2,1,1,N,"REF.:' + codigo + '"' + enter
      @ prow(),pcol() say 'A591,260,0,2,1,1,N,"TAM.:' + tamanho + '"' + enter
      @ prow(),pcol() say 'B589,296,0,E30,2,2,102,B,"' + barras + '"' + enter
      @ prow(),pcol() say 'P'+ quanti + enter
   endif
   set device to screen
enddo
restaura()
return
