Verificar si un registro existe al insertarlo desde un procedimiento
 

Tengo el siguiente procedimiento

Código SQL [-]
SET TERM ^ ;

CREATE PROCEDURE COPIARRUBROSXGRUPO (
    grupoorigen smallint,
    grupodestino smallint)
as
declare variable elcodrubro varchar(10);
declare variable elrubro varchar(50);
declare variable elidtiporubro smallint;
declare variable elidrubro integer;
declare variable elperiodo smallint;
declare variable elmonto numeric(18,5);
begin
-- copiar los rubros y montos de un grupo a otro
  For select codrubro, rubro, idtiporubro, periodo, monto
  from montoderubros -- montoderubroa es una vista que agrupa todos los archivos requeridos
  Where idgruporub = :grupoorigen
  into :elcodrubro, :elrubro, :elidtiporubro, :elperiodo, :elmonto do
     begin
     -- Validar si ya el rubro existe si no hay que crearlo
     Select IdRubro FROM rubros
     Where CodRubro = :elcodrubro And rubro = :elrubro And
           idgruporub = :grupodestino And idtiporubro = :elidtiporubro
     into :elidrubro;
     if (elidrubro is null) then
        Begin
        -- generar el nuevo ID
        elidrubro = gen_id(gen_rubros_id,1);
        Insert into rubros
           (idrubro, codrubro, rubro, idgruporub, idtiporubro) values
           (:elidrubro, :elcodrubro, :elrubro, :grupodestino, :elidtiporubro);
        End
     -- copiar los montos por periodo
     Insert Into montosrubros
        (idrubro, periodo, monto) values
        (:elidrubro, :elperiodo, :elmonto);
     End
end^

SET TERM ; ^

El procedimiento debe copiar los rubros y montos (2 tablas) desde un idgruporub a otro (ver parametros de entrada), antes de la validación funcionaba bien para 1 sólo periodo, para más de uno da error: clave duplicada en el archivo de rubros al copiar el segundo periodo)

encontré este post con el mismo caso pero no me sirve :(

alguna ayuda??

Gracias

Tengo una duda con tu código

Código SQL [-]
if (elidrubro is null) then
        Begin
-- generar el nuevo ID
        elidrubro = gen_id(gen_rubros_id,1);
        Insert into rubros
           (idrubro, codrubro, rubro, idgruporub, idtiporubro) values
           (:elidrubro, :elcodrubro, :elrubro, :grupodestino, :elidtiporubro);
        End
-- copiar los montos por periodo
     Insert Into montosrubros
        (idrubro, periodo, monto) values
        (:elidrubro, :elperiodo, :elmonto);

esta parte (negrita) esta fuera de la validación a null, no debería de estar dentro del begin-end del IF?

Salud OS.

No, debe estar fuera del begin-end del IF. El rubro se crea una sola vez, es una relacion de uno (rubro) a muchos (el monto para cada período puede variar).

La verdad el monto deberá tener su propia validación - eventualmente :o

El problema es que no ejecuta/valida la inserción.

PD Uso Firebird 2 + ibexpert

Ejemplo de los datos:

Los grupos de rubros se usan por lo siguiente:

Es un sistema de cobranzas para un colegio, los grupos representan los rubros y precios para cada grupo de niveles: Preescolar, Básica, Bachillerato, diversificado. Los Grupos repiten +- igual los rubros con distintos códigos (de contabilidad y en algunos casos la cambia la descripción) y los montos son distintos para cada periodo / grupo.

La idea es crear el primero a mano y luego copiarlo para no tener que repetir toda la información (solo modificar lo que cambie).

Pero el problema es que al ejecutar

Código SQL [-]
EXECUTE PROCEDURE COPIARRUBROSXGRUPO(2,3)

Me da un error (sonido) aparentemente por una violacion a las validaciones

Rubros.IDRUBRO indice primario.
Montos.IDRUBRO,PERIODO indice unico.
todos estos campos son not null

Prueba a cambiar esta parte:

Código SQL [-]
if  ( not exists(select IdRubro FROM rubros
     Where CodRubro = :elcodrubro And rubro = :elrubro And
           idgruporub = :grupodestino And idtiporubro = :elidtiporubro)) then

  Begin
        -- generar el nuevo ID
        elidrubro = gen_id(gen_rubros_id,1);
        Insert into rubros
           (idrubro, codrubro, rubro, idgruporub, idtiporubro) values
           (:elidrubro, :elcodrubro, :elrubro, :grupodestino, :elidtiporubro);
   End

es posible que la variable en vez de se null sea "" y te puede fallar la comparación

Spynosa: así funcionó perfecto. Gracias