Tablas: Encabezado y 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

[Casimiro Noteví]

La 2.5 sí lo permite, es que al principio dijiste que usas la 2.0

De todas formas yo no lo he usado nunca, cuando tengo que trabajar con dos bases de datos tengo dos conexiones, leo de una y guardo en la otra.

[mjjj]

Por lo que he averiguado, la mejorar solución sería lo que propuse, pero no he podido pasarle el parametro de entrada a la consulta a la "otra" Base de Dato.

Haber si me pueden echar una manito con esto, no he podido encontrar información que me pueda servir.

Saludos.

[mjjj]

Un pequeño detalle.

Código SQL [-]
create or alter procedure TAM (    ENTRADA integer)asdeclare variable OC integer;declare variable C1 integer;declare variable C2 integer;declare variable C3 varchar(10);declare variable C4 varchar(10);beginOC = gen_id(NOC,1);   FOR        EXECUTE STATEMENT 'SELECT NCORR, ITEM FROM DETCOMPRAS where noc =: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 noc =: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

Espero que tenga solución.
Saludos.