小编Mur*_*rat的帖子

我创建了以下存储过程

SET TERM ^ ;  
CREATE OR ALTER PROCEDURE EDIT_FATURA (fat_id integer, mflag integer) as 
begin     
  update inv_lines set mflag = :mflag where fat_id = :fat_id;
  delete from inv_lines_temp where 1=1 ;     
  insert into inv_lines_temp select ID,CODE_ID,ADET,UNIT_PRICE,LINE_NET,LINE_VAT,KDV,LINE_GRAND,CRN 
from inv_lines where fat_id = :fat_id; 
end^  
SET TERM ; ^  
GRANT SELECT,UPDATE ON INV_LINES TO PROCEDURE EDIT_FATURA;  
GRANT SELECT,INSERT,DELETE ON INV_LINES_TEMP TO PROCEDURE EDIT_FATURA;  
GRANT EXECUTE ON PROCEDURE EDIT_FATURA TO SYSDBA;

并使用以下代码,我使用我的Delphi应用程序调用存储过程

dm.q_genel.Close;     
dm.q_genel.SQL.Clear;     
dm.q_genel.SQL.Add('EXECUTE PROCEDURE EDIT_FATURA(:p1,:p2)');
dm.q_genel.ParamByName('p1').AsInteger := fid;
dm.q_genel.ParamByName('p1').AsInteger := …