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