当前位置：文档之家 › ABAP实例

ABAP实例

  • 格式：doc
  • 大小：55.00 KB
  • 文档页数：17

*&---------------------------------------------------------------------* *& Report Z_SD_R011 *& *&---------------------------------------------------------------------* *& *& *&---------------------------------------------------------------------*

REPORT Z_SD_R011. type-pools: slis,ibco2.

DATA: lt_zcabw LIKE TABLE OF zcabw WITH HEADER LINE. DATA: atbez TYPE string, tmp2 TYPE string. DATA: config TYPE ibco2_instance_tab2, con LIKE LINE OF config, vl LIKE ibvalue0. TABLES: vbak, vbap, zhlt0011, MARA, MARC, mseg.

DATA: name LIKE user_addr-name_textc. DATA: gt_fieldcat TYPE TABLE OF slis_fieldcat_alv, tmp_fieldcat TYPE TABLE OF slis_fieldcat_alv, wa_fieldcat LIKE LINE OF gt_fieldcat.

data: tmp_line type i value 0, tmp_cntr type i. data: tmp_control_parameters type SSFCTRLOP.

DATA: gs_layout TYPE slis_layout_alv. DATA: gt_list_top_of_page TYPE slis_t_listheader. DATA: REMARK LIKE zpp_sr002-REMARK, TBFS LIKE zpp_sr002-TBFS, PJYQ LIKE zpp_sr002-PJYQ, SBMS LIKE zpp_sr002-SBMS.

data: BEGIN OF T_zmseg OCCURS 0 , kdauf like mseg-kdauf, kdpos like mseg-kdpos, MENGE like mseg-MENGE, BWART like mseg-BWART, END OF T_zmseg.

DATA: BEGIN OF lt_cabn OCCURS 0, atinn LIKE cabn-atinn, atnam LIKE cabn-atnam, atbez LIKE cabnt-atbez, END OF lt_cabn.

data:BEGIN OF T_getdata OCCURS 0. include structure ZSDR011. data:END OF T_getdata .

data:BEGIN OF ITAB1 OCCURS 0. include structure ZSDR011. data:END OF ITAB1 .

data:BEGIN OF ITAB2 OCCURS 0. include structure ZSDR011. data:END OF ITAB2 .

DATA:zinstance_rec TYPE ibco2_instance_rec2, zinstance TYPE ibco2_part_of_link_rec, zvalues LIKE LINE OF zinstance_rec-values. DATA: BEGIN OF t_out OCCURS 0. INCLUDE STRUCTURE zvalues. DATA: END OF t_out.

DATA: satinn LIKE cabn-atinn, zatwtb(200) TYPE c, yatwtb(200) TYPE c, agamng TYPE i, c_gamng(15) TYPE c, satwtb(200) TYPE c, xatwtb(200) TYPE c, bzfs(30) TYPE c, i_kdpos LIKE afpo-kdpos, i_menge LIKE mseg-menge, ii_menge LIKE mseg-menge, sdsnam LIKE t024d-dsnam, atwrt LIKE cawn-atwrt.

SELECTION-SCREEN:BEGIN OF BLOCK a WITH FRAME TITLE Text-F01. SELECT-OPTIONS: SO_LABOR FOR MARA-LABOR , SO_FEVOR FOR MARC-FEVOR, S_ZFHZS FOR zhlt0011-ZFHZS, S_VBELN FOR VBAK-VBELN, S_KUNNR FOR VBAK-KUNNR, S_SPART FOR VBAK-SPART, S_AUART FOR VBAK-AUART, S_ERDAT FOR VBAK-ERDAT, S_VDATU FOR vbak-VDATU, S_MVGR2 FOR VBAP-mvgr2, D_ZDATE FOR ZHLT0011-ZDATE. SELECTION-SCREEN:END OF BLOCK a.

