[mjjj]

Quedo feisimo el anterior....

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 noc =:entrada'
       ON EXTERNAL DATA SOURCE 'localhost:C:\PROGRAMAS\DOMMO_3\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:\PROGRAMAS\DOMMO_3\DOMMO_LOCAL.FDB'
       AS USER 'SYSDBA' PASSWORD 'masterkey'
       INTO :C3, :C4
   DO 
       INSERT INTO COMPRAS (NOC, PROVEEDOR, AVAL) VALUES (:OC, :C3, :C4);
end