;* ;** Et_Z359 *****************************************************************
;* Monta Etiqueta p/ Imp. T‚rmica                           ** Vitoria Textil **
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 20/02/2017 por Bruno Carvalho
;Ultima Alteracao: 24/02/2017 por Kamila Gomes                   
;Motivo Alteracao: Ajustes impressao usando vzbr
;Ultima Alteracao: 02/03/2017 por Bruno Carvalho                               
;Motivo Alteracao: Ajustes
;Ultima Alteracao: 02/03/2017 por Bruno Carvalho                               
;Motivo Alteracao: Ajustes na exibi‡Æo das informa‡äes
;Ultima Alteracao: 02/03/2017 por Bruno Carvalho                               
;Motivo Alteracao: Removido a linha GRAMATURA, pois nÆo havia utiliza‡Æo 
;Ultima Alteracao: 20/02/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Adicionado novas simbologias textil
;Ultima Alteracao: 01/03/2018 por Bruno Carvalho
;Motivo Alteracao: Alterado Imprime_Simbologia_Zebra() para Imprime_Simbologia() e Add na Bibliot
;Ultima Alteracao: 12/09/2018 por Bruno Carvalho
;Motivo Alteracao: Ajustes QUANTIDADE p/ 3 casas decimais

;* Apenas para Expedic2
          
;*******************************************************************************
;Monta Etiqueta                                                                ;
;*******************************************************************************
Proc Monta_Etiqueta()

Print File Arquivo "O\n"
Print File Arquivo "N\n"
Print File Arquivo "q680\n"
Print File Arquivo "Q440,40\n"
Print File Arquivo "S2\n"
Print File Arquivo "D8\n"
Print File Arquivo "ZT\n"

Print File Arquivo "A40,040,0,4,1,1,N,\""+EMPRE+"\"\n"
Print File Arquivo "A25,090,0,4,1,1,N,\""+DITEA+"\"\n"
Print File Arquivo "A25,120,0,4,1,1,N,\""+DITEB+"\"\n"
Print File Arquivo "A25,150,0,4,1,1,N,\""+DITEC+"\"\n"
Print File Arquivo "A25,180,0,4,1,1,N,\""+DITEE+"\"\n"
Print File Arquivo "A25,210,0,4,1,1,N,\""+DITEF+"\"\n"
Print File Arquivo "A25,250,0,4,1,2,N,\""+DITEG+"\"\n"

If TIPO_IMPRESSORA = "BEMATECH"
   Then Imprime_Simbologia_Bematech()
   Else Imprime_Simbologia("ZEBRA","20","300","")
EnDIf   
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
If Not IsAssigned(TIPO_IMPRESSORA) Then TIPO_IMPRESSORA = "ZEBRA" EndIf

; **** Para essa impressÆo, que ‚ USB, ‚ necess rio compartolhar a impressora, e 
;      ap¢s isso, capturar essa impressora no sistema em uma das portas LPT, como
;      a baixo estamos usando a LPT3, temos que capturar a impressora ZEBRA nessa porta.
; Se tiver problemas ao imprimir na LPT3, tente entÆo adicionar a impressora na LPT2

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

Arquivo = "Et_Z359e.ext"
Deleta_Arquivo(Arquivo)

AUX_CODIGO_ITEM = [Codigo do Item]
GetRecord "\\Sistemas\\Estoque\\Itens" AUX_CODIGO_ITEM To ITEM
If RetVal
   Then DESC_ITEM               = ITEM["Descricao do Item"]
        DESC_COMPLEMENTAR       = ITEM["Descricao Complementar"]
        PAIS                    = ITEM["Pais"]
        COR                     = ITEM["Codigo da Cor_Tecido"]
        UNIDADE                 = ITEM["Unidade Fiscal"]
        VSD_I_Codigo_Cor_Tecido = ITEM["Codigo da Cor_Tecido"]
   Else DESC_ITEM               = ""
        DESC_COMPLEMENTAR       = ""
        PAIS                    = ""
        COR                     = ""
        UNIDADE                 = ""
        VSD_I_Codigo_Cor_Tecido = ""   
EndIf   

GetRecord "\\Sistemas\\Estoque\\Iten_tec" AUX_CODIGO_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"]
        SIMBOLOGIA = REG_TECIDO["Simbologia_Impressao"]
   Else ARTIGO     = ""
        COMPOSICAO = ""
        PECA       = ""
        LARGURA    = ""
        GRAMATURA  = ""
        RENDIMENTO = ""
        SIMBOLOGIA = "" 
EndIf   
CONT_SIMBOL=0
DynArray SIMBOL[]
If SIMBOLOGIA<>""
   Then PosI = Search("-",SIMBOLOGIA)
        If PosI>0
           Then While PosI>0
                  CONT_SIMBOL         = CONT_SIMBOL +1
                  SIMBOL[CONT_SIMBOL] = SubStr(SIMBOLOGIA,1,PosI-1)
                  SIMBOLOGIA = SubStr(SIMBOLOGIA,PosI+1,Len(SIMBOLOGIA))
                  PosI = Search("-",SIMBOLOGIA)
                  If PosI=0
                     Then CONT_SIMBOL         = CONT_SIMBOL +1
                          SIMBOL[CONT_SIMBOL] = SIMBOLOGIA
                          QuitLoop
                  EndIf   
                EndWhile
           Else SIMBOL[1]=SIMBOLOGIA
        EndIf
   Else SIMBOL[1]=""
EndIf  
 
 
CITEM = AUX_CODIGO_ITEM
For i from 1 To 10
   If SubStr(CITEM,1,1)="0"
      Then CITEM = SubStr(CITEM,2,Len(CITEM))
      Else QuitLoop
   EndIf                               
EndFor
If SYS_CODIGO_CLIENTE="0359"
   Then ARTIGO = CITEM
EndIf

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

te=1
ce=0
While True            
  ce=ce+1
  DITEA = "    ARTIGO: "+Format("W10,AL",ARTIGO)+Spaces(4)+"COR: "+[Descricao da Cor_Tecido]
  DITEB = " DESCRICAO: "+DESC_ITEM
  DITEC = "COMPOSICAO: "+SubStr(COMPOSICAO,1,28)
  ;DITED = " GRAMATURA: "+Format("W10",GRAMATURA)
  DITEE = "   LARGURA: "+Format("W12",LARGURA)  
  DITEF = "RENDIMENTO: "+Format("W12",RENDIMENTO)+" PAIS: "+PAIS
  If [Quantidade_Expedida] - Int([Quantidade_Expedida]) > 0
     Then DITEG = " QUANTIDADE: "+Rtrim(Ltrim(Format("W12.3,AR",[Quantidade_Expedida])))+Spaces(1)+UNIDADE
     Else DITEG = " QUANTIDADE: "+Rtrim(Ltrim(Format("W12,AR",[Quantidade_Expedida])))+Spaces(1)+UNIDADE
  EndIf
  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
