;** PB_0117 ******************************************************************
;*  Emissao de Pre-Boletas Banco do Brasil                                   *
;*****************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 23/04/2004 por Anivel Augusto Rodrigues
;Ultima Alteracao:   /  /     por
;Motivo Alteracao:

;*******************************************************************************
;* Rotina de Impressao de Duplicatas                                           *
;*******************************************************************************
Print File ARQIMP CI_10CPP
Print File ARQIMP CI_8LPP

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

Print File ARQIMP "\n\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"

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

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

Print File ARQIMP CI_10CPP
Print File ARQIMP CI_6LPP
