;** Et_ZT01 ********************************************************************
;* Monta Etiqueta p/ Impressora Termica - Zebra                    **  Textil **
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 16/03/2012 por Karina Andrade
;Ultima Alteracao:   /  /     por  
;Motivo Alteracao: 

;*******************************************************************************
Proc Monta_Etiqueta()

Print File Arquivo "O\n"
Print File Arquivo "N\n"
Print File Arquivo "q750\n"
Print File Arquivo "Q296,24+\n"
Print File Arquivo "S2\n"
Print File Arquivo "D8\n"
Print File Arquivo "ZT\n"

Print File Arquivo "A10,30,0,1,2,2,N,\""+"PRODUTO: "+VSDGITEM+"\"\n"
Print File Arquivo "A400,30,0,1,2,2,N,\""+"CODIGO: "+VSDGCOD+"\"\n"

Print File Arquivo "A100,100,0,1,2,2,N,\""+VSDGNOMITEM+"\"\n"

Print File Arquivo "A120,130,0,1,2,2,N,\""+VSDGNOME+"\"\n"

Print File Arquivo "A010,240,0,1,2,2,N,\""+"LARGURA: "+Strval(VSDGLARG)+"\"\n"
Print File Arquivo "A270,240,0,1,2,2,N,\""+"PECA: "+Strval(VSDGPEC)+" "+Strval(VSDGPEC_MED)+"\"\n"
Print File Arquivo "A560,240,0,1,2,2,N,\""+"REND: "+Strval(VSDGREND)+" "+Strval(VSDGPEC_MED)+"\"\n"

Print File Arquivo "A560,280,0,1,2,2,N,\""+"Most. N§:______"+"\"\n"

Print File Arquivo "P"+StrVal(VSDGQUAN)+"\n"

EndProc

;*******************************************************************************
;* Monta Comandos p/ Impressora Termica                                        *
;*******************************************************************************
Proc Monta_Comandos()

Arquivo="ET_ZT01.ejf"
Deleta_Arquivo(Arquivo)

Monta_Etiqueta()
ImpriArq(Arquivo)

Sleep 700
Deleta_Arquivo(Arquivo)
ClearAll
EndProc

Monta_Comandos()
Release Procs Monta_Etiqueta,Monta_Comandos
