;** Eb_0255 ******************************************************************
;*  Emissao de Boletas Banco Real   **itauna auto freios**                   *
;*****************************************************************************
;Autor: Visao/Vise
;Desenvolvido    : 07/07/2010 por Humberto Felipe Santos.
;Ultima Alteracao: 00/00/2010 por
;Motivo Alteracao:

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

Print File ARQIMP CI_10CPP
Print File ARQIMP CI_8LPP

Print File ARQIMP "\n"

Print File ARQIMP Spaces(52)+Format("d13",[Data Vencimento])+"\n\n\n\n"

Print File ARQIMP Format("d13",[Answer->Data de Emissao])+Spaces(04)

If Not IsBlank([Ordem do Documento])
   Then Print File ARQIMP Format("W16,AL",[Answer->Numero do Documento]+"/"+[Ordem do Documento])
   Else Print File ARQIMP Format("W16,AL",[Answer->Numero do Documento])
EndIf
Print File ARQIMP " "+Spaces(08)+Format("d13",Today())+"\n"

Print File ARQIMP "\n"

Print File ARQIMP Spaces(55)+Format("W12.2,EIC,AL",[Valor Duplicata])+"\n"

Print File ARQIMP "\n\n"

Print File ARQIMP Spaces(2)+SubStr(MSGDUP,1,40)+"\n"
Print File ARQIMP Spaces(2)+SubStr(MSGDUP,41,40)+"\n"
Print File ARQIMP Spaces(2)+SubStr(MSGDUP,81,40)+"\n"
Print File ARQIMP Spaces(2)+SubStr(MSGDUP,121,30)+"\n"

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

Print File ARQIMP Spaces(01)+[Answer->Razao Social Fatura]+Spaces(06)+[Answer->CGC Fatura]+"\n"
Print File ARQIMP Spaces(01)+[Answer->Endereco Fatura]+" -   " + [Answer->Bairro Fatura]+"\n"
Print File ARQIMP Spaces(01)+[Answer->Cidade Fatura]+"/"+[Answer->UF Fatura]+" -   "+[Answer->CEP Fatura]+"\n"

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

Print File ARQIMP CI_10CPP
Print File ARQIMP CI_6LPP

