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

;** RV_0278 ********************************************************************
;*  Impressao Vale Recibo   - Maciel                                           *
;*******************************************************************************
;Autor           : Vise Informatica (VISERP)
;Desenvolvido    : 09/06/2018 por Anivel Augusto Rodrigues
;Ultima Alteracao:   /  /   6 por 
;Motivo Alteracao:  

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

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(CI_10CPP+CI_6LPP+Fill("=",48))
imprimelinha("")

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

nome=regdestinat["Razao Social"]+" - "+regdestinat["Codigo"]

imprimelinha("Nome       "+SubStr(nome   ,001,37) )
if SubStr(nome   ,038,37)<>""
   then imprimelinha("           "+SubStr(nome   ,038,37) )
endif   
imprimelinha("")

imprimelinha("Valor      "+SubStr(EXTENSO,001,37) )
imprimelinha("           "+SubStr(EXTENSO,038,37) )
imprimelinha("           "+SubStr(EXTENSO,075,37) )
imprimelinha("")

imprimelinha("Referente  "+SubStr(vl_referente,001,37) )
imprimelinha("           "+SubStr(vl_referente,038,37) )
imprimelinha("")

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

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

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

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

EndProc ;imprimir()   

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

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

endproc

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

ARQIMPVALE = PrivDir()+"RV_0278.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)
Imprimir(2)
Print File ARQIMPVALE "\n\n\n" ;pula linhas

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
