;* ;** Et_Z373 *****************************************************************
;* Monta Etiqueta p/ Imp. T‚rmica/Zebra                           * Modelo 134 *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 03/01/2020 por Bruno Carvalho
;Ultima Alteracao: 09/01/2020 por Bruno Carvalho                  
;Motivo Alteracao: Ajustes de 38 para 34 o numero de caracteres a ser impresso na composi‡Æo
            
;*******************************************************************************
;Monta Etiqueta                                                                ;
;*******************************************************************************
Proc Monta_Etiqueta()

;Print File Arquivo "q1272\n"        ;DOT a 12 por mm
Print File Arquivo "q848\n"          ;DOT a  8 por mm
Print File Arquivo "Q400,032\n"      ;DOT a  8 por mm
Print File Arquivo "rN\n"
Print File Arquivo "S3\n"
Print File Arquivo "D7\n"
Print File Arquivo "ZT\n"
Print File Arquivo "JF\n"
Print File Arquivo "O\n"
Print File Arquivo "N\n"

Print File Arquivo "A40,010,0,4,1,2,N,\""+DITEA+"\"\n"
Print File Arquivo "A40,075,0,4,1,2,N,\""+DITEB+"\"\n"
Print File Arquivo "A40,140,0,4,1,2,N,\""+DITEC+"\"\n"
Print File Arquivo "A40,205,0,4,1,2,N,\""+DITEC2+"\"\n"
Print File Arquivo "A40,270,0,4,1,2,N,\""+DITEC3+"\"\n"
Print File Arquivo "A40,335,0,4,1,2,N,\""+DITED+"\"\n"

Print File Arquivo "P1\n"

EndProc                 

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

DATA = Format("D13",Today())

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

Coedit "Answer"
Scan
  GetRecord "\\Sistemas\\Estoque\\Itens" [Codigo do Item] To ITEM
  If RetVal
     Then DESC_ITEM         = ITEM["Descricao do Item"]
          DESC_COMPLEMENTAR = ITEM["Descricao Complementar"]
          PAIS              = ITEM["Pais"]
          If Rtrim(DESC_COMPLEMENTAR) = "" Then DESC_COMPLEMENTAR = DESC_ITEM EndIf
     Else DESC_ITEM         = ""
          DESC_COMPLEMENTAR = ""
          PAIS              = "" 
  EndIf   
  
  GetRecord "\\Sistemas\\Estoque\\Iten_tec" [Codigo do 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     
  
  CITEM  = [Codigo do Item]
  ARTIGO = CITEM
    
  If Not IsBlank(VSDGTABELA2)
     Then GetRecord "\\Sistemas\\Vendas\\Tbprite" VSDGTABELA2,CITEM To TABELADEPRECO2
         If RetVal
             Then PRUNIT2 = StrVal(Tira_CharNum(TABELADEPRECO2["Preco Unitario"])) 
             Else PRUNIT2 = ""
         EndIf
     Else PRUNIT2 = ""    
  EndIf   
   
  GetRecord "\\Sistemas\\Cadastro\\Empresas" "0001" To REG_EMP
  If RetVal
     Then EMPRE = Format("W49,AC",REG_EMP["Nome Fantasia Empresa"]+" - "+REG_EMP["CGC Empresa"])
     Else EMPRE = ""
  EndIf      

  te=[Quantidade]
  ce=0
  While True            
    ce=ce+1
    DITEA = "     ARTIGO: "+Format("W12,AL",ARTIGO) +"    CODIGO: "+Format("W10",PRUNIT2) 
    DITEB = "  DESCRICAO: "+DESC_ITEM
    DITEC = " COMPOSICAO: "+SubStr(DESC_COMPLEMENTAR,1,34)
    DITEC2= "             "+SubStr(DESC_COMPLEMENTAR,35,34)
    DITEC3= "             "+SubStr(DESC_COMPLEMENTAR,69,34)
    DITED = "    LARGURA: "+Format("W12",LARGURA)   ;+" GRAMATURA: "+Format("W10",GRAMATURA)
   ;DITEE = " RENDIMENTO: "+Format("W12",RENDIMENTO)+"      PECA: "+PECA    
    Monta_Etiqueta()
    If ce>=te 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
