Relación de tablas con llaves foráneas

[[egostar]]

Hola amigos,

Espero poder ser claro con algunas dudas que tengo.

Estoy creando una relación de tablas usando llaves foráneas.

Uso Firebird 2.0 y componentes IBX en Turbo Delphi

Las tablas que tengo, sus llaves primarias (PK) y sus llaves foráneas (FK) son las siguientes:

RECTORIAS

PK ID_Rectoria VARCHAR(3)
Nombre VARCHAR(30)

DIVISIONES

FK PK ID_Rectoria VARCHAR(3)
PK ID_Division VARCHAR(3)
Nombre VARCHAR(30)

DEPARTAMENTOS

FK PK ID_Rectoria VARCHAR(3)
FK PK ID_Division VARCHAR(3)
PK ID_Departamento VARCHAR(3)
Nombre VARCHAR(30)

SECCIONES

FK PK ID_Rectoria VARCHAR(3)
FK PK ID_Division VARCHAR(3)
FK PK ID_Departamento VARCHAR(3)
PK ID_Seccion VARCHAR(3)
Nombre VARCHAR(30)

Intento con esta relación de tablas generar agrupaciones de tipo organizacional.

Nota: Uso VarChar(3) ya que requiero que los datos tengan la forma:

RECTORIA+DIVISION+DEPARTAMENTO+SECCION
001+001+001+001

Preguntas:

¿Están bien creadas las relaciones y llaves?

¿Como generar automáticamente un consecutivo 001-002-003 en los campos dentro de la base de datos (con un procedimiento almacenado o con un Disparador)? Por ejemplo:

Cuando presiono el boton de Agregar en RECTORIA

RECTORIA = 001+

Cuando agrego una DIVISION y selecciono una RECTORIA, genere el siguiente número para la DIVISION

DIVISION = RECTORIA 001+

Cuando agrego una DEPARTAMENTO y selecciono una RECTORIA y una DIVISION, genere el siguiente número para el DEPARTAMENTO

DEPARTAMENTO = RECTORIA DIVISION 001+

Cuando agrego una SECCION y selecciono una RECTORIA una DIVISION y un DEPARTAMENTO, genere el siguiente número para el DEPARTAMENTO

SECCION = RECTORIA DIVISION DEPARTAMENTO 001+

Espero haber sido claro con mis desorden mental.

Gracias anticipadas.

Salud OS.

[gabrielkc]

Una rectoría tiene un valor único, cuando creas una division se crea con un valor único le agregas la llave de la rectoría a la que pertenece hasta ahi va bien.

El problema es cuando creas un departamento

DEPARTAMENTO = RECTORIA DIVISION 001+

el departamento tiene un valor único el cual debes relacionar con una división, la rectoría en este caso sobra dado que sabiendo la division puedes saber la Rectoría, estas redundando datos.

Por lo tanto haces lo mismo cuando creas una división

SECCION = RECTORIA DIVISION DEPARTAMENTO 001+


con el valor del departamento al que pertenece, puedes obtener la división y con esta la rectoría.

[[egostar]]

Si, de hecho eso mismo hago ahora mismo, pero debo capturar el valor del concepto correspondiente

RECTORIA
DIVISION
DEPARTAMENTO
SECCION

El problema que le veo es que la captura requiere de saber cual es el último dato ingresado y no quiero que sea un campo autoincrementable (cosa que creo no puede ser porque son campos VARCHAR).

Aqui muestro el bosquejo del módulo que estoy creando.



En realidad lo único que quiero que se capture es el nombre de la SECCION en este caso.

Salud OS.

Edito: Además, quiero que esto lo haga la base de datos usando un Procedimiento almacenado o un Disparador, bueno, así lo he soñado, no quisiera hacerlo por código, que es otra alternativa si no hay una solución a esta duda.

[gabrielkc]

mmm y si llamas un query con

SELECT MAX(ID_RECTORIA),NOMBRE FROM RECTORIA GROUP BY NOMBRE

y luego en el combo (en el cual supongo cargas los nombres de las rectorias, divisiones y departamentos), haces:

ComboRectoria.ItemIndex:=ComboRectoria.Items.IndexOf(Query.FieldByName('NOMBRE').AsString));

y obviamente lo mismo para división y departamento???

[[egostar]]

Si gracias, con código es una opción que tengo contemplada como última opción.

He creado el siguiente procedimiento almacenado:

Código SQL [-]
begin
  /* Procedure Text */
  FOR SELECT seccion FROM SECCIONES
     WHERE RECTORIA = :c_rectoria and DIVISION = :c_division and DEPARTAMENTO = :c_depto
     INTO :c_seccion DO
  begin
    suspend;
  end
end

Si me funciona, pero me da el primer dato, lo que quiero es si es posible que dentro de ese procedimiento obtener el último valor para esa comparación (where .....)

Gracias por la ayuda.

Salud OS.

[[egostar]]

Bueno, usando tu Query hice esto en el procedimiento.

Código SQL [-]
begin
  /* Procedure Text */
  FOR SELECT max(seccion) FROM SECCIONES
     WHERE RECTORIA = :c_rectoria and DIVISION = :c_division and DEPARTAMENTO = :c_depto
     INTO :c_seccion DO
  begin
    suspend;
  end
end

Efectivamente me regresa el último dato.

Ahora solo es ver de que manera lo coloco en el campo de mi forma con el siguiente valor.

Muchas gracias.

Salud OS.