;** RP_0000 ********************************************************************
;** Imprime a Controle de Recebimento                            ** PADRAO **  *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido  em: 10/12/2013 por Bruno Carvalho
;Ultima Alteracao: 24/12/2015 por Anivel Augusato Rodrigues
;Motivo Alteracao: Ajustes Scan numero do lancamento

;*******************************************************************************
;* Rotina para Impressao do Comprovante 																			 *
;*******************************************************************************
Proc IMPREC()
Private TOTCH, NUMCH

;************************* IMPRESSAO DO CABECALHO *****************************


Moveto "Duplic"
Print File ARQIMP CI_15CPP+"\n"
Print File ARQIMP Spaces(2)+"------------------------------------------------------------------------------------------------------------------------------------" + "\n"
Print File ARQIMP Spaces(2)+Format("W38,AL",NOMEMPRESA)+Spaces(15)+"Controle de Recebimento"+Spaces(26)+"Impressao: "+Format("D13",Today())+"-"+Time()+ "\n"
Print File ARQIMP Spaces(2)+"------------------------------------------------------------------------------------------------------------------------------------" + "\n\n"

Print File ARQIMP Spaces(2)+"Recebimento para: "
Print File ARQIMP Format("W55,AL",[Razao Social]+" - "+[Codigo do Destinatario])
Print File ARQIMP " Lancamento: "+Format("W06,AL",[Numero do Lancamento])+"\n"

Print File ARQIMP Spaces(2)+" Referente Docto: "
Print File ARQIMP Format("W04,AL",[Tipo do Documento])+"/"
Print File ARQIMP Format("W14,AL",[Numero do Documento])
Print File ARQIMP "                 "+Spaces(10)
Print File ARQIMP "             Empresa: "+[Codigo da Empresa]+" "+[Nome Fantasia Empresa]+"\n"

Print File ARQIMP Spaces(2)+"         Emissao: "
Print File ARQIMP Format("D13",[Data de Emissao])+Spaces(09)
Print File ARQIMP "Valor Original: "+Format("W10.2,EIC",[Valor do Documento])
Print File ARQIMP "       Plano de Conta: "+[Codigo Plano_Conta]+" "+[Descricao Plano_Conta]+"\n"

Print File ARQIMP Spaces(2)+"      Vencimento: "
Print File ARQIMP Format("D13",[Data de Vencimento])+Spaces(09)
Print File ARQIMP "         Saldo: "+Format("W10.2,EIC",[Saldo do Documento])
Print File ARQIMP "      Centro de Custo: "+[Codigo CCusto]+" "+[Descricao CCusto]+"\n\n"

Print File ARQIMP Spaces(2)+"    Observacoes: "+[Observacoes]+"\n"

Moveto "DupBaixa"
Print File ARQIMP "\n"
Print File ARQIMP Spaces(2)+"** Baixas **"+"\n"
Print File ARQIMP Spaces(2)+"Seq  Dt Pagto  Tipo          Vr Pago  Vr Descto   Vr Juros Historico                                                                "+"\n"
Print File ARQIMP Spaces(2)+"---- --------- ---------- ---------- ---------- ---------- -------------------------------------------------------------------------"+"\n"
Scan  for [Numero do Lancamento]=[Duplic->Numero do Lancamento]
  Print File ARQIMP Spaces(2)
  Print File ARQIMP Format("W04,AC",[Sequencia da Baixa     ])
  Print File ARQIMP Format("D13",[Data do Pagamento         ])+" "
  Print File ARQIMP Format("W11,AL",[Tipo da Baixa          ])
  Print File ARQIMP Format("W10.2,EIC",[Valor do Recebimento])
  Print File ARQIMP Format("W11.2,EIC",[Valor do Desconto   ])
  Print File ARQIMP Format("W11.2,EIC",[Valor do Juros      ])+" "
  Print File ARQIMP Format("W05,AL",[Codigo do Historico    ])
  Print File ARQIMP Format("W60,AL",[Descricao do Historico ])
  Print File ARQIMP "\n"
EndScan

Print File ARQIMP Spaces(2)+"------------------------------------------------------------------------------------------------------------------------------------" + "\n"
Print File ARQIMP "\n\n\n"

Print File ARQIMP Spaces(2)+Format("W132,AC","   /   /     -                                                         ")+"\n"
Print File ARQIMP Spaces(2)+Format("W132,AC","-----------------------------------------------------------------------")+"\n"
Print File ARQIMP Spaces(2)+Format("W132,AC","Data e Assinatura")+"\n";Spaces(17)++"\n"

Print File ARQIMP "\f"
Moveto "Duplic"

EndProc

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
If Not IsAssigned(NOMEMPRESA) Then NOMEMPRESA="" EndIf
AGUARDE("Imprimindo Controle -> "+[Duplic->Numero do Lancamento])

ArqImp=PrivDir()+"RP_0000.Txt"
If IsFile(ArqImp)
   Then Deleta_Arquivo(ARQIMP)
EndIf
CI_15CPP="\15"

Moveto "Duplic"
IMPREC()

ExecVise("EXE c:\\vise\\Vdpr.exe /PDF /DEL "+ARQIMP)

Release Procs IMPPAG, Seta_FilePrint, Imprime_FilePrint
