;** ET_Z419 ********************************************************************
;* Etiqueta para Impressao dos Itens de Expedi‡Æo                              *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 03/10/2018 por Bruno Carvalho 
;Ultima Alteracao: 05/10/2018 por Bruno Carvalho                
;Motivo Alteracao: Ajustes na impressÆo
;Ultima Alteracao: 22/10/2019 por Bruno Carvalho                
;Motivo Alteracao: Adicionado REFERENCIA na variavel DITEA, ao lado do artigo
                     
;* Apenas para Expedic2
                    
;*******************************************************************************
;Monta Etiqueta                                                                *
;*******************************************************************************
Proc Monta_Etiqueta()

Print File Arquivo "O\n"
Print File Arquivo "N\n"
Print File Arquivo "q680\n"       ;712
Print File Arquivo "Q440,32\n"    ;240
Print File Arquivo "S2\n"
Print File Arquivo "D8\n"
Print File Arquivo "ZT\n"

;Na impressora da VISE ao inv‚s de come‡ar com 030, se come‡ar com o 000, a impressÆo sairia correta.

;Print File Arquivo "A40,040,0,4,1,1,N,\""+EMPRE+"\"\n"      ;040
Print File Arquivo "A25,030,0,4,1,1,N,\""+DITEA+"\"\n"       ;090
Print File Arquivo "A25,070,0,4,1,1,N,\""+DITEF+"\"\n"       
Print File Arquivo "A25,110,0,4,1,1,N,\""+DITEB+"\"\n"       ;120
Print File Arquivo "A25,150,0,4,1,1,N,\""+DITEC1+"\"\n"      ;150
Print File Arquivo "A25,170,0,4,1,1,N,\""+DITEC2+"\"\n"      ;180
Print File Arquivo "A25,230,0,4,1,1,N,\""+DITEE+"\"\n"       ;210
;Print File Arquivo "A25,300,0,4,1,1,N,\""+DITEF+"\"\n"       
Print File Arquivo "A25,270,0,4,1,2,N,\""+DITEG+"\"\n"       ;250

Imprime_Simbologia("ZEBRA","20","320","")
   
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

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

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

COR_TECIDO      = [Codigo da Cor_Tecido   ]
DES_TECIDO      = [Descricao da Cor_Tecido]
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"]
        REFERENCIA              = ITEM["Referencia"]
   Else DESC_ITEM               = ""
        DESC_COMPLEMENTAR       = ""
        PAIS                    = ""
        COR                     = ""
        UNIDADE                 = ""
        VSD_I_Codigo_Cor_Tecido = ""
        REFERENCIA              = ""   
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="0370"
   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("W28",Format("W10,AL",ARTIGO) + " " + "REF: "+REFERENCIA)
 ;DITEA = "    ARTIGO: "+Format("W10,AL",ARTIGO) + "DES: "+Format("W13",DES_TECIDO)
  DITEB = " DESCRICAO: "+Format("W28",DESC_ITEM)
  DITEC1= "COMPOSICAO: "+SubStr(COMPOSICAO,1,28)
  DITEC2= "            "+SubStr(COMPOSICAO,29,28)
  DITEE = "   LARGURA: "+Format("W12",LARGURA)+" PAIS: "+PAIS
  DITEF = "       DES: "+Format("W28",DES_TECIDO)
  If [Quantidade_Expedida] - Int([Quantidade_Expedida]) > 0
     Then DITEG = "QUANTIDADE: "+Rtrim(Ltrim(Format("W12.2,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
