FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
Problema con un procedimiento almacenado
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; |
#2
|
||||
|
||||
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
__________________
Marc Guillot (Hi ha 10 tipus de persones, els que saben binari i els que no). |
|
|
|