;** Eb_0070 ********************************************************************
;*  Emissao de Boletas/Leite Saude                                             *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 24/06/97 por Anivel Augusto Rodrigues
;Ultima Alteracao:   /  /   por
;Motivo Alteracao:

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

Print "\n"

If SearchFrom("APRES",[Notac->Descricao CondPagto],1) > 0
   Then Print "PAGAVEL EM QUALQUER AGENCIA ATE O VENCIMENTO"+Spaces(10)+"C.APRESENT"+"\n"
   Else Print "PAGAVEL EM QUALQUER AGENCIA ATE O VENCIMENTO"+Spaces(10)+Format("D13",[Data Vencimento])+"\n\n"
Endif

Print "\n"

Print Format("W10,AL",Format("D13",[Answer->Data de Emissao]))

If [Ordem do Documento]<>""
   Then Print Format("W11,AL",[Codigo da Empresa]+"/"+[Answer->Numero do Documento]+"/"+[Ordem do Documento])
   Else Print Format("W11,AL",[Codigo da Empresa]+"/"+[Answer->Numero do Documento]+"  ")
Endif

Print "      DP"+"\n"

Print "\n"

Print Spaces(16)+"REAL"+Spaces(31)+Format("W12.2,EIC,AR",[Valor Duplicata])+"\n"

Print "\n\n"

Print SubStr(MSGDUP,1,45)+"\n"
Print SubStr(MSGDUP,46,45)+"\n"
Print SubStr(MSGDUP,91,45)+"\n"
Print SubStr(MSGDUP,136,15)+"\n"
Print "Nota Fiscal No: "+SubStr([Answer->Pedido Cliente],4,6)+"\n"
Print "\n"

Print [Answer->Razao Social Fatura]+" -CGC/CPF "+[Answer->CGC Fatura]+"\n"

If IsBlank([Answer->Endereco de Cobranca]) Or
   [Answer->Endereco de Cobranca]="O MESMO"
   Then Print [Answer->Endereco Fatura]+" -   " + [Answer->Bairro Fatura]+"\n"
        Print [Answer->Cidade Fatura]+"/"+[Answer->UF Fatura]+" -   "+[Answer->CEP Fatura]+"\n"
   Else Print [Answer->Endereco de Cobranca]+" -   " + [Answer->Bairro de Cobranca]+"\n"
        Print [Answer->Cidade de Cobranca]+"/"+[Answer->UF de Cobranca]+" -   "+[Answer->CEP de Cobranca]+"\n"
EndIf

Print "\n\n\n\n\n\n\n\n\n"
