$ls_operacion = $io_fun_activo->uf_obtenervalor("operacion3", "NUEVO");
$ls_codgru = $io_fun_activo->uf_obtenervalor("txtcodgru", "");
$ls_dengru = $io_fun_activo->uf_obtenervalor("txtdengru", "");
$ls_codsubgru = $io_fun_activo->uf_obtenervalor("txtcodsubgru", "");
$ls_densubgru = $io_fun_activo->uf_obtenervalor("txtdensubgru", "");
$ls_codsec = $io_fun_activo->uf_obtenervalor("txtcodsec", "");
$ls_densec = $io_fun_activo->uf_obtenervalor("txtdensec", "");
switch ($ls_operacion) {
case "NUEVO":
uf_limpiarvariables();
$ls_longitud = 3;
$ls_codsec = $io_saf->uf_saf_generar_codigo($ls_codgru, $ls_codsubgru, "saf_seccion", "codsec");
$ls_codsec = $io_func->uf_cerosizquierda($ls_codsec, $ls_longitud);
break;
case "GUARDAR":
$lb_valido = $io_saf->uf_saf_guardar_seccion($ls_codgru, $ls_codsubgru, $ls_codsec, $ls_densec, $la_seguridad);
uf_limpiarvariables();
break;
case "ELIMINAR":
$lb_valido = $io_saf->uf_saf_delete_seccion($ls_codgru, $ls_codsubgru, $ls_codsec, $la_seguridad);
if ($lb_valido) {
$io_msg->message("El registro fue eliminado");
uf_limpiarvariables();
} else {
$io_msg->message("No se pudo eliminar el registro");
uf_limpiarvariables();
}
break;
}
?>
<p> </p>
