;* ;** Et_Z451 *****************************************************************
;* Monta Etiqueta p/ Imp. T‚rmica                                             **
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 24/02/2021 por Bruno Carvalho
;Ultima Alteracao:   /  /     por                                
;Motivo Alteracao: 

;* 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,040,0,4,1,1,N,\""+DITEA+"\"\n"
Print File Arquivo "A25,070,0,4,1,1,N,\""+DITEB+"\"\n"
Print File Arquivo "A25,100,0,4,1,1,N,\""+DITEC+"\"\n"
Print File Arquivo "A25,130,0,4,1,1,N,\""+DITEE+"\"\n"
Print File Arquivo "A25,160,0,4,1,1,N,\""+DITEF+"\"\n"
Print File Arquivo "A25,190,0,4,1,2,N,\""+DITEG+"\"\n"

If TIPO_IMPRESSORA = "BEMATECH"
   Then Imprime_Simbologia_Bematech()
   Else Imprime_Simbologia("ZEBRA","20","250","")
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 = PrivDir()+"Et_Z451e.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

EMPRE = ""
;GetRecord "\\Sistemas\\Cadastro\\Empresas" "0001" To REG_EMP
;If RetVal
;   Then EMPRE = Format("W39,AC",REG_EMP["Nome Fantasia Empresa"]+" - "+REG_EMP["CGC Empresa"])
;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
