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");