如何建立网站卖东西wordpress wpposts

如何建立网站卖东西,wordpress wpposts,杭州建设局网站,怎么建设淘宝联盟的网站一、程序基本信息 功能#xff1a;物料需求计划#xff08;MRP#xff09;报表#xff0c;显示物料在工厂和MRP区域下的库存需求情况 二、主要功能模块 数据选择界面 工厂#xff1a;必输字段 物料#xff1a;选择范围 MRP区域#xff1a;选择范围 MRP控制者#xff1a…一、程序基本信息功能物料需求计划MRP报表显示物料在工厂和MRP区域下的库存需求情况二、主要功能模块数据选择界面工厂必输字段物料选择范围MRP区域选择范围MRP控制者选择范围数据获取逻辑从MARC表获取物料基本数据根据MRP区域选择条件从MDMA表补充MRP区域信息调用标准函数MD_STOCK_REQUIREMENTS_LIST_API获取物料的库存需求清单获取以下附加信息物料描述MAKT表MRP控制者描述T024D表例外消息文本T458B表数据显示使用ALV Grid显示数据主要显示字段包括工厂、MRP区域、物料、物料描述MRP控制者及描述需求日期、MRP元素、数量信息例外消息及文本客户/供应商信息特殊功能向上追溯需求用户命令’Z’调用MD_PEGGING函数进行需求追溯双击跳转用户命令’X’调用MD_SALES_ORDER_STATUS_REPORT显示销售订单状态跳转MD04直接跳转到SAP标准事务码MD04三.完整代码*---------------------------------------------------------------------* *Report ZMMR011 *---------------------------------------------------------------------* *REVISION LOG * ** *LOG# DATE AUTHOR DESCRIPTION **---- ---- ------ ----------- * *0001 *---------------------------------------------------------------------* REPORT zqjw. *---------------------------------------------------------------------* * TABLES *---------------------------------------------------------------------* TABLES:marc,mdlv,t457t,t458a,makt. *---------------------------------------------------------------------* * INCLUDE *---------------------------------------------------------------------* *---------------------------------------------------------------------* * TYPES *---------------------------------------------------------------------*ALV参数 TYPE-POOLS: slis, icon. DATA: bdcdata LIKE bdcdata OCCURS 0 WITH HEADER LINE. DATA: messtab LIKE bdcmsgcoll OCCURS 0 WITH HEADER LINE. 定义物料时间参数结构 TYPES:BEGIN OF ty_marc_time, matnr TYPE marc-matnr, werks TYPE marc-werks, plifz TYPE marc-plifz,计划交货时间 webaz TYPE marc-webaz, GR处理时间 shzet TYPE marc-shzet,安全时间 shflg TYPE marc-shflg, 安全标识 wzeit TYPE marc-wzeit,内部生产时间 END OF ty_marc_time. 定义工厂日历结构 TYPES:BEGIN OF ty_plant_calendar, werks TYPE t001w-werks, fabkl TYPE t001w-fabkl,工厂日历 END OF ty_plant_calendar. TYPES:BEGIN OF ty_sel, matnr TYPE marc-matnr, werks TYPE marc-werks, berid TYPE mdlv-berid, dispo TYPE marc-dispo, END OF ty_sel. TYPES:BEGIN OF ty_tab, werks TYPE marc-werks, 工厂 berid TYPE mdlv-berid,MRP区域 matnr TYPE marc-matnr, 物料 maktx TYPE makt-maktx,物料描述 dispo TYPE marc-dispo, MRP控制者 dsnam TYPE t024d-dsnam,MRP控制者描述 dat00 TYPE mdez-dat00, 日期 delb0 TYPE mdez-delb0,MRP元素 extra TYPE mdez-extra, MRP元素数据 umdat TYPE mdez-umdat,再计划日期 aussl TYPE mdez-aussl, 异常消息键值 auskt TYPE mdez-auskt,例外消息 ztext TYPE char255, 例外消息文本 mng01 TYPE mdez-mng01,收货/需求 mng02 TYPE mdez-mng02, 可用数量 verid TYPE mdez-verid,生产版本 lgort TYPE mdez-lgort, 库存地点 kunnr TYPE mdez-kunnr,客户 md4kd TYPE mdez-md4kd, 客户名称 lifnr TYPE mdez-lifnr,供应商 md4li TYPE mdez-md4li, 供应名称 num TYPE i, sort1 TYPE mdez-sort1, sort2 TYPE mdez-sort2, aline TYPE mdez-aline, pr_dat TYPE mdez-dat00,PR日期 pr_sdat TYPE mdez-dat00, PR安全日期 plan_dat TYPE mdez-dat00,计划订单日期 plan_sdat TYPE mdez-dat00, 计划订单安全日期 * ebeln TYPE ekpo-ebeln,采购订单 * ebelp TYPE ekpo-ebelp, 采购订单行项目 * etenr TYPE eket-etenr,计划行假字段只显示无值 * eindt TYPE eket-eindt, 交货日期-原始值假字段只显示无值 box TYPE c,ALV选择行 END OF ty_tab. *---------------------------------------------------------------------* * CONSTANTS *---------------------------------------------------------------------* *---------------------------------------------------------------------* * GLOBAL INTERNAL TABLES *---------------------------------------------------------------------* DATA:gs_sel TYPE ty_sel, gt_sel2 TYPE TABLE OF ty_sel, gt_sel TYPE TABLE OF ty_sel. DATA:gs_tab TYPE ty_tab, gt_tab TYPE TABLE OF ty_tab. DATA:gt_mdpsx LIKE TABLE OF mdps WITH HEADER LINE. DATA: gs_eban TYPE eban, 0001 gs_eban2 TYPE eban.0001 DATA: gs_ekpo TYPE ekpo, 0001 gs_ekpo2 TYPE ekpo.0001 CONSTANTS: c_global_applid TYPE applid VALUE TKW-2074. *---------------------------------------------------------------------* * GLOBAL DATA *---------------------------------------------------------------------* *---------------------------------------------------------------------* * GLOBAL FIELD-SYMBOL *---------------------------------------------------------------------* *---------------------------------------------------------------------* * GLOBAL RANGES *---------------------------------------------------------------------* *---------------------------------------------------------------------* * GLOBAL MACROS *---------------------------------------------------------------------* *---------------------------------------------------------------------* * SELECTION-SCREEN *---------------------------------------------------------------------* SELECTION-SCREEN:BEGIN OF BLOCK b1 WITH FRAME TITLE TEXT-001. PARAMETERS:p_werks TYPE marc-werks OBLIGATORY. SELECT-OPTIONS:s_matnr FOR marc-matnr . 物料 SELECT-OPTIONS:s_berid FOR mdlv-berid.SELECT-OPTIONS:s_dispo FOR marc-dispo. SELECTION-SCREEN:END OF BLOCK b1. *---------------------------------------------------------------------* * At Select Screen *---------------------------------------------------------------------* *---------------------------------------------------------------------* * Event initialization *---------------------------------------------------------------------* INITIALIZATION. AT SELECTION-SCREEN OUTPUT. *AT SELECTION-SCREEN ON VALUE-REQUEST FOR. AT SELECTION-SCREEN. *---------------------------------------------------------------------* * Event start-of-selection *---------------------------------------------------------------------* START-OF-SELECTION. PERFORM frm_get_data. PERFORM frm_alv_display. *---------------------------------------------------------------------* * Event end-of-selection *---------------------------------------------------------------------* END-OF-SELECTION. *---------------------------------------------------------------------* * Form FRM_GET_DATA *---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -- p1 text * -- p2 text *----------------------------------------------------------------------* FORM frm_get_data . DATA:num TYPE i. DATA:lv_matnr TYPE marc-matnr. DATA:lv_werks TYPE marc-werks. DATA:lv_berid TYPE mdlv-berid. DATA:lt_mdpsx LIKE TABLE OF mdps WITH HEADER LINE. DATA:lt_mdezx LIKE TABLE OF mdez WITH HEADER LINE. DATA:lt_mdsux LIKE TABLE OF mdsu WITH HEADER LINE. DATA:ls_mt61dx LIKE mt61d . DATA: lt_makt LIKE TABLE OF makt WITH HEADER LINE. 新增定义物料时间参数内表和工厂日历内表 DATA: lt_marc_time TYPE TABLE OF ty_marc_time, ls_marc_time TYPE ty_marc_time. DATA: lt_plant_calendar TYPE TABLE OF ty_plant_calendar, ls_plant_calendar TYPE ty_plant_calendar. CLEAR:gs_sel,gt_sel. SELECT matnr werks * dispo INTO CORRESPONDING FIELDS OF TABLE gt_sel2 FROM marc WHERE matnr IN s_matnr AND werksp_werks * AND dispo IN s_dispo.IF s_berid[]IS NOT INITIAL. LOOP AT s_berid[]INTO s_berid. LOOP AT gt_sel2 INTO gs_sel. gs_sel-berids_berid-low. APPEND gs_sel TO gt_sel.ENDLOOP. ENDLOOP. ELSE. SELECT * FROM mdma INTO TABLE DATA(lt_mdma)FOR ALL ENTRIES IN gt_sel WHERE matnrgt_sel-matnr AND werksgt_sel-werks.gt_selgt_sel2. LOOP AT lt_mdma INTO DATA(ls_mdma). LOOP AT gt_sel2 INTO gs_sel WHERE matnrls_mdma-matnr AND werksls_mdma-werks. gs_sel-beridls_mdma-berid. APPEND gs_sel TO gt_sel.ENDLOOP. ENDLOOP. ENDIF. SORT gt_sel BY werks berid matnr.CLEAR:gs_tab,gt_tab. LOOP AT gt_sel INTO gs_sel. CLEAR num. CLEAR:lv_berid. CLEAR:lt_mdezx[],lt_mdezx,lt_mdsux[],lt_mdsux,lt_mdpsx[],lt_mdpsx,ls_mt61dx. IF gs_sel-berid IS INITIAL. gs_sel-beridgs_sel-werks. ELSE. lv_beridgs_sel-berid. ENDIF. CALL FUNCTIONMD_STOCK_REQUIREMENTS_LIST_APIEXPORTING * PLSCNmatnrgs_sel-matnr werksgs_sel-werks beridgs_sel-berid * ERGBZ* AFIBZ* INPER* DISPLAY_LIST_MDPSX* DISPLAY_LIST_MDEZX* DISPLAY_LIST_MDSUX* NOBUF* PLAUF* I_VRFWE* IS_SFILT* IS_AFILT* IV_FILL_MDSTAXIMPORTING e_mt61dls_mt61dx * E_MDKP* E_CM61M* E_MDSTA* E_ERGBZTABLES mdpsxlt_mdpsx mdezxlt_mdezx mdsuxlt_mdsux EXCEPTIONS material_plant_not_found1plant_not_found2OTHERS3. CLEAR:gs_tab. MOVE-CORRESPONDING gs_sel TO gs_tab. MOVE-CORRESPONDING ls_mt61dx TO gs_tab. MOVE-CORRESPONDING lt_mdpsx[]TO gt_mdpsx[]. LOOP AT lt_mdezx. * numnum 1.MOVE-CORRESPONDING lt_mdezx TO gs_tab. * gs_tab-numnum. IF gs_sel-berid IS INITIAL. gs_tab-beridgs_tab-werks. ENDIF. APPEND gs_tab TO gt_tab. ENDLOOP. ENDLOOP. IF s_dispo[]IS NOT INITIAL. DELETE gt_tab WHERE dispo NOT IN s_dispo. ENDIF.读取物料描述 IF gt_tab[] IS NOT INITIAL. SELECT * INTO TABLE lt_makt FROM makt FOR ALL ENTRIES IN gt_tab WHERE matnr gt_tab-matnr AND spras sy-langu. SORT lt_makt BY matnr. SELECT werks, dispo, dsnam INTO TABLE DATA(lt_t024d) FROM t024d FOR ALL ENTRIES IN gt_tab WHERE werks gt_tab-werks AND dispo gt_tab-dispo. SORT lt_t024d BY werks dispo. SELECT aussl, auslt INTO TABLE DATA(lt_t458a) FROM t458b FOR ALL ENTRIES IN gt_tab WHERE spras 1 AND aussl gt_tab-aussl. SORT lt_t458a BY aussl. 新增获取物料主数据中的时间参数 SELECT matnr, werks, plifz,计划交货时间 webaz, GR处理时间 shzet,安全时间 shflg, 安全标识 wzeit内部生产时间 INTO CORRESPONDING FIELDS OF TABLE lt_marc_time FROM marc FOR ALL ENTRIES IN gt_tab WHERE matnr gt_tab-matnr AND werks gt_tab-werks. SORT lt_marc_time BY matnr werks. 新增获取工厂日历 SELECT werks, fabkl FROM t001w WHERE werks IN(SELECT DISTINCT werks FROM gt_tab AS gt_tab_sql)INTO CORRESPONDING FIELDS OF TABLE lt_plant_calendar.SORT lt_plant_calendar BY werks. LOOP AT gt_tab INTO gs_tab.物料描述 READ TABLE lt_makt WITH KEY matnr gs_tab-matnr BINARY SEARCH. IF sy-subrc 0. gs_tab-maktx lt_makt-maktx. ENDIF. MRP 控制描述 READ TABLE lt_t024d INTO DATA(ls_t024d)WITH KEY werksgs_tab-werks dispogs_tab-dispo BINARY SEARCH. IF sy-subrc0. gs_tab-dsnamls_t024d-dsnam. ENDIF.例外文本 READ TABLE lt_t458a INTO DATA(ls_t458a) WITH KEY aussl gs_tab-aussl BINARY SEARCH. IF sy-subrc 0. gs_tab-ztext ls_t458a-auslt. ENDIF. 新增计算四个日期字段 IF gs_tab-dat00 IS NOT INITIAL.获取物料时间参数 READ TABLE lt_marc_time INTO ls_marc_time WITH KEY matnr gs_tab-matnr werks gs_tab-werks BINARY SEARCH. IF sy-subrc 0. 获取工厂日历 READ TABLE lt_plant_calendar INTO ls_plant_calendar WITH KEY werksgs_tab-werks BINARY SEARCH.计算四个日期 PERFORM frm_calculate_dates USING gs_tab-dat00 ls_marc_time ls_plant_calendar CHANGING gs_tab-pr_dat gs_tab-pr_sdat gs_tab-plan_dat gs_tab-plan_sdat. ENDIF. ENDIF. MODIFY gt_tab FROM gs_tab. ENDLOOP. ENDIF. ENDFORM. FRM_GET_DATA *---------------------------------------------------------------------* *Form FRM_CALCULATE_DATES *---------------------------------------------------------------------* * 根据设计说明书计算四个日期字段 *----------------------------------------------------------------------* * --PV_DAT00 MRP日期 * --PS_MARC_TIME 物料时间参数 * --PS_PLANT_CALENDAR 工厂日历 *-PV_PR_DATE PR日期 *-PV_PR_SAFETY_DATE PR安全日期 *-PV_PLAN_DATE 计划订单日期 *-PV_PLAN_SAFETY_DATE 计划订单安全日期 *----------------------------------------------------------------------* FORM frm_calculate_dates USING pv_dat00 TYPE mdez-dat00 ps_marc_time TYPE ty_marc_time ps_plant_calendar TYPE ty_plant_calendar CHANGING pv_pr_date TYPE mdez-dat00 pv_pr_safety_date TYPE mdez-dat00 pv_plan_date TYPE mdez-dat00 pv_plan_safety_date TYPE mdez-dat00. DATA: lv_calendar_id TYPE KALNR, lv_temp_date TYPE d.初始化 CLEAR: pv_pr_date, pv_pr_safety_date, pv_plan_date, pv_plan_safety_date. 获取工厂日历ID IF ps_plant_calendar-fabkl IS NOT INITIAL. lv_calendar_idps_plant_calendar-fabkl. ENDIF.1. 计算PR日期: MRP日期减去计划交货时间GR处理时间 IF ps_marc_time-plifz IS NOT INITIAL OR ps_marc_time-webaz IS NOT INITIAL. lv_temp_date pv_dat00. 减去计划交货时间 IF ps_marc_time-plifz IS NOT INITIAL. lv_temp_datelv_temp_date - ps_marc_time-plifz. ENDIF.减去GR处理时间 IF ps_marc_time-webaz IS NOT INITIAL. lv_temp_date lv_temp_date - ps_marc_time-webaz. ENDIF. 考虑工厂日历 pv_pr_datelv_temp_date. IF lv_calendar_id IS NOT INITIAL. PERFORM frm_convert_to_factory_date USING lv_calendar_id pv_pr_date CHANGING pv_pr_date. ENDIF. ENDIF.2. 计算PR安全日期 pv_pr_safety_date pv_pr_date. IF ps_marc_time-shflg 2 AND ps_marc_time-shzet IS NOT INITIAL. lv_temp_date pv_pr_date - ps_marc_time-shzet. 考虑工厂日历 IF lv_calendar_id IS NOT INITIAL. PERFORM frm_convert_to_factory_date USING lv_calendar_id lv_temp_date CHANGING pv_pr_safety_date. ELSE. pv_pr_safety_datelv_temp_date. ENDIF. ENDIF.3. 计算计划订单日期: MRP日期减去GR处理时间安全时间内部生产时间 lv_temp_date pv_dat00. 减去GR处理时间 IF ps_marc_time-webaz IS NOT INITIAL. lv_temp_datelv_temp_date - ps_marc_time-webaz. ENDIF.减去安全时间 IF ps_marc_time-shzet IS NOT INITIAL. lv_temp_date lv_temp_date - ps_marc_time-shzet. ENDIF. 减去内部生产时间 IF ps_marc_time-wzeit IS NOT INITIAL. lv_temp_datelv_temp_date - ps_marc_time-wzeit. ENDIF.考虑工厂日历 pv_plan_date lv_temp_date. IF lv_calendar_id IS NOT INITIAL. PERFORM frm_convert_to_factory_date USING lv_calendar_id pv_plan_date CHANGING pv_plan_date. ENDIF. 4. 计算计划订单安全日期 pv_plan_safety_datepv_plan_date. IF ps_marc_time-shflg2AND ps_marc_time-shzet IS NOT INITIAL. lv_temp_datepv_plan_date - ps_marc_time-shzet.考虑工厂日历 IF lv_calendar_id IS NOT INITIAL. PERFORM frm_convert_to_factory_date USING lv_calendar_id lv_temp_date CHANGING pv_plan_safety_date. ELSE. pv_plan_safety_date lv_temp_date. ENDIF. ENDIF. ENDFORM. FRM_CALCULATE_DATES *---------------------------------------------------------------------* *Form FRM_CONVERT_TO_FACTORY_DATE *---------------------------------------------------------------------* * 将日期转换为工厂工作日 *----------------------------------------------------------------------* FORM frm_convert_to_factory_date USING p_calendar_id TYPE kalnr p_date TYPE d CHANGING p_factory_date TYPE d. DATA: lv_return_code TYPE i. IF p_date IS INITIAL. RETURN. ENDIF. CALL FUNCTIONDATE_CONVERT_TO_FACTORYDATEEXPORTING calendar_idp_calendar_iddatep_date factory_calendar_idp_calendar_id IMPORTINGdatep_factory_date returncodelv_return_code EXCEPTIONS calendar_buffer_not_loadable1correct_option_invalid2date_after_range3date_before_range4date_invalid5factory_calendar_not_found6OTHERS7. IF sy-subrc0.转换失败使用原日期 p_factory_date p_date. ENDIF. ENDFORM. FRM_CONVERT_TO_FACTORY_DATE *---------------------------------------------------------------------* *Form FRM_ALV_DISPLAY *---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --p1 text *-- p2 text *----------------------------------------------------------------------* FORM frm_alv_display.DATA: lt_fieldcat TYPE lvc_t_fcat, ls_fieldcat TYPE lvc_s_fcat. DATA: ls_layout TYPE lvc_s_layo. DATA: l_repid TYPE sy-repid. DATA: lt_sort TYPE lvc_t_sort. DATA: ls_sort TYPE lvc_s_sort. CLEAR:ls_fieldcat, ls_layout, ls_sort, l_repid. REFRESH:lt_fieldcat, lt_sort. DEFINE alv_fieldcat_hout. ls_fieldcat-fieldname1. ls_fieldcat-colddictxtL.ls_fieldcat-scrtext_l2. ls_fieldcat-ref_table3.参考表. ls_fieldcat-ref_field 4. 参考字段 ls_fieldcat-lzero.输出前导零X或空仅NUMC类型字段有效 ls_fieldcat-key 5. 字段是否为关键字X或空 ls_fieldcat-do_sum6.对当前列输出时自动求和 ls_fieldcat-no_zero 7. 如果取值为零则为空既不输出零 ls_fieldcat-col_opt8. 单列优化宽度 ls_fieldcat-edit 9. 当前列可编辑 * LS_FIELDCAT-checkbox9.复选框 * LS_FIELDCAT-datatype 9. 字典中的数据类型 如INT4 * LS_FIELDCAT-inttype9.数据类型 如P * LS_FIELDCAT-decimals 9. 小数位 * LS_FIELDCAT-intlen9.内部长度 几位 * LS_FIELDCAT-outputlen 9. 列的宽度 * LS_FIELDCAT-no_out9.当前列隐藏 * LS_FIELDCAT-hotspot 9. 热点 * LS_FIELDCAT-just9.L左对齐 C居中 R右对齐 * LS_FIELDCAT-round 9. 四舍五入保留位数 APPEND ls_fieldcat TO lt_fieldcat. CLEAR ls_fieldcat. END-OF-DEFINITION. alv_fieldcat_hout:WERKS工厂MARCWERKS,BERIDMRP区域MDLVBERID,MATNR物料MARCMATNR,MAKTX物料描述MAKTMAKTX,DISPOMRP控制者MARCDISPO,DSNAMMRP控制者描述T024DDSNAM,DAT00日期MDEZDAT00,PR_DATPR日期MDEZDAT00,PR_SDATPR安全日期MDEZDAT00,PLAN_DAT计划订单日期MDEZDAT00,PLAN_SDAT计划订单安全日期MDEZDAT00,DELB0MRP元素MDEZDELB0,EXTRAMRP元素数据MDEZEXTRA,UMDAT再计划日期MDEZUMDAT, *AUSSL异常消息键值MDEZAUSSL,AUSKT例外消息MDEZAUSKT,ZTEXT例外消息文本, ,MNG01收货/需求MDEZMNG01,MNG02可用数量MDEZMNG02,VERID生产版本MDEZVERID,LGORT库存地点MDEZLGORT,KUNNR客户MDEZKUNNR,MD4KD客户名称MDEZMD4KD,LIFNR供应商MDEZLIFNR,MD4LI供应名称MDEZMD4LI.ls_layout-zebraX.ls_layout-cwidth_optX.ls_layout-box_fnameBOX.定义选择行 * ls_layout-info_fname HCOLOR. 行颜色 l_repidsy-repid. *排序显示小计 * PERFORM frm_sort TABLES lt_sort * USING ls_sort. CALL FUNCTIONREUSE_ALV_GRID_DISPLAY_LVCEXPORTING i_callback_programl_repid 当前程序 * i_grid_title 小标题 * i_callback_top_of_page FRM_TOP_OF_PAGE i_callback_user_command FRM_USER_COMMAND i_callback_pf_status_set FRM_PF_STATUS_SET is_layout_lvc ls_layout it_fieldcat_lvc lt_fieldcat it_sort_lvc lt_sort i_default X X 可以定义默认布局,这个参数是默认的 SPACE 不可以定义默认布局 i_saveAX 只能保存全局变式 U 只能保存特定变式 A 都可以保存 SPACE 不可以定义默认布局 * I_GRID_SETTINGS TABLES t_outtab gt_tab 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. ENDFORM. frm_alv_display FORM frm_pf_status_set USING extab TYPE slis_t_extab. SET PF-STATUSSTANDARD_FULLSCREEN.ENDFORM.set_pf_status * * FORM frm_user_command USING p_ucomm TYPE sy-ucomm rs_selfield TYPE slis_selfield. CASE p_ucomm. WHEN Z. 向上追溯需求 DATA:lt_mdpsx LIKE TABLE OF mdps WITH HEADER LINE. DATA:lt_mdezx LIKE TABLE OF mdez WITH HEADER LINE. DATA:lt_mdsux LIKE TABLE OF mdsu WITH HEADER LINE. DATA:ls_mt61dx LIKE mt61d.LOOP AT gt_tab INTO gs_tab WHERE boxX.CALL FUNCTIONMD_STOCK_REQUIREMENTS_LIST_APIEXPORTING * PLSCNmatnrgs_tab-matnr werksgs_tab-werks beridgs_tab-berid * ERGBZ* AFIBZ* INPER* DISPLAY_LIST_MDPSX* DISPLAY_LIST_MDEZX* DISPLAY_LIST_MDSUX* NOBUF* PLAUF* I_VRFWE* IS_SFILT* IS_AFILTiv_fill_mdstaXIMPORTING e_mt61dls_mt61dx * E_MDKP* E_CM61M* E_MDSTA* E_ERGBZTABLES mdpsxlt_mdpsx mdezxlt_mdezx mdsuxlt_mdsux EXCEPTIONS material_plant_not_found1plant_not_found2OTHERS3. READ TABLE lt_mdpsx INTO DATA(ls_mdpsx)INDEX gs_tab-aline.IF sy-subrc0. IF ls_mdpsx-delnr IS NOT INITIAL. ls_mdpsx-del12ls_mdpsx-delnr. ENDIF. CALL FUNCTIONMD_PEGGINGEXPORTING edeletls_mdpsx-delet edelkzls_mdpsx-delkz edelnrls_mdpsx-del12 edelpsls_mdpsx-delps eplaabls_mdpsx-plaab eplanrls_mdpsx-planr ematnrgs_tab-matnr ewerksgs_tab-werks eberidgs_tab-berid eplwrkls_mdpsx-wrk01 evertols_mdpsx-verto * eplscnmerk_plscn * display_onlymerk_anmod edat00ls_mdpsx-dat00note 549198 EXCEPTIONS error 01 no_requirements_found 02 order_not_found 03. IF sy-subrc 0. SELECT SINGLE * FROM resb INTO DATA(ls_resb) WHERE aufnr ls_mdpsx-del12. ls_mdpsx-del12 ls_resb-rsnum. CALL FUNCTION MD_PEGGING EXPORTING edelet ls_mdpsx-delet edelkz ls_mdpsx-delkz edelnr ls_mdpsx-del12 edelps ls_mdpsx-delps eplaab ls_mdpsx-plaab eplanr ls_mdpsx-planr ematnr gs_tab-matnr ewerks gs_tab-werks eberid gs_tab-berid eplwrk ls_mdpsx-wrk01 everto ls_mdpsx-verto * eplscn merk_plscn * display_only merk_anmod edat00 ls_mdpsx-dat00 note549198EXCEPTIONS error01 no_requirements_found02 order_not_found03. ENDIF. ENDIF. ENDLOOP. WHENX. 双击跳转 LOOP AT gt_tab INTO gs_tab WHERE boxX.CALL FUNCTIONMD_STOCK_REQUIREMENTS_LIST_APIEXPORTING * PLSCNmatnrgs_tab-matnr werksgs_tab-werks beridgs_tab-berid * ERGBZ* AFIBZ* INPER* DISPLAY_LIST_MDPSX* DISPLAY_LIST_MDEZX* DISPLAY_LIST_MDSUX* NOBUF* PLAUF* I_VRFWE* IS_SFILT* IS_AFILTiv_fill_mdstaXIMPORTING e_mt61dls_mt61dx * E_MDKP* E_CM61M* E_MDSTA* E_ERGBZTABLES mdpsxlt_mdpsx mdezxlt_mdezx mdsuxlt_mdsux EXCEPTIONS material_plant_not_found1plant_not_found2OTHERS3. READ TABLE lt_mdpsx INTO ls_mdpsx INDEX gs_tab-aline. IF sy-subrc0. IF ls_mdpsx-delnr IS NOT INITIAL. ls_mdpsx-del12ls_mdpsx-delnr. ENDIF. SELECT SINGLE * INTO DATA(ls_profile)FROM t464 WHERE profidSAP000000001.CALL FUNCTIONMD_SALES_ORDER_STATUS_REPORTEXPORTING edelkzls_mdpsx-delkz edelnrls_mdpsx-del12 edelpsls_mdpsx-delps edeletls_mdpsx-delet ematnrgs_tab-matnr ewerksgs_tab-werks eberidgs_tab-berid emdpsls_mdpsx is_profilels_profile * eplscnmerk_plscn data_in_memoryXmemory_idABBL* IMPORTING * ET_RTREE_SELlt_tree_sel EXCEPTIONS error01. ENDIF. ENDLOOP. WHENMD04.SET PARAMETER IDMATFIELD gs_tab-matnr. SET PARAMETER IDBERIDFIELD gs_tab-berid. SET PARAMETER IDWRKFIELD gs_tab-werks. CALL TRANSACTIONMD04AND SKIP FIRST SCREEN. WHEN OTHERS. ENDCASE. ENDFORM. * bdcdata-program程序名 * bdcdata-dynpro屏幕号 FORM bdc_dynpro USING program dynpro. CLEAR bdcdata. bdcdata-programprogram. bdcdata-dynprodynpro. bdcdata-dynbeginX.APPEND bdcdata. ENDFORM. * bdcdata-fnam字段名 * bdcdata-fval字段值 FORM bdc_field USING fnam fval. CLEAR bdcdata. bdcdata-fnamfnam. bdcdata-fvalfval. APPEND bdcdata. ENDFORM.