;** Et_Z0431 *******************************************************************
;* Monta Etiqueta p/ Imp. T‚rmica - Bematech - Interno                        **
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 13/03/2019 por Bruno Carvalho
;Ultima Alteracao: 15/03/2019 por Bruno Carvalho
;Motivo Alteracao: Ajustes: removido a composi‡Æo e adicionado duas linhas para a descricao do item (alterado para desc complementar) 
           
;*******************************************************************************
;Monta Etiqueta                                                                ;
;*******************************************************************************
Proc Monta_Etiqueta()

Print File Arquivo "ON\n"
Print File Arquivo "N\n"
Print File Arquivo "q880\n"     
Print File Arquivo "Q392,24\n"
Print File Arquivo "S2\n"
Print File Arquivo "D15\n"
Print File Arquivo "ZT\n"

TAMANHO_CLIENTE=70   ;VISE: 00

Print File Arquivo "A"+StrVal(010+TAMANHO_CLIENTE)+",010,0,4,1,1,N,\""+DITEA+"\"\n"
Print File Arquivo "A"+StrVal(100+TAMANHO_CLIENTE)+",012,0,3,1,1,N,\""+DITEA1+"\"\n"
Print File Arquivo "A"+StrVal(100+TAMANHO_CLIENTE)+",050,0,3,1,1,N,\""+DITEA2+"\"\n"
Print File Arquivo "A"+StrVal(010+TAMANHO_CLIENTE)+",085,0,4,1,1,N,\""+DITEB+"\"\n"
Print File Arquivo "A"+StrVal(100+TAMANHO_CLIENTE)+",087,0,3,1,1,N,\""+DITEB2+"\"\n"
Print File Arquivo "A"+StrVal(010+TAMANHO_CLIENTE)+",130,0,4,1,1,N,\""+DITEC+"\"\n"
Print File Arquivo "A"+StrVal(100+TAMANHO_CLIENTE)+",130,0,4,1,1,N,\""+DITEC2+"\"\n"
Print File Arquivo "A"+StrVal(010+TAMANHO_CLIENTE)+",170,0,4,1,1,N,\""+DITED+"\"\n"
Print File Arquivo "A"+StrVal(100+TAMANHO_CLIENTE)+",172,0,3,1,1,N,\""+DITED2+"\"\n"
Print File Arquivo "A"+StrVal(010+TAMANHO_CLIENTE)+",260,0,4,1,1,N,\""+EMPRE+"\"\n"
Print File Arquivo "A"+StrVal(040+TAMANHO_CLIENTE)+",295,0,3,1,1,N,\""+EMPRE2+"\"\n"
Print File Arquivo "A"+StrVal(010+TAMANHO_CLIENTE)+",340,0,3,1,1,N,\""+EXPED+"\"\n"

Print File Arquivo "P"+strval(te)+"\n"

EndProc

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

Release Vars DITEA, DITEA1, DITEA2, DITEB, DITEB2,  DITEC, DITEC2 , DITED, DITED2, DITEE, DITEE2, DITEF2

EXPED = Format("D13",Today())+Format("W36,AR","Expedicao: "+[Numero da OE])
QTD   = Format("W12.3",[Quantidade_Expedida])
ITEM  = [Item_Digitacao]   

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

GetRecord "\\Sistemas\\Estoque\\Itens" ITEM To REG_ITEM
If RetVal
   Then DESC_ITEM         = REG_ITEM["Descricao do Item"]
        DESC_COMPLEMENTAR = REG_ITEM["Descricao Complementar"]
        PAIS              = REG_ITEM["Pais"]
        COR               = REG_ITEM["Codigo da Cor_Tecido"]
        REFERENCIA        = REG_ITEM["Referencia"]
        UNIDADE_FISCAL    = REG_ITEM["Unidade Fiscal"]  
   Else DESC_ITEM         = ""
        DESC_COMPLEMENTAR = ""
        PAIS              = ""
        COR               = ""
        REFERENCIA        = ""
        UNIDADE_FISCAL    = ""   
EndIf
If DESC_COMPLEMENTAR<>"" And Len(DESC_COMPLEMENTAR)>Len(DESC_ITEM)  Then DESC_ITEM=DESC_COMPLEMENTAR EndIf 

GetRecord "\\Sistemas\\Estoque\\Iten_tec" ITEM To REG_TECIDO
If RetVal
   Then ARTIGO     = REG_TECIDO["Artigo"]
        COMPOSICAO = REG_TECIDO["Composicao"]
        PECA       = REG_TECIDO["Peca"]
        LARGURA    = REG_TECIDO["Largura"]
        GRAMATURA  = REG_TECIDO["Gramatura"]
        RENDIMENTO = REG_TECIDO["Rendimento"]
   Else ARTIGO     = ""
        COMPOSICAO = ""
        PECA       = ""
        LARGURA    = ""
        GRAMATURA  = ""
        RENDIMENTO = ""
EndIf

GetRecord "\\Sistemas\\Cadastro\\Empresas" "0001" To REG_EMP
If RetVal
   Then EMPRE  = Format("W40,AC",REG_EMP["Nome Fantasia Empresa"])
        EMPRE2 = Format("W40,AC",REG_EMP["CGC Empresa"])
   Else EMPRE  = ""
        EMPRE2 = ""
EndIf      

te=1
ce=0
While True            
  ce=ce+1
  DITEA  = " REF: "
  DITEA1 = Format("W6,AL",REFERENCIA)+Spaces(4)+Format("W30",SubStr(DESC_ITEM,1,30))
  DITEA2 = Format("W40",SubStr(DESC_ITEM,31,40))
  DITEB  = "LARG: "
  DITEB2 = Format("W12",LARGURA) 
  DITEC  = Format("W4,AR",UNIDADE_FISCAL)+": "
  DITEC2 = Format("W12.3,AL",Ltrim(QTD))
  DITED  = "ORIG: "
  DITED2 = PAIS
  Monta_Etiqueta()
  If ce>=te Then QuitLoop EndIf
EndWhile

ImpriArq(Arquivo)

Sleep 700
Deleta_Arquivo(Arquivo)
ClearAll
EndProc

Monta_Comandos()
Release Procs Monta_Etiqueta,Monta_Comandos
