;** C_Ch ***********************************************************************
;*  Emissao de Copia de Cheque                                                 *
;*******************************************************************************
;Autor: Visao/Vise
;Desenvolvido    : 05/11/2002 por Karen Lauar Nery
;Ultima Alteracao: 28/11/2011 por Bruno Carvalho
;Motivo Alteracao: Ajustes para trabalhar em Video ou ImpressÆo
;Ultima Alteracao: 05/01/2012 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes StrVal(CH_NUMERO)
;Ultima Alteracao: 04/01/2012 por Bruno Carvalho
;Motivo Alteracao: Alterado CH_Historico para CH_Ndocto e adicionado HISTORICO em CH_Historico
;Ultima Alteracao: 10/01/2012 por Bruno Carvalho
;Motivo Alteracao: Ajustado dados a ser impressos

;*******************************************************************************
Proc IMPHIST()
Print File ARQIMP  CI_8LPP                                                                         
                                                                                                             
Print File ARQIMP "\n"
Print File ARQIMP Spaces(03)+"Conta.........: "+StrVal(Ch_NumConta)+" - "+Ch_DesConta+"\n"
Print File ARQIMP Spaces(03)+"Titular.......: "+Spaces(7)+CH_Titular+"\n\n"
Print File ARQIMP Spaces(03)+"N§ Cheque.....: "+StrVal(CH_Numero)+"     Serie: "+CH_Serie+"\n"
Print File ARQIMP Spaces(03)+"Nominal.......: "+Format("W40,AL",CH_Nominal)+"\n"
Print File ARQIMP Spaces(03)+"Emissao.......: "+StrVal(Format("D13",CH_Data))+"     Valor:"+Format("W10.2,EIC,AL",CH_Valor)
If CH_PreDat<>BlankDate()
   Then Print File ARQIMP "     Bom para: "+StrVal(Format("D13",CH_PreDat))+"\n\n"
   Else Print File ARQIMP "\n\n"
EndIf

If CH_Lanc<>""
   Then Print File ARQIMP Spaces(03)+"Lancamento....: "+CH_Lanc+" / "+Ch_Rotina+"\n"
   Else Print File ARQIMP Spaces(03)+"Lancamento....: "+Ch_Rotina+"\n"
EndIf

Print File ARQIMP Spaces(03)+"Destina-se a..: "+CH_CEmitente+" - "+CH_Destino+"\n"
  
If CH_Historico<>""
   Then Print File ARQIMP Spaces(03)+"Historico.....: "+SubStr(CH_Historico,01,60)+"\n"
                                                       +Spaces(19)+SubStr(CH_Historico,61,60)+"\n"
EndIf
                                                      
If CH_CodPlConta<>""
   Then Print File ARQIMP Spaces(03)+"Plano de Conta: "+Format("W13,AR",CH_CodPlConta)+" - "+Ltrim(CH_PlConta)+"\n"
EndIf  
If CH_CodCusto<>""
   Then Print File ARQIMP Spaces(03)+"Centro Custo..: "+Spaces(6)+Format("W7,AR",CH_CodCusto)+" - "+Ltrim(CH_Custo)+"\n\n"
   Else Print File ARQIMP "\n"
EndIf 
If CH_Observacoes<>""
   Then Print File ARQIMP Spaces(03)+"Observacao....: "+SubStr(CH_Observacoes,01,60)+"\n"
        Print File ARQIMP Spaces(19)+SubStr(CH_Observacoes,61,60)+"\n\f"
   Else Print File ARQIMP "\n\f"
EndIf

EndProc ;IMPHIST()

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
ArqImp=PrivDir()+"C_CH.Txt"
If IsFile(ArqImp)
   Then Deleta_Arquivo(ARQIMP)
EndIf                                       
                                     
AGUARDE("Imprimindo Cheque...")
IMPHIST()
                                   
;---- Imprime Arquivo Impressao ------------------------------------------------

If Seta_Printer<>""
  Then ImpriSerial(ArqImp,Seta_Printer)
  Else ImpriArq(ARQIMP)
       Deleta_Arquivo(ARQIMP)
EndIf
LIMPAGUARDE()

Release Procs IMPHIST