START-OF-SELECTION. PERFORM GET_DATA. PERFORM get_selectdata. PERFORM disposal_data. PERFORM build_alv. PERFORM display_screen. ********************************************************************** * FORM : * Created : 12.07.2007 09:09:00 ********************************************************************** FORM GET_DATA. select vbak~KUNNR vbak~BSTNK vbak~VKGRP vbap~ARKTX vbap~VGBEL vbak~VDATU vbap~KDMAT vbap~cuobj vbep~EDATU zhlt0011~vbeln zhlt0011~posnr zhlt0011~ZFHZS zhlt0011~KWMENG ZHLT0011~matnr ZHLT0011~ZDATE ZHLT0011~ORDER_QTY INTO CORRESPONDING FIELDS OF TABLE T_getdata from vbak inner join vbap on vbap~vbeln = vbak~vbeln inner join zhlt0011 on zhlt0011~vbeln = vbap~vbeln and zhlt0011~posnr = vbap~posnr INNER JOIN VBEP ON VBEP~VBELN = VBAP~VBELN AND VBEP~POSNR = VBAP~POSNR inner join VBUK on VBUK~VBELN = VBAK~VBELN inner join mara on ZHLT0011~matnr = mara~matnr inner join marc on mara~matnr = marc~matnr where zhlt0011~ZFHZS in S_ZFHZS and vbak~vbeln in S_VBELN AND vbak~kunnr in S_KUNNR AND VBAK~SPART IN S_SPART AND VBAK~AUART IN S_AUART AND VBAK~ERDAT IN S_ERDAT AND vbak~VDATU IN S_VDATU and MARA~LABOR in SO_LABOR AND vbap~mvgr2 IN S_MVGR2 AND ZHLT0011~ZDATE IN D_ZDATE AND MARC~FEVOR IN SO_FEVOR AND VBUK~LFGSK <> 'C' AND VBEP~ETENR = '1'.

select * from mseg into CORRESPONDING FIELDS OF TABLE T_zmseg where ( mseg~BWART = '601' or mseg~bwart = '602' or mseg~bwart = '653' ) order by kdauf.

SELECT SINGLE name_textc "get user name text. FROM user_addr

合集下载

ABAP-SAP增强应用实例

ABAP-SAP增强应用实例

ABAP-SAP增强应用实例SAP增强应用实例SAP增强大家都很熟悉，在此不再详细讲解，下面只是通过一个实例来展示一下增强的应用。

系统增强实例为建立工单前进行校验，如没有进行标准成本发布则提示错误信息E。

T-code：CMOD通过增强程序我们可以控制相关应用，如果你不知道到底功能是用到的哪个增强，那么请看我附录上的列表。

我们以ppco0006举例如下：如图2.data:begin of l_matnr,matnr like mbew-matnr,VPRSV like mbew-VPRSV,vjvpr like mbew-vjvpr,pprdl like mbew-pprdl,lplpr like mbew-lplpr,end of l_matnr.select single matnr vprsv vjvpr pprdl lplpr from mbew into l_matnrwhere matnr = CAUFVD_IMP-MATNR* and pprdl <> ''* and lplpr <> ''and bwkey = CAUFVD_IMP-WERKS.* and vjvpr = 'S'.if l_matnr-vprsv = 'V'./移动平均价exit.elseif sy-subrc <> 0 or ( l_matnr-pprdl is initial and l_matnr-lplpr is initial ).message e888(sabapdocu) with '物料' CAUFVD_IMP-MATNR'没有做成本估算, 不能创建生产订单,请通知SAP方丈，yeah~~~!'.exit.endif.endif.OK，快去看看你增强后的效果吧~~~~~￥%&%&*（*（SAP所有模块用户出口：用户出口名称短文本描述0VRF0001 客户指定路线确定AAIC0001 IM 总结: 在选择后处理数据AAIC0002 IM 总结: 在选择后处理指定的输入项AAIP0001 IM 追溯: 实际价值对预算类别的分配AAIP0002 IM 追溯: 定义用户定义的指标AAIP0003 IM 追溯: 定义用户定义的特性AAIR0001 IM-IS: 适用请求报表中的用户值字段AAIR0002 IM-FA: 拨款申请的用户字段AAIR0003 IM: 创建拨款申请中的PM 定单时工作场所的分配AAIR0004 IM 追溯: 定义用户定义的特性AAIS0003 投资计量对资产的实际结算AAIS0004 全部计划值或预算值的结算AAPM0001 资产会计和工厂维护的集成ACBAPI01 会计核算: 对BAPI 界面的客户增强功能ACCID001 会计核算的IDoc 过程ACCID002 支出会计的IDoc 处理ACCOBL01 代码块中PAI 和PBO 的客户出口AD010001 更改对象清单及其层次AD010002 定界选择和/或过滤已定数据AD010003 创建自定义动态项目特性AD010005 创建自定义资源AD010006 菜单退出：更改动态项目值AD010007 更改DI 处理信息AFAR0001 External determination of ref. valuefor dep. calculationAFAR0002 External determination of depreciationAFAR0003 外部转换方式AFAR0004 报废比例值的确定AINT0001 当记帐资产时进行扩展的检查AINT0002 出入流水中冲销帐户的替代...AINT0003 定义投资支持再付款的百分比/金额AINT0004 更改某范围已过帐金额AINT0005 虚拟扩展语法检查. 不使用。

