实施押金程序修改.pdfVIP

程序名：MV45AFZB

用事务代码SE38进行修改，输入程序名,修改175行到296行，程序代码如下。

修改方法:当要根据押金余额限制冻结订单的时候,只需把红色标记行前面的”*”去掉,(“*”

表示注释行),然后激活程序,上传到PRD(800)即可.

.

.

FORMUSEREXIT_CHECK_VBAPUSINGUS_DIALOG.

*{INSERTR3DK9000281

tables:zknkk,

zmseg.

data:imseglikezmsegoccurs0withheaderline,

first_valuelikezmseg-netwr,

TUNE_VALUELIKEZMSEG-NETWR,

credit_valuelikezmseg-netwr,

ar_valuelikezmseg-netwr,应收金额

PAY_VALUELIKEZMSEG-NETWR,已清金额

stock_valuelikezmseg-netwr,

total_remain_valuelikezmseg-netwr,

V_DIFFLIKEzmseg-netwr,

text(150),

TEXTL1(70),

TEXTL2(70),

TEXTL3(70),

text1(10),

text2(10),

text3(10),

text4(10),

text5(10),

text6(10),

text7(10),

text8(10),

text9(10).

checkvbak-auarteqZKB.

*

selectsingle*fromzknkk

wherekunnreqvbak-kunnr.

ifsy-subrcne0.

messagew899with客户vbak-kunnr无押金帐.

*vbak-lifsk=99.暂不冻结订单

else.

*

ifzknkk-crblbeqX.

messagew899with客户vbak-kunnr押金帐被锁定.

*vbak-lifsk=99.暂不冻结订单

else.

*

cleartotal_remain_value.

*

first_value=zknkk-klimk.

TUNE_VALUE=zkn