Problema con un procedimiento almacenado

[Markoz]

Con este prodecimiento quiero pasar los datos de la tabla TmpVentas a HistVentas, ademas, otras variables como parametros quiero pasar, este es el SP

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
INSERT INTO HISTVENTAS(ARTICULO, PRECIOVENTA, CLIENTE, FECHA,
CODFOLIO, FOLIO, METODOVENTA, VENTATOTAL, DESCUENTO,
ABONO, ANTICIPO, SUBTOTAL, PLAZO, FINAN)
SELECT ARTICULO, PRECIOVENTA, CLIENTE, FECHA,
CODFOLIO, FOLIO, METODOVENTA, VENTATOTAL, :DESCUENTO,
:ABONO, :ANTICIPO, :SUBTOTAL, :PLAZO, :FINAN FROM TMPVENTAS;
DELETE FROM TMPVENTAS;
END

es llamado con este codigo en delphi, no manda ningun error.

TTmpVentas.close;
TTmpVentas.SelectSQL.Clear;
TTmpVentas.SelectSQL.add('Select * from PASADATOS(:DES, :ABO, :ANT, :SUBTOT, :PLA, :FIN)');
TTmpVentas.Params[0].asCurrency := Descuento;
TTmpVentas.Params[1].asCurrency := Abono;
TTmpVentas.Params[2].asCurrency := Anticipo;
TTmpVentas.Params[3].asCurrency := SumaPV;
TTmpVentas.Params[4].asCurrency := Plazo;
TTmpVentas.Params[5].asCurrency := Finan;
TTmpVentas.Prepare;
TTmpVentas.Open;

[guillotmarc]

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 :

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.