Tablas: Encabezado y Detalle

[mjjj]

Tengo 2 tablas, compras (encabezado) y detcompras (detalle), en ellas registro la información de ordenes de compra.

En el evento de ONclick de un Tbutton tengo este codigo.

Código Delphi [-]
insert into compras (fecha, nprov, aval)
values (current_date, :nprov, :aval)

Existe un campo en la tablas compras que se llama NOC: Integer, el cual se ingresa con un trigger y un generador, como sigue:

Código Delphi [-]
SET TERM ^ ;
 
CREATE OR ALTER TRIGGER COMPRAS FOR COMPRAS
INACTIVE BEFORE INSERT POSITION 0
AS
begin
    NEW.NOC = GEN_ID(COMPRA_NOC,1);
end
^

SET TERM ; ^

Hasta aqui todo bien, de esta forma evito tener ordnes repetidas y funciona perfecto.

El problema se me presenta cuando quiero almacenar los registros de la tabla detcompras... con que valor de NOC lo guardo... no necesariamente es el ultimo, imaginense que justo despues de almacenar la orden 100, otro usuario almaceno la 101 (segun el generador), y lo que correspondia a la orden 100, quedó en la 101.

Esta me está ocurriendo, por eso es que lo expongo.

Me gustaría saber como almacenar esto, evitando que se me crucen ordenes.

Pudiera ser un procedimiento almacenado, me podrá servir esto?
Cualquier idea es bienvenida.

Saludos

[Casimiro Noteví]

Pues sólo debes recuperar ese código que creas mediante el trigger para poder guardarlo luego con la tabla de detalles.

También puedes usar un procedimiento almacenado que te devuelva el código de la cabecera a insertar, en lugar de hacerlo por trigger. Así luego usas ese código también para guardar los registros de detalle.

[[AzidRain]]

Precisamente estaba pensando en ese detalle de FB cuando me aperece este post. Yo uso más MySQL y tiene una cómoda función que devuelve el último número generado, solo habría que escribir una pequeña función para FB para hacer precisamente eso. El proceso me parece es el que está causando el problema:

1.- Grabar la cabecera
2.- Verificar que número asignó FB
3.- Poner ese número en todas las filas de detalle
4.- Grabar el detalle.

[Casimiro Noteví]

Claro, es lo que comentaba antes, es necesario un procedimiento almacenado o una función que devuelva el código que toca y luego usar ese código en la tabla de detalle.

[[AzidRain]]

La complicacion según yo estriba en que por ejemplo, la funcion de MySQL te devuelve el valor del último valor autoincrementado generado para la conexión que estamos usando Es decir, no importa si alguien más hace inserciones, la función regresará el valor que generó para nosotros y solo para nosotros lo cual la hace bastante útil, no he encontrado algo parecido aún y con procedimientos almacenados en FB, eso es lo que me intriga, como poder hacer lo mismo en este motor.

[Casimiro Noteví]

Es que los generadores de firebird no son campos autoincrementales.

 iCodigo = GEN_ID(AGenerator, 1);

Cada vez que se llame al generador devolverá +1
Aunque también puede ponerse el valor que se quiera:

 iCodigo = GEN_ID(AGenerator, 2);

Eso saltará los números de 2 en dos.

 iCodigo = GEN_ID(AGenerator, 0);

Así no avanza, devuelve el número último generado y no aumenta el contador.

[mjjj]

Creo tener esto mas o menos resuelto.

Les cuento un poco mas sobre mi problema. La aplicación funciona con 2 Bases de datos, una local, que contiene las tablas temporales, y la base de Dato que almacena todos los registros de forma permanente (TOTAL).

El usuario realiza los cambios en las tablas temporales (BD Local), en donde puede tener mas de una orden de compra registrada (encabezado), con sus correspondientes detalles (tabla detcompras)

Cada vez que se guarde un registro en la tabla compras de la BD local salta un trigger que ejecuta un procedimiento almacenado, con parametro de entrada igual al valor de NOC.

Código SQL [-]
create or alter procedure TAM (
    PARA_ENTRADA integer)
as
declare variable OC integer;
declare variable C1 integer;
declare variable C2 integer;
declare variable C3 varchar(10);
declare variable C4 varchar(10);
begin
OC = gen_id(NOC,1);
   FOR 
       SELECT NCORR, ITEM FROM DETCOMPRAS WHERE NOC = ara_entrada
       INTO :C1, :C2
   DO 
       EXECUTE STATEMENT 'INSERT INTO DETCOMPRAS (NOC, NCORR, ITEM) values (:OC, :c1, :c2)'
       ON EXTERNAL DATA SOURCE 'localhost:C:\TOTAL.FDB'
       AS USER 'SYSDBA' PASSWORD 'masterkey';

   FOR 
       SELECT PROVEEDOR, AVAL FROM COMPRAS WHERE NOC = ara_entrada
       INTO :C3, :C4
   DO 
       EXECUTE STATEMENT 'INSERT INTO COMPRAS (NOC, PROVEEDOR, AVAL) values (:OC, :c3, :C4)'
       ON EXTERNAL DATA SOURCE 'localhost:C:\TOTAL.FDB'
       AS USER 'SYSDBA' PASSWORD 'masterkey';
end

Este procedimiento lee de la tabla temporal (BD local), y escribe en la tabla de la BD TOTAL.

El problema es que para insertar en la BD distinta a la que se está conectado la expresión debe ir entre '' (comillas), por lo que no me detecta las variables local definidas.

Como puedo resolver esto?

[Casimiro Noteví]

No sabía que la la versión 2 de firebird permitiera grabar en otra base de datos desde un procedimiento, así que poco te puedo ayudar

[mjjj]

Estoy utilizando Firebird 2.5, y si que lo permite.

Con respecto al procedimiento almacenado este es el correcto, la conección "original", es la BD TOTAL para poder obtener el generador correspondiente.

Código SQL [-]
create or alter procedure TAM (
    ENTRADA integer)
as
declare variable OC integer;
declare variable C1 integer;
declare variable C2 integer;
declare variable C3 varchar(10);
declare variable C4 varchar(10);
begin
OC = gen_id(NOC,1);
   FOR 
       EXECUTE STATEMENT 'SELECT NCORR, ITEM FROM DETCOMPRAS where :entrada'
       ON EXTERNAL DATA SOURCE 'localhost:C:\DOMMO_LOCAL.FDB'
       AS USER 'SYSDBA' PASSWORD 'masterkey'
       INTO :C1, :C2
   DO 
       INSERT INTO DETCOMPRAS (NOC, NCORR, ITEM) VALUES (:OC, :C1, :C2);
   FOR
       EXECUTE STATEMENT 'SELECT PROVEEDOR, AVAL FROM COMPRAS where :entrada'
       ON EXTERNAL DATA SOURCE 'localhost:C:\DOMMO_LOCAL.FDB'
       AS USER 'SYSDBA' PASSWORD 'masterkey'
       INTO :C3, :C4
   DO 
       INSERT INTO COMPRAS (NOC, PROVEEDOR, AVAL) VALUES (:OC, :C3, :C4);
end

El único problema de esto es que no puedo agregar la condición :entrada en la consulta a la BD Local.

Espero me puedan ayudar, gracias