function uf_valida_cuenta($as_cuenta )
{
$li_nivel =0;
$lb_valido=true;
$ls_pad_cuenta="";$ls_denominacion="";$ls_status="";$ls_NextCuenta="";$ls_mensaje_error="";
$int_scg=new class_sigesp_int_scg();
$msg=new class_mensajes();
$dat=$_SESSION["la_empresa"];
$ls_formplan=$dat["formplan"];
$is_codemp=$dat["CodEmp"];
$ls_pad_cuenta = $int_scg->uf_pad_cuenta_plan($ls_formplan ,$as_cuenta);
if(!$int_scg->uf_select_plan_unico_cuenta($ls_pad_cuenta,$ls_denominacion))
{
$msg->message("La cuenta no existe en el Plan Unico de Cuentas.");
return false;
}
/*if($int_scg->uf_scg_select_cuenta($is_codemp,$as_cuenta,$ls_status,$ls_denominacion))
{
$msg->message("La cuenta ya existe en el Plan de Cuentas.");
return false;
}*/
// verifico si el nivel es el apropiado
//$msg->message($as_cuenta);
$int_scg->uf_init_niveles();
$li_nivel = $int_scg->uf_scg_obtener_nivel($as_cuenta);
if($li_nivel<=1)
{
$msg->message("Las cuentas de nivel 1 no son validas.");
return false;
}
// verifico si no hay cuentas con movimientos de nivel superior
if($li_nivel > 1)
{
$ls_NextCuenta = $int_scg->uf_scg_next_cuenta_nivel($as_cuenta);
do
{
if($int_scg->uf_scg_select_cuenta($is_codemp,$ls_NextCuenta,$ls_status,$ls_denominacion))
{
if ($ls_status == "C")
{
$msg_message("Existen cuentas de nivel superior con Movimiento.");
return false;
}
}
$ls_NextCuenta = $int_scg->uf_scg_next_cuenta_nivel($ls_NextCuenta);
$li_nivel=$int_scg->uf_scg_obtener_nivel($ls_NextCuenta);
}while( $li_nivel > 1);
}
return $lb_valido;
}//uf_valida_cuenta
$io_plauni = new sigesp_scg_class_definicion();
$ls_format = $_SESSION["la_empresa"]["formplan"];
$ls_format = str_replace("-", "", $ls_format);
$li_size_form = strlen(trim($ls_format));
if (array_key_exists("operacion", $_POST)) {
$ls_operacion = $_POST["operacion"];
$ls_status = $_POST["status"];
$ls_cuenta = $_POST["txtcuenta"];
$ls_dencta = $_POST["txtdenominacion"];
} else {
$ls_operacion = $ls_cuenta = $ls_dencta = "";
}
if ($ls_operacion == "GUARDAR") {
$lb_valido = $int_scg->uf_insert_plan_unico_cuenta($ls_cuenta, $ls_dencta, $ls_status);
if ($lb_valido) {
$lb_existe = $int_scg->uf_select_plan_unico_cuenta($ls_cuenta, $ls_dencta);
if ($lb_existe) {
$io_msg->message("Registro Actualizado !!!");
$ls_evento = "UPDATE";
$ls_descripcion = "Actualizo la cuenta de plan unico {$ls_cuenta}, con denominacion {$ls_dencta}";
} else {
$io_msg->message("Registro Incluido !!!");
$ls_evento = "INSERT";
$ls_descripcion = "Inserto la cuenta de plan unico {$ls_cuenta}, con denominacion {$ls_dencta}";
}
$io_seguridad->uf_sss_insert_eventos_ventana($ls_empresa, $ls_sistema, $ls_evento, $ls_logusr, $ls_ventanas, $ls_descripcion);
$ls_cuenta = $ls_dencta = "";
} else {
$io_msg->message("" . $int_scg->is_msg_error);
}
}
