;** EV_0415  *******************************************************************
;* Monta Etiqueta p/ Impressora Termica - Zebra                                *
;* ImpressÆo de Remete / Destinat rio                                          *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 14/04/2018 por Bruno Carvalho
;Ultima Alteracao:   /  /     por Bruno Carvalho
;Motivo Alteracao: 

;*******************************************************************************
;* Rotina                                                                      *
;*******************************************************************************
Proc Imprime_Destinatario()

Print File Arquivo "q840\n"
Print File Arquivo "Q400,024\n"
Print File Arquivo "rN\n"
Print File Arquivo "S3\n"
Print File Arquivo "D7\n"
Print File Arquivo "ZT\n"
Print File Arquivo "JF\n"
Print File Arquivo "O\n"
Print File Arquivo "N\n"

Print File Arquivo "A40,010,0,4,2,2,N,\""+DESTINATARIO_TITULO+"\"\n"
Print File Arquivo "A40,065,0,4,1,2,N,\""+DESTINATARIO_RAZSOCIAL+"\"\n"
Print File Arquivo "A40,120,0,4,1,2,N,\""+DESTINATARIO_ENDERECO+"\"\n"
Print File Arquivo "A40,175,0,4,1,2,N,\""+DESTINATARIO_BAIRRO+"\"\n"
Print File Arquivo "A40,230,0,4,1,2,N,\""+DESTINATARIO_CIDADE_UF+"\"\n"
Print File Arquivo "A40,285,0,4,1,2,N,\""+DESTINATARIO_CEP+"\"\n"
Print File Arquivo "A40,340,0,4,1,2,N,\""+DESTINATARIO_NF+"\"\n"

Print File Arquivo "P1\n"

EndProc ;Imprime_Destinatario()

;*******************************************************************************
;* Rotina                                                                      *
;*******************************************************************************
Proc Imprime_Remetente()

Print File Arquivo "q840\n"
Print File Arquivo "Q400,024\n"
Print File Arquivo "rN\n"
Print File Arquivo "S3\n"
Print File Arquivo "D7\n"
Print File Arquivo "ZT\n"
Print File Arquivo "JF\n"
Print File Arquivo "O\n"
Print File Arquivo "N\n"

Print File Arquivo "A40,010,0,4,2,2,N,\""+REMETENTE_TITULO+"\"\n"
Print File Arquivo "A40,070,0,4,1,2,N,\""+REMETENTE_FANTASIA+"\"\n"
Print File Arquivo "A40,130,0,4,1,2,N,\""+REMETENTE_ENDERECO+"\"\n"
Print File Arquivo "A40,190,0,4,1,2,N,\""+REMETENTE_BAIRRO+"\"\n"
Print File Arquivo "A40,260,0,4,1,2,N,\""+REMETENTE_CIDADE_UF+"\"\n"
Print File Arquivo "A40,330,0,4,1,2,N,\""+REMETENTE_CEP+"\"\n"

Print File Arquivo "P1\n"

EndProc ;Imprime_Remetente()                                       

;*******************************************************************************
;* Monta Comandos p/ Impressora Termica                                        *
;*******************************************************************************
Proc Monta_Comandos()

Verifica=False
RAZTRA = ""

Arquivo=PrivDir()+"EV_0415.EJF"
Deleta_Arquivo(Arquivo)

