请问如何在PB执行Store Procedure？

[jameshw]

请问如何在PB执行Store Procedure？ 以下是我的程序代码，执行后没有结果产生。

integer li_i
string ls_itemno,ls_storeno,ls_today
ls_today = string(today(),'yyyymmdd') //预交日的where argument
SetPointer(HourGlass!)
IF dw_1.rowcount() = 0 THEN
MESSAGEBOX(gs_msg,'无数据显示！')
sle_1.setfocus()
RETURN
ELSE
FOR li_i=1 TO dw_1.rowcount()
ls_itemno = dw_1.GetItemString (li_i, "td004") //品号
ls_storeno= dw_1.GetItemString (li_i, "cmsmc_mc001") //库别代号
DECLARE proc1 PROCEDURE FOR SP_INVMC_PRE
@itemno = :ls_itemno,
@storeno = :ls_storeno,
@today = :ls_today;
EXECUTE proc1;
NEXT
dw_1.settransobject(SQLCA)
dw_1.retrieve()
END IF
SetPointer(arrow!)

[青锋-SS]

IF dw_1.rowcount() = 0 THEN
为什么在
dw_1.settransobject(SQLCA)
dw_1.retrieve()
的前面?

[dangerous123]

同意楼上的,为何把事务关连和检索数据放在最后了,顺序错了吧.

[jameshw]

您们好,
我的程序结构如下,可否请您们指导一下:

1.在PB端传品号(ls_itemno),库别代号( ls_storeno),今日日期(ls_today)此三个参数给store procedure(SP_INVMC_PRE)。
2.SP_INVMC_PRE负责计算『在该库别下的该品号,到今日为止的库存可用量』，并将结果写入INVMC_PRE这个Table里。
3.dw_2的data object 是 select INVMC_PRE字段的Tabular。
4.dw_2.settransobject(SQLCA)
dw_2.retrieve()
显示结果。
以上!

附注：
我在　EXCE SP_INVMC_PRE　时，数据跑出来是正确的，且有INSERT INTO 到
INVMC_PRE这个TABLE 里。
所以我怀疑是我在PB端的程序有问题。
请指导一下，谢谢。

[jameshw]

sorry,,,
貼錯了.
是
dw_2.settransobject(SQLCA)
dw_2.retrieve()

[jameshw]

请问如何在PB执行Store Procedure？ 以下是我的程序代码，执行后没有结果产生。

integer li_i
string ls_itemno,ls_storeno,ls_today
ls_today = string(today(),'yyyymmdd') //预交日的where argument
SetPointer(HourGlass!)
IF dw_1.rowcount() = 0 THEN
MESSAGEBOX(gs_msg,'无数据显示！')
sle_1.setfocus()
RETURN
ELSE
FOR li_i=1 TO dw_1.rowcount()
ls_itemno = dw_1.GetItemString (li_i, "td004") //品号
ls_storeno= dw_1.GetItemString (li_i, "cmsmc_mc001") //库别代号
DECLARE proc1 PROCEDURE FOR SP_INVMC_PRE
@itemno = :ls_itemno,
@storeno = :ls_storeno,
@today = :ls_today;
EXECUTE proc1;
NEXT
dw_2.settransobject(SQLCA)
dw_2.retrieve()
END IF
SetPointer(arrow!)