;** Eb_0135 **********************************************************************
;*  Emissao de Boletas - Caixa Economica Federal        LOJA DO GALENO         *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 20/06/2007 por Nikolas Mateus
;Ultima Alteracao: 14/08/2007 por Antonio Marcelo Alves
;Motivo Alteracao: Ajustes Deleta_Arquivo
;Ultima Alteracao:   /  /2007 por
;Motivo Alteracao:

;*******************************************************************************
;* Rotina de Impressao de Duplicatas                                           *
;*******************************************************************************
;---- Inicia Arquivo Impressao -------------------------------------------------
ArqImp=PrivDir()+"eb_0135.Txt"
If IsFile(ArqImp)
   Then Deleta_Arquivo(ArqImp)
EndIf


;Print File ARQIMP  Chr(27)+Chr(15)       ; 15 Caracteres por Polegada
Print File ARQIMP  Chr(27)+Chr(48)       ; Espacamentos entre as linhas em 1/8
Print File ARQIMP "\n\n"

;Print File ARQIMP Spaces(02)+"QUALQUER AGENCIA ATE O VENCIMENTO"
If [NotaC->Descricao CondPagto]="CONTRA APRESENTACAO"
   Then Print File ARQIMP Spaces(50)+"C.APRESENT \n"
   Else Print File ARQIMP Spaces(50)+AlinhM(LTrim(StrVal(Format("D13",[Data Vencimento]))),10)+"\n"
EndIf

Print File ARQIMP "\n\n\n"

Print File ARQIMP Spaces(02)+Format("W08,AL",Format("D10",[Answer->Data de Emissao]))

If [Ordem do Documento]<>""
   Then Print File ARQIMP Spaces(02)+Format("W08,AL",[Answer->Numero do Documento]+"/"+[Ordem do Documento])
   Else Print File ARQIMP Spaces(02)+Format("W08,AL",[Answer->Numero do Documento]+"  ")
EndIf

Print File ARQIMP Spaces(06)+"DM"+"\n"

Print File ARQIMP "\n"

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

Print File ARQIMP "\n\n"

Print File ARQIMP Spaces(2)+SubStr(MSGDUP,001,44)+"\n"
Print File ARQIMP Spaces(2)+SubStr(MSGDUP,045,44)+"\n"
Print File ARQIMP Spaces(2)+SubStr(MSGDUP,089,44)+"\n"
Print File ARQIMP Spaces(2)+SubStr(MSGDUP,133,44)+"\n"

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

Print File ARQIMP Spaces(05)+[Answer->Razao Social Fatura]+"    - CGC "+[Answer->CGC Fatura]+"\n"

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

Print File ARQIMP "\n\n\n\n\n\n\n\n"
;Print File ARQIMP  Chr(27)+Chr(18)       ; 10 Caracteres por Polegada
;Print File ARQIMP  Chr(27)+Chr(50)       ; Espacamentos entre as linhas em 1/6
;---- Imprime Arquivo Impressao ------------------------------------------------
ImpriArq(ARQIMP)

