;** Eb_Cef4*********************************************************************
;*  Emissao de Boletas - Caixa Economica Federal                               *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 04/08/2012 por Anivel Augusto Rodrigues
;Ultima Alteracao:   /  /     por 
;Motivo Alteracao: 

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

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

Print File ARQIMP Spaces(02)+"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(02)+Format("W08,AL",Format("D10",pridtemis))

Print File ARQIMP Spaces(02)+Format("W08,AL",pridocto+"  ")

Print File ARQIMP Spaces(06)+"DM"+"\n"

Print File ARQIMP "\n"

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

Print File ARQIMP "\n\n"

Print File ARQIMP Spaces(4)+SubStr(MSGDUP,001,44)+"\n"
Print File ARQIMP Spaces(4)+SubStr(MSGDUP,045,44)+"\n"

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

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

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

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

Print File ARQIMP "\n\n\n\n\n\n\n\n\n"
;Print File ARQIMP  Chr(27)+Chr(18)       ; 10 Caracteres por Polegada
;Print File ARQIMP  Chr(27)+Chr(50)       ; Espacamentos entre as linhas em 1/6

