;** Eb_Itau4 *******************************************************************
;*  Emissao de Boletas - Itau                                                  *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 09/08/2012 por Anivel Augusto Rodrigues
;Ultima Alteracao:   /  /     por 
;Motivo Alteracao: 

;*******************************************************************************
;* Rotina de Impressao de Duplicatas                                           *
;*******************************************************************************

;---- Inicia Arquivo Impressao -------------------------------------------------
Print File ARQIMP CI_10CPP
Print File ARQIMP Chr(27)+Chr(48)       ; Espacamentos entre as linhas em 1/8
Print File ARQIMP "\n\n\n"

Print File ARQIMP Spaces(00)+"QUALQUER AGENCIA ATE O VENCIMENTO"
Print File ARQIMP Spaces(20)+AlinhM(LTrim(StrVal(Format("D13",dtvenc))),10)+"\n"

Print File ARQIMP "\n\n\n"

Print File ARQIMP Spaces(00)+Format("W08,AL",Format("D10",pridtemis))
Print File ARQIMP Spaces(02)+Format("W08,AL",pridocto+"  ")
Print File ARQIMP Spaces(11)+"DUP"+"\n"

Print File ARQIMP "\n"

Print File ARQIMP Spaces(51)+Format("W12.2,EIC,AR",vrdoctos)+"\n"

Print File ARQIMP "\n\n"

Print File ARQIMP Spaces(0)+"APOS O VENCIMENTO COBRAR"+"\n"
Print File ARQIMP Spaces(0)+"R$ "+LTrim(Format("W12.2,EIC,AR",vrmulta))+" MULTA. "+
                  "MAIS R$ "+LTrim(Format("W12.2,EIC,AR",vjurosdia))+" JUROS AO DIA."+"\n"

Print File ARQIMP Spaces(0)+"PROTESTAR APOS 3 DIAS DE VENCIMENTO"+"\n"

If ntit>1
   Then Print File ARQIMP Spaces(0)+SubStr(reldoctos,001,44)+"\n"
        Print File ARQIMP Spaces(0)+SubStr(reldoctos,045,44)+"\n"
   Else Print File ARQIMP "\n\n"
EndIf   

Print File ARQIMP "\n"
Print File ARQIMP spaces(0)+"NUMERO DA BOLETA/BANCO: "+StrVAl(VSDGBOLETA)
Print File ARQIMP "\n\n\n"

Print File ARQIMP Spaces(03)+[\Sistemas\Cadastro\Destinat->Razao Social]+" - "+
           [\Sistemas\Cadastro\Destinat->Codigo]+"  "+
           [\Sistemas\Cadastro\Destinat->CGC]+"\n"

If End_CobOk=False 
   Then Print File ARQIMP Spaces(03)+[\Sistemas\Cadastro\Destinat->Endereco]+" -   " + [\Sistemas\Cadastro\Destinat->Bairro]+"\n"
        Print File ARQIMP Spaces(03)+[\Sistemas\Cadastro\Destinat->Cidade]+"/"+[\Sistemas\Cadastro\Destinat->UF]+
                          " -   "+[\Sistemas\Cadastro\Destinat->CEP]+
                          " - "+[\Sistemas\Cadastro\Destinat->Telefone]+"\n"
   Else
        Print File ARQIMP Spaces(03)+[\Sistemas\Cadastro\End_Cob->Endereco de Cobranca]+" -   " + [\Sistemas\Cadastro\End_Cob->Bairro de Cobranca]+"\n"
        Print File ARQIMP Spaces(03)+[\Sistemas\Cadastro\End_Cob->Cidade de Cobranca]+"/"+[\Sistemas\Cadastro\End_Cob->UF de Cobranca]+
                          " -   "+[\Sistemas\Cadastro\End_Cob->CEP de Cobranca]+
                          " - "+[\Sistemas\Cadastro\Destinat->Telefone]+"\n"
EndIf

Print File ARQIMP "\n\n\n\n\n\n\n\n"

