session_start();
//////////////////////////////////////////////         SEGURIDAD               /////////////////////////////////////////////
if (!array_key_exists("la_logusr", $_SESSION)) {
    print "<script language=JavaScript>";
    print "location.href='../sigesp_inicio_sesion.php'";
    print "</script>";
}
$ls_logusr = $_SESSION["la_logusr"];
require_once "class_funciones_activos.php";
$io_fun_activo = new class_funciones_activos();
$lb_cierrescg = $io_fun_activo->uf_chkciescg();
$io_fun_activo->uf_load_seguridad("SAF", "sigesp_saf_p_modificaciones.php", $ls_permisos, $la_seguridad, $la_permisos);
require_once "sigesp_saf_c_activo.php";
$ls_codemp = $_SESSION["la_empresa"]["codemp"];
$io_saf_tipcat = new sigesp_saf_c_activo();
$ls_rbtipocat = $io_saf_tipcat->uf_select_valor_config($ls_codemp);
//////////////////////////////////////////////         SEGURIDAD               /////////////////////////////////////////////
function uf_obtenervalor($as_valor, $as_valordefecto)
{
    //////////////////////////////////////////////////////////////////////////////
    //	Function:  uf_obtenervalor
    //	Access:    public
    //	Arguments:
    // 				as_valor         //  nombre de la variable que desamos obtener
    // 				as_valordefecto  //  contenido de la variable
    // Description: Función que obtiene el valor de una variable si viene de un submit
    //////////////////////////////////////////////////////////////////////////////
    if (array_key_exists($as_valor, $_POST)) {
        $valor = $_POST[$as_valor];
    } else {
        $valor = $as_valordefecto;
     case "INFORMIX":
         $ls_cadena_personal = "sno_personal.nomper||' '||sno_personal.apeper";
         break;
 }
 switch ($_SESSION["ls_gestor"]) {
     case "MYSQLT":
         $ls_cadena_beneficiario = "CONCAT(rpc_beneficiario.nombene,' ',rpc_beneficiario.apebene)";
         break;
     case "POSTGRES":
         $ls_cadena_beneficiario = "rpc_beneficiario.nombene||' '||rpc_beneficiario.apebene";
         break;
     case "INFORMIX":
         $ls_cadena_beneficiario = "rpc_beneficiario.nombene||' '||rpc_beneficiario.apebene";
         break;
 }
 $ls_estcat = $io_saf->uf_select_valor_config($ls_codemp);
 $ls_sql = " SELECT saf_movimiento.*,saf_causas.dencau, " . "       (CASE tiprespri WHEN 'P' THEN (SELECT " . $ls_cadena_personal . " " . "\t\t\t\t\t\t\t\t       FROM   sno_personal                                        " . "\t\t\t\t\t\t\t\t       WHERE  sno_personal.codemp=saf_movimiento.codemp AND       " . "\t\t\t\t\t\t\t\t\t\t      sno_personal.codper=saf_movimiento.codrespri)       " . "\t\t\t\t        WHEN 'B' THEN (SELECT " . $ls_cadena_beneficiario . " " . "\t\t\t\t\t\t\t\t       FROM   rpc_beneficiario " . "\t\t\t\t\t\t\t\t       WHERE  rpc_beneficiario.codemp=saf_movimiento.codemp AND    " . "\t\t\t\t\t\t\t\t\t\t      rpc_beneficiario.ced_bene=saf_movimiento.codrespri)  " . "\t    END) AS nomrespri, " . "       (CASE tipresuso WHEN 'P' THEN (SELECT " . $ls_cadena_personal . "  " . "\t\t\t\t\t\t\t\t       FROM   sno_personal   " . "\t\t\t\t\t\t\t\t       WHERE  sno_personal.codemp=saf_movimiento.codemp AND        " . "\t\t\t\t\t\t\t\t\t\t      sno_personal.codper=saf_movimiento.codresuso)        " . "\t\t\t  \t        WHEN 'B' THEN (SELECT " . $ls_cadena_beneficiario . " " . "\t\t\t\t\t\t\t\t       FROM   rpc_beneficiario " . "\t\t\t\t\t\t\t\t       WHERE  rpc_beneficiario.codemp=saf_movimiento.codemp AND   " . "\t\t\t\t\t\t\t\t\t\t      rpc_beneficiario.ced_bene=saf_movimiento.codresuso) " . "\t     END) AS nomresuso,  " . "       (SELECT denuniadm  " . "        FROM   spg_unidadadministrativa " . "        WHERE  spg_unidadadministrativa.coduniadm=saf_movimiento.coduniadm) as denuniadm" . " FROM   saf_movimiento,saf_causas " . " WHERE  saf_movimiento.codcau=saf_causas.codcau  AND " . "        saf_causas.tipcau='R' AND saf_causas.estcat='" . $ls_estcat . "' AND " . "        saf_movimiento.codemp='" . $ls_codemp . "' " . $ls_sqlint . " AND " . "        saf_movimiento.cmpmov like '" . $ls_cmpmov . "' AND " . "        saf_movimiento.codcau like '" . $ls_codcau . "' ";
 $rs_cta = $io_sql->select($ls_sql);
 //$data=$rs_cta;
 $li_num = $row = $io_sql->num_rows($rs_cta);
 if ($li_num > 0) {
     /*$data=$io_sql->obtener_datos($rs_cta);
     		$arrcols=array_keys($data);
     		$totcol=count($arrcols);
     		$ds->data=$data;
     		$totrow=$ds->getRowCount("cmpmov");
     		for($z=1;$z<=$totrow;$z++)*/
     while ($row = $io_sql->fetch_row($rs_cta)) {
         print "<tr class=celdas-blancas>";
         $ls_cmpmov = $row["cmpmov"];
         $ls_numcmp = $row["numcmp"];