;** Et_Z009 ********************************************************************
;* Monta Etiqueta p/ Impressora Termica - Zebra - EAN13  CAROL I                      *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 19/08/2008 por Anivel Augusto Rodrigues
;Ultima Alteracao:   /  /     por
;Motivo Alteracao:

;*******************************************************************************

Proc Monta_Etiqueta()
Moveto "Answer"
Print File Arquivo "O\n"
Print File Arquivo "N\n"
Print File Arquivo "q640\n"
Print File Arquivo "Q0,0\n"
Print File Arquivo "S2\n"
Print File Arquivo "D8\n"
Print File Arquivo "ZT\n"

Print File Arquivo "A122,205,0,2,1,1,N,\""+SubStr(DITEM,01,15)+"\"\n"
Print File Arquivo "A122,222,0,2,1,1,N,\""+SubStr(DITEM,16,15)+"\"\n"
Print File Arquivo "B085,243,0,E30,2,4,60,B,\""+CDBAR+"\"\n"
Print File Arquivo "A140,324,0,3,1,1,N,\""+CITEM+"\"\n"
Print File Arquivo "A140,982,0,3,1,1,N,\".\"\n"
Print File Arquivo "P"+StrVal(te)+"\n"

EndProc

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

Arquivo="CAROL.ext"
Deleta_Arquivo(Arquivo)

Coedit "Answer"
Scan
  te=[Quantidade]
  DITEM=[Descricao do Item]
  CDBAR=[Codigo de Barras ]
  CITEM=[Codigo do Item   ]
  Monta_Etiqueta()
EndScan
Do_It!
ClearAll

ImpriArq(Arquivo)

Sleep 700
Deleta_Arquivo(Arquivo)
ClearAll
EndProc

Monta_Comandos()
Release Procs Monta_Etiqueta,Monta_Comandos
