FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
|
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; |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
|