Fim=False
CoEdit "Answer"
Moveto [Sequencia]
Scan              
  DESTINATARIO_TITULO    = "" 
  DESTINATARIO_RAZSOCIAL = ""
  DESTINATARIO_ENDERECO  = ""
  DESTINATARIO_BAIRRO    = ""
  DESTINATARIO_CIDADE_UF = ""
  DESTINATARIO_CEP       = ""
  DESTINATARIO_NF        = ""
  DESTINATARIO_VOLUMES   = ""
  
  REMETENTE_TITULO       = ""
  REMETENTE_FANTASIA     = ""
  REMETENTE_ENDERECO     = ""
  REMETENTE_BAIRRO       = "" 
  REMETENTE_CIDADE_UF    = ""
  REMETENTE_CEP          = ""
  
  GetRecord "\\Sistemas\\Cadastro\\Empresas" "0001" To REG_EMP
  If RetVal
     Then REMETENTE_TITULO       = "REMETENTE"
          REMETENTE_FANTASIA     = REG_EMP["Nome Fantasia Empresa"]
          REMETENTE_ENDERECO     = REG_EMP["Endereco Empresa"]
          REMETENTE_BAIRRO       = REG_EMP["Bairro Empresa"]  
          REMETENTE_CIDADE_UF    = REG_EMP["Cidade Empresa"]+" - "+REG_EMP["UF Empresa"]  
          REMETENTE_CEP          = REG_EMP["CEP Empresa"]
  EndIf
  
  GetRecord "\\Sistemas\\Vendas\\FaturaC" [Numero da OF] To REG_FATURAC       
  If RetVal
     Then VOLUME = StrVal(REG_FATURAC["Numero de Volumes"])
     Else VOLUME = 1
  EndIf
  
  If Rtrim(StrVal(VOLUME))="" Then VOLUME=1 EndIf
     
  GetRecord "\\Sistemas\\Cadastro\\Destinat" [Codigo] To REG_CLIENTE 
  If ReTval
     Then DESTINATARIO_TITULO    = "DESTINATARIO" 
          DESTINATARIO_RAZSOCIAL = REG_CLIENTE["Razao Social"]  
          DESTINATARIO_ENDERECO  = REG_CLIENTE["Endereco"]
          DESTINATARIO_BAIRRO    = REG_CLIENTE["Bairro"] 
          DESTINATARIO_CIDADE_UF = REG_CLIENTE["Cidade"]+" - "+REG_CLIENTE["UF"]
          DESTINATARIO_CEP       = REG_CLIENTE["CEP"]  
          DESTINATARIO_NF        = [Numero da OF]
  EndIf
  
  VOLUME=4
  
  NCOP   = NumVal(VOLUME)   
  FIM    = ALINHM(StrVal(VOLUME),3)
  NUMNOT = [Numero do Documento]
  
  ;---- Formata‡Æo da Etiqueta -------------------------------------------------
  DESTINATARIO_TITULO    = Format("W24,AC",DESTINATARIO_TITULO)
  DESTINATARIO_RAZSOCIAL = Format("W49","  Cliente: "+DESTINATARIO_RAZSOCIAL)
  DESTINATARIO_ENDERECO  = Format("W49"," Endereco: "+DESTINATARIO_ENDERECO)
  DESTINATARIO_BAIRRO    = Format("W49","   Bairro: "+DESTINATARIO_BAIRRO)
  DESTINATARIO_CIDADE_UF = Format("W49","Cidade/UF: "+DESTINATARIO_CIDADE_UF)
  DESTINATARIO_CEP       = Format("W49","      CEP: "+DESTINATARIO_CEP)
  
  REMETENTE_TITULO       = Format("W24,AC","REMETENTE")
  REMETENTE_FANTASIA     = Format("W49","  Cliente: "+REG_EMP["Nome Fantasia Empresa"])
  REMETENTE_ENDERECO     = Format("W49"," Endereco: "+REG_EMP["Endereco Empresa"])
  REMETENTE_BAIRRO       = Format("W49","   Bairro: "+ REG_EMP["Bairro Empresa"])
  REMETENTE_CIDADE_UF    = Format("W49","Cidade/UF: "+REG_EMP["Cidade Empresa"]+" - "+REG_EMP["UF Empresa"])
  REMETENTE_CEP          = Format("W49","      CEP: "+REG_EMP["CEP Empresa"])
  
  IMPRIME_REMETENTE      = False        
  For wi From 1 To NumVal(VOLUME)
   INI = ALINHM(StrVal(wi),3)
   DESTINATARIO_NF       = Format("W49","       NF: "+NUMNOT+"   "+"Volumes: "+StrVal(NumVal(INI))+"/"+StrVal(NumVal(FIM)))
   Imprime_Destinatario()
   If wi=NumVal(VOLUME)
      Then Imprime_Remetente()  
   EndIf
  EndFor  
EndScan
Do_It!
ClearAll

ImpriArq(Arquivo)

Sleep 1000
Deleta_Arquivo(Arquivo)

EndProc

Monta_Comandos()
Release Procs Monta_Etiqueta,Monta_Comandos
