;** Et_0268A *******************************************************************
;* Monta Etiqueta Impressora Termica - Zebra -                                **
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 19/06/2015 por Bruno Carvalho
;Ultima Alteracao: 29/01/2017 por Bruno Carvalho 
;Motivo Alteracao: Ajustes na impressÆo da Etiqueta                                         
;Ultima Alteracao: 08/03/2017 por Bruno Carvalho 
;Motivo Alteracao: Ajustes na impressÆo realizado com a impressora do clientre 

;*******************************************************************************
Proc Monta_Etiqueta()
Moveto "Answer"

Print File Arquivo "O\n"
Print File Arquivo "N\n"
Print File Arquivo "q880\n"
Print File Arquivo "Q760,24\n"
Print File Arquivo "S2\n"
Print File Arquivo "D8\n"
Print File Arquivo "ZB\n" 

If Not IsBlank(CDBAR[1])                                                 ;Altera‡Æo na primeira posi‡Æo pra centraliza‡Æo
   Then Print File Arquivo "A590,235,2,3,1,2,N,\""+DITEA[1]+"\"\n"       ;Antes Utilizava [590 / 235] ou [390 / 265]
        Print File Arquivo "B555,190,2,E30,3,4,70,B,\""+CDBAR[1]+"\"\n"  ;                [555 / 190] ou [355 / 220]
EndIf                    

Print File Arquivo "P1\n"

EndProc

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

Array DITEA[1]
Array CDBAR[1]

Arquivo="CR.ejf"
Deleta_Arquivo(Arquivo)

Coedit "Answer"
Scan
  te=[Quantidade]
  DITEA[1] = Ltrim([Descricao do Item])
  CDBAR[1]=[Codigo de Barras]
  While True    
    Monta_Etiqueta()
    te = te - 1
    If te <=0 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
