推荐这篇日记的豆列
······查找SAP标准事务代码中使用的BADI：
在SE24中，查看类对象CL_EXITHANDLER，在其方法（Methods）GET_INSTANCE&的第14行打断点，之后运行事务代码；
当有BADI将会被执行的时候，这时候会进入类CL_EXITHANDLER的GET_INSTANCE方法，按F6执行这个方法之后，参数EXIT_NAME中的值便是BADI定义（SE18中看到的东西），参数CLASS_NAME则是类对象名称（SE24里面看到的东西），所有的方法实现都是存在于类对象中；
通过查找类方法中的参数（Parameter）和对对象的属性（Attribute），如果能满足自己需要实现的功能，则可以通过实现这个BADI来做增强。
实现BADI的方法（ECC6.0版本下）：
进入SE19，选择Create Implementation中的Classic BADi，输入刚才查找到的EXIT_NAME；
点击Create Impl，输入实现名；
点击保存，激活（如果是ECC6.0版本，则还需要指定对应的Enhancement Spot，才可以完全创建成功。但是这里有个疑问：我第一次创建BADI实现需要指定Enhancement Spot，这次创建保存激活时直接创建成功，并没有提示我需要指定Enhancement Spot，不知道为什么！）；
双击进入方法CHANGE_SEGMENT_PSEGMENT，即可在里面实现功能；
下面再运行F-02，执行程序，即可进入此段代码。
查找SAP标准事务代码中使用的USER_EXIT：
在SE37中，查看函数MODX_FUNCTION_ACTIVE_CHECK&，在最后一行打断点；
&&&当有USER_EXIT将会被执行的时候，这时候函数MODX_FUNCTION_ACTIVE_CHECK中的参数L_FUNCNAME&会显示出口的名称。
如果要使用这个出口，必须先激活（已经激活的则不需要）；
先去表MODSAP中查找这个程序名的出口名；
进入CMOD，创建出口对象（以下图例使用的是一个已经存在的增强对象）；
选择Enhacement assignments；
在这里输入增强对象名，也就是刚才在MODSAP表里面查到的F180A001，点击组件；
选择修改，激活这些增强，双击进入EXIT_SAPLF048_001&程序；
创建INCLUDE ZXF48U01；
运行F-02，便会进入此出口程序。
阅读(...) 评论()博客访问： 31326
博文数量： 52
注册时间：
ITPUB论坛APP
ITPUB论坛APP
APP发帖 享双倍积分
IT168企业级官微
微信号：IT168qiye
系统架构师大会
微信号：SACC2013
发布时间： 09:39:32
& sap的用户出口总共有三代:&&& 一、User EXIT&&&这种出口据说是第一代的用户出口，它们include在SAP标准程序的源代码里，可以说他们是源代码的一部分，你改了这种出口就相.........
阅读(190) | 评论(0) | 转发(0)
给主人留下些什么吧！~~
请登录后留言。http://blog.csdn.net/CompassButton/article/details/1231652
BADI作为SAP的第三代用户出口，他的应用也越来越广泛，但如何找到合适的badi是许多abap程序员的困惑。我这里就介绍一下我个人的应用的经验，供大家参考。
1、badi对象的信息存储在SXS_INTER, SXC_EXIT, SXC_CLASS 和SXC_ATTR&这四个表中（参见SECE包）；
2、sap程序都会调用cl_exithandler=&get_instance来判断对象是否存在，并返回实例；其实get_instance就是对上述几个表和他们的视图（V_EXT_IMP&和 V_EXT_ACT）进行查询和搜索。
3、基于这个机理，我查用ST05来监控一个TCODE来跟踪，然后选择查找有关上述几个表和视图的操作，就可获得相关BADI。
&4、se18 查找接口，se19 实现接口就可以实现用户增强。示例：用LE_SHP_DELIVERY_PROC控制跨月CancelMETHOD IF_EX_LE_SHP_DELIVERY_PROC~CHANGE_DELIVERY_HEADER .data : thismonth(2) type c.data : wa_likp type line of SHP_LIKP_T.data : wa_log type line of SHP_BADI_ERROR_LOG_T.clear ct_log[],thismonth.thismonth = sy-datum+4(2). "-----&這一個月的月份loop at it_xlikp into wa_likp.check IS_V50AGL-WARENAUSG_STORNO ='X'."---&代表作GI cancelif wa_likp-WADAT_IST+4(2) & thismonth.wa_log-VBELN = cs_likp-vbeln.wa_log-MSGTY = 'E'. "錯誤訊息wa_log-MSGID = 'ZDN_ERROR'. "這一個class要自己建wa_log-MSGNO = '001'.append wa_log to ct_log. "Error log寫入endif.endloop.ENDMETHOD.
5、补充7.00版后ｂａｄｉ的几个处理变化
以前的CL_EXITHANDLER=&GET_PROG_AND_DYNP_FOR_SUBSCR被CL_ENH_BADI_RUNTIME_FUNCTIONS=&GET_PROG_AND_DYNP_FOR_SUBSCR&代替.
以前的&PUT_DATA_TO_SCREEN和GET_DATA_FROM_SCREEN不在需要。用户可以创建自己的数据传输函数，通过CALL BADI来调用.
&&用户也不需要调用CL_EXITHANDLER=&SET_INSTANCE_FOR_SUBSCREENS&和&CL_EXITHANDLER=&GET_INSTANCE_FOR_SUBSCREENS函数. These methods are now unnecessary as they only place the BAdI reference in a temporary storage.SET_INSTANCE_FOR_SUBSCREENS&is no longer necessary.GET_INSTANCE_FOR_SUBSCREENS&can, if necessary, be replaced by&GET BADI.
/wolly/archive//1845886.html
&&&&&&&&&&&& 1. Go to the TCode SE24 and enter CL_EXITHANDLER as object type.
2. In 'Display' mode, go to 'Methods' tab.
3. Double click the method 'Get Instance' to display it source code.
4. Set a breakpoint on 'CALL METHOD cl_exithandler=&get_class_name_by_interface'.
5. Then run your transaction.
6. The screen will stop at this method.
7. Check the value of parameter 'EXIT_NAME'. It will show you the BADI for that transaction.if found helpfull do reward.
方法二：BADI作为的第三代用户出口，他的应用也越来越广泛，但如何找到合适的badi是许多的困惑。我这里就介绍一下我个人的应用的经验，供大家参考。
1、badi对象的信息存储在SXS_INTER, SXC_EXIT, SXC_CLASS 和SXC_ATTR 这四个表中（参见SECE包）；
2、sap程序都会调用cl_exithandler=&get_instance来判断对象是否存在，并返回实例；其实get_instance就是对上述几个表和他们的视图（V_EXT_IMP 和 V_EXT_ACT）进行查询和搜索。 ------个人感觉SAP操作BADI_SPOT的时候会有BADI出现
3、基于这个机理，我查用ST05来监控一个TCODE来跟踪，然后选择查找有关上述几个表和视图的操作，就可获得相关BADI。
方法三：在TCODE的原里面查找cl_exithandler=&get_instance中的EXPORTING exit_name 后的值就是。
对于根据事务代码查找对应的BADI，网上介绍的方法很多，但总结下来无非就两种方法，在此把它记录下来，方便以后自己查阅了。（1）通过SE24，输入CL_EXITHANDLER，然后在方法GET_INSTANCE中设置断点，然后运行事务代码判断&exit_name的值，操作过程如下：输入se24,然后输入cl_exithandler进去双击get_instance设置断点查看exit_name的值:(2)通过st05跟踪，badi对应的数据表为&SXS_INTER, SXC_EXIT, SXC_CLASS 和 SXC_ATTR，而这些表都是通过视图V_EXT_IMP 和 V_EXT_ACT来查询的。
&&&& 1、打开运行事务码: ST05 选择&table buffer trace&而不是常用的"SQL trace"
&&&& 2、activate trace（开始跟踪）
&&&& 3、运行事务码：me21n
&&&& 4、创建一个采购订单，保存
&&&& 5、deactivate trace（结束跟踪）
&&&& 6、点击display trace，在出来的选择条件中： objects中输入：V_EXT_IMP和V_EXT_ACT；在 operations中输入&OPEN&
&&&& 7、查询
通过查询的结果可以看出，视图V_EXT_IMP的BADI的接口类名字都是以IF_EX_开头的，其中IF_EX_之后的就是对应BADI接口的定义。
博客分类：
在SAP系统中，SAP提供了Badi和用户出口来方便用户对标准程序来进行增强，那么我们可以通过如下方法来找到它们：
获取用户出口：
方法一：用SAP提供的一个程序来执行获取，这个程序不是已经内嵌到系统中，需要下载代码，放到自定义的程序中来执行，
代码下载地址：&或者:/Tutorials/ExitsBADIs/FindUserExitswithTCode.htm
方法二：Tcode：SMOD,进去后，写星号，按F4，调用搜索帮助，调出所有清单，从清单中搜索得到&user exit&的项目；
获取BADI（以下从SDN转帖）：
方法一：Goto Transaction SE24-&class name as CL_EXITHANDLER-&Display-&double click on get_instance mathod-&Now u will go inside the method-&Now put break point on the cl_exithandler.Now enter transaction code .U will be stopped on the break point at cl_exithandler .In the exit name u can find list of badi's attached to the tcode..Find the sutable BADI according to your requirement方法二： Go to any transaction (say CV02N) and from the menu, select System -&Status to get the program name.In the program, search for CL_EXITHANDLER=&GET_INSTANCE with the radio button &In Main Program& selected.Select one program from the list of programs containing calls to BAdIs.The changing parameter INSTANCE will have the interface assigned to it.Find out the corresponding BAdI Interface and definitionFor eg: if the inteface name is IF_EX_DOCUMENT_MAIN02 is the interface , the BAdI definition name will be DOCUMENT_MAIN02.
查找BADi的六种方法
&.cn/sariel/archives/76.html
1.SE37查看SXV_GET_CLIF_BY_NAME，设置断点，运行事务，DEBUG查看NAME的值。2.SE24查看CL_EXITHANDLER类的GET_INSTANCE方法，在 &CALL METHOD& cl_exithandler=&get_class_name_by_interface&设置断点，运行事务，DEBUG查看EXIT_NAME的值。3.SPRO查看Business Add-Ins for xxxx子项。4.SE80》Repository Browser》Package》[开发类名]》Enhancements 》Classic BAdIs (Def.)5.查找事务码的程序代码，cl_exithandler=&get_instance的EXPORTING参数exit_name。6.ST05跟踪事务码，显示Trace后查找&V_EXT_IMP&和&V_EXT_ACT&；查找以&IF_EX_&开头的字符串，该字符串为接口名，&IF_EX_&后即为BADi名。
Finding the user-exits of a SAP transaction code
*/ab038.htm
* Finding the user-exits of a SAP transaction code
* Enter the transaction code in which you are looking for the user-exit
* and it will list you the list of user-exits in the transaction code.
* Also a drill down is possible which will help you to branch to SMOD.
* Written by : SAP Basis, ABAP Programming and Other IMG Stuff
*&&&&&&&&&&&&& *
report zuserexit no standard page heading.
tables : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.
&&&&&&&& tables : tstct.
data : jtab like tadir occurs 0 with header line.
data : field1(30).
data : v_devclass like tadir-devclass.
parameters : p_tcode like tstc-tcode obligatory.
select single * from tstc where tcode eq p_tcode.
if sy-subrc eq 0.
&& select single * from tadir where pgmid = 'R3TR'
&&&&&&&&&&&&&&&&&&& and object = 'PROG'
&&&&&&&&&&&&&&&&&&& and obj_name = tstc-pgmna.
&& move : tadir-devclass to v_devclass.
&&&&& if sy-subrc ne 0.
&&&&&&&& select single * from trdir where name = tstc-pgmna.
&&&&&&&& if trdir-subc eq 'F'.
&&&&&&&&&&& select single * from tfdir where pname = tstc-pgmna.
&&&&&&&&&&& select single * from enlfdir where funcname =
&&&&&&&&&&& tfdir-funcname.
&&&&&&&&&&& select single * from tadir where pgmid = 'R3TR'
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& and object = 'FUGR'
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& and obj_name eq enlfdir-area.
&&&&&&&&&&& move : tadir-devclass to v_devclass.
&&&&&&&&& endif.
&&&&&& endif.
&&&&&& select * from tadir into table jtab
&&&&&&&&&&&&&&&&&&&& where pgmid = 'R3TR'
&&&&&&&&&&&&&&&&&&&&&& and object = 'SMOD'
&&&&&&&&&&&&&&&&&&&&&& and devclass = v_devclass.
&&&&&&& select single * from tstct where sprsl eq sy-langu and
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& tcode eq p_tcode.
&&&&&&& format color col_positive intensified off.
&&&&&&& write:/(19) 'Transaction Code - ',
&&&&&&&&&&&& 20(20) p_tcode,
&&&&&&&&&&&& 45(50) tstct-ttext.
&&&&&&&&&&&&&&&&&&& skip.
&&&&&&& if not jtab[] is initial.
&&&&&&&&&& write:/(95) sy-uline.
&&&&&&&&&& format color col_heading intensified on.
&&&&&&&&&& write:/1 sy-vline,
&&&&&&&&&&&&&&&&& 2 'Exit Name',
&&&&&&&&&&&&&&&& 21 sy-vline ,
&&&&&&&&&&&&&&&& 22 'Description',
&&&&&&&&&&&&&&&& 95 sy-vline.
&&&&&&&&&& write:/(95) sy-uline.
&&&&&&&&&& loop at jtab.
&&&&&&&&&&&&& select single * from modsapt
&&&&&&&&&&&&&&&&&&&& where sprsl = sy-langu and
&&&&&&&&&&&&&&&&&&&&&&&&&&& name = jtab-obj_name.
&&&&&&&&&&&&&&&&&& format color col_normal intensified off.
&&&&&&&&&&&&&&&&&& write:/1 sy-vline,
&&&&&&&&&&&&&&&&&&&&&&&&& 2 jtab-obj_name hotspot on,
&&&&&&&&&&&&&&&&&&&&&&&& 21 sy-vline ,
&&&&&&&&&&&&&&&&&&&&&&&& 22 modsapt-modtext,
&&&&&&&&&&&&&&&&&&&&&&&& 95 sy-vline.
&&&&&&&&&& endloop.
&&&&&&&&&& write:/(95) sy-uline.
&&&&&&&&&& describe table jtab.
&&&&&&&&&& skip.
&&&&&&&&&& format color col_total intensified on.
&&&&&&&&&& write:/ 'No of Exits:' , sy-tfill.
&&&&&&& else.
&&&&&&&&&& format color col_negative intensified on.
&&&&&&&&&& write:/(95) 'No User Exit exists'.
&&&&&&& endif.
&&&&& else.
&&&&&&&&& format color col_negative intensified on.
&&&&&&&&& write:/(95) 'Transaction Code Does Not Exist'.
&&&&& endif.
at line-selection.
&& get cursor field field1.
&& check field1(4) eq 'JTAB'.
&& set parameter id 'MON' field sy-lisel+1(10).
&& call transaction 'SMOD' and skip first&& screen.
*---End of Program
http://wiki./wiki/display/ABAP/Code+To+Find+BAdi
The following program asks for a transaction code or a program name. If a transaction code is entered, its called program is used as the program name. With the program name, its&package is retrieved, and all the Enhancements (Customer Exits) and classic BAdIs of this package are displayed.
It means this program is an help to find some Enhancements (customer exits)&and BAdIs in the same package, but maybe they are not related to this transaction or program, and moreover, this transaction or program may call many Enhancements (customer exits)&and BAdIs which will not be listed by this program. Instead, prefer Finding a BADI using Buffer trace - Transaction ST05 (Screenshots) or Find a BADI through SPRO.
REPORT Z_FIND_BADI .
TABLES : TSTC, TADIR, MODSAPT, MODACT, TRDIR, TFDIR, ENLFDIR, SXS_ATTRT, TSTCT.
DATA : JTAB LIKE TADIR OCCURS 0 WITH HEADER LINE.
DATA : FIELD1(30).
DATA : V_DEVCLASS LIKE TADIR-DEVCLASS.
DATA WA_TADIR TYPE TADIR.
PARAMETERS : P_TCODE LIKE TSTC-TCODE,
P_PGMNA LIKE TSTC-PGMNA .
START-OF-SELECTION.
IF NOT P_TCODE IS INITIAL.
SELECT SINGLE * FROM TSTC WHERE TCODE EQ P_TCODE.
ELSEIF NOT P_PGMNA IS INITIAL.
TSTC-PGMNA = P_PGMNA.
IF SY-SUBRC EQ 0.
SELECT SINGLE * FROM TADIR
WHERE PGMID = 'R3TR'
AND OBJECT = 'PROG'
AND OBJ_NAME = TSTC-PGMNA.
MOVE : TADIR-DEVCLASS TO V_DEVCLASS.
IF SY-SUBRC NE 0.
SELECT SINGLE * FROM TRDIR
WHERE NAME = TSTC-PGMNA.
IF TRDIR-SUBC EQ 'F'.
SELECT SINGLE * FROM TFDIR
WHERE PNAME = TSTC-PGMNA.
SELECT SINGLE * FROM ENLFDIR
WHERE FUNCNAME = TFDIR-FUNCNAME.
SELECT SINGLE * FROM TADIR
WHERE PGMID = 'R3TR'
AND OBJECT = 'FUGR'
AND OBJ_NAME EQ ENLFDIR-AREA.
MOVE : TADIR-DEVCLASS TO V_DEVCLASS.
SELECT * FROM TADIR INTO TABLE JTAB
WHERE PGMID = 'R3TR'
AND OBJECT IN ('SMOD', 'SXSD')
AND DEVCLASS = V_DEVCLASS.
SELECT SINGLE * FROM TSTCT
WHERE SPRSL EQ SY-LANGU
AND TCODE EQ P_TCODE.
FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
WRITE:/(19) 'Transaction Code - ',
20(20) P_TCODE,
45(50) TSTCT-TTEXT.
IF NOT JTAB[] IS INITIAL.
WRITE:/(105) SY-ULINE.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
* Sorting the internal Table
SORT JTAB BY OBJECT.
DATA : WF_TXT(60) TYPE C,
WF_SMOD TYPE I ,
WF_BADI TYPE I ,
WF_OBJECT2(30) TYPE C.
CLEAR : WF_SMOD, WF_BADI , WF_OBJECT2.
* Get the total SMOD.
LOOP AT JTAB INTO WA_TADIR.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
WRITE:/1 SY-VLINE,
2 'Enhancement/ Business Add-in',
41 SY-VLINE ,
42 'Description',
105 SY-VLINE.
WRITE:/(105) SY-ULINE.
CLEAR WF_TXT.
AT NEW OBJECT.
IF WA_TADIR-OBJECT = 'SMOD'.
WF_OBJECT2 = 'Enhancement' .
ELSEIF WA_TADIR-OBJECT = 'SXSD'.
WF_OBJECT2 = ' Business Add-in'.
FORMAT COLOR COL_GROUP INTENSIFIED ON.
WRITE:/1 SY-VLINE,
2 WF_OBJECT2,
105 SY-VLINE.
CASE WA_TADIR-OBJECT.
WHEN 'SMOD'.
WF_SMOD = WF_SMOD + 1.
SELECT SINGLE MODTEXT INTO WF_TXT
FROM MODSAPT
WHERE SPRSL = SY-LANGU
AND NAME = WA_TADIR-OBJ_NAME.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
WHEN 'SXSD'.
* For BADis
WF_BADI = WF_BADI + 1 .
SELECT SINGLE TEXT INTO WF_TXT
FROM SXS_ATTRT
WHERE SPRSL = SY-LANGU
AND EXIT_NAME = WA_TADIR-OBJ_NAME.
FORMAT COLOR COL_NORMAL INTENSIFIED ON.
WRITE:/1 SY-VLINE,
2 WA_TADIR-OBJ_NAME HOTSPOT ON,
41 SY-VLINE ,
42 WF_TXT,
105 SY-VLINE.
AT END OF OBJECT.
WRITE : /(105) SY-ULINE.
WRITE:/(105) SY-ULINE.
FORMAT COLOR COL_TOTAL INTENSIFIED ON.
WRITE:/ 'No.of Exits:' , WF_SMOD.
WRITE:/ 'No.of BADis:' , WF_BADI.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(105) 'No userexits or BADis exist'.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(105) 'Transaction does not exist'.
AT LINE-SELECTION.
DATA : WF_OBJECT TYPE TADIR-OBJECT.
CLEAR WF_OBJECT.
GET CURSOR FIELD FIELD1.
CHECK FIELD1(8) EQ 'WA_TADIR'.
READ TABLE JTAB WITH KEY OBJ_NAME = SY-LISEL+1(20).
MOVE JTAB-OBJECT TO WF_OBJECT.
CASE WF_OBJECT.
WHEN 'SMOD'.
SET PARAMETER ID 'MON' FIELD SY-LISEL+1(10).
CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
WHEN 'SXSD'.
SET PARAMETER ID 'EXN' FIELD SY-LISEL+1(20).
CALL TRANSACTION 'SE18' AND SKIP FIRST SCREEN.
[转帖]SAP BADI应用
http://space.itpub.net//viewspace-616097
&/&&& 10:40:34 / 个人分类：
1.定义BADI&&&&&&&& 1) T-Code:& SE18&&&& Business Add-In Define.
&& 2) 输入要创建的BADI的名字，点击"Create"。
&& 3) 输入BADI的描述性文本，在"Interface"选项卡上输入接口的名字，也可以采用建议的接口的名字。同时，BADI类也&&&&&&& 会被创建。
&&&& 例如：对于BADI "ZTEST"，SAP会建议"ZIF_EX_TEST"作为接口的名字，"ZCL_EX_TEST"作为类的名字。
&& 4) 保存BADI。
&& 5) 双击接口的名字，会跳转到Class Builder界面，在这里你可以定义接口的方法。
&& 6) 保存并激活接口。
2.实现BADI&&&&&&&& 1) T-Code:& SE19&&&& Business Add-In Implementation&&&&&&&& 2) 输入BADI实现的名字，点击"Create"。&&&&&&&& 3) 输入BADI定义的名字。&&&&&&&& 4) 输入实现的描述性文本，在"Interface"选项卡上输入实现类的名字。可以采用SAP建议的名字。
&&& 例如："ZIMPTEST"，SAP会建议"ZCL_IM_IMPTEST"。
&& 5) 保存实现。
&& 6) 双击某一方法名会跳转到Class Builder界面，在这里你可以添加来重定义接口方法。
&& 7) 激活实现。
3. 程序中调用BADI
1) 先用类型参照引用出要调用的BADI&&&&& 2) 实例化BADI&&&&& 3) 实例化后就可以任意调用BADI 中的方法了。
REPORT& ZZW_BAPI_01&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&& .
data exit type ref to ZIF_EX_ZW_BD_TEST.
call method cl_exithandler=&get_instance&&&& changing&&&&&&& instance = exit.
call method exit-&Z_ZW_01.
==》badi 小记BADI作为SAP的第三代用户出口，他的应用也越来越广泛，但如何找到合适的badi是许多程序员的困惑。我这里就介绍一下我个人的应用的经验，供大家参考。
1、badi对象的信息存储在SXS_INTER, SXC_EXIT, SXC_CLASS 和SXC_ATTR 这四个表中（参见SECE包）；
2、sap程序都会调用cl_exithandler=&get_instance来判断对象是否存在，并返回实例；其实get_instance就是对上述几个表和他们的视图（V_EXT_IMP 和 V_EXT_ACT）进行查询和搜索。
3、基于这个机理，我查用ST05来监控一个TCODE来跟踪，然后选择查找有关上述几个表和视图的操作，就可获得相关BADI。
4、se18 查找接口，se19 实现接口就可以实现用户增强。示例：用LE_SHP_DELIVERY_PROC控制跨月Cancel
METHOD IF_EX_LE_SHP_DELIVERY_PROC~CHANGE_DELIVERY_HEADER .data : thismonth(2) type c.data : wa_likp type line of SHP_LIKP_T.data : wa_log type line of SHP_BADI_ERROR_LOG_T.clear ct_log[],thismonth.thismonth = sy-datum+4(2). "-----&这一个月的月份loop at it_xlikp into wa_likp.check IS_V50AGL-WARENAUSG_STORNO ='X'."---&代表作GI cancelif wa_likp-WADAT_IST+4(2) & thismonth.wa_log-VBELN = cs_likp-vbeln.wa_log-MSGTY = 'E'. "错误信息wa_log-MSGID = 'ZDN_ERROR'. "这一个class要自己建wa_log-MSGNO = '001'.append wa_log to ct_log. "Error log写入endif.endloop.ENDMETHOD.
阅读(...) 评论() &相关图书推荐
定价：119.00
定价：81.00
定价：69.00
定价：59.80
定价：119.00
定价：46.00
定价：50.00
定价：80.00
定价：80.00
定价：30.00
书店排行榜
当前共有：字
提示：分享时会自动附带图书的链接地址与封面图片。
jQuery("#pageDivUser").html("");
bind_UserCommentsList(mtype, pageindex);
jQuery("li[name='tiu']").removeClass("current2");
jQuery("#" + "tab_userli" + mtype).addClass("current2");
function bind_UserCommentsList(mtype,pageindex){ //绑定网店网友评论
var pagesize = 5;
jQuery.getJSON('/AjaxBookNoUser.ashx?___time=' + Math.random(), { ___type: 'Get_CommentsBookUserList', bookid: bookid, mtype: mtype, pageindex: pageindex, pagesize: pagesize }, function (result) {
if (result != "0" && result != "-1") {
var html = "";
jQuery.each(result.list, function (i, item) { //绑定Table 0 地址
1标题 2 源 3 时间
var t = "";
t += "{0} ";
t += "{2}";
t += "{5}{3}";
var ibuy = "未购买用户：";
if(item.isbuy ==1){
ibuy="已购买用户：";}
t = t.format(item.title,item.content,item.date,ibuy);
jQuery("#book_usercm_list").html(html);
if (result.page.icount > pagesize){ //绑定分页
bind_pager(mtype, pageindex, result.page.pcount,'bind_UserCommentsList','pageDivUser');
jQuery("#book_usercm_list").html("暂时没有书评信息。");
function set_CommentsTab(mtype, pageindex) {
jQuery(".book_comms_tab").html("正在加载中请稍后...");
jQuery("#pageDiv").html("");
bind_CommentsList(mtype, pageindex);
jQuery("li[name='ti']").removeClass("current2");
jQuery("#" + "tab_li" + mtype).addClass("current2");
function bind_CommentsList(mtype, pageindex) {//绑定书评
var pagesize = 15;
jQuery.getJSON('/AjaxBookNoUser.ashx?___time=' + Math.random(), { ___type: 'Get_CommentsInfoLits', bookid: bookid, mtype: mtype, pageindex: pageindex, pagesize: pagesize }, function (result) {
if (result != "0" && result != "-1") {
var html = "";
jQuery.each(result.list, function (i, item) { //绑定Table 0 地址
1标题 2 源 3 时间
var t = "{2}{3}";
t = t.format("/bookview/" + bookid + "/" + item.PubYear + "/" + item.GUID, item.Title, item.Source, item.PubDate.split(' ')[0]);
jQuery(".book_comms_tab").html(html);
if (result.page.icount > pagesize){ //绑定分页
bind_pager(mtype, pageindex, result.page.pcount,"bind_CommentsList","pageDiv");
jQuery(".book_comms_tab").html("暂时没有书评信息。");
function bind_pager(m, p, c,f,d) {//分页 m-type p-index c-count f-function d-control
var phmb = "&"
var ph = "";
var pi = parseInt(p);
var ci = parseInt(c);
var first = ((pi - 1) == 0) ? 0 : (pi - 1);
if (first > 0) {
if (c > 8) { ph += phmb.format("", m, 1, "首页",f); }
ph += phmb.format("", m, first, "上一页",f);
for (var j = ((pi - 4) > 1) ? (pi - 4) : 1; (j <= ci) && (j
1) ? (pi - 4) : 1) + 8)); j++) {
if (j == pi) {
ph += phmb.format("class=\"aspNetDisabled\"", m, j, j,f);
ph += phmb.format("", m, j, j,f);
var last = ((pi + 1) > ci) ? (ci + 1) : (pi + 1);
8) { ph += phmb.format("", m, ci, "尾页",f); }
jQuery("#"+d).html(ph);