print(" close();");
print("</script>");
}
else // Imprimimos el reporte
{
if ($li_totcodper==1)
{
for($li_i=1;(($li_i<=$li_totrow)&&($lb_valido));$li_i++)
{
$ls_ente=$_SESSION["la_empresa"]["nombre"];
$ld_fecha=date("d/m/Y");
$ls_dia_act=substr($ld_fecha,0,2);
$ls_mes_act=$io_fecha->uf_load_nombre_mes(substr($ld_fecha,3,2));
$ls_ano_act=substr($ld_fecha,6,4);
$ls_original=$io_report->DS->data["arcrtfcont"][$li_i];
$lb_valido=$io_report->uf_constanciatrabajo_personal($ls_codnom,$li_rac,$ls_codperdes,$ls_codperhas); // Obtenemos el detalle del reporte
if($lb_valido)
{
$li_totrow_det=$io_report->DS_detalle->getRowCount("codper");
$ls_archivo="../../srh/documentos/original/".$ls_original;
$ls_copia=substr($ls_original,0,strrpos($ls_original,"."));
$ls_salida="../../srh/documentos/copia/".$ls_copia."-".$_SESSION["la_logusr"].".rtf";
$ls_contenido="";
$ls_contenido=uf_leer_archivo($ls_archivo);
$la_matriz=explode("sectd",$ls_contenido);
$ls_cabecera=$la_matriz[0]."sectd";
$li_inicio=strlen($ls_cabecera);
$li_final=strrpos($ls_contenido,"}");
$li_longitud=$li_final-$li_inicio;
$ls_nuevocuerpo=substr($ls_contenido,$li_inicio,$li_longitud);
$ls_punt=fopen($ls_salida,"w");
