Buenos(as) DIas/Tardes/Noches
Estoy trabajando en un proyectito con Delphi7 e InterBase 6, la cosa es que intento ejecutar un procedimiento almancenado y me salen errores al momento de ejecutarlo desde el delphi, porque no me muestran errores de sintaxis, el codigo del query en Delphi es:
Código Delphi
[-]
pinventario := txt_inventario.Text;
pmarca := txt_marca.Text;
pmodelo := txt_modelo.Text;
pserie := txt_serie.Text;
pdescripcion := txt_descripcion.Text;
pprecio := strToFloat(txt_precio.Text);
pedofunc := txt_edofunc.Text;
ptitular := txt_titular.Text;
pfecha := DateToStr(DTPfecha.Date);
pidArea := DBLCBox_Areas.KeyValue;
DM.IBQ_Inventario.Close;
DM.IBQ_Inventario.SQL.Clear;
DM.IBQ_Inventario.SQL.Add('execute procedure PR_Ins_InvCatArea("' + pinventario + '"," + pmarca + "," + pmodelo + "," + pdescripcion + "," + pprecio + "," + pedofunc + "," + pfecha + "," + pidArea + "," + ptitular + ")');
DM.IBQ_Inventario.ExecSQL;
DM.IBQ_Inventario.Open;
y el procedimiento hecho en el InterBAse 6 es:
Código Delphi
[-]
set term !!;
create procedure PR_Ins_InvCatArea(pinventario VARCHAR(12),pmarca VARCHAR(20),pmodelo VARCHAR(20),pserie VARCHAR(20),pdescripcion VARCHAR(50), pprecio FLOAT, pedofunc VARCHAR(15), pfechainv DATE, pidArea integer ,pdepositario VARCHAR(70))
as
declare variable vidInventario integer;
Begin
insert into Inventario (Inventario,Marca,Modelo,Serie, Descripcion, Precio,EdoFuncional, Fecha_Inv)
VALUES(:qinventario,:qmarca,:qmodelo,:qserie,:qdescripcion,:qprecio,:qedofunc,:qfechainv);
select idInventario from Inventario where Inventario = :qinventario into :vidInventario;
insert into Inv_CatAreas VALUES(:qidArea,:vidInventario,:qdepositario);
End!!
set term ;!!
y ya lo ejecute en el Interbase y si se deja, pero desde delphi no,
inclusive intente "insert into PR_Ins_InvCatArea VALUES(parametros)"
y pos tampoco.
Les agradezco su tiempo y la asesoria que me puedan brindar.
Sales pues

Nos vemos