;* ;** ET_0388 *****************************************************************
;* Monta Etiqueta p/ Imp. T‚rmica/Zebra                           * Modelo 135 *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 27/01/2020 por Bruno Carvalho
;Ultima Alteracao:   /  /     por                                 
;Motivo Alteracao: 
            
;*******************************************************************************
;Monta Etiqueta                                                                ;
;*******************************************************************************
Proc Monta_Etiqueta()

Print File ARQIMP Spaces(2)+DESCRICAO_1+"\n"
Print File ARQIMP Spaces(2)+DESCRICAO_2+"\n"
Print File ARQIMP Spaces(2)+DESCRICAO_3+"\n"
Print File ARQIMP Spaces(2)+DESCRICAO_4+"\n"
Print File ARQIMP Spaces(2)+DESCRICAO_5+"\n\n"

For i From 1 To DynArraySize(SIMBOL)
  Print File ARQIMP Imprime_Simbologia_A4(SIMBOL[i])
Endfor
Print File ARQIMP "\n\n"
If CONTA_FOLHA <7
  Then Print File ARQIMP Spaces(2)+Fill(chr(196),134)+"\n"
EndIf  

EndProc                 

;*******************************************************************************
;Cabe‡alho                                                                     ;
;*******************************************************************************
Proc Cabecalho()

Print File ARQIMP CI_15CPP
Print File ARQIMP CI_F_LUCIDA

;                 30 + 85 + 19 = 134
Print File ARQIMP "\n\n" 
Print File ARQIMP Spaces(2)+Fill(chr(196),134)+"\n"
Print File ARQIMP Spaces(2)+Format("W30,AL",NOMEMPRESA)+Format("W85,AC","INFORMACAO TEXTIL")+Format("D13",Today())+"-"+Time()+ "\n"
Print File ARQIMP Spaces(2)+Fill(chr(196),134)+"\n"

EndProc ;Cabecalho()

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

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

ARQIMP=PrivDir()+"ET_0388.ext"
Deleta_Arquivo(ARQIMP)

GetRecord "\\Sistemas\\Cadastro\\Empresas" "0001" To REG_EMP
If RetVal
   Then NOMEMPRESA = Format("W49,AC",REG_EMP["Nome Fantasia Empresa"])
   Else NOMEMPRESA = ""
EndIf

CONTA_FOLHA = 0

Coedit "Answer"
Scan
  If CONTA_FOLHA = 0
     Then Cabecalho()
  EndIf    

  GetRecord "\\Sistemas\\Estoque\\Itens" [Codigo do Item] To ITEM
  If RetVal
     Then DESC_ITEM         = ITEM["Descricao do Item"]
          DESC_COMPLEMENTAR = ITEM["Descricao Complementar"]
     Else DESC_ITEM         = ""
          DESC_COMPLEMENTAR = ""
  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"]
          LARGURA_U  = REG_TECIDO["Largura Util"]
          GRAMATURA  = REG_TECIDO["Gramatura"]
          RENDIMENTO = REG_TECIDO["Rendimento"]
          SIMBOLOGIA = REG_TECIDO["Simbologia_Impressao"]
     Else ARTIGO     = ""
          COMPOSICAO = ""
          PECA       = ""
          LARGURA    = ""
          GRAMATURA  = ""
          RENDIMENTO = ""
          LARGURA_U  = ""
          SIMBOLOGIA = "" 
  EndIf               
  
  ;---- Comando para Imprimir Imagens Armazenadas na Impressora ----------------
  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      

  te=[Quantidade]
  ce=0
  While True            
    
    ;"      ARTIGO:                                               
    ;"        ITEM:                                                   "     LARGURA: " 
    ;"   GRAMATURA:                                                   "LARGURA UTIL: "
    ;"        PE€A:                                                   "  RENDIMENTO: "
    ;"  COMPOSICAO:                                                                      
  
    ce=ce+1
    DESCRICAO_1 = "      ARTIGO: " + ARTIGO 
    DESCRICAO_2 = "        ITEM: " + Format("W52",DESC_ITEM) + "     LARGURA: " + LARGURA                         
    DESCRICAO_3 = "   GRAMATURA: " + Format("W52",GRAMATURA) + "LARGURA UTIL: " + LARGURA_U
    DESCRICAO_4 = "        PE€A: " + Format("W52",PECA)      + "  RENDIMENTO: " + RENDIMENTO
    DESCRICAO_5 = "  COMPOSICAO: " + COMPOSICAO
    
    CONTA_FOLHA = CONTA_FOLHA + 1 
    Monta_Etiqueta()
                      
    If CONTA_FOLHA >=7
       Then Print File ARQIMP "\f"
            CONTA_FOLHA = 0
    EndIf
    
    If ce>=te Then QuitLoop EndIf
  EndWhile
EndScan
Do_It!
ClearAll

ImpriArq(ARQIMP)

Sleep 700
Deleta_Arquivo(ARQIMP)
ClearAll
EndProc

Monta_Comandos()
Release Procs Monta_Etiqueta,Monta_Comandos,Cabecalho