SAP_ABAP学习实例讲解part3

SAP_ABAP学习实例讲解part3

第八章ALV控件的使用ALV〔SAP List Viewer〕控件是SAP业务中最常用的控件之一，本章先用一个简单的例子介绍用ALV控件显示数据，再以实例方式介绍ALV的强大功能，例如程序可以直接使用。

本章主要内容有：〔〕简单的ALV控件实例；〔〕自定义输出字段的ALV控件实例；〔〕在屏幕上成立ALV控件；〔〕自定义ALV控件的东西条按钮；〔〕处置ALV控件双击事件；〔〕通过ALV控件编纂内表和数据库更新；〔〕ALV Tree的使用。

8.1 简单的ALV控件实例以航班表〔SPFLI〕为例，使用数据字典定义布局，通过ALV控件显示数据。

【例】REPORT YTEST26.*定义内表DATA WA_SPFLI LIKE TABLE OF SPFLI WITH HEADER LINE.*内表赋值SELECT * INTO TABLE WA_SPFLI FROM SPFLI.*通过数据字典布局显示ALVCALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'EXPORTINGI_STRUCTURE_NAME = 'SPFLI'TABLEST_OUTTAB = WA_SPFLIEXCEPTIONSPROGRAM_ERROR = 1OTHERS = 2.IF SY-SUBRC <> 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.输出成果如图8-1所示。

图8-18.2 自定义输出字段的ALV控件实例【例】REPORT YTEST27.*ALV使用到的类库TYPE-POOLS: SLIS.*一列描述DATA WA_ALV_FIELD TYPE SLIS_FIELDCAT_ALV.*列描述内表，列清单DATA WA_ALV_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.*定义内表DATA WA_SPFLI LIKE TABLE OF SPFLI WITH HEADER LINE. *内表赋值SELECT * INTO TABLE WA_SPFLI FROM SPFLI.*定义第一到第四个字段WA_ALV_FIELD-COL_POS = 1.WA_ALV_FIELD-FIELDNAME = 'CARRID'.WA_ALV_FIELD-SELTEXT_M = '航线承运人'.APPEND WA_ALV_FIELD TO WA_ALV_FIELDCAT.WA_ALV_FIELD-COL_POS = 2.WA_ALV_FIELD-FIELDNAME = 'CONNID'.WA_ALV_FIELD-SELTEXT_M = '航班连接'.APPEND WA_ALV_FIELD TO WA_ALV_FIELDCAT.WA_ALV_FIELD-COL_POS = 3.WA_ALV_FIELD-FIELDNAME = 'CITYFROM'.WA_ALV_FIELD-SELTEXT_M = '起飞城市'.APPEND WA_ALV_FIELD TO WA_ALV_FIELDCAT.WA_ALV_FIELD-COL_POS = 4.WA_ALV_FIELD-FIELDNAME = 'CITYTO'.WA_ALV_FIELD-SELTEXT_M = '目标城市'.APPEND WA_ALV_FIELD TO WA_ALV_FIELDCAT.*调用ALV显示表单数据CALL FUNCTION 'REUSE_ALV_LIST_DISPLAY'EXPORTING* I_INTERFACE_CHECK = ' '* I_BYPASSING_BUFFER =* I_BUFFER_ACTIVE = ' '* I_CALLBACK_PROGRAM = ' '* I_CALLBACK_PF_STATUS_SET = ' '* I_CALLBACK_USER_COMMAND = ' '* I_STRUCTURE_NAME =* IS_LAYOUT =IT_FIELDCAT = WA_ALV_FIELDCAT * IT_EXCLUDING =* IT_SPECIAL_GROUPS =* IT_SORT =* IT_FILTER =* IS_SEL_HIDE =* I_DEFAULT = 'X'* I_SAVE = ' '* IS_VARIANT =* IT_EVENTS =* IT_EVENT_EXIT =* IS_PRINT =* IS_REPREP_ID =* I_SCREEN_START_COLUMN = 0* I_SCREEN_START_LINE = 0* I_SCREEN_END_COLUMN = 0* I_SCREEN_END_LINE = 0* IMPORTING* E_EXIT_CAUSED_BY_CALLER =* ES_EXIT_CAUSED_BY_USER =TABLEST_OUTTAB = WA_SPFLI* EXCEPTIONS* PROGRAM_ERROR = 1* OTHERS = 2.IF SY-SUBRC <> 0.* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.ENDIF.输出成果如图8-2所示。

ABAP-SAP增强应用实例

ABAP-SAP增强应用实例

SAP增强应用实例SAP增强大家都很熟悉，在此不再详细讲解，下面只是通过一个实例来展示一下增强的应用。

系统增强实例为建立工单前进行校验，如没有进行标准成本发布则提示错误信息E。

T-code：CMOD通过增强程序我们可以控制相关应用，如果你不知道到底功能是用到的哪个增强，那么请看我附录上的列表。

我们以ppco0006举例如下：如图2.我们需要的是制定我们的组件，如图3.通过功能退出增加增强语句：如图4：双击程序后加入如下语句~~~~if sy-tcode <> 'CK11N' and sy-tcode <> 'CK40N'.data:begin of l_matnr,matnr like mbew-matnr,VPRSV like mbew-VPRSV,vjvpr like mbew-vjvpr,pprdl like mbew-pprdl,lplpr like mbew-lplpr,end of l_matnr.select single matnr vprsv vjvpr pprdl lplpr from mbew into l_matnrwhere matnr = CAUFVD_IMP-MATNR* and pprdl <> ''* and lplpr <> ''and bwkey = CAUFVD_IMP-WERKS.* and vjvpr = 'S'.if l_matnr-vprsv = 'V'./移动平均价exit.elseif sy-subrc <> 0 or ( l_matnr-pprdl is initial and l_matnr-lplpr is initial ).message e888(sabapdocu) with '物料' CAUFVD_IMP-MATNR'没有做成本估算, 不能创建生产订单,请通知SAP方丈，yeah~~~!'.exit.endif.endif.OK，快去看看你增强后的效果吧~~~~~￥%&%&*（*（SAP所有模块用户出口：用户出口名称短文本描述0VRF0001 客户指定路线确定AAIC0001 IM 总结: 在选择后处理数据AAIC0002 IM 总结: 在选择后处理指定的输入项AAIP0001 IM 追溯: 实际价值对预算类别的分配AAIP0002 IM 追溯: 定义用户定义的指标AAIP0003 IM 追溯: 定义用户定义的特性AAIR0001 IM-IS: 适用请求报表中的用户值字段AAIR0002 IM-FA: 拨款申请的用户字段AAIR0003 IM: 创建拨款申请中的PM 定单时工作场所的分配AAIR0004 IM 追溯: 定义用户定义的特性AAIS0003 投资计量对资产的实际结算AAIS0004 全部计划值或预算值的结算AAPM0001 资产会计和工厂维护的集成ACBAPI01 会计核算: 对BAPI 界面的客户增强功能ACCID001 会计核算的IDoc 过程ACCID002 支出会计的IDoc 处理ACCOBL01 代码块中PAI 和PBO 的客户出口AD010001 更改对象清单及其层次AD010002 定界选择和/或过滤已定数据AD010003 创建自定义动态项目特性AD010005 创建自定义资源AD010006 菜单退出：更改动态项目值AD010007 更改DI 处理信息AFAR0001 External determination of ref. value for dep. calculation AFAR0002 External determination of depreciationAFAR0003 外部转换方式AFAR0004 报废比例值的确定AINT0001 当记帐资产时进行扩展的检查AINT0002 出入流水中冲销帐户的替代...AINT0003 定义投资支持再付款的百分比/金额AINT0004 更改某范围已过帐金额AINT0005 虚拟扩展语法检查. 不使用。

