";
print "location.href='../sigesp_inicio_sesion.php'";
print "";
}
$ls_logusr=$_SESSION["la_logusr"];
require_once("class_folder/class_funciones_rcm.php");
$io_fun_rcm=new class_funciones_rcm();
$io_fun_rcm->uf_load_seguridad("RCM","sigesp_rcm_p_modulos.php",$ls_permisos,$la_seguridad,$la_permisos);
////////////////////////////////////////////// SEGURIDAD /////////////////////////////////////////////
//--------------------------------------------------------------
function uf_limpiarvariables()
{
//////////////////////////////////////////////////////////////////////////////
// Function: uf_limpiarvariables
// Access: private
// Description: Función que limpia todas las variables necesarias en la página
// Creado Por: Ing. Luis Anibal Lang
// Fecha Creación: 17/03/2007 Fecha Última Modificación :
//////////////////////////////////////////////////////////////////////////////
global $lb_procfg,$lb_proscg,$lb_prospi,$lb_prospg,$lb_prorcp,$lb_prosep,$lb_prosoc,$lb_prosiv;
global $lb_procxp,$lb_proscb,$lb_prosaf,$lb_proscv,$lb_prosno,$lb_prohist;
$lb_procfg=false;
$lb_proscg=false;
$lb_prospi=false;
$lb_prospg=false;
$lb_prorcp=false;
$lb_prosep=false;
$lb_prosoc=false;
$lb_prosiv=false;
$lb_procxp=false;
$lb_proscb=false;
$lb_prosaf=false;
$lb_proscv=false;
$lb_prosno=false;
$lb_prohist=false;
}
//--------------------------------------------------------------
?>
Mòdulo de Reconversion Monetaria
uf_obteneroperacion();
switch ($ls_operacion)
{
case"PROCESAR":
$lb_valido=false;
$ls_codsis=$io_fun_rcm->uf_obtenervalor("sistema","");
if(!empty($ls_codsis))
{
$ls_codsisaux=strtolower($ls_codsis);
require_once("class_folder/sigesp_rcm_c_".$ls_codsisaux.".php");
switch ($ls_codsis)
{
case"SCV":
$io_rcm= new sigesp_rcm_c_scv();
$lb_valido=$io_rcm->uf_convertir_data($la_seguridad);
break;
case"CXP":
$io_rcm= new sigesp_rcm_c_cxp();
$lb_valido=$io_rcm->uf_convertir_data($la_seguridad);
break;
case"SOC":
$io_rcm= new sigesp_rcm_c_soc();
$lb_valido=$io_rcm->uf_convertir_data($la_seguridad);
break;
case"SNO":
$io_rcm= new sigesp_rcm_c_sno();
$lb_valido=$io_rcm->uf_convertir_data($la_seguridad);
break;
case"HIST":
$io_rcm= new sigesp_rcm_c_hist();
$lb_valido=$io_rcm->uf_convertir_data($la_seguridad);
break;
case"SCG":
$io_rcm= new sigesp_rcm_c_scg();
$lb_valido=$io_rcm->uf_convertir_data($la_seguridad);
break;
case"RPC":
$io_rcm= new sigesp_rcm_c_rpc();
$lb_valido=$io_rcm->uf_convertir_data($la_seguridad);
break;
case"SIV":
$io_rcm= new sigesp_rcm_c_siv();
$lb_valido=$io_rcm->uf_convertir_data($la_seguridad);
break;
case"SAF":
$io_rcm= new sigesp_rcm_c_saf();
$lb_valido=$io_rcm->uf_convertir_data($la_seguridad);
break;
case"CFG":
$io_rcm= new sigesp_rcm_c_cfg();
$lb_valido=$io_rcm->uf_convertir_data($la_seguridad);
break;
case"SEP":
$io_rcm= new sigesp_rcm_c_sep();
$lb_valido=$io_rcm->uf_convertir_data($la_seguridad);
break;
case"SCB":
$io_rcm= new sigesp_rcm_c_scb();
$lb_valido=$io_rcm->uf_convertir_data($la_seguridad);
break;
case"SPG":
$io_rcm= new sigesp_rcm_c_spg();
$lb_valido=$io_rcm->uf_convertir_data($la_seguridad);
break;
case"SPI":
$io_rcm= new sigesp_rcm_c_spi();
$lb_valido=$io_rcm->uf_convertir_data($la_seguridad);
break;
}
}
if($lb_valido)
{
$io_msg->message("La Reconversion Monetaria se realizo Exitosamente");
}
else
{
$io_msg->message("Fallo el proceso de Reconversion Monetaria");
}
break;
}
uf_limpiarvariables();
$lb_valido=$io_fun_rcm->uf_load_modulos_reconvertidos();
if($lb_valido)
{
$li_totrow=$io_fun_rcm->DS->getRowCount("entry");
for($li_i=1;$li_i<=$li_totrow;$li_i++)
{
$ls_entry= trim($io_fun_rcm->DS->data["entry"][$li_i]);
$ls_value= $io_fun_rcm->DS->data["value"][$li_i];
switch($ls_entry)
{
case "CFG":
$lb_procfg=true;
break;
case "SCG":
$lb_proscg=true;
break;
case "SPI":
$lb_prospi=true;
break;
case "SPG":
$lb_prospg=true;
break;
case "RPC":
$lb_prorcp=true;
break;
case "SEP":
$lb_prosep=true;
break;
case "SOC":
$lb_prosoc=true;
break;
case "SIV":
$lb_prosiv=true;
break;
case "CXP":
$lb_procxp=true;
break;
case "SCB":
$lb_proscb=true;
break;
case "SAF":
$lb_prosaf=true;
break;
case "SCV":
$lb_proscv=true;
break;
case "SNO":
$lb_prosno=true;
break;
case "HIST":
$lb_prohist=true;
break;
}
}
}
?>