;** ET_0252  *******************************************************************
;* Monta Etiqueta p/ Impressora Termica - Zebra - Interno Ecologica            *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 19/08/2008 por Bruno Carvalho
;Ultima Alteracao: 15/06/2016 por Bruno Carvalho 
;Motivo Alteracao: Adicionado Pega_Endereco() e ajustado dados do endere‡o

;*******************************************************************************
;* Rotina                                                                      *
;*******************************************************************************
Proc Pega_Endereco(PARAM)
Private PARAM

VSD_E_Endereco=""
VSD_E_Bairro  =""
VSD_E_CEP     =""
VSD_E_Cidade  =""
VSD_E_UF      =""

VSD_C_Endereco=""
VSD_C_Bairro  =""
VSD_C_CEP     =""
VSD_C_Cidade  =""
VSD_C_UF      =""    

GetRecord "\\Sistemas\\Vendas\\FaturaCC" PARAM To REG_ENTCOB
If RetVal
   Then VSD_E_Endereco=REG_ENTCOB["Endereco de Entrega"]
        VSD_E_Bairro  =REG_ENTCOB["Bairro de Entrega"]
        VSD_E_CEP     =REG_ENTCOB["CEP de Entrega"]
        VSD_E_Cidade  =REG_ENTCOB["Cidade de Entrega"]
        VSD_E_UF      =REG_ENTCOB["UF de Entrega"]

        VSD_C_Endereco=REG_ENTCOB["Endereco de Cobranca"]
        VSD_C_Bairro  =REG_ENTCOB["Bairro de Cobranca"]
        VSD_C_CEP     =REG_ENTCOB["CEP de Cobranca"]
        VSD_C_Cidade  =REG_ENTCOB["Cidade de Cobranca"]
        VSD_C_UF      =REG_ENTCOB["UF de Cobranca"] 
EndIf   
 
EndProc ;Pega_Endereco() 

;*******************************************************************************
;* Rotina                                                                      *
;*******************************************************************************
Proc Monta_Etiqueta()
                                     
Arquivo="BALI.ext"
Deleta_Arquivo(Arquivo)

Print File Arquivo "O\n"
Print File Arquivo "N\n"
Print File Arquivo "q870\n"
Print File Arquivo "Q630,18\n"
Print File Arquivo "S2\n"
Print File Arquivo "D8\n"
Print File Arquivo "ZT\n"

Print File Arquivo "A10,10,0,1,1,1,N,\""+RazaoSocial+"\"\n"
;Print File Arquivo "A180,10,0,1,1,1,N,\""+ENDERECO+" - "+BAIRRO+"\"\n\n"
;Print File Arquivo "A180,10,0,1,1,1,N,\""+CIDADE+" - "+ESTADO+"\"\n"
;Print File Arquivo "A180,10,0,1,1,1,N,\""+"CEP: "+CEP+"\"\n\n"
;Print File Arquivo "A180,10,0,1,1,1,N,\""+"Transportadora: "+RAZTRA+"\"\n"
;Print File Arquivo "A180,10,0,1,1,1,N,\""+"Nota Fiscal: "+NUMNOT+"\"\n"  
;Print File Arquivo "A180,10,0,1,1,1,N,\""+"Volume: "+INI+"/"+FIM+"\"\n"  

ImpriArq(Arquivo)

Sleep 700
Deleta_Arquivo(Arquivo)
Sleep 700

EndProc

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

Fim=False
CoEdit "Answer"
Moveto [Sequencia]
Scan
    Moveto [Codigo]
    Ativa_Lookup()
    Moveto [Codigo]
    Locate [Answer->Codigo]
    If RetVal
       Then RazaoSocial =[Razao Social]
            ENDERECO    =[Endereco    ]
            BAIRRO      =[Bairro      ]
            CIDADE      =[Cidade      ]
            ESTADO      =[UF          ]
            CEP         =[CEP         ]

       Else RazaoSocial="1234567890123456789012345678901234567890"
            ENDERECO   ="1234567890123456789012345678901234567890"
            BAIRRO     ="12345678901234567890"
            CIDADE     ="12345678901234567890"
            ESTADO     ="12"
            CEP        ="1234567890"
     EndIf
     KeyPress "ESC"
     
     Moveto [Numero da OF]
     Ativa_Lookup()
     Locate [Answer->Numero da OF]
     If RetVal
       Then Pega_Endereco([Answer->Numero da OF])
            
            ENDENT  =VSD_E_Endereco
            BAIENT  =VSD_E_Bairro
            CIDENT  =VSD_E_Cidade
            ESTENT  =VSD_E_UF
            CEPENT  =VSD_E_CEP
            RAZTRA  =[Razao Social Transport]
     EndIf

     KeyPress "ESC"
     Moveto [Codigo]

    If ENDENT <> "O MESMO" 
       Then ENDERECO   = ENDENT
            BAIRRO     = BAIENT
            CIDADE     = CIDENT
            ESTADO     = ESTENT
            CEP        = CEPENT
    EndIF     
    
    NUMNOT = [Numero do Documento]
    NCOP   = [NCopias]    
    FIM    = ALINHM(StrVal(NCOP),3)

  For wi From 1 To [NCopias]
   INI = ALINHM(StrVal(wi),3)
   Monta_Etiqueta()  
  EndFor
  
EndScan
Do_It!
ClearAll

EndProc

Monta_Comandos()
Release Procs Monta_Etiqueta,Monta_Comandos
