begin
  -- Call the procedure
  user_ah.scm_gensalinvoice_ah_new(an_invoiceseq => :an_invoiceseq,
                                   an_compid => :an_compid,
                                   an_ownerid => :an_ownerid,
                                   an_saledeptid => :an_saledeptid,
                                   as_flowid => :as_flowid,
                                   as_invtype => :as_invtype,
                                   as_invbegincode => :as_invbegincode,
                                   as_invtypecode => :as_invtypecode,
                                   as_optmode => :as_optmode,
                                   as_billsrc => :as_billsrc,
                                   as_optstep => :as_optstep,
                                   an_createuser => :an_createuser,
                                   ai_rtd => :ai_rtd,
                                   as_endinvoiceno => :as_endinvoiceno,
                                   as_rmsg => :as_rmsg);
end;

先直接右键测试：



最后三个就是OUT出来的，-1是异常的情况。我看了as_intvtype传入错误，但是没有错啊，我看了存储过程，not in('00','10') then rtd=-1，

然后我在测试窗口用：

declare
  an_invoiceseq Float;
  an_compid Float;
  an_ownerid Float;
  an_saledeptid Float;
  as_flowid String;
  as_invtype String;
  as_invbegincode String;
  as_invtypecode String;
  as_optmode String;
  as_billsrc String;
  as_optstep String;
  an_createuser Float;
  ai_rtd Float;
  as_endinvoiceno String;
  as_rmsg String;
begin
  user_ah.scm_gensalinvoice_ah_new(/*an_invoiceseq =>*/ 156443,/*an_compid =>*/ 1,/*an_ownerid =>*/ 1,/*an_saledeptid =>*/ 201,/*as_flowid =>*/ '',/*as_invtype =>*/ '00'
  ,/*as_invbegincode =>*/ '00072839',/*as_invtypecode =>*/ '123456',/*as_optmode =>*/ '00',/*as_BillSrc =>*/ '',/*as_optstep =>*/ ''
  ,/*an_createuser =>*/ 0,/*ai_Rtd => */:ai_rtd,/*as_endinvoiceno =>*/ :as_endinvoiceno,/*as_Rmsg =>*/ :as_rmsg);
end;

然后就说并非所有变量都已绑定，为啥啊？

好吧这是裸照

[ 本帖最后由 micchan 于 2011-4-14 14:29 编辑 ]