供应商主数据操纵增强.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