此文档编辑不按照开发时间排序，按照查询出来的结果排序
程序
1、ZFC_FIJSD_CONFIRM 结算确认单 审核 a 设置程序名 SET TITLEBAR '1000' WITH '结算确认单复审'. b 取当前用户的有权限操作的门店 DATA: gt_jsmd TYPE TABLE OF zsrt_ghcl WITH HEADER LINE. CALL FUNCTION 'Z_GET_USER_JSMD' EXPORTING usnam = sy-uname TABLES jsmd = gt_jsmd[].c 设置按钮是否显示
DATA: gl_fcode TYPE TABLE OF sy-ucomm. APPEND '&PRINT' TO gl_fcode . SET PF-STATUS 'LIST_TOTAL' EXCLUDING gl_fcode.d 针对抬头的显示设置屏幕接口内容
wenben-text = '审核'. wenben-icon_id = icon_release. wenben-icon_text = '审核'. wenben-quickinfo = '审核'. APPEND wenben. e 刷新alv FORM frm_refresh_alv . DATA: alv_grid TYPE REF TO cl_gui_alv_grid. DATA: stbl TYPE lvc_s_stbl. stbl-row = 'X'. stbl-col = 'X'. CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' IMPORTING e_grid = alv_grid. CALL METHOD alv_grid->check_changed_data. CALL METHOD alv_grid->refresh_table_display EXPORTING is_stable = stbl. ENDFORM. " FRM_REFRESH_ALVf 消息报错
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.2 维护产品层次 ZFC_MM002_A
3、ZFC_MM002_D1 a 程序处理过程中的提示 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING * PERCENTAGE = 0 TEXT = '数据处理中，请等待.... '. b excel上传 FORM FRM_GET_FILENAME USING P_P_FILE. CALL METHOD CL_GUI_FRONTEND_SERVICES=>FILE_OPEN_DIALOG EXPORTING DEFAULT_FILENAME = P_FILE CHANGING RC = RC FILE_TABLE = FILETAB[] EXCEPTIONS FILE_OPEN_DIALOG_FAILED = 1 CNTL_ERROR = 2 ERROR_NO_GUI = 3 NOT_SUPPORTED_BY_GUI = 4 OTHERS = 5.READ TABLE FILETAB INDEX 1.
IF SY-SUBRC EQ 0. P_FILE = FILETAB-FILENAME. MESSAGE S004(ZFC_MM002_00). ENDIF. IF SY-SUBRC <> 0. MESSAGE E003(ZFC_MM002_00). ENDIF.ENDFORM. " FRM_GET_FILENAME
FORM FRM_GET_UPLOAD_DATA . G_FILE = P_FILE. "注意两个文件用于不同的函数，所以类型不同 DATA: IT_A LIKE TABLE OF ITAB WITH HEADER LINE. DATA: IT_C LIKE TABLE OF ITAB WITH HEADER LINE. FIELD-SYMBOLS:<F>. FIELD-SYMBOLS:<WA>. * 读取EXCEL内容到指定的内表中 CALL FUNCTION 'ALSM_EXCEL_TO_INTERNAL_TABLE' EXPORTING FILENAME = G_FILE I_BEGIN_COL = 1 I_BEGIN_ROW = 1 I_END_COL = 255 I_END_ROW = 65536 TABLES INTERN = ITAB[]. FIELD-SYMBOLS: <FS>. DELETE ITAB WHERE ROW = 1. "删除字段名行 LOOP AT ITAB. ON CHANGE OF ITAB-ROW. IF SY-TABIX NE 1. APPEND GT_DETAIL. CLEAR GT_DETAIL. ENDIF. ENDON. ASSIGN COMPONENT ITAB-COL OF STRUCTURE GT_DETAIL TO <FS>. " 动态方法将值传到相应的内表 <FS> = ITAB-VALUE. ENDLOOP. C 取固定值描述 DATA: txt_zhelfmt LIKE txt_attyp OCCURS 0 WITH HEADER LINE. DATA: lt_zhelfmt LIKE TABLE OF txt_attyp WITH HEADER LINE." DATA: hs_zhelfmt LIKE HASHED TABLE OF txt_attyp WITH UNIQUE KEY domvalue_l WITH HEADER LINE. SELECT VALPOS DDTEXT DOMVALUE_L INTO CORRESPONDING FIELDS OF TABLE LT_ZHELFMT FROM DD07T FOR ALL ENTRIES IN TXT_ZHELFMT WHERE DOMVALUE_L = TXT_ZHELFMT-DOMVALUE_L AND AS4LOCAL = 'A' AND DDLANGUAGE = '1' AND DOMNAME = 'ZD_ZHELFM' .".DOMVALUE_L = ZSAT001W-YFJSF . SORT LT_ZHELFMT BY DOMVALUE_L. HS_ZHELFMT[] = LT_ZHELFMT[].d 查看内表条目数
L_LINE = LINES( GT_LINE[] ).E 更改物料数据bapi CMOD ZMAT01 增强接口 CALL FUNCTION 'BAPI_MATERIAL_MAINTAINDATA_RT' EXPORTING HEADDATA = LS_HEADER IMPORTING RETURN = RETURN TABLES CLIENTDATA = CLIENTDATA CLIENTDATAX = CLIENTDATAX CLIENTEXT = CLIENTEXT CLIENTEXTX = CLIENTEXTX. F 确认询问 CALL FUNCTION 'POPUP_TO_CONFIRM' EXPORTING TITLEBAR = '是否保存退出' TEXT_QUESTION = '你还有没有保存的数据，确定退出不保存？' TEXT_BUTTON_1 = '是' TEXT_BUTTON_2 = '否' DEFAULT_BUTTON = '1' DISPLAY_CANCEL_BUTTON = 'X' IMPORTING ANSWER = L_ANSWER EXCEPTIONS TEXT_NOT_FOUND = 1 OTHERS = 2. IF L_ANSWER = '1'. SET SCREEN 0. ENDIF.
4 、ZFC_MM004 辅料基准价创建
A 、 选择屏字段不可编辑 INITIALIZATION. LOOP AT SCREEN. IF screen-name = 'P_KSCHL' . screen-input = '0'. "灰掉，只输出 ENDIF. MODIFY SCREEN. ENDLOOP. B、 设置下拉框 SELECT bsart batxt FROM t161t INTO CORRESPONDING FIELDS OF list_t161t WHERE spras = sy-langu AND bstyp = 'F'. value-key = list_t161t-bsart. value-text = list_t161t-batxt. APPEND value TO list. ENDSELECT. IF sy-subrc <> 0. MESSAGE 'NOT FOUND BSART' TYPE 'I' DISPLAY LIKE 'E'. LEAVE TO SCREEN 100. ENDIF. SORT list BY key. CALL FUNCTION 'VRM_SET_VALUES' EXPORTING id = 'FIELD01' values = list.C 获取 文本信息
CALL FUNCTION 'READ_TEXT' EXPORTING id = 'F01' language = '1' name = cebeln2 object = 'EKPO' TABLES lines = it_tline[] EXCEPTIONS id = 1 language = 2 name = 3 not_found = 4 object = 5 reference_check = 6 wrong_access_to_archive = 7 OTHERS = 8. D 获取长文本输入框的内容* 获取长文本输入框的内容
CALL METHOD editor->get_text_as_r3table * EXPORTING * ONLY_WHEN_MODIFIED = FALSE IMPORTING table = lt_table is_modified = l_modi EXCEPTIONS error_dp = 1 error_cntl_call_method = 2 error_dp_create = 3 OTHERS = 4 . * IF sy-subrc <> 0.* * MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno* * WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.* ELSEIF l_modi = 1. LOOP AT lt_table INTO lt_tlines-tdline.* CHECK lt_tlines-tdline <> ''."删掉空行 APPEND lt_tlines. ENDLOOP. E 创建文本信息 CALL FUNCTION 'CREATE_TEXT' EXPORTING fid = 'B01' flanguage = '1' fname = l_banfn fobject = 'EBAN'* SAVE_DIRECT = 'X'* FFORMAT = '*' TABLES flines = lt_tlines EXCEPTIONS no_init = 1 no_save = 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. ENDIF. F 获取流水号 CALL FUNCTION 'NUMBER_GET_NEXT' EXPORTING nr_range_nr = '01' object = 'ZCONR'* QUANTITY = '1'* SUBOBJECT = ' '* TOYEAR = '0000'* IGNORE_BUFFER = ' ' IMPORTING number = lv_knumh* QUANTITY =* RETURNCODE = EXCEPTIONS interval_not_found = 1 number_range_not_intern = 2 object_not_found = 3 quantity_is_0 = 4 quantity_is_not_1 = 5 interval_overflow = 6 buffer_overflow = 7 OTHERS = 8. IF sy-subrc <> 0. * Implement suitable error handling here ENDIF.`5 ZFC_MM006_A 供应商合同付款管理功能
a 使用 oo alv 如何隐藏标准按钮 LOOP AT pt_result INTO ls_result. IF ls_result-shbz = 'X'. CLEAR ls_stylerow. ls_stylerow-fieldname = 'DJRQ'. ls_stylerow-style = cl_gui_alv_grid=>mc_style_disabled.* APPEND ls_stylerow TO ls_result-cellstyles . APPEND ls_stylerow TO lt_styletab . CLEAR ls_stylerow. ls_stylerow-fieldname = 'JE'. ls_stylerow-style = cl_gui_alv_grid=>mc_style_disabled.* APPEND ls_stylerow TO ls_result-cellstyles . APPEND ls_stylerow TO lt_styletab . CLEAR ls_stylerow. ls_stylerow-fieldname = 'YWLX'. ls_stylerow-style = cl_gui_alv_grid=>mc_style_disabled.* APPEND ls_stylerow TO ls_result-cellstyles . APPEND ls_stylerow TO lt_styletab . ENDIF. ls_result-cellstyles[] = lt_styletab[]. REFRESH lt_styletab[].* INSERT lines of lt_styletab INTO ls_result-cellstyles . MODIFY pt_result FROM ls_result . ENDLOOP.6 ZRP_MM032 新品检验量查询报表 A RANGES: ra_lfart FOR likp-lfart. LOOP AT lt_lfart. CLEAR ra_lfart . ra_lfart-sign = 'I' . ra_lfart-option = 'EQ' . ra_lfart-low = lt_lfart-lfart. APPEND ra_lfart . ENDLOOP. 7 ZFS_MM043 商品串规格调整
CALL FUNCTION 'BAPI_MATERIAL_AVAILABILITY' "检查商品可用量
EXPORTING PLANT = P_WERKS MATERIAL = IT_DATA-MATNR_O UNIT = LT_MEINS BATCH = IT_DATA-CHARG_O CHECK_RULE = 'B' STGE_LOC = P_LGORT TABLES WMDVSX = WMDVSX WMDVEX = WMDVEX . READ TABLE WMDVEX INDEX 1 . IF sy-subrc = 0. IF WMDVEX-COM_QTY < IT_DATA-MENGE .IT = IT_DATA-MENGE - WMDVEX-COM_QTY.
MESSAGE E043(ZTMESSAGE) WITH IT. ENDIF. ELSE. READ TABLE LT_TEMP INDEX 1. IF LT_TEMP-LABST < IT_DATA-MENGE. IT = IT_DATA-MENGE - LT_TEMP-LABST. MESSAGE E043(ZTMESSAGE) WITH IT. ENDIF. ENDIF. ENDIF.