;** ET_Z382M ********************************************************************
;* Monta Etiqueta p/ Impressora Termica - Zebra                                *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 29/11/2018 por Bruno Carvalho
;Ultima Alteracao: 30/11/2018 por Bruno Carvalho  
;Motivo Alteracao: Ajsutes no VALOR VENDA para CODIGO e alterado o "." no pre‡o para "7" 
;Ultima Alteracao: 30/11/2018 por Bruno Carvalho  
;Motivo Alteracao: Ajsutes no VALOR VENDA para CODIGO e alterado o "." no pre‡o para "7" 
;Ultima Alteracao: 03/12/2018 por Bruno Carvalho  
;Motivo Alteracao: Ajsutes impressÆo grande e descricao do item                              

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

Print File Arquivo "q800\n"
Print File Arquivo "Q300,24+\n"
Print File Arquivo "rN\n"
Print File Arquivo "S3\n"
Print File Arquivo "D10\n"
Print File Arquivo "ZT\n"
Print File Arquivo "JF\n"
Print File Arquivo "O\n"
Print File Arquivo "N\n"

If MODO_IMPRESSAO = 1
   Then ;MODO_IMPRESSAO=1 -> Com descritivos maiores na impressÆo da etiqueta
        Print File Arquivo "A05,010,0,1,2,4,N,\""+LINHA1+"\"\n"
        Print File Arquivo "A05,055,0,1,2,4,N,\""+LINHA2+"\"\n"
        Print File Arquivo "A05,100,0,1,2,4,N,\""+LINHA3+"\"\n"
        Print File Arquivo "A05,145,0,1,2,4,N,\""+LINHA4+"\"\n"
;       Print File Arquivo "A05,195,0,1,2,3,N,\""+LINHA5+"\"\n"
        Print File Arquivo "A05,190,0,1,2,4,N,\""+LINHA6+"\"\n"
;       Print File Arquivo "A05,235,0,1,2,4,N,\""+LINHA7+"\"\n"
        Print File Arquivo "A05,235,0,1,2,4,N,\""+LINHA8+"\"\n"
   Else ;MODO_IMPRESSAO=2 -> Com descritivos menores na impressÆo da etiqueta 
        Print File Arquivo "A05,030,0,1,2,2,N,\""+LINHA1+"\"\n"
        Print File Arquivo "A05,070,0,1,2,2,N,\""+LINHA2+"\"\n"
        Print File Arquivo "A05,100,0,1,2,2,N,\""+LINHA3+"\"\n"
        Print File Arquivo "A05,130,0,1,2,2,N,\""+LINHA4+"\"\n"
;       Print File Arquivo "A05,160,0,1,2,2,N,\""+LINHA5+"\"\n"
        Print File Arquivo "A05,160,0,1,2,2,N,\""+LINHA6+"\"\n"
        Print File Arquivo "A05,210,0,1,2,2,N,\""+LINHA7+"\"\n" 
        Print File Arquivo "A05,250,0,1,2,2,N,\""+LINHA8+"\"\n" 
EndIf

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

EndProc

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

Arquivo=PrivDir()+"ET_Z382M.ejf"
Deleta_Arquivo(Arquivo)

MODO_IMPRESSAO = 1

GetRecord "\\Sistemas\\Estoque\\Itens" VSDGITEM To ITEM
If RetVal
   Then REFERENCIA = ITEM["Referencia"] 
        DESC_COMP  = ITEM["Descricao Complementar"]
   Else REFERENCIA = ""
        DESC_COMP  = "" 
EndIf 

PRECO=""
If VSDGTABELA<>""
   Then GetRecord "\\Sistemas\\Vendas\\Tbprite" VSDGTABELA,VSDGITEM To REG_PRECO
        If RetVal
           Then PRECO=StrVal(REG_PRECO["Preco Unitario"])
                PosI = Search(".",PRECO)
                If PosI>0
                   Then PRECO = Substr(PRECO,1,PosI-1)+"/"+Substr(PRECO,PosI+1,Len(PRECO))
                EndIf    
        EndIf
EndIf        

LINHA1 = "   REFERENCIA: "+REFERENCIA
LINHA2 = " "+Ltrim(SubStr(DESC_COMP,01,37))
LINHA3 = " "+Ltrim(SubStr(DESC_COMP,38,37))
LINHA4 = " "+Ltrim(SubStr(DESC_COMP,75,37))
LINHA5 = " "
LINHA6 = "       CODIGO: "+PRECO
LINHA8 = "REPRESENTANTE: "+LTRIM(VSDGNOMREPR)

If IsBlank(VSDGQUAN) Then VSDGQUAN = 1 EndIf

Monta_Etiqueta()
ImpriArq(Arquivo)

Sleep 700
Deleta_Arquivo(Arquivo)
ClearAll
EndProc

Monta_Comandos()
Release Procs Monta_Etiqueta,Monta_Comandos
