NUMCOPIA=1
MSGDISPOSITIVO="Imprimir T¡tulo de Cr‚dito"
DispositivoI("ITC")
If OK=""
   Then
        return
endif        

;** RV_0000 ********************************************************************
;*  Impressao Vale Recibo                                                      *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 22/01/2016 por Anivel Augusto Rodrigues
;Ultima Alteracao: 26/01/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes 
;Ultima Alteracao: 12/02/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes Impriarq
;Alterado em     : 29/03/2016 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes tirar ClearAll
;Alterado em     : 04/07/2017 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes validade divina panela
;Alterado em     : 09/06/2018 por Anivel Augusto Rodrigues
;Motivo Alteracao: Ajustes EXTENSO

;*******************************************************************************
;* Rotina para impressao                                                    ****
;*******************************************************************************
Proc Imprimir(nvia)
private s, usuario, nvia

getrecord "\\sistemas\\cadastro\\destinat" vl_pessoa  to regdestinat

getrecord "\\sistemas\\cadastro\\empresas" vl_empresa to regempresas

usuario="????"
getrecord "\\sistemas\\cadastro\\usuarios" Vl_Usuario to regusuarios
if retval
   then usuario=regusuarios["Nome"]
endif

ESCEXT(vl_valor)
EXTENSO=ltrim(EXTENSO)

lin =0
tpag=33

imprimelinha("")
imprimelinha("")
imprimelinha("")

imprimelinha(CI_10CPP+CI_6LPP+Fill("=",80))
imprimelinha("")

imprimelinha(CI_INEG+CI_IEXP+"TITULO DE CREDITO "+vl_docto+"/"+vl_numero+CI_FNEG+CI_FEXP+
             spaces(05)+"Valor "+LTrim(Format("W12.2,EIC", vl_valor)) )
imprimelinha("")

imprimelinha("Nome       "+regdestinat["Razao Social"]+" - "+regdestinat["Codigo"])
imprimelinha("")

imprimelinha("Valor      "+SubStr(EXTENSO,001,69) )
imprimelinha("           "+SubStr(EXTENSO,070,69) )
imprimelinha("")

switch
  case sys_codigo_cliente="0294":
    imprimelinha("Referente  "+SubStr(vl_referente,001,69) )
    imprimelinha(Format("W80,AR","Validade ate ____/____/________"))
    imprimelinha("")
  
  otherwise                     :
    imprimelinha("Referente  "+SubStr(vl_referente,001,69) )
    imprimelinha("           "+SubStr(vl_referente,070,69) )
    imprimelinha("")

endswitch

imprimelinha("Local/Data "+regempresas["Cidade Empresa"]+", "+format("D13",vl_data))
imprimelinha("")
imprimelinha("")

imprimelinha("Assinatura "+Fill("_",30)+spaces(33)+strval(nvia)+"¦Via")
imprimelinha("")
if vl_reimpressao                                           
   then imprimelinha(spaces(60)+CI_INEG+"** REIMPRESS¶O **"+CI_FNEG)
   else imprimelinha("")
endif   

imprimelinha(CI_15CPP+CI_6LPP+CI_INEG+Format("W40,AL",NOMEMPRESA)+Format("W68,AC","Usuario: "+usuario)+
             Format("W028,AR","Emissao: "+Format("D13",Today())+"-"+SubStr(StrVal(Time()),1,5)))

imprimelinha(CI_FNEG+CI_10CPP+CI_6LPP+Fill("=",80)+"\n")

EndProc ;imprimir()   

;*******************************************************************************
;*                                                                             *
;*******************************************************************************
Proc imprimelinha(s)

Print File ARQIMPVALE s+"\n"
lin=lin+1

endproc


;*******************************************************************************
;*                                                                             *
;*******************************************************************************
Proc QuebraPagina()

while lin<=tpag
 imprimelinha("")
endwhile 

endproc


;*******************************************************************************
;* Rotina Principal                                                            *
;*****************+*************************************************************
If Not IsAssigned(NOMEMPRESA)           Then NOMEMPRESA=""            EndIf
If Not IsAssigned(Sys_Reset_Impressora) Then Sys_Reset_Impressora=""  EndIf

ARQIMPVALE = PrivDir()+"RV_0000.TXT"
Switch
  Case OK="A": ARQIMPVALE = DIREPORT+ARQUIVO+".TXT"
EndSwitch
Deleta_Arquivo(ARQIMPVALE)

AGUARDE("Imprimindo T¡tulo de Cr‚dito -> "+vl_docto+"/"+vl_numero)

Imprimir(1)
QuebraPagina()
Imprimir(2)
Print File ARQIMPVALE "\f" ;pula pagina

ImpriArq(ARQIMPVALE)

LIMPAGUARDE()

Mensagem("Impress„o Concluida !")        

Release Procs imprimir, imprimelinha, quebrapagina,
              vl_docto, vl_numero, vl_pessoa, vl_empresa, 
              vl_data, vl_referente, vl_valor, Vl_Usuario,
              VL_reimpressao, vl_Origem
