fclose($ls_punt);
@chmod($ls_salida,0755);
}
}
}
else
{
for($li_i=0;(($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[$li_i]["arcrtfcont"];
$lb_valido=$io_report->uf_constanciatrabajo_personal_lote($ls_codnom,$li_rac,$arr_codper,$li_totcodper); // 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");
