;* ;** Et_Z397E ****************************************************************
;* Monta Etiqueta p/ Imp. T‚rmica - Zebra - Interno                            *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 26/08/2020 por Bruno Carvalho
;Ultima Alteracao: 28/08/2020 por Bruno Carvalho                               
;Motivo Alteracao: Adicionado n£mero da expedi‡Æo ao lado do CGC da pessoa 
                          
;* 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 "A25,005,0,2,2,2,N,\""+DITEA+"\"\n"
Print File Arquivo "A25,040,0,4,1,1,N,\""+DITEB+"\"\n"
Print File Arquivo "A25,075,0,4,1,1,N,\""+DITEC+"\"\n"
Print File Arquivo "A25,105,0,4,1,1,N,\""+DITEC2+"\"\n"
Print File Arquivo "A25,135,0,4,1,1,N,\""+DITEC3+"\"\n"
Print File Arquivo "A25,165,0,4,1,1,N,\""+DITEE+"\"\n"
Print File Arquivo "A25,195,0,4,1,1,N,\""+DITEF+"\"\n"
Print File Arquivo "A25,240,0,4,1,2,N,\""+DITEG+"\"\n"
Print File Arquivo "A380,252,0,2,2,2,N,\""+PRECO+"\"\n"

TAMANHO_SIMBOLOGIA="PP"
Imprime_Simbologia("ZEBRA","50","305","6")  

;Print File Arquivo "A25,350,0,4,1,1,N,\""+DITEH+"\"\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
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_Z361a.ext"
If IsFile(Arquivo)
   Then Deleta_Arquivo(Arquivo)
EndIf

NUM_EXPED = "EXPED: "+[ExpedC-> Numero da OE]

NOME = ""
CGC  = ""
GetRecord "\\Sistemas\\Cadastro\\Destinat" [ExpedC->Codigo] To REG_PESSOA
If ReTval
   Then NOME = REG_PESSOA["Razao Social"]
        CGC  = REG_PESSOA["CGC"]
EndIf

AUX_CODIGO_ITEM = [Item_Digitacao]
GetRecord "\\Sistemas\\Estoque\\Itens" AUX_CODIGO_ITEM To ITEM
If RetVal
   Then REFERENCIA              = ITEM["Referencia"]
        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 REFERENCIA              = ""
        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   

GetRecord "\\Sistemas\\Estoque\\Iten_Com" AUX_CODIGO_ITEM To REG_ITEMCOMP     
If RetVal
   Then CONCENTRADOR = REG_ITEMCOMP["Codigo Concentrador"]
   Else CONCENTRADOR = ""
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

te=1
ce=0                
While True                        
  ce=ce+1
  DITEA = Format("W28,AC",SubStr(NOME,1,26))
  DITEB = Format("W13",NUM_EXPED)+Format("W27,AR",CGC)
  DITEC = " ART: "+ARTIGO
  DITEC2= "DESC: "+SubStr(Ltrim(DESC_ITEM),1,30)
  DITEC3= "COMP: "+SubStr(Ltrim(COMPOSICAO),1,34)
  DITEE = "      "+"LARG: "+LARGURA
  DITEF = "PAIS: "+PAIS
  If [Quantidade_Expedida] - Int([Quantidade_Expedida]) > 0
     Then DITEG = "METRAGEM: "+Rtrim(Ltrim(Format("W12.3,AR",[Quantidade_Expedida])))+Spaces(1)+UNIDADE
     Else DITEG = "METRAGEM: "+Rtrim(Ltrim(Format("W12,AR",[Quantidade_Expedida])))+Spaces(1)+UNIDADE
  EndIf
  PRECO = "R$: "
 ;DITEH = Format("W39,AC",StrVal(Today()))
  Monta_Etiqueta()
  If ce>=te Then QuitLoop EndIf
EndWhile
  
If IsFile(Arquivo)
   Then ImpriArq(Arquivo)
        Deleta_Arquivo(Arquivo)
EndIf   

ClearAll
EndProc

Monta_Comandos()
Release Procs Monta_Etiqueta,Monta_Comandos
