;** EB_210 ********************************************************************
;*  Emissao de Boletas Banco do Brasil          DIOBRA                             *
;*****************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 20/04/2009 por Nikolas
;Ultima Alteracao:   /  /2009 por
;Motivo Alteracao: Ajustes
;*******************************************************************************
;* 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",StrVal([Data Vencimento]))+"\n\n\n\n"

Print File ARQIMP Format("D10",[Answer->Data de Emissao])

If Not IsBlank([Ordem do Documento])
   Then Print File ARQIMP Spaces(03)+Format("W12,AL",[Answer->Numero do Documento]+"/"+[Ordem do Documento])
   Else Print File ARQIMP Spaces(03)+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(0)+"JUROS DE MORA DE 0.2% AO DIA"+"\n"
Print File ARQIMP Spaces(0)+"PROTESTAR 10 DIAS APOS O VENCIMENTO"+"\n"
Print File ARQIMP Spaces(0)+"PODE SER PAGO EM NOSSA LOJA AV. PARANA 1818"+"\n"
Print File ARQIMP Spaces(0)+"BAIRRO SAO JOSE - DIVINOPOLIS-MG"+"\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\n"

Print File ARQIMP CI_10CPP
Print File ARQIMP CI_6LPP
