手机编码制网站,五大跨境电商平台对比分析,怎样360网站做推广,网站建设公司的业务规划SAP ABAP顾问能力模型梳理_企业数字化建设者的博客-CSDN博客SAP Abap顾问能力模型https://blog.csdn.net/java_zhong1990/article/details/132469977
一、Function ALV
1.1 基于退货采购订单创建#xff0c;解释 FUNCTION_ALV开发的程序结构与代码模板参考
1.2 程序结构 to…SAP ABAP顾问能力模型梳理_企业数字化建设者的博客-CSDN博客SAP Abap顾问能力模型https://blog.csdn.net/java_zhong1990/article/details/132469977
一、Function ALV
1.1 基于退货采购订单创建解释 FUNCTION_ALV开发的程序结构与代码模板参考
1.2 程序结构 top|sel|frm|pbo|pai *---------------------------------------------------------------------*
* Report ZMMRP008
*---------------------------------------------------------------------*
*
*---------------------------------------------------------------------*REPORT zmmrp008.*******************************************************
*程序名: zmmrp008
*程序描述:退货采购订单创建
*----------------------------------------------------------------------
*创建日期 ABAP开发顾问 业务顾问
*2019.09.19.
*
*修改请求号 修改日期 修改人 修改描述
*xxxxxxxx xxxx.xx.xx xxxxxxxx xxxxxxxx
*******************************************************INCLUDE zrp008_top.INCLUDE zrp008_sel.INCLUDE zrp008_frm.INCLUDE zrp008_pbo.INCLUDE zrp008_pai.*------------------------------------------------------------------------*
* INITIALIZATION *
*------------------------------------------------------------------------*
INITIALIZATION.第一次打开屏幕或者点击执行代码已经执行完成重新显示屏幕的时候会运行
*1.只能用于报表程序
*2.在选择屏幕出现之前执行.
*3.通常的用法是在这里给选择屏幕中的字段赋值。*------------------------------------------------------------------------*
* AT SELECTION-SCREEN *
*------------------------------------------------------------------------*
AT SELECTION-SCREEN.当在选择屏幕上有做操作的时候都会进入到这个事件
* 选择屏幕PAI事件检查用户数据正确性和全部字段一致性发生错误所有元素可重新输入
* 在这里我们可以用来检查输入的参数是否有问题选择屏幕至少需要填写一个字段PERFORM check_inputterm.*------------------------------------------------------------------------*
* START-OF-SELECTION *
*------------------------------------------------------------------------*
START-OF-SELECTION.当触发执行的时候屏幕
* 选择开始事件默认事件在选择屏幕的处理结束后触发PERFORM get_data. 可以创建一个子程序用来做数据处理的
* PERFORM set_catalog. 可以创建一个子程序用来设置显示字段的信息PERFORM prm_bulid_field.PERFORM display_alv. 这个子程序可以用来显示ALV*------------------------------------------------------------------------*
* END-OF-SELECTION *
*------------------------------------------------------------------------*
END-OF-SELECTION.在选择屏处理完逻辑数据之后会重新调用屏幕所以会触发INITIALIZATION
* 选择结束事件在所有逻辑数据库处理结束后触发一般用于输出列表
*---------------------------------------------------------------------*
* Form CHECK_INPUTTERM
*---------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* -- p1 text
* -- p2 text
*---------------------------------------------------------------------*
*---------------------------------------------------------------------**---------------------------------------------------------------------*
* 包含 ZRP008_TOP
*---------------------------------------------------------------------*
*----------------------------------------------------------------------*
* GLOBLE-DEFINATION *
*----------------------------------------------------------------------*TABLES ztmm_incom_list.来料单号
TABLES ekpo.
TABLES ekko.
TYPES: BEGIN OF gy_data, 定义最终显示的结构check(2) TYPE c,bukrs TYPE ekko-bukrs, 公司代码incom TYPE ztmm_incom_list-incom, 来料单号item TYPE ztmm_incom_list-item, 来料单项次bsart TYPE ekko-bsart, 采购订单类型ebeln TYPE ekko-ebeln, 采购订单号ebelp TYPE ekpo-ebelp, 采购订单项次menge TYPE ekpo-menge, 数量meins TYPE ekpo-meins, 单位matnr TYPE ekpo-matnr, 物资编码txz01 TYPE ekpo-txz01, 物料描述mfrpn TYPE ekpo-mfrpn, 原厂码subcode TYPE ekpo-subcode, Subcodewerks TYPE ekpo-werks, 工厂lgort TYPE ekpo-lgort, 库存地点ekorg TYPE ekko-ekorg, 采购组织ekgrp TYPE ekko-ekgrp, 采购组netpr_co TYPE ztmm_incom_list-netpr_co, 采购价格-含税netpr TYPE ekpo-netpr, 采购价格-未税peinh TYPE ekpo-peinh, 价格基数waers TYPE ekko-waers, 采购货币mwskz TYPE ekpo-mwskz, 税码lifnr TYPE ekko-lifnr, 供应商name1 TYPE lfa1-name1, 采购供应商名称kbetr TYPE konp-kbetr, 条件金额(借用辅助计算字段)effwr TYPE ekpo-effwr, 税率 (借用辅助计算字段)status(2) TYPE c, 退货订单创建状态message(255) TYPE c, 退货订单创建消息END OF gy_data.
DATA gs_data TYPE gy_data.
DATA gt_data TYPE TABLE OF gy_data.
DATA gs_data_copy TYPE gy_data.
DATA gt_data_copy TYPE TABLE OF gy_data.DATA gt_data_success_log TYPE TABLE OF gy_data. 采购退货订单创建成功记录
DATA gs_data_success_log TYPE gy_data.DATA gt_data_temp TYPE TABLE OF gy_data. 临时存放
DATA gs_data_temp TYPE gy_data.DATA: gv_ok_code LIKE sy-ucomm.
DATA: gt_fieldcat_lvc TYPE lvc_t_fcat, ALV:定义一个先显示字段的表gs_fieldcat_lvc LIKE LINE OF gt_fieldcat_lvc. ALV:定义一个先显示字段的结构体---------------------------------------------------------------------*
* 包含 ZRP008_FRM
*---------------------------------------------------------------------**---------------------------------------------------------------------*
* Form GET_DATA
*---------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* -- p1 text
* -- p2 text
*---------------------------------------------------------------------*
FORM get_data.SELECTekko~bukrs 公司代码ztmm_incom_list~incom 来料单ztmm_incom_list~item 项次ztmm_incom_list~ebeln 采购订单号ztmm_incom_list~ebelp 采购订单项次ztmm_incom_list~matnr 物资编码makt~maktx AS txz01ztmm_incom_list~menge 数量ztmm_incom_list~meins 订单单位ztmm_incom_list~netpr_co 采购含税价ztmm_incom_list~peinh 价格基数ztmm_incom_list~netpr 采购未税价格ztmm_incom_list~mwskz 税码ekko~bsart 取采购凭证类型ekko~lifnr 供应商lfa1~name1 供应商名称ekko~ekorg 采购组织ekko~ekgrp 采购组ekpo~werks 工厂ekpo~lgort库存地点ekpo~subcodeSUBCODEekpo~factory_code厂家码
* ekpo~factory_codeINTO CORRESPONDING FIELDS OF TABLE gt_dataFROM ztmm_incom_listINNER JOIN ekko ON ztmm_incom_list~ebeln ekko~ebelnINNER JOIN ekpo ON ztmm_incom_list~ebeln ekpo~ebeln AND ztmm_incom_list~ebelp ekpo~ebelpINNER JOIN lfa1 ON ekko~lifnr lfa1~lifnrLEFT JOIN makt ON makt~matnr ztmm_incom_list~matnrWHEREztmm_incom_list~incom IN so_incom ANDztmm_incom_list~item IN so_item ANDztmm_incom_list~ebeln IN so_ebeln ANDztmm_incom_list~ebelp IN so_ebelp ANDztmm_incom_list~matnr IN so_matnr ANDekko~lifnr IN so_lifnr.根据税码取税率IF gt_data IS NOT INITIAL.DATA lt_ftaxp TYPE TABLE OF ftaxp.DATA ls_ftaxp TYPE ftaxp.LOOP AT gt_data INTO gs_data.税码转换成税率CALL FUNCTION GET_TAX_PERCENTAGEEXPORTINGaland CNdatab sy-datummwskz gs_data-mwskztxjcd TAXBRA
* EXPORT TABLESt_ftaxp lt_ftaxp.IF sy-subrc 0.READ TABLE lt_ftaxp INTO ls_ftaxp INDEX 1.gs_data-effwr ls_ftaxp-kbetr / 1000.gs_data-kbetr ls_ftaxp-kbetr.ENDIF.单位转换CALL FUNCTION CONVERSION_EXIT_CUNIT_OUTPUTEXPORTINGinput gs_data-meinslanguage sy-languIMPORTING
* LONG_TEXT output gs_data-meins
* SHORT_TEXT
* EXCEPTIONS
* UNIT_NOT_FOUND 1
* OTHERS 2.IF sy-subrc 0.ENDIF.MODIFY gt_data FROM gs_data.ENDLOOP.ENDIF.
ENDFORM.FORM check_inputterm .DATA lv_times TYPE num10.lv_times 0.IF so_incom IS NOT INITIAL.lv_times lv_times 1.ENDIF.IF so_item IS NOT INITIAL.lv_times lv_times 1.ENDIF.IF so_ebeln IS NOT INITIAL.lv_times lv_times 1.ENDIF.IF so_ebelp IS NOT INITIAL.lv_times lv_times 1.ENDIF.IF so_matnr IS NOT INITIAL.lv_times lv_times 1.ENDIF.IF so_lifnr IS NOT INITIAL.lv_times lv_times 1.ENDIF.IF lv_times 0.MESSAGE 选择屏幕至少需要填写一个字段 TYPE E.ENDIF.ENDFORM.*DATA: fieldcat TYPE lvc_t_fcat.
FORM prm_bulid_field .PERFORM create_fieldcat USING:gt_fieldcat_lvc BUKRS 公司代码 ,gt_fieldcat_lvc INCOM 来料单号 ,gt_fieldcat_lvc ITEM 来料单项次 ,gt_fieldcat_lvc BSART 采购订单类型 ,gt_fieldcat_lvc EBELN 采购订单号 ,gt_fieldcat_lvc EBELP 采购订单项次 ,gt_fieldcat_lvc MATNR 物资编码 ,gt_fieldcat_lvc MENGE 数量 X QUAN C,gt_fieldcat_lvc MEINS 单位 ,gt_fieldcat_lvc TXZ01 物料描述 ,gt_fieldcat_lvc FACTORY_CODE 厂家码 ,gt_fieldcat_lvc SUBCODE SUBCODE ,gt_fieldcat_lvc WERKS 工厂 X T001W WERKS ,gt_fieldcat_lvc LGORT 库存地点 X X ,gt_fieldcat_lvc EKORG 采购组织 ,gt_fieldcat_lvc EKGRP 采购组 ,gt_fieldcat_lvc NETPR_CO 采购价格-含税 CURR ,gt_fieldcat_lvc NETPR 采购价格-未税 X CURR ,gt_fieldcat_lvc PEINH 价格基数 ,gt_fieldcat_lvc WAERS 采购货币 ,gt_fieldcat_lvc MWSKZ 税码 EKPO MWSKZ ,gt_fieldcat_lvc LIFNR 供应商 ,gt_fieldcat_lvc NAME1 采购供应商名称 ,gt_fieldcat_lvc STATUS 状态 ,gt_fieldcat_lvc MESSAGE 消息 30 .
ENDFORM.FORM create_fieldcat USING p0 TYPE lvc_t_fcat p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15.DATA: l_alv_filed TYPE lvc_s_fcat.l_alv_filed-fieldname p1. 内表中的字段 大写l_alv_filed-reptext p2. 表头的文本l_alv_filed-outputlen p3. 字段长度l_alv_filed-edit p4. 是否编辑l_alv_filed-convexit p5. 转换例程l_alv_filed-key p6. 左右滑动 固定列l_alv_filed-do_sum p7. 汇总l_alv_filed-checkbox p8. CHECK BOXl_alv_filed-no_zero p9. LV 控制: 为输出隐藏零l_alv_filed-hotspot p10. 当击敏感l_alv_filed-qfieldname p11. 参考单位l_alv_filed-f4availabl X. 是否有搜索帮助l_alv_filed-ref_table p12. 内表对应的搜索帮助表l_alv_filed-ref_field p13. 内表对应的搜索帮助字段l_alv_filed-datatype p14. 输出类型l_alv_filed-inttype p15. 指定该字段类型APPEND l_alv_filed TO p0.CLEAR l_alv_filed.
ENDFORM.*---------------------------------------------------------------------*
* Form DISPLAY_ALV
*---------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* -- p1 text
* -- p2 text
*---------------------------------------------------------------------*
FORM display_alv .DATA: ls_layout TYPE lvc_s_layo.IF gt_data IS NOT INITIAL.ls_layout-zebra X.ls_layout-box_fname CHECK. 指定行选择字段ls_layout-cwidth_opt X.---------------enterDATA: gt_event TYPE slis_t_event WITH HEADER LINE,ref_grid TYPE REF TO cl_gui_alv_grid.gt_event-name CALLER_EXIT.gt_event-form FM_BUTTON.APPEND gt_event .CALL FUNCTION REUSE_ALV_GRID_DISPLAY_LVCEXPORTINGi_callback_program sy-repid 这里是调用这个ALV的程序名i_callback_pf_status_set PF_STATUS 设置ALV状态栏的函数i_callback_user_command USER_COMMAND 获取用户事件的函数is_layout_lvc ls_layout 显示的布局it_fieldcat_lvc gt_fieldcat_lvc 设置显示的字段以及字段的功能it_events gt_event[]TABLESt_outtab gt_dataEXCEPTIONSprogram_error 1.IF sy-subrc 0.ENDIF.ELSE.
* 这个消息用来显示我们是不是获取到了数据自己用的时候把这个硬代码换成你需要的TEXT-XXX.MESSAGE 没有获取到数据请重新检索 TYPE S DISPLAY LIKE E.LEAVE TO LIST-PROCESSING.EXIT.ENDIF.ENDFORM.CLASS lcl_event_receiver DEFINITION.PUBLIC SECTION.METHODS handle_modifyFOR EVENT data_changed_finished OF cl_gui_alv_gridIMPORTING e_modified et_good_cells.
ENDCLASS. LCL_EVENT_RECEIVER DEFINITIONDATA: ref_grid TYPE REF TO cl_gui_alv_grid.
CLASS lcl_event_receiver IMPLEMENTATION.METHOD handle_modify.DATA stbl TYPE lvc_s_stbl.PERFORM frm_refresh_alv.stbl-row x. 基于行的稳定刷新stbl-col x. 基于列稳定刷新CALL METHOD ref_grid-refresh_table_displayEXPORTINGis_stable stbl.ENDMETHOD. HANDLE_MODIFY
ENDCLASS. LCL_EVENT_RECEIVER IMPLEMENTATIONDATA:gt_event_receiver TYPE REF TO lcl_event_receiver.实现FM_BUTTON
FORM fm_button USING e_grid TYPE slis_data_caller_exit.CALL FUNCTION GET_GLOBALS_FROM_SLVC_FULLSCRIMPORTINGe_grid ref_grid.设置enter事件CALL METHOD ref_grid-register_edit_eventEXPORTINGi_event_id cl_gui_alv_gridmc_evt_enterEXCEPTIONSerror 1OTHERS 2.CREATE OBJECT gt_event_receiver.SET HANDLER gt_event_receiver-handle_modify FOR ref_grid.
ENDFORM. FM_BUTTON
*---------------------------------------------------------------------*
* Form FRM_REFRESH_ALV
*---------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* -- p1 text
* -- p2 text
*---------------------------------------------------------------------*
FORM frm_refresh_alv .全表更新 含税价。CLEAR gs_data.IF gt_data IS NOT INITIAL.LOOP AT gt_data INTO gs_data.IF gs_data-netpr IS NOT INITIAL.gs_data-netpr_co gs_data-netpr * ( 1 gs_data-effwr ).MODIFY gt_data FROM gs_data.ENDIF.ENDLOOP.ENDIF.
ENDFORM.*---------------------------------------------------------------------*
* 包含 ZRP008_FRM
*---------------------------------------------------------------------**---------------------------------------------------------------------*
* Form GET_DATA
*---------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* -- p1 text
* -- p2 text
*---------------------------------------------------------------------*
FORM get_data.SELECTekko~bukrs 公司代码ztmm_incom_list~incom 来料单ztmm_incom_list~item 项次ztmm_incom_list~ebeln 采购订单号ztmm_incom_list~ebelp 采购订单项次ztmm_incom_list~matnr 物资编码makt~maktx AS txz01ztmm_incom_list~menge 数量ztmm_incom_list~meins 订单单位ztmm_incom_list~netpr_co 采购含税价ztmm_incom_list~peinh 价格基数ztmm_incom_list~netpr 采购未税价格ztmm_incom_list~mwskz 税码ekko~bsart 取采购凭证类型ekko~lifnr 供应商lfa1~name1 供应商名称ekko~ekorg 采购组织ekko~ekgrp 采购组ekpo~werks 工厂ekpo~lgort库存地点ekpo~subcodeSUBCODEekpo~factory_code厂家码
* ekpo~factory_codeINTO CORRESPONDING FIELDS OF TABLE gt_dataFROM ztmm_incom_listINNER JOIN ekko ON ztmm_incom_list~ebeln ekko~ebelnINNER JOIN ekpo ON ztmm_incom_list~ebeln ekpo~ebeln AND ztmm_incom_list~ebelp ekpo~ebelpINNER JOIN lfa1 ON ekko~lifnr lfa1~lifnrLEFT JOIN makt ON makt~matnr ztmm_incom_list~matnrWHEREztmm_incom_list~incom IN so_incom ANDztmm_incom_list~item IN so_item ANDztmm_incom_list~ebeln IN so_ebeln ANDztmm_incom_list~ebelp IN so_ebelp ANDztmm_incom_list~matnr IN so_matnr ANDekko~lifnr IN so_lifnr.根据税码取税率IF gt_data IS NOT INITIAL.DATA lt_ftaxp TYPE TABLE OF ftaxp.DATA ls_ftaxp TYPE ftaxp.LOOP AT gt_data INTO gs_data.税码转换成税率CALL FUNCTION GET_TAX_PERCENTAGEEXPORTINGaland CNdatab sy-datummwskz gs_data-mwskztxjcd TAXBRA
* EXPORT TABLESt_ftaxp lt_ftaxp.IF sy-subrc 0.READ TABLE lt_ftaxp INTO ls_ftaxp INDEX 1.gs_data-effwr ls_ftaxp-kbetr / 1000.gs_data-kbetr ls_ftaxp-kbetr.ENDIF.单位转换CALL FUNCTION CONVERSION_EXIT_CUNIT_OUTPUTEXPORTINGinput gs_data-meinslanguage sy-languIMPORTING
* LONG_TEXT output gs_data-meins
* SHORT_TEXT
* EXCEPTIONS
* UNIT_NOT_FOUND 1
* OTHERS 2.IF sy-subrc 0.ENDIF.MODIFY gt_data FROM gs_data.ENDLOOP.ENDIF.
ENDFORM.FORM check_inputterm .DATA lv_times TYPE num10.lv_times 0.IF so_incom IS NOT INITIAL.lv_times lv_times 1.ENDIF.IF so_item IS NOT INITIAL.lv_times lv_times 1.ENDIF.IF so_ebeln IS NOT INITIAL.lv_times lv_times 1.ENDIF.IF so_ebelp IS NOT INITIAL.lv_times lv_times 1.ENDIF.IF so_matnr IS NOT INITIAL.lv_times lv_times 1.ENDIF.IF so_lifnr IS NOT INITIAL.lv_times lv_times 1.ENDIF.IF lv_times 0.MESSAGE 选择屏幕至少需要填写一个字段 TYPE E.ENDIF.ENDFORM.*DATA: fieldcat TYPE lvc_t_fcat.
FORM prm_bulid_field .PERFORM create_fieldcat USING:gt_fieldcat_lvc BUKRS 公司代码 ,gt_fieldcat_lvc INCOM 来料单号 ,gt_fieldcat_lvc ITEM 来料单项次 ,gt_fieldcat_lvc BSART 采购订单类型 ,gt_fieldcat_lvc EBELN 采购订单号 ,gt_fieldcat_lvc EBELP 采购订单项次 ,gt_fieldcat_lvc MATNR 物资编码 ,gt_fieldcat_lvc MENGE 数量 X QUAN C,gt_fieldcat_lvc MEINS 单位 ,gt_fieldcat_lvc TXZ01 物料描述 ,gt_fieldcat_lvc FACTORY_CODE 厂家码 ,gt_fieldcat_lvc SUBCODE SUBCODE ,gt_fieldcat_lvc WERKS 工厂 X T001W WERKS ,gt_fieldcat_lvc LGORT 库存地点 X X ,gt_fieldcat_lvc EKORG 采购组织 ,gt_fieldcat_lvc EKGRP 采购组 ,gt_fieldcat_lvc NETPR_CO 采购价格-含税 CURR ,gt_fieldcat_lvc NETPR 采购价格-未税 X CURR ,gt_fieldcat_lvc PEINH 价格基数 ,gt_fieldcat_lvc WAERS 采购货币 ,gt_fieldcat_lvc MWSKZ 税码 EKPO MWSKZ ,gt_fieldcat_lvc LIFNR 供应商 ,gt_fieldcat_lvc NAME1 采购供应商名称 ,gt_fieldcat_lvc STATUS 状态 ,gt_fieldcat_lvc MESSAGE 消息 30 .
ENDFORM.FORM create_fieldcat USING p0 TYPE lvc_t_fcat p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15.DATA: l_alv_filed TYPE lvc_s_fcat.l_alv_filed-fieldname p1. 内表中的字段 大写l_alv_filed-reptext p2. 表头的文本l_alv_filed-outputlen p3. 字段长度l_alv_filed-edit p4. 是否编辑l_alv_filed-convexit p5. 转换例程l_alv_filed-key p6. 左右滑动 固定列l_alv_filed-do_sum p7. 汇总l_alv_filed-checkbox p8. CHECK BOXl_alv_filed-no_zero p9. LV 控制: 为输出隐藏零l_alv_filed-hotspot p10. 当击敏感l_alv_filed-qfieldname p11. 参考单位l_alv_filed-f4availabl X. 是否有搜索帮助l_alv_filed-ref_table p12. 内表对应的搜索帮助表l_alv_filed-ref_field p13. 内表对应的搜索帮助字段l_alv_filed-datatype p14. 输出类型l_alv_filed-inttype p15. 指定该字段类型APPEND l_alv_filed TO p0.CLEAR l_alv_filed.
ENDFORM.*
*
**---------------------------------------------------------------------*
** Form SET_CATALOG
**---------------------------------------------------------------------*
** text
**---------------------------------------------------------------------*
** -- p1 text
** -- p2 text
**---------------------------------------------------------------------*
*FORM set_catalog .
* DATA:lv_position TYPE i VALUE 1.
* CLEAR: lv_position.
* lv_position lv_position 1.
** 预定义一个输出模式
* DEFINE df_fieldcat.
* CLEAR gs_fieldcat_lvc.
* gs_fieldcat_lvc-col_pos lv_position.ALV 控制: 输出列
* gs_fieldcat_lvc-scrtext_m 1.中字段标签
* gs_fieldcat_lvc-fieldname 2.ALV 控制: 内部表字段的字段名称
* gs_fieldcat_lvc-no_zero 3.ALV 控制: 为输出隐藏零
* gs_fieldcat_lvc-checkbox 4.ALV 控制: 作为复选框输出
* gs_fieldcat_lvc-edit 5.设置可编辑模式
* gs_fieldcat_lvc-hotspot 6.ALV 控制: 单击敏感
** gs_fieldcat_lvc-outputlen 7.输出长度
* gs_fieldcat_lvc-datatype 7.输出类型
* gs_fieldcat_lvc-f4availabl X.是否有搜索帮助
** gs_fieldcat_lvc-qfieldname 8. 参考单位
** gs_fieldcat_lvc-convexit 9.转换例程
* gs_fieldcat_lvc-ref_table 8.内表对应的搜索帮助表
* gs_fieldcat_lvc-ref_field 9.内表对应的搜索帮助字段
*
* APPEND gs_fieldcat_lvc TO gt_fieldcat_lvc.
* ADD 1 TO lv_position.
* END-OF-DEFINITION.
* df_fieldcat:
* 公司代码 BUKRS ,
* 来料单号 INCOM ,
* 来料单项次 ITEM ,
* 采购订单类型 BSART ,
* 采购订单号 EBELN ,
* 采购订单项次 EBELP ,
* 物资编码 MATNR ,
* 数量 MENGE X QUAN ,
* 单位 MEINS ,
* 物料描述 TXZ01 ,
** 原厂码 MFRPN ,
* 厂家码 FACTORY_CODE ,
* Subcode SUBCODE ,
* 工厂 WERKS X T001W WERKS,
* 库存地点 LGORT X X ,
* 采购组织 EKORG ,
* 采购组 EKGRP ,
* 采购价格-含税 NETPR_CO CURR ,
* 采购价格-未税 NETPR X CURR ,
* 价格基数 PEINH ,
* 采购货币 WAERS ,
* 税码 MWSKZ X EKPO MWSKZ,
* 供应商 LIFNR ,
* 采购供应商名称 NAME1 ,
* 状态 STATUS ,
* 消息 MESSAGE
*
* .
*ENDFORM.*---------------------------------------------------------------------*
* Form DISPLAY_ALV
*---------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* -- p1 text
* -- p2 text
*---------------------------------------------------------------------*
FORM display_alv .DATA: ls_layout TYPE lvc_s_layo.IF gt_data IS NOT INITIAL.ls_layout-zebra X.ls_layout-box_fname CHECK. 指定行选择字段ls_layout-cwidth_opt X.---------------enterDATA: gt_event TYPE slis_t_event WITH HEADER LINE,ref_grid TYPE REF TO cl_gui_alv_grid.gt_event-name CALLER_EXIT.gt_event-form FM_BUTTON.APPEND gt_event .CALL FUNCTION REUSE_ALV_GRID_DISPLAY_LVCEXPORTINGi_callback_program sy-repid 这里是调用这个ALV的程序名i_callback_pf_status_set PF_STATUS 设置ALV状态栏的函数i_callback_user_command USER_COMMAND 获取用户事件的函数is_layout_lvc ls_layout 显示的布局it_fieldcat_lvc gt_fieldcat_lvc 设置显示的字段以及字段的功能it_events gt_event[]TABLESt_outtab gt_dataEXCEPTIONSprogram_error 1.IF sy-subrc 0.ENDIF.ELSE.
* 这个消息用来显示我们是不是获取到了数据自己用的时候把这个硬代码换成你需要的TEXT-XXX.MESSAGE 没有获取到数据请重新检索 TYPE S DISPLAY LIKE E.LEAVE TO LIST-PROCESSING.EXIT.ENDIF.ENDFORM.CLASS lcl_event_receiver DEFINITION.PUBLIC SECTION.METHODS handle_modifyFOR EVENT data_changed_finished OF cl_gui_alv_gridIMPORTING e_modified et_good_cells.
ENDCLASS. LCL_EVENT_RECEIVER DEFINITIONDATA: ref_grid TYPE REF TO cl_gui_alv_grid.
CLASS lcl_event_receiver IMPLEMENTATION.METHOD handle_modify.DATA stbl TYPE lvc_s_stbl.PERFORM frm_refresh_alv.stbl-row x. 基于行的稳定刷新stbl-col x. 基于列稳定刷新CALL METHOD ref_grid-refresh_table_displayEXPORTINGis_stable stbl.ENDMETHOD. HANDLE_MODIFY
ENDCLASS. LCL_EVENT_RECEIVER IMPLEMENTATIONDATA:gt_event_receiver TYPE REF TO lcl_event_receiver.实现FM_BUTTON
FORM fm_button USING e_grid TYPE slis_data_caller_exit.CALL FUNCTION GET_GLOBALS_FROM_SLVC_FULLSCRIMPORTINGe_grid ref_grid.设置enter事件CALL METHOD ref_grid-register_edit_eventEXPORTINGi_event_id cl_gui_alv_gridmc_evt_enterEXCEPTIONSerror 1OTHERS 2.CREATE OBJECT gt_event_receiver.SET HANDLER gt_event_receiver-handle_modify FOR ref_grid.
ENDFORM. FM_BUTTON
*---------------------------------------------------------------------*
* Form FRM_REFRESH_ALV
*---------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* -- p1 text
* -- p2 text
*---------------------------------------------------------------------*
FORM frm_refresh_alv .全表更新 含税价。CLEAR gs_data.IF gt_data IS NOT INITIAL.LOOP AT gt_data INTO gs_data.IF gs_data-netpr IS NOT INITIAL.gs_data-netpr_co gs_data-netpr * ( 1 gs_data-effwr ).MODIFY gt_data FROM gs_data.ENDIF.ENDLOOP.ENDIF.
ENDFORM.*---------------------------------------------------------------------*
* 包含 ZRP008_PBO
*---------------------------------------------------------------------**---------------------------------------------------------------------*
* Form PF_STATUS
*---------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* -- p1 text
* -- p2 text
*---------------------------------------------------------------------*
FORM pf_status USING i_it_extab TYPE slis_t_extab.
* 这里我们需要设置状态栏 首先要在程序里面创建一个状态栏
* 定义好名称来这里替换硬代码SET PF-STATUS ZSTATUS_001.* 这里我们需要设置状态栏标题 首先要在程序里面创建一个状态栏标题
* 定义好名称来这里替换硬代码SET TITLEBAR ZSTATUS_TITLE.
ENDFORM.*---------------------------------------------------------------------*
* 包含 ZRP008_PAI
*---------------------------------------------------------------------**---------------------------------------------------------------------*
* Form USER_COMMAND
*---------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* -- p1 text
* -- p2 text
*---------------------------------------------------------------------*FORM user_command USING i_ucomm TYPE sy-ucommi_wa_selfield TYPE slis_selfield.------------------------------刷新ALV---------------DATA: lr_grid TYPE REF TO cl_gui_alv_grid.CALL FUNCTION GET_GLOBALS_FROM_SLVC_FULLSCRIMPORTINGe_grid lr_grid.CALL METHOD lr_grid-check_changed_data.CALL METHOD lr_grid-refresh_table_display.i_wa_selfield-refresh X.DATA lv_length TYPE num10.CASE i_ucomm.WHEN IC1.READ TABLE gt_data INTO gs_data INDEX i_wa_selfield-tabindex.CASE i_wa_selfield-fieldname.WHEN LGORT.DATA: l_dselc TYPE TABLE OF dselc WITH HEADER LINE.DATA: l_ddshretval TYPE TABLE OF ddshretval WITH HEADER LINE.TYPES:BEGIN OF ly_t001l,werks TYPE t001l-werks,lgort TYPE t001l-lgort,lgobe TYPE t001l-lgobe,END OF ly_t001l.DATA: lt_lgort TYPE TABLE OF ly_t001l WITH HEADER LINE.T001L 库存地点SELECT lgort lgobe werks INTO CORRESPONDING FIELDS OF TABLE lt_lgort FROM t001l WHERE werks gs_data-werks.l_dselc-fldname LGORT.l_dselc-dyfldname LGORT.APPEND l_dselc.l_dselc-fldname LGOBE.l_dselc-dyfldname LGOBE.APPEND l_dselc.CALL FUNCTION F4IF_INT_TABLE_VALUE_REQUESTEXPORTINGretfield LGORTdynpprog sy-repiddynpnr sy-dynnrdynprofield LGORT 返回到屏幕上的ALV 或者屏幕上对应的字段。window_title 选择库存地点value_org S StructureTABLESvalue_tab lt_lgort[]return_tab l_ddshretval[]dynpfld_mapping l_dselc[]EXCEPTIONSparameter_error 1no_values_found 2OTHERS 3.IF sy-subrc 0.IF l_ddshretval[] IS NOT INITIAL.READ TABLE l_ddshretval[] INTO l_ddshretval INDEX 1.gs_data-lgort l_ddshretval-fieldval.MODIFY gt_data FROM gs_data INDEX i_wa_selfield-tabindex.ENDIF.ENDIF.ENDCASE.WHEN CREATE_PO. 创建采购退货订单lv_length 0.CLEAR gs_data.REFRESH gt_data_copy.LOOP AT gt_data INTO gs_data WHERE check X .lv_length lv_length 1.IF gs_data-status S.APPEND gs_data TO gt_data_copy.ENDIF.ENDLOOP.IF lv_length 0.MESSAGE 请选择行 TYPE E.ENDIF.IF lines( gt_data_copy ) 0 .MESSAGE 选中的行有已经创建成功的记录 TYPE E.ENDIF.供应商、公司、采购组织、采购组 都相同的数据创建在同一张采购订单不同行上。CLEAR gs_data.REFRESH gt_data_copy.LOOP AT gt_data INTO gs_data WHERE check X.APPEND gs_data TO gt_data_copy.ENDLOOP.DELETE ADJACENT DUPLICATES FROM gt_data_copy COMPARING bukrs lifnr ekorg ekgrp.创建PO需要的参数类型定义DATA ls_poheader TYPE bapimepoheader.DATA ls_poheaderx TYPE bapimepoheaderx.DATA ls_poitem TYPE bapimepoitem.DATA lt_poitem TYPE TABLE OF bapimepoitem.DATA ls_poitemx TYPE bapimepoitemx.DATA lt_poitemx TYPE TABLE OF bapimepoitemx.DATA lv_poitem TYPE num10.DATA lt_bapiret2 TYPE TABLE OF bapiret2.DATA ls_bapiret2 TYPE bapiret2.DATA lt_extensionin TYPE TABLE OF bapiparex .DATA ls_extensionin TYPE bapiparex .DATA ls_bapi_te_mepoitem TYPE bapi_te_mepoitem.DATA ls_bapi_te_mepoitemx TYPE bapi_te_mepoitemx.CLEAR gs_data_copy.LOOP AT gt_data_copy INTO gs_data_copy.ls_poheader-comp_code gs_data_copy-bukrs. 公司代码ls_poheader-doc_type gs_data_copy-bsart. 采购凭证类型ls_poheader-creat_date sy-datum. 系统当前日期ls_poheader-created_by sy-uname.ls_poheader-item_intvl 00010. 项目编号间隔ls_poheader-vendor gs_data_copy-lifnr.指定的供应商ls_poheader-purch_org gs_data_copy-ekorg. 采购组织ls_poheader-pur_group gs_data_copy-ekgrp. 采购组ls_poheaderx-comp_code X. 公司代码ls_poheaderx-doc_type X. 采购凭证类型ls_poheaderx-creat_date X. 系统当前日期ls_poheaderx-created_by X.ls_poheaderx-item_intvl X. 项目编号间隔ls_poheaderx-vendor X.指定的供应商ls_poheaderx-purch_org X. 采购组织ls_poheaderx-pur_group X. 采购组lv_poitem 10.LOOP AT gt_data INTO gs_data WHERE bukrs gs_data_copy-bukrsAND lifnr gs_data_copy-lifnr AND ekorg gs_data_copy-ekorg AND ekgrp gs_data_copy-ekgrp AND check X.ls_poitem-po_item lv_poitem.
* ls_poitem-material gs_data-matnr.物料号 注不支持40位物料号故换成 ls_poitem-material_long gs_data-matnr.物料号ls_poitem-material_long gs_data-matnr.物料号ls_poitem-plant gs_data-werks.工厂ls_poitem-info_rec .采购信息记录的编号ls_poitem-quantity gs_data-menge.数量外部单位转换成内部单位IF gs_data-meins IS NOT INITIAL.PERFORM conversion_exit_cunit_input CHANGING gs_data.ENDIF.ls_poitem-po_unit gs_data-meins.单位ls_poitem-net_price gs_data-netpr.采购价格-未税ls_poitem-price_unit gs_data-peinh. 价格单位ls_poitem-tax_code gs_data-mwskz.税ls_poitem-ret_item X.退货项目APPEND ls_poitem TO lt_poitem.ls_poitemx-po_item lv_poitem.ls_poitemx-po_itemx X.
* ls_poitemx-material X.物料号ls_poitemx-material_long X.物料号ls_poitemx-plant X.工厂ls_poitemx-info_rec X.采购信息记录的编号ls_poitemx-quantity X.数量ls_poitemx-po_unit X.单位ls_poitemx-net_price X.采购价格-含税ls_poitemx-price_unit X. 价格单位ls_poitemx-tax_code X.税ls_poitemx-ret_item X.退货项目APPEND ls_poitemx TO lt_poitemx.增强字段ls_bapi_te_mepoitem-po_item lv_poitem.项次ls_bapi_te_mepoitemx-po_item lv_poitem.项次 注增强这个位置比较特殊。ls_bapi_te_mepoitem-item_note gs_data-incom.行项目备注-来料单号ls_bapi_te_mepoitemx-item_note X.行项目备注ls_extensionin-structure BAPI_TE_MEPOITEM.ls_extensionin-valuepart1 ls_bapi_te_mepoitem.APPEND ls_extensionin TO lt_extensionin.CLEAR: ls_extensionin.ls_extensionin-structure BAPI_TE_MEPOITEMX.ls_extensionin-valuepart1 ls_bapi_te_mepoitemx.APPEND ls_extensionin TO lt_extensionin.CLEAR: ls_extensionin.lv_poitem lv_poitem 10.APPEND gs_data TO gt_data_temp. 临时记录将要被更新的记录ENDLOOP.创建一个PODATA ls_expheader TYPE bapimepoheader.CALL FUNCTION BAPI_PO_CREATE1EXPORTINGpoheader ls_poheaderpoheaderx ls_poheaderxIMPORTINGexpheader ls_expheaderTABLESreturn lt_bapiret2poitem lt_poitempoitemx lt_poitemxextensionin lt_extensionin.IF sy-subrc 0.表示PO创建成功,更新内表记录IF lt_bapiret2 IS NOT INITIAL.DATA zmessage(255) TYPE c.zmessage .DATA zflag(8) TYPE c.LOOP AT lt_bapiret2 INTO ls_bapiret2 .IF ls_bapiret2-type E.zmessage zmessage ls_bapiret2-type : ls_bapiret2-message .ELSEIF ls_bapiret2-type S.zflag S.ENDIF.ENDLOOP.IF zmessage IS NOT INITIAL. 表示有失败的信息记录MESSAGE zmessage TYPE S DISPLAY LIKE E.LOOP AT gt_data_temp INTO gs_data_temp.gs_data_temp-status E.gs_data_temp-message zmessage.MODIFY gt_data_temp FROM gs_data_temp.ENDLOOP.ELSE.IF zflag S. 确认采购订单被创建成功DATA ls_pocommit_return TYPE bapiret2.CALL FUNCTION BAPI_TRANSACTION_COMMIT BAPI事务提交EXPORTINGwait XIMPORTINGreturn ls_pocommit_return.zmessage ls_expheader-po_number 采购订单创建成功.MESSAGE zmessage TYPE S.LOOP AT gt_data_temp INTO gs_data_temp.gs_data_temp-status zflag.gs_data_temp-message zmessage.MODIFY gt_data_temp FROM gs_data_temp.ENDLOOP.ENDIF.APPEND LINES OF gt_data_temp TO gt_data_success_log. 最终记录创建成功的记录。ENDIF.ENDIF.ENDIF.CLEAR ls_poitemx.CLEAR ls_poitem.REFRESH lt_poitemx.REFRESH lt_poitem.CLEAR ls_bapi_te_mepoitem.CLEAR ls_bapi_te_mepoitemx.CLEAR: ls_extensionin.REFRESH lt_extensionin.REFRESH gt_data_temp.ENDLOOP.对创建成功的记录更新到ALV显示内表 GT_DADA.CLEAR gs_data.LOOP AT gt_data INTO gs_data WHERE check X.READ TABLE gt_data_success_log INTO gs_data_success_log WITH KEY ebeln gs_data-ebeln ebelp gs_data-ebelp.IF sy-subrc 0.在记录表中存在 将更新GT_DATA 记录状态。gs_data-status gs_data_success_log-status.gs_data-message gs_data_success_log-message.MODIFY gt_data FROM gs_data.ENDIF.ENDLOOP.WHEN OTHERS.ENDCASE.
ENDFORM.* Form CONVERSION_EXIT_CUNIT_INPUT
*---------------------------------------------------------------------*
* text
*---------------------------------------------------------------------*
* -- GS_DATA
*---------------------------------------------------------------------*
FORM conversion_exit_cunit_input CHANGING p_gs_data TYPE gy_data.CALL FUNCTION CONVERSION_EXIT_CUNIT_INPUTEXPORTINGinput p_gs_data-meinslanguage sy-languIMPORTINGoutput p_gs_data-meins.
ENDFORM.
