- 浏览: 285089 次
- 性别:
- 来自: 杭州
-
文章分类
最新评论
-
sunlin:
水文 其他erp就没这样的问题? 不能单方面拿sap说 ...
【转】揭秘SAP在华真相:天价收费与用户之灾 -
zjut_xiongfeng:
用当前日期所在月的第一天,比如2010-7-30的当前月第一天 ...
pb函数库之日期、时间函数 -
550627069:
你好!问下 在PB中显示当前日期的前一个月 应该怎么做?求教
pb函数库之日期、时间函数
PROGRAM zcm_dynpro_tabstrip_local. TABLES: rmmw1, "物料管理维护:初始化参数(零售) rmmg1, "物料主数据维护:初始参数-原材料 rw04a. "存储结构 * Itab for BDC DATA: i_bdcdata LIKE STANDARD TABLE OF bdcdata INITIAL SIZE 0 WITH HEADER LINE. CONTROLS mytabstrip TYPE TABSTRIP. DATA: ok_code TYPE sy-ucomm, save_ok TYPE sy-ucomm. DATA: p_file1(100) TYPE c, p_file2(100) TYPE c, p_file3(100) TYPE c, p_file4(100) TYPE c. CONSTANTS: c_begin_row TYPE i VALUE 1, "Beginning row of excel file c_begin_col TYPE i VALUE 1, "Beginning column of excel file c_end_row TYPE i VALUE 1000, "Ending row of excel file c_end_col TYPE i VALUE 10. "Ending column of excel file CONSTANTS: c_meinh LIKE smeinh-meinh VALUE 'EA', "帐面库存单位的可替换计量单位 c_meins LIKE eina-meins VALUE 'EA', "帐面库存单位的可替换计量单位 c_numtp LIKE smeinh-numtp VALUE 'UC', "国际商品编码的类别 (EAN) c_tragr LIKE mara-tragr VALUE '0001', "运输组 c_wladg LIKE maw1-wladg VALUE '0001', "装载组 c_mtpos LIKE mara-mtpos_mara VALUE 'NORM', "普通项目类别组 c_iprkz LIKE mara-iprkz VALUE 'D'. "货架到期日期期间标识 DATA: BEGIN OF i_basic OCCURS 0, matnr LIKE rmmw1-matnr, "商品编码 mtart LIKE rmmw1-mtart, "商品类型 matkl LIKE rmmw1-matkl, "商品类目 attyp LIKE rmmw1-attyp, "商品类别 maktx LIKE makt-maktx, "商品描述 spart LIKE mara-spart, "生产线 taklv LIKE mara-taklv, "税收分类 wbkla LIKE maw1-wbkla, "评估类 END OF i_basic. DATA: BEGIN OF i_purch OCCURS 0, matnr LIKE rmmw1-matnr, "商品编码 ekorg LIKE rmmw1-ekorg, "采购组织 lifnr LIKE rmmw1-lifnr, "供应商 ekgrp LIKE eine-ekgrp, "采购组 netpr LIKE eine-netpr, "净价 END OF i_purch. DATA: BEGIN OF i_sales_up OCCURS 0, matnr LIKE rmmw1-matnr, "商品编码 ktgrm LIKE mvke-ktgrm, "科目设置组 vkorg LIKE tvta-vkorg, "销售机构 END OF i_sales_up. DATA: BEGIN OF i_sales OCCURS 0, matnr LIKE rmmw1-matnr, "商品编码 ktgrm LIKE mvke-ktgrm, "科目设置组 vkorg LIKE tvta-vkorg, "销售机构 vtweg LIKE tvta-vtweg, "分销渠道 END OF i_sales. DATA: BEGIN OF i_sites OCCURS 0, matnr LIKE rmmw1-matnr, "商品编码 END OF i_sites. DATA: BEGIN OF i_tvtw OCCURS 0, vtweg LIKE tvtw-vtweg, "分销渠道 END OF i_tvtw. DATA: BEGIN OF i_tvta OCCURS 0, vkorg LIKE tvta-vkorg, "销售机构 vtweg LIKE tvta-vtweg, "分销渠道 END OF i_tvta. DATA: BEGIN OF i_mara OCCURS 0, matnr LIKE mara-matnr, "商品编码 spart LIKE mara-spart, "科目设置组 END OF i_mara. DATA: BEGIN OF i_t001a OCCURS 0, werks LIKE t001w-werks, "门店 END OF i_t001a. DATA: BEGIN OF i_t001z OCCURS 0, werks LIKE t001w-werks, "分销中心 END OF i_t001z. RANGES: r_matnr FOR rmmw1-matnr, r_vkorg FOR rmmw1-vkorg, r_vzwrk FOR rmmw1-vzwrk, r_fiwrk FOR rmmw1-fiwrk. mytabstrip-activetab = 'PUSH1'. CALL SCREEN 100. *---------------------------------------------------------------------* * MODULE status_0100 OUTPUT *---------------------------------------------------------------------* * *---------------------------------------------------------------------* MODULE status_0100 OUTPUT. SET PF-STATUS 'SCREEN_100'. SET TITLEBAR '100'. ENDMODULE. "status_0100 OUTPUT *---------------------------------------------------------------------* * MODULE cancel INPUT *---------------------------------------------------------------------* * *---------------------------------------------------------------------* MODULE cancel INPUT. LEAVE PROGRAM. ENDMODULE. "cancel INPUT *---------------------------------------------------------------------* * MODULE user_command INPUT *---------------------------------------------------------------------* * *---------------------------------------------------------------------* MODULE user_command INPUT. save_ok = ok_code. CLEAR ok_code. CASE save_ok. WHEN 'SEE1'. PERFORM select_file CHANGING p_file1. WHEN 'SEE2'. PERFORM select_file CHANGING p_file2. WHEN 'SEE3'. PERFORM select_file CHANGING p_file3. WHEN 'SEE4'. PERFORM select_file CHANGING p_file4. WHEN 'EXE1'. PERFORM bdc_basic. WHEN 'EXE2'. PERFORM bdc_purch. WHEN 'EXE3'. PERFORM bdc_sales. WHEN 'EXE4'. PERFORM bdc_sites. ENDCASE. ENDMODULE. "user_command INPUT *&---------------------------------------------------------------------* *& Form select_file *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * <--L_FILE text *----------------------------------------------------------------------* FORM select_file CHANGING l_file. DATA: l_len TYPE i, l_rc TYPE i, " Anzahl gefundener Dateinamen l_filetab TYPE filetable. " Tabelle mit Dateinamen * Upload des Files CLEAR l_filetab[]. CALL METHOD cl_gui_frontend_services=>file_open_dialog EXPORTING default_filename = '*.xls' default_extension = 'xls' * file_filter = '*.xls' "#EC NOTEXT * initial_directory = 'C:\TEMP' "#EC NOTEXT * multiselection = abap_false window_title = 'Select File' CHANGING file_table = l_filetab rc = l_rc EXCEPTIONS file_open_dialog_failed = 1 cntl_error = 2 error_no_gui = 3 OTHERS = 4. IF sy-subrc = 0. LOOP AT l_filetab INTO l_file. ENDLOOP. l_len = strlen( l_file ). IF l_len > 66. MESSAGE i398(00) WITH text-005. CLEAR l_file. ENDIF. ENDIF. ENDFORM. " select_file *&---------------------------------------------------------------------* *& Form bdc_basic *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM bdc_basic. IF NOT p_file1 IS INITIAL. PERFORM upload_data TABLES i_basic USING p_file1. PERFORM bdc_create. PERFORM basic_fill_bdc. PERFORM bdc_close. PERFORM submit_session. ENDIF. ENDFORM. " bdc_basic *&---------------------------------------------------------------------* *& Form bdc_purch *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM bdc_purch. IF NOT p_file2 IS INITIAL. PERFORM upload_data TABLES i_purch USING p_file2. PERFORM bdc_create. PERFORM purch_fill_bdc. PERFORM bdc_close. PERFORM submit_session. ENDIF. ENDFORM. " bdc_purch *&---------------------------------------------------------------------* *& Form bdc_sales *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM bdc_sales. IF p_file3 IS INITIAL. IF rmmw1-matnr IS INITIAL. IF rmmg1-matnr IS INITIAL. MESSAGE i398(00) WITH text-007. EXIT. ELSE. r_matnr-sign = 'I'. r_matnr-option = 'EQ'. r_matnr-low = rmmg1-matnr. r_matnr-high = ''. APPEND r_matnr. ENDIF. ELSE. IF rmmg1-matnr IS INITIAL. r_matnr-sign = 'I'. r_matnr-option = 'EQ'. r_matnr-low = rmmw1-matnr. r_matnr-high = ''. APPEND r_matnr. ELSE. IF rmmw1-matnr > rmmg1-matnr. MESSAGE i398(00) WITH text-008. EXIT. ELSE. r_matnr-sign = 'I'. r_matnr-option = 'BT'. r_matnr-low = rmmw1-matnr. r_matnr-high = rmmg1-matnr. APPEND r_matnr. ENDIF. ENDIF. ENDIF. IF rmmw1-vkorg IS INITIAL. IF rmmg1-vkorg IS INITIAL. ELSE. r_vkorg-sign = 'I'. r_vkorg-option = 'EQ'. r_vkorg-low = rmmg1-vkorg. r_vkorg-high = ''. APPEND r_vkorg. ENDIF. ELSE. IF rmmg1-vkorg IS INITIAL. r_vkorg-sign = 'I'. r_vkorg-option = 'EQ'. r_vkorg-low = rmmw1-vkorg. r_vkorg-high = ''. APPEND r_vkorg. ELSE. IF rmmw1-vkorg > rmmg1-vkorg. MESSAGE i398(00) WITH text-008. EXIT. ELSE. r_vkorg-sign = 'I'. r_vkorg-option = 'BT'. r_vkorg-low = rmmw1-vkorg. r_vkorg-high = rmmg1-vkorg. APPEND r_vkorg. ENDIF. ENDIF. ENDIF. SELECT matnr spart FROM mara INTO TABLE i_mara WHERE matnr IN r_matnr. IF sy-subrc <> 0. MESSAGE i398(00) WITH text-009. EXIT. ENDIF. SELECT vkorg vtweg FROM tvta INTO TABLE i_tvta WHERE vkorg IN r_vkorg. IF sy-subrc <> 0. MESSAGE i398(00) WITH text-010. EXIT. ELSE. DELETE ADJACENT DUPLICATES FROM i_tvta. ENDIF. LOOP AT i_mara. LOOP AT i_tvta. i_sales-matnr = i_mara-matnr. i_sales-ktgrm = i_mara-spart. i_sales-vkorg = i_tvta-vkorg. i_sales-vtweg = i_tvta-vtweg. APPEND i_sales. ENDLOOP. ENDLOOP. PERFORM bdc_create. PERFORM sales_fill_bdc. PERFORM bdc_close. PERFORM submit_session. ELSE. PERFORM upload_data TABLES i_sales_up USING p_file3. SELECT vtweg FROM tvtw INTO TABLE i_tvtw. LOOP AT i_sales_up. LOOP AT i_tvtw. i_sales-matnr = i_sales_up-matnr. i_sales-ktgrm = i_sales_up-ktgrm. i_sales-vkorg = i_sales_up-vkorg. i_sales-vtweg = i_tvtw-vtweg. APPEND i_sales. ENDLOOP. ENDLOOP. PERFORM bdc_create. PERFORM sales_fill_bdc. PERFORM bdc_close. PERFORM submit_session. ENDIF. ENDFORM. " bdc_sales *&---------------------------------------------------------------------* *& Form bdc_sites *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM bdc_sites. IF NOT p_file4 IS INITIAL. IF rmmw1-vzwrk IS INITIAL. IF rw04a-vzwrk IS INITIAL. ELSE. r_vzwrk-sign = 'I'. r_vzwrk-option = 'EQ'. r_vzwrk-low = rw04a-vzwrk. r_vzwrk-high = ''. APPEND r_vzwrk. ENDIF. ELSE. IF rw04a-vzwrk IS INITIAL. r_vzwrk-sign = 'I'. r_vzwrk-option = 'EQ'. r_vzwrk-low = rmmw1-vzwrk. r_vzwrk-high = ''. APPEND r_vzwrk. ELSE. IF rmmw1-vzwrk > rw04a-vzwrk. MESSAGE i398(00) WITH text-008. EXIT. ELSE. r_vzwrk-sign = 'I'. r_vzwrk-option = 'BT'. r_vzwrk-low = rmmw1-vzwrk. r_vzwrk-high = rw04a-vzwrk. APPEND r_vzwrk. ENDIF. ENDIF. ENDIF. IF rmmw1-fiwrk IS INITIAL. IF rw04a-fiwrk IS INITIAL. ELSE. r_fiwrk-sign = 'I'. r_fiwrk-option = 'EQ'. r_fiwrk-low = rw04a-fiwrk. r_fiwrk-high = ''. APPEND r_fiwrk. ENDIF. ELSE. IF rw04a-fiwrk IS INITIAL. r_fiwrk-sign = 'I'. r_fiwrk-option = 'EQ'. r_fiwrk-low = rmmw1-fiwrk. r_fiwrk-high = ''. APPEND r_fiwrk. ELSE. IF rmmw1-fiwrk > rw04a-fiwrk. MESSAGE i398(00) WITH text-008. EXIT. ELSE. r_fiwrk-sign = 'I'. r_fiwrk-option = 'BT'. r_fiwrk-low = rmmw1-fiwrk. r_fiwrk-high = rw04a-fiwrk. APPEND r_fiwrk. ENDIF. ENDIF. ENDIF. SELECT werks FROM t001w INTO TABLE i_t001z WHERE werks IN r_vzwrk. * AND vlfkz = 'B'. SELECT werks FROM t001w INTO TABLE i_t001a WHERE werks IN r_fiwrk. * AND vlfkz = 'A'. PERFORM upload_data TABLES i_sites USING p_file4. PERFORM bdc_create. PERFORM sites_fill_bdc. PERFORM bdc_close. PERFORM submit_session. ENDIF. ENDFORM. " bdc_sites *&---------------------------------------------------------------------* *& Form upload_data *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_FILE text *----------------------------------------------------------------------* FORM upload_data TABLES i_table USING p_file. DATA: BEGIN OF i_excel OCCURS 0. INCLUDE STRUCTURE alsmex_tabline. DATA: END OF i_excel. DATA: l_answer(1) TYPE c. DATA: l_column TYPE i. FIELD-SYMBOLS: . DATA: l_pathname LIKE rlgrap-filename. MOVE p_file TO l_pathname. CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE' EXPORTING filename = l_pathname i_begin_col = c_begin_col i_begin_row = c_begin_row i_end_col = c_end_col i_end_row = c_end_row TABLES intern = i_excel * EXCEPTIONS * INCONSISTENT_PARAMETERS = 1 * UPLOAD_OLE = 2 * OTHERS = 3 . IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ELSE. IF i_excel[] IS INITIAL. CALL FUNCTION 'POPUP_TO_CONFIRM_WITH_MESSAGE' EXPORTING * DEFAULTOPTION = 'Y' diagnosetext1 = 'diagnosetext1' * DIAGNOSETEXT2 = ' ' * DIAGNOSETEXT3 = ' ' textline1 = 'textline1' * TEXTLINE2 = ' ' titel = 'Confirm' * START_COLUMN = 25 * START_ROW = 6 * CANCEL_DISPLAY = 'X' IMPORTING answer = l_answer. ELSE. SORT i_excel BY row col. LOOP AT i_excel. MOVE i_excel-col TO l_column. ASSIGN COMPONENT l_column OF STRUCTURE i_table TO . MOVE i_excel-value TO . AT END OF row. APPEND i_table. CLEAR i_table. ENDAT. ENDLOOP. ENDIF. ENDIF. ENDFORM. " load_data *&---------------------------------------------------------------------* *& Form bdc_create *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM bdc_create. DATA: l_repid LIKE apqi-groupid. l_repid = sy-repid. CALL FUNCTION 'BDC_OPEN_GROUP' EXPORTING client = sy-mandt group = l_repid keep = 'X' user = sy-uname EXCEPTIONS client_invalid = 1 destination_invalid = 2 group_invalid = 3 group_is_locked = 4 holddate_invalid = 5 internal_error = 6 queue_error = 7 running = 8 system_lock_error = 9 user_invalid = 10 OTHERS = 11. IF sy-subrc <> 0. MESSAGE i398(00) WITH 'BDC_OPEN_GROUP ERROR'. ENDIF. ENDFORM. " bdc_create *&---------------------------------------------------------------------* *& Form basic_fill_bdc *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM basic_fill_bdc. LOOP AT i_basic. * Screen 1 PERFORM bdc_dynpro USING 'SAPLMGMW' '0100'. PERFORM bdc_field USING 'BDC_CURSOR' 'MSICHTAUSW-DYTXT(01)'. PERFORM bdc_field USING 'BDC_OKCODE' '/00'. PERFORM bdc_field USING 'RMMW1-MATNR' i_basic-matnr. PERFORM bdc_field USING 'RMMW1-MTART' i_basic-mtart. PERFORM bdc_field USING 'RMMW1-MATKL' i_basic-matkl. PERFORM bdc_field USING 'RMMW1-ATTYP' i_basic-attyp. PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(01)' 'X'. * Screen 2 PERFORM bdc_dynpro USING 'SAPLMGMW' '4008'. PERFORM bdc_field USING 'BDC_OKCODE' '/00'. PERFORM bdc_field USING 'MAKT-MAKTX' i_basic-maktx. PERFORM bdc_field USING 'SMEINH-MEINH(01)' c_meinh. PERFORM bdc_field USING 'SMEINH-NUMTP(01)' c_numtp. PERFORM bdc_field USING 'MARA-SPART' i_basic-spart. PERFORM bdc_field USING 'MARA-TAKLV' i_basic-taklv. PERFORM bdc_field USING 'MAW1-WBKLA' i_basic-wbkla. PERFORM bdc_field USING 'MARA-TRAGR' c_tragr. PERFORM bdc_field USING 'MAW1-WLADG' c_wladg. PERFORM bdc_field USING 'MARA-MTPOS_MARA' c_mtpos. PERFORM bdc_field USING 'MARA-DATAB' sy-datum. PERFORM bdc_field USING 'MARA-IPRKZ' c_iprkz. * Screen 3 PERFORM bdc_dynpro USING 'SAPLSPO1' '0300'. PERFORM bdc_field USING 'BDC_OKCODE' '=YES'. * BDC_Insert PERFORM bdc_insert USING 'MM41'. ENDLOOP. ENDFORM. " basic_fill_bdc *&---------------------------------------------------------------------* *& Form purch_fill_bdc *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM purch_fill_bdc. LOOP AT i_purch. * Screen 1 PERFORM bdc_dynpro USING 'SAPLMGMW' '0100'. PERFORM bdc_field USING 'BDC_CURSOR' 'MSICHTAUSW-DYTXT(03)'. PERFORM bdc_field USING 'BDC_OKCODE' '/00'. PERFORM bdc_field USING 'RMMW1-MATNR' i_purch-matnr. PERFORM bdc_field USING 'RMMW1-EKORG' i_purch-ekorg. PERFORM bdc_field USING 'RMMW1-LIFNR' i_purch-lifnr. PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(03)' 'X'. * Screen 2 PERFORM bdc_dynpro USING 'SAPLMGMW' '4000'. PERFORM bdc_field USING 'BDC_OKCODE' '/00'. * PERFORM bdc_field USING 'MAKT-MAKTX' * '摩托罗拉 Α10'. PERFORM bdc_field USING 'EINA-MEINS' c_meins. PERFORM bdc_field USING 'EINE-EKGRP' i_purch-ekgrp. * PERFORM bdc_field USING 'BDC_CURSOR' * 'EINE-WAERS'. PERFORM bdc_field USING 'EINE-NETPR' i_purch-netpr. * PERFORM bdc_field USING 'EINE-WAERS' * 'RMB'. * PERFORM bdc_field USING 'EINE-PEINH' * '1'. * PERFORM bdc_field USING 'EINE-BPRME' * 'EA'. * Sreen 3 PERFORM bdc_dynpro USING 'SAPLSPO1' '0300'. PERFORM bdc_field USING 'BDC_OKCODE' '=YES'. * BDC_Insert PERFORM bdc_insert USING 'MM42'. ENDLOOP. ENDFORM. " purch_fill_bdc *&---------------------------------------------------------------------* *& Form sales_fill_bdc *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM sales_fill_bdc. LOOP AT i_sales. * Screen 1 PERFORM bdc_dynpro USING 'SAPLMGMW' '0100'. PERFORM bdc_field USING 'BDC_CURSOR' 'MSICHTAUSW-DYTXT(04)'. PERFORM bdc_field USING 'BDC_OKCODE' '/00'. PERFORM bdc_field USING 'RMMW1-MATNR' i_sales-matnr. PERFORM bdc_field USING 'RMMW1-VKORG' i_sales-vkorg. PERFORM bdc_field USING 'RMMW1-VTWEG' i_sales-vtweg. * PERFORM bdc_field USING 'RMMW1-FIWRK' * ''. PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(02)' 'X'. PERFORM bdc_field USING 'MSICHTAUSW-KZSEL(04)' 'X'. * Screen 2 PERFORM bdc_dynpro USING 'SAPLMGMW' '4000'. PERFORM bdc_field USING 'BDC_OKCODE' '=LIST'. PERFORM bdc_field USING 'MAKT-MAKTX' '摩托罗拉 Α10'. PERFORM bdc_field USING 'MWLI-LSTFL' '02'. * PERFORM bdc_field USING 'MWLI-LDVFL' * '30.12.2004'. * PERFORM bdc_field USING 'MWLI-LDBFL' * '31.12.9999'. * PERFORM bdc_field USING 'MWLI-VDVFL' * '30.12.2004'. * PERFORM bdc_field USING 'MWLI-VDBFL' * '31.12.9999'. PERFORM bdc_field USING 'MWLI-LSTVZ' '02'. * PERFORM bdc_field USING 'MWLI-LDVZL' * '30.12.2004'. * PERFORM bdc_field USING 'MWLI-LDBZL' * '31.12.9999'. * PERFORM bdc_field USING 'MWLI-VDVZL' * '30.12.2004'. * PERFORM bdc_field USING 'MWLI-VDBZL' * '31.12.9999'. PERFORM bdc_field USING 'BDC_CURSOR' 'RMMWZ-LILI'. PERFORM bdc_field USING 'RMMWZ-MPFLB' 'X'. PERFORM bdc_field USING 'RMMWZ-NLIPR' 'X'. PERFORM bdc_field USING 'RMMWZ-LILI' ''. PERFORM bdc_dynpro USING 'SAPLWSO1' '0118'. PERFORM bdc_field USING 'BDC_CURSOR' '*WINT_CARRH-ASORT'. PERFORM bdc_field USING 'BDC_OKCODE' '=UEBN'. PERFORM bdc_field USING 'SEITE1' '1'. PERFORM bdc_field USING 'SEITE2' '4'. * Screen 3 PERFORM bdc_dynpro USING 'SAPLMGMW' '4000'. PERFORM bdc_field USING 'BDC_OKCODE' '/00'. PERFORM bdc_field USING 'BDC_CURSOR' 'MAKT-MAKTX'. * PERFORM bdc_field USING 'MAKT-MAKTX' * '摩托罗拉 Α10'. PERFORM bdc_field USING 'MWLI-LSTFL' '02'. * PERFORM bdc_field USING 'MWLI-LDVFL' * '30.12.2004'. * PERFORM bdc_field USING 'MWLI-LDBFL' * '31.12.9999'. * PERFORM bdc_field USING 'MWLI-VDVFL' * '30.12.2004'. * PERFORM bdc_field USING 'MWLI-VDBFL' * '31.12.9999'. PERFORM bdc_field USING 'MWLI-LSTVZ' '02'. * PERFORM bdc_field USING 'MWLI-LDVZL' * '30.12.2004'. * PERFORM bdc_field USING 'MWLI-LDBZL' * '31.12.9999'. * PERFORM bdc_field USING 'MWLI-VDVZL' * '30.12.2004'. * PERFORM bdc_field USING 'MWLI-VDBZL' * '31.12.9999'. * Screen 4 PERFORM bdc_dynpro USING 'SAPLMGMW' '4030'. PERFORM bdc_field USING 'BDC_OKCODE' '=PB29'. PERFORM bdc_field USING 'BDC_CURSOR' 'MAKT-MAKTX'. * PERFORM bdc_field USING 'MAKT-MAKTX' * '摩托罗拉 Α10'. * PERFORM bdc_field USING 'MVKE-VDVZL' * '30.12.2004'. * PERFORM bdc_field USING 'MVKE-VDBZL' * '31.12.9999'. PERFORM bdc_field USING 'MVKE-MTPOS' 'NORM'. PERFORM bdc_field USING 'MVKE-SKTOF' 'X'. * PERFORM bdc_field USING 'CALP-VKKAB' * '30.12.2004'. * PERFORM bdc_field USING 'CALP-VKKBI' * '31.12.9999'. * Screen 5 PERFORM bdc_dynpro USING 'SAPLMGMW' '3000'. PERFORM bdc_field USING 'BDC_OKCODE' '=BABA'. * PERFORM bdc_field USING 'MAKT-MAKTX' * '摩托罗拉 Α10'. PERFORM bdc_field USING 'BDC_CURSOR' 'MVKE-KTGRM'. PERFORM bdc_field USING 'MVKE-VERSG' '1'. PERFORM bdc_field USING 'MVKE-KTGRM' i_sales-ktgrm. PERFORM bdc_field USING 'MVKE-MTPOS' 'NORM'. PERFORM bdc_field USING 'MARA-MTPOS_MARA' 'NORM'. * Screen 6 PERFORM bdc_dynpro USING 'SAPLMGMW' '4030'. PERFORM bdc_field USING 'BDC_OKCODE' '=BU'. PERFORM bdc_field USING 'BDC_CURSOR' 'MAKT-MAKTX'. * PERFORM bdc_field USING 'MAKT-MAKTX' * '摩托罗拉 Α10'. * PERFORM bdc_field USING 'MVKE-VDVZL' * '30.12.2004'. * PERFORM bdc_field USING 'MVKE-VDBZL' * '31.12.9999'. PERFORM bdc_field USING 'MVKE-MTPOS' 'NORM'. PERFORM bdc_field USING 'MVKE-SKTOF' 'X'. * PERFORM bdc_field USING 'CALP-VKKAB' * '30.12.2004'. * PERFORM bdc_field USING 'CALP-VKKBI' * '31.12.9999'. * BDC_Insert PERFORM bdc_insert USING 'MM42'. ENDLOOP. ENDFORM. " sales_fill_bdc *&---------------------------------------------------------------------* *& Form sites_fill_bdc *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM sites_fill_bdc. ENDFORM. " sites_fill_bdc *&---------------------------------------------------------------------* *& Form bdc_insert *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_0277 text *----------------------------------------------------------------------* FORM bdc_insert USING p_tcode TYPE tcode. CALL FUNCTION 'BDC_INSERT' EXPORTING tcode = p_tcode TABLES dynprotab = i_bdcdata EXCEPTIONS internal_error = 1 not_open = 2 queue_error = 3 tcode_invalid = 4 printing_invalid = 5 posting_invalid = 6 OTHERS = 7. IF sy-subrc <> 0. PERFORM bdc_close. MESSAGE i398(00) WITH 'BDC_INSERT ERROR'. ENDIF. REFRESH i_bdcdata. ENDFORM. " bdc_insert *&---------------------------------------------------------------------* *& Form bdc_close *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM bdc_close. CALL FUNCTION 'BDC_CLOSE_GROUP' EXCEPTIONS not_open = 1 queue_error = 2 OTHERS = 3. IF sy-subrc <> 0. MESSAGE i398(00) WITH 'BDC_CLOSE_GROUP ERROR'. ENDIF. ENDFORM. " bdc_close *&---------------------------------------------------------------------* *& Form submit_session *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * --> p1 text * <-- p2 text *----------------------------------------------------------------------* FORM submit_session. DATA: l_repid LIKE d0100-mapn. l_repid = sy-repid. SUBMIT rsbdcsub WITH mappe = l_repid WITH von = sy-datum WITH bis = sy-datum WITH z_verarb = 'X' WITH fehler = ' ' AND RETURN EXPORTING LIST TO MEMORY. ENDFORM. " submit_session *&---------------------------------------------------------------------* *& Form bdc_dynpro *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_0531 text * -->P_0532 text *----------------------------------------------------------------------* FORM bdc_dynpro USING p_program TYPE bdc_prog p_dynpro TYPE bdc_dynr. CLEAR: i_bdcdata. i_bdcdata-program = p_program. i_bdcdata-dynpro = p_dynpro. i_bdcdata-dynbegin = 'X'. APPEND i_bdcdata. ENDFORM. " bdc_dynpro *&---------------------------------------------------------------------* *& Form bdc_field *&---------------------------------------------------------------------* * text *----------------------------------------------------------------------* * -->P_0536 text * -->P_FVAL text *----------------------------------------------------------------------* *FORM bdc_field USING p_fnam TYPE fnam_____4 * p_fval TYPE bdc_fval. FORM bdc_field USING p_fnam p_fval. CLEAR: i_bdcdata. i_bdcdata-fnam = p_fnam. i_bdcdata-fval = p_fval. APPEND i_bdcdata. ENDFORM. " bdc_field
PROCESS BEFORE OUTPUT.
MODULE STATUS_0100.
CALL SUBSCREEN: SUB1 INCLUDING SY-REPID '0110',
SUB2 INCLUDING SY-REPID '0120',
SUB3 INCLUDING SY-REPID '0130',
SUB4 INCLUDING SY-REPID '0140'.
PROCESS AFTER INPUT.
MODULE CANCEL AT EXIT-COMMAND.
CALL SUBSCREEN: SUB1,
SUB2,
SUB3,
SUB4.
MODULE USER_COMMAND.
相关推荐
ABAP屏幕(Screen)是SAP系统中的一个重要组件,用于与用户交互、展示数据和接受用户输入。在ABAP屏幕中,我们可以设置各种控件,如文本框、按钮、下拉框、表格等,以满足不同的业务需求。本文将对ABAP屏幕中的设置...
在Microsoft Office的应用程序中,如Excel、Word或Access,Visual Basic for Applications (VBA) 是一个强大的工具,用于创建自定义功能和自动化任务。在这个VBA_使用TabStrip控件的压缩包中,我们很可能会找到关于...
TabStrip控件是许多软件开发环境中用于创建多标签界面的一种组件。它允许用户在不同的视图或工作区之间切换,通常被用在Windows应用程序、Web应用程序或者GUI工具中。在这个例子中,我们将深入探讨TabStrip控制及其...
【VB6 TabStrip 控件演示】是一个用于展示Visual Basic 6 (VB6)中TabStrip控件功能的应用程序。TabStrip控件是VB6中一个非常实用的组件,它允许用户在界面中创建多标签布局,类似于网页浏览器的标签页。这个演示项目...
第三方TabControl控件TabStrip,在原有基础上,给每个Tab页添加了关闭按钮。直接在VS里面,把控件添加到工具箱,然后拖到窗口即可使用。
TabStrip 是一个常见的用户界面元素,常用于软件和应用程序中,提供多个标签页来组织和切换不同的内容。在本项目中,“TabStrip 包含项目文件与文档说明”提供了实现和理解 TabStrip 控件所需的所有资源,包括源代码...
在本课程中,我们将深入探讨SAP ABAP开发中的一个重要组成部分——屏幕设计。SAP ABAP,即Advanced Business Application Programming,是SAP系统中的主要编程语言,用于开发企业级业务应用。屏幕设计是用户与系统...
在Windows编程领域,TabStrip控件是一种常见的用户界面元素,常用于组织和切换多个视图或页面。这个“简单的tabStrip控件”提供了一种自定义选项,允许开发者灵活地设计tab的图标和标题,以增强应用程序的用户体验。...
在Winform应用中,`TabControl`是一个常用控件,用于展示分页式界面,类似于网页浏览器中的标签页,这就是我们常说的"tabstrip"。`C# Winform TabStrip`就是指使用C#语言在Winform环境中实现的具有标签页功能的控件...
TabStrip 是一种常见的用户界面元素,常用于组织和展示多个相关的视图或面板。在Windows Forms、ASP.NET、WPF等开发环境中,TabStrip 都有相应的实现。它允许用户通过点击不同的标签来切换显示的内容,提高了应用的...
在VB6.0编程环境中,"TabStrip1"控件是一种非常实用的用户界面元素,它允许用户通过点击不同的标签来切换不同的视图或信息区域。这个“VB6.0屏幕设置程序演示“TabStrip1”控件的用法.rar”文件显然提供了关于如何在...
在VB(Visual Basic)编程中,`TabStrip`控件是一种非常实用的界面元素,它允许用户通过标签页的形式组织和展示多个相关的视图或功能。这个压缩包文件"tabstrip控制的例子 (10KB)"显然是一个关于如何使用`TabStrip`...
【VB6 TabStrip 控件全源代码解析】 VB6(Visual Basic 6)是微软公司推出的一款经典编程环境,用于开发Windows应用程序。在VB6中,TabStrip控件是一种常用的界面元素,它允许用户通过类似标签页的方式组织和切换...
### SAP Webdynpro for ABAP 宝典中文版 #### 概述 SAP Webdynpro for ABAP 是一种用于构建用户界面的技术,它结合了SAP 的ABAP 平台的强大功能与Web 应用的灵活性。此宝典中文版提供了一系列针对SAP Webdynpro for...
用屏幕设置本实例于介绍“TabStrip1”控件的用法。VB6.0源代码有关深层次的屏幕设置,本例不作探讨。
本话题主要探讨四个重要的控件:TreeView、Toolbar、TabStrip以及MultiPage,这些控件通常用于增强应用程序的用户友好性和功能多样性。同时,我们将讨论如何编译、安装以及使用这些控件,特别是针对"IeWebControls...
本文将深入探讨名为"TabStrip"的自定义TabControl控件,它具有丰富的特性,如四方向布局、关闭/菜单按钮、可拖动的标签页以及面板自动隐藏等。 "TabStrip"控件的核心特性在于其灵活性和可定制性。它不仅允许用户...
由codeproject的TabStrip(C#)代码转换而来,该代码还不太完善。但是,它涉及到许多自定义控件、类、接口的深层用法以及自定义设计器的设计和运用。 精研过后,相信你一定会成为vb.net控件设计高手。
《TabStrip OCX [源代码]:探索与学习TAB控件的奥秘》 在IT领域,用户界面设计是至关重要的,而Tab控件作为常用的一种界面元素,它能够有效地组织和展示信息,提高用户体验。"TabStrip OCX [源代码]"是一个专为学习...
"Windows XP-style TabStrip"是一种在Windows XP操作系统中常见的用户界面元素,它允许用户通过标签在多个页面或视图之间切换。在编程中,TabStrip控件被广泛应用于创建具有多面板界面的应用程序,使用户可以方便地...