Hola.
No dices mucho acerca de cual es el problema que te da el procedimiento almacenado. ¿ no devuelve nada ? ¿ no inserta nada ?.
Asumo que te inserta correctamente los registros de la tabla Temp, pero no te devuelve nada.
Esto es así, porque la sintaxis de Interbase/Firebird indica que para devolver un registro, hay que rellenar los valores de los parámetros de salida, y llamar a la instrucción
suspend. Así pues tu procedimiento quedaría más bien como algo :
Código:
CREATE PROCEDURE PASADATOS (
DES NUMERIC (15, 2),
ABO NUMERIC (15, 2),
ANT NUMERIC (15, 2),
SUBTOT NUMERIC (15, 2),
PLA NUMERIC (2, 1),
FIN NUMERIC (2, 1))
RETURNS (
ARTICULO VARCHAR (80),
PRECIOVENTA NUMERIC (15, 2),
CLIENTE VARCHAR (50),
FECHA DATE,
CODFOLIO VARCHAR (2),
FOLIO INTEGER,
METODOVENTA VARCHAR (20),
VENTATOTAL NUMERIC (15, 2),
DESCUENTO NUMERIC (15, 2),
ABONO NUMERIC (15, 2),
ANTICIPO NUMERIC (15, 2),
SUBTOTAL NUMERIC (15, 2),
PLAZO NUMERIC (2, 1),
FINAN NUMERIC (2, 1))
AS
BEGIN
FOR SELECT ARTICULO, PRECIOVENTA, CLIENTE, FECHA, CODFOLIO, FOLIO, METODOVENTA, VENTATOTAL
FROM TMPVENTAS
INTO :ARTICULO, :PRECIOVENTA, :CLIENTE, :FECHA, :CODFOLIO, :FOLIO, :METODOVENTA, :VENTATOTAL
DO BEGIN
INSERT INTO HISTVENTAS (ARTICULO, PRECIOVENTA, CLIENTE, FECHA, CODFOLIO, FOLIO, METODOVENTA, VENTATOTAL, DESCUENTO, ABONO, ANTICIPO, SUBTOTAL, PLAZO, FINAN)
VALUES (:ARTICULO, :PRECIOVENTA, :CLIENTE, :FECHA, :CODFOLIO, :FOLIO, :METODOVENTA, :VENTATOTAL, :DESCUENTO, :ABONO, :ANTICIPO, :SUBTOTAL, :PLAZO, :FINAN)
SUSPEND;
END
Saludos.