;** Et_Z006 ********************************************************************
;* Monta Etiqueta p/ Impressora Termica - Zebra - EAN13                               *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 04/07/2006 por Davi Pereira Carrano
;Ultima Alteracao: 29/03/2007 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes contador ce
;Ultima Alteracao: 15/08/2007 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Run
;Ultima Alteracao: 29/02/2008 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes DispositivoI
;Ultima Alteracao: 06/11/2018 por Bruno Carvalho
;Motivo Alteracao: Ajustes padrĈo p/ codigo de barras EAN8, EAN13 ou COD128 

;*******************************************************************************
; Monta Etiqueta                                                               *
;*******************************************************************************
Proc Monta_Etiqueta()

Moveto "Answer"

Print File Arquivo "O\n"
Print File Arquivo "N\n"
Print File Arquivo "q768\n"
Print File Arquivo "Q169,17+\n"
Print File Arquivo "S2\n"
Print File Arquivo "D8\n"
Print File Arquivo "ZB\n"

Print File Arquivo "A45,65,0,3,1,1,N,\""+DITEA+"\"\n"
Switch
  Case Search("EAN13",TPBARRA)>0 : Print File Arquivo "B510,65,0,E30,2,2,60,B,\""+CITEM+"\"\n"
  Case Search("EAN8",TPBARRA)>0  : Print File Arquivo "B510,65,0,E80,2,2,60,B,\""+CITEM+"\"\n" 
  OtherWise                      : Print File Arquivo "B510,65,0,1,2,2,60,B,\""+CITEM+"\"\n"
EndSwitch
Print File Arquivo "A70,110,0,4,1,1,N,\""+REFIT+"\"\n"

Print File Arquivo "P1\n"

EndProc

;*******************************************************************************
;* Monta Comandos p/ Impressora Termica                                        *
;*******************************************************************************
Proc Monta_Comandos()
If IsAssigned(DITEA)
   Then Release Vars DITEA, DITEB, CITEM, NEMPR, TPBARRA
EndIf

Arquivo=PrivDir()+"GIRASSOL.ext"
Deleta_Arquivo(Arquivo)

Coedit "Answer"
Scan
    te=[Quantidade]
    ce=0
    While True
       ce=ce+1
       DITEA=[Descricao do Item]
       CITEM=[Codigo de Barras ]
     TPBARRA=Upper([Tipo Codigo_Barras])  
       REFIT=[Referencia       ]
       Monta_Etiqueta()
       If ce>=te Then QuitLoop         EndIf
    EndWhile
EndScan
Do_It!
ClearAll

ImpriArq(Arquivo)

Sleep 700
Deleta_Arquivo(Arquivo)
ClearAll
EndProc

Monta_Comandos()
Release Procs Monta_Etiqueta,Monta_Comandos
