供应商主数据控制增强.docVIP

供应商主数据控制增强 ,因为财务部和供应部都同时建供应商, 象俺这种历来都本着坚决满足用户任何BT需求就是为人民服务的人,就坚决满足其需求,只是年纪一大,Coding时脑瓜远不如以前快了其它关于供应商的/pages/sapguru/blog/archive/2007/12/06/262887.aspx : 一 .同名的供应商增加需要已存在的同名称供应商被标志上删除标志. 二 .谁冻结删除的就只有谁能打开. 三 .有最高权限的人可以随意操作,不受任何控制. 解决步骤一．控制建立同名供应商的建立 使用增强SAPMF02K（ZXF05U01）判断如果新建供应商已有同名 字段NAME1和NAME2都控制）供应商存在，并且存在的 供应商没有删除标志，则禁止同名供应商再次新建，参考代码如下 *供应商主数据增强,为了控制同供应商被反复建立,用户需求如下: *注意:只考虑删除标志,不考虑冻结标志. *1.同名的供应商增加需要已存在的同名称供应商被标志上删除标志; *2.谁删除的供应商就只有谁打开; *3.设置有最高权限的人，可以冻结删除任何人的供应商 *供应商主数据增强,为了控制同供应商被反复建立,用户需求如下:*注意:只考虑删除标志,不考虑冻结标志.*1.同名的供应商增加需要已存在的同名称供应商被标志上删除标志;*2.谁删除的供应商就只有谁打开;*3.设置有最高权限的人，可以冻结删除任何人的供应商data: iwa_lfa1 like lfa1, iwa_lfb1 like lfb1, iwa_lfm1 like lfm1, iwa_msg 80 ? type c. check I_LFB1-BUKRS 2331 AND? SY-TCODE FK01 OR SY-TCODE FK02 OR?? SY-TCODE XK01 OR SY-TCODE XK02 or?? SY-Tcode MK01 OR SY-Tcode MK02 .clear : iwa_lfa1 ,iwa_lfb1,iwa_lfm1.*找出以前的同名供应商编号.select single * from lfa1 into iwa_lfa1?where? name1 I_lfa1-NAME1 or name1 I_lfa1-NAME2?? or name2 I_lfa1-NAME1 or name2 I_lfa1-NAME2 and? lifnr I_lfa1-lifnr?? and name2 ?? and? loevm? X .if sy-subrc 0 .?? if iwa_lfa1-LOEVM X . concatenate 同名称供应商: iwa_lfa1-lifnr? 已存!请XK06先为其设置删除标志,同名请检查名称1/名称2! into iwa_msg . message E004 ZFI with iwa_msg .?? endif . 二.控制只能删除自己建立的供应商,授权超级用户可删除所有供应商 其它关于供应商的/pages/sapguru/blog/archive/2007/12/06/262887.aspx XK06删除供应商没有增强,使用BTE,如果你没有找到增强, 可以考虑BTE 或者BADI, : a .Tcode - BF24建立一产品假设叫ZVENDOR,激活它,如图[1] b .Tcode:SE37 Copy 默认标准事件SAMPLE_INTERFACE自定义函数 ZVEND_INTERFACE c . Tcode - BF34选择事 供应商主数据事件 对应到产品ZVENDOR和事件函数 ZVEND_INTERFACE如附图: 参考代码如下: data: i_msg 50 TYPE C, i_zvuser like zvendoruser . *Xk01/FK01不控制，控制XK02/FK02/xk06/FK06变更和删除权限 *Zvendoruser是授权超级用户表 check I_LFB1-BUKRS 2331 AND SY-TCODE FK02 OR SY-TCODE XK02 or SY-TCODE FK06 or SY-TCODE XK06 . if sy-uname i_LFA1-ERNAM . select single * from zvendoruser into i_zvuser where bname sy-uname . if sy-subrc 0 .