;** Ch_bb **********************************************************************
;*  Emissao de Cheques Banco do Brasil Avulso                                  *
;*******************************************************************************
;Autor: Visao/Vise
;Desenvolvido    : 01/11/2002 por Karen Lauar Nery
;Ultima Alteracao: 14/07/2003 por Karen Lauar Nery
;Motivo Alteracao: Mudanca CI
;Ultima Alteracao: 28/10/2011 por Bruno Carvalho
;Motivo Alteracao: Comentado a Linha do For
;Ultima Alteracao: 01/11/2011 por Bruno Carvalho
;Motivo Alteracao: Ajustes para trabalhar em Video ou ImpressÆo
;Ultima Alteracao: 11/11/2011 por Bruno Carvalho
;Motivo Alteracao: Ajustes "Novo Modelo de ImpresÆo ajustado para Impressora de Cheque Bematec DP20"

;*******************************************************************************
Proc IMPHIST()

Print File ARQIMP CI_8LPP

Print File ARQIMP "\n"
ESCEXT(CH_Valor)
Print File ARQIMP Spaces(80)+"#"+LTrim(Format("W11.2,EIC",(CH_Valor)))+"#"+"\n\n"
Print File ARQIMP Spaces(19)+SubStr(EXTENSO,1,80)+"\n\n"
Print File ARQIMP Spaces(08)+SubStr(EXTENSO,81,80)+"\n\n"
Print File ARQIMP Spaces(09)+CH_Destino+"\n\n\n"
Print File ARQIMP Spaces(49)+Format("W15,AR",CH_Cidade)+", "+StrVal(Day(CH_Data))+Spaces(6)+Format("W10,AC",MESEXT(MONTH(CH_Data)))
Print File ARQIMP Spaces(07)+StrVal(Substr(Year(CH_Data),3,4))+"\n\n\n\n\n\n\n\n\n\n\n\n\n\n\n"
Print File ARQIMP CI_6LPP

EndProc       

;*******************************************************************************
;* Rotina Principal                                                            *
;*******************************************************************************
ArqImp=PrivDir()+"CH_BB.Txt"
If IsFile(ArqImp)
   Then Deleta_Arquivo(ARQIMP)
EndIf

AGUARDE("Imprimindo Cheque...")
IMPHIST()

;---- Imprime Arquivo Impressao ------------------------------------------------
ImpriArq(ARQIMP)
Deleta_Arquivo(ARQIMP)

LIMPAGUARDE()

Release Procs IMPHIST