;** EB_BB1 ********************************************************************
;*  Emissao de Boletas Banco do Brasil                                       *
;*****************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 12/11/1998 por Cl udio Ant“nio de Faria Santos
;Ultima Alteracao: 10/07/2003 por Karen Lauar Nery
;Motivo Alteracao: Mudan‡a ARQIMP

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

Print File ARQIMP CI_10CPP
Print File ARQIMP CI_8LPP

Print File ARQIMP "\n\n"

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

Print File ARQIMP Format("W17,AL",StrVal([Answer->Data de Emissao]))
If Not IsBlank([Ordem do Documento])
   Then Print File ARQIMP Format("W12,AL",[Answer->Numero do Documento]+"/"+[Ordem do Documento])
   Else Print File ARQIMP Format("W12,AL",[Answer->Numero do Documento])
EndIf
Print File ARQIMP "DP"+"\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]+"    - CGC "+[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"

Print File ARQIMP CI_10CPP
Print File ARQIMP CI_6LPP
