;** Eb_Merc ******************************************************************
;*  Emissao de Boletas Banco Mercantil                                       *
;*****************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 08/08/2003 por Karen Lauar Nery
;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"

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

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

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

Print File ARQIMP "\n"

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

Print File ARQIMP "\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(04)+[Answer->Razao Social Fatura]+Spaces(17)+[Answer->CGC Fatura]+"\n"
Print File ARQIMP Spaces(04)+[Answer->Endereco Fatura]+" -   " + [Answer->Bairro Fatura]+"\n"
Print File ARQIMP Spaces(04)+[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