ABAP事件的简单用法

ABAP事件的简单用法

ABAP事件的简单⽤法1.1、事件：⽤于捕获某类对象状态的改变来触发事件的⽅法，并进⾏处理1.2、定义：可以在类或接⼝中进⾏声明 EVENTS|CLASS-EVENTS evt EXPORTING … VALUE(p1) TYPE type|LIKE f [OPTIONAL|DEFAULT g] ... 实例事件中包含⼀个隐含参数SENDER，该参数的类型为触发时间的类或接⼝对象引⽤1.3、触发：⼀个实例事件可以被类中的任意⽅法触发，静态时间则可以被静态⽅法触发 RAISE EVENT evt EXPORTING p1 = f1 … pn = fn 1。

4、事件处理：事件需要通过触发其声明代码中所定义的⽅法才能处理相关事务。

任何类都可以调⽤其他类中所定义的事件，或调⽤⾃⾝所定义的事件 METHODS|CLASS-METHODS meth FOR EVENT evt OF cif IMPORTING …ei…1.5、为相关事件注册⽅法 SET HANDLER … hi… [FOR] …1.6、事件类型分为4种定义在类中的：实例事件，静态事件定义在接⼝中的：实例事件，静态事件对于实例事件， 注册语句必须使⽤FOR指定注册对象 … FOR ref . … FOR ALL INSTANCES（注册所有可以触发该事件的实例，包括尚未被创建的实例） 注册静态事件，不需加FOR后缀，⾃动应⽤于整个类1.7、例⼦：设置⼀个数字从1循环到50，当它是5的倍数时，触发事件输出⼀段话。

*定义事件如果⼀个数是5的倍数，触发事件CLASS a DEFINITION.PUBLIC SECTION.CLASS-DATA num TYPE i.METHODS add.EVENTS mod5 EXPORTING VALUE(p_num) TYPE i.ENDCLASS.CLASS a IMPLEMENTATION.METHOD add.num = num + 1.IF num MOD5 = 0.RAISE EVENT mod5 EXPORTING p_num = num.ENDIF.ENDMETHOD.ENDCLASS.*定义事件处理类CLASS mod5_handle DEFINITION.PUBLIC SECTION.METHODS write_num FOR EVENT mod5 OF a IMPORTING p_num.ENDCLASS.CLASS mod5_handle IMPLEMENTATION.METHOD write_num.WRITE: / 'this is event menthod,p_num = ',p_num.ENDMETHOD.ENDCLASS.*声明类DATA: a TYPE REF TO a,mod5 TYPE REF TO mod5_handle,a1 TYPE REF TO a,a2 TYPE REF TO a.START-OF-SELECTION.CREATE OBJECT a.CREATE OBJECT a1.CREATE OBJECT a2.CREATE OBJECT mod5.*注册事件SET HANDLER mod5->write_num FOR a.DO50TIMES.CALL METHOD a->add.ENDDO.WRITE / 'a is stop.'.DO50TIMES.CALL METHOD a1->add.ENDDO.WRITE / 'a1 is stop.'.*注册事件为所有实例（包含没有创建的实例）SET HANDLER mod5->write_num FOR ALL INSTANCES. DO50TIMES.CALL METHOD a1->add.ENDDO.WRITE / 'a1 is stop.'.DO50TIMES.CALL METHOD a2->add.ENDDO.WRITE / 'a2 is stop.'.。