ABAP的那些事
SAP ABAP FI常用表 GL部分: FAGLFLEXT(FMGLFLEXT) 新总账汇总表 GLT0 旧总帐汇总表 SKA1 总账科目主记录 (科目表) 科目表层数据 SKAT 总帐科目主记录(科目表:说明) 包括语言代码 SKB1 总帐科目主记录 (公司代码) 公司代码层数据 BKPF 财务凭证抬头 BSEG 财务凭证行项目 BSIK, BSAK 分别是供应商(K)的未清已清项存放的表 BSIS, BSAS 分别是总账(S)的未清已清项存放的表 BSID, BSAD 分别是客户(D)的未清已清项存放的表 I 表示未清,A 表示已清。 AP部分: LFA1 供应商主数据 (一般地区) LFAS 供应商主数据 (增值税登记号的一般部分) LFB1 供应商主数据 (公司代码) LFB5 供应商主数据 (催款数据) LFBK 供应商主数据 (银行细目) LFC1 供应商主数据 (业务额) LFC3 主供应商 (特殊总分类帐交易图表) AR部分: KNA1 客户主文件的一般数据 KNAS 客户主数据(一般地区的增值税登记号) KNB1 客户主数据 (公司代码) KNB4 客户收付历史 KNB5 客户主记录 (催款数据) KNBK 客户主数据 (银行细目) KNC1 客户主记录 (交易额) KNC3 客户主数据 (特殊总帐业务额) KNKA 客户主数据信贷管理: 中心数据 KNKK 客户主数据信贷管理: 控制范围数据 货币: TCURC 货币代码 TCURT 货币代码名 TCURV 货币换算的兑换率类型 TCURR 汇率 TCURW 汇率类型的使用 TCURF 转换因子 银行: BNKA 银行主数据 T012 开户行 T012T 开户行帐户名 NBNK 银行的号码范围 业务范围: TGSB 业务范围 TGSBT 业务部门名称 T001 公司代码 T001T 公司代码相关的文本 T005 国家 T005T 国家名 T001B 允许的记帐期 过帐码: TBSL 过帐码 TBSLT 过帐代码名称 SD相关表 一、客户主数据 基本数据放在KNA1里; 公司代码放在KNB1里; 销售视图放在KNVV里; 合作伙伴放在KNVP里; 二、信用主数据 KNKK里有信贷限额、应收总额、特别往来; S066里是未清订单值; S067里是未清交货值; KNKK里面的应收值不一定对,要和BSID表去比。S066、S067也是一样,不对的时候就要重组。 三、物料主数据 MARA里是基本数据; MAKT是文本; MARC是工厂视图; MVKE是销售视图; MARM是物料的计量单位; 四、价格数据 主数据在表AXXX里,XXX表示三个数字,KNOH和KONP分别存放抬头和行项; 单据的价格在KONV里; 五、自动确定的科目 在CXXX里,XXX表示三个数字; 六、销售订单 VBAK抬头; VBAP行项; VBKD业务数据; VBPA是伙伴; VBEP是计划行; VBFA是单据流; VBUK抬头状态; VBUP行项状态; 七、交货 LIKP抬头; LIPS行项; VTTK是Shipment抬头; VTTP是Shipment行项; 八、物料凭证 MKPF抬头; MSEG行项; 九、发票 VBRK是抬头; VBRP是行项; 十、文本 STXH抬头 STXL行项; 十一、地址 最新的单据中的地址信息在ADRC里面,不能取主数据的。 十二、会计凭证(顺带说说AP的) BKPF:财务凭证抬头; BSEG:财务凭证行项目; BSAD:应收明细(已清帐)客户; BSID:应收明细(未清帐)客户; BSAS:总帐明细(已清帐)总账; BSIS:总帐明细(未清帐)总账; BSAK:应付明细(已清帐)供应商; BSIK:应付明细(未清帐)供应商; ALV常用参数详细描述 调用功能模块: CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY' EXPORTING i_interface_check = '' 接口一致性检查 i_callback_program = sy-repid 当前程序名 is_layout = layout 输出样式 it_fieldcat = fieldcat[] 字段定义描述表 i_callback_pf_status_set = 'PF_STATUS_SET' 触发事件调用子程序 i_callback_user_command = 'USER_COMMAND' 鼠标事件操作子程序 it_events = i_events[] 出口程序触发事件 i_callback_html_top_of_page = 'ALV_TOP_OF_PAGE' ALV输出表头设置 i_grid_settings = wl_lvc_s_glay 打印表头设置 it_sort = sortable[] 排序设置 TABLES t_outtab = ig_out EXCEPTIONS program_error = 1 OTHERS = 2. 常用属性:(赋值’’中内容必须为大写) 1. Fieldcat data: fieldcat type slis_t_fieldcat_alv with header line. it_fieldcat = fieldcat[] 属性 (用来定义表单中的各个列的相关信息) Fieldcat-col_pos = n. 输出列 Fieldcat-tabname = ‘FIELDNAME’. 对应的内表字段名 Fieldcat-seltext_s/m/l = ‘列名’. 输出列文本 (_s:短文本 _l:长文本) Fieldcat-emphasize = ‘CX10’. 带有颜色的高亮列 (其中X=(1-7) 颜色同format) Fieldcat-hotspot = ‘X’. 作为热点显示 可触发鼠标触发事件 Fieldcat-currency = ‘CURRKEY’. 表 TCURX 中的货币名称 Fieldcat-quantity(3) 计量单位 Fieldcat-qfieldname 参考计量单位的字段名称 Fieldcat-round = n. 四舍五入至小数位数下 n 位 Fieldcat-exponent = n. 浮点数的幂指数为n Fieldcat-key = ‘X’. 关键字段 Fieldcat-icon = ‘X’. 作为图标输出 Fieldcat-symbol = ‘X’. 输出作为符号 Fieldcat-checkbox = ‘X’. 作为复选框输出 Fieldcat-just = SPACE, 'R', 'L', 'C'. 对齐方式 Fieldcat-lzero = ‘X’. 输出前导零 Fieldcat-no_sign = ‘X’. 输出抑制符号 Fieldcat-no_zero = ‘X’. 为输出隐藏零 Fieldcat-edit_mask = SPACE, mask.. 输出为mask的模式 Fieldcat-fix_column = ‘X’. 固定列 Fieldcat-do_sum = ‘X’. 总计列值总和 Fieldcat-no_out = ‘X’. 列不输出 Fieldcat-tech = ‘X’. 该字段为技术字段 Fieldcat-outputlen = n 列的字符宽度为n Fieldcat-decimals_out = n 能控制小数点的位数为n Fieldcat-datatype = C,I,N… 定义数据类型 2. SORT data: sortable type slis_t_sortinfo_alv with header line. it_sort = sortable[] 属性 (排序) Sortable-Fieldname 字段名 Up 升序排列 Down 降序排列 Subtot 3. Layout data: layout type slis_layout_alv . is_layout = layout 属性 (用于定义ALV表单的相关格式、属性) info_fieldname = 'LINE_COLOR'. 设置特殊行颜色 (将LINE_COLOR增加到内表字段,写'CX10'到特殊行的LINE_COLOR, X为颜色值) colwidth_optimize = ‘X’. 优化列宽设置 no_colhead = 'X'. 不显示列名 no_vline = 'X'. 不显示列间竖线 zebra f2code = '&ETA'. 设置触发弹出详细信息窗口的功能码,这里是双击 no_vline 这个用来设置列间隔线 detail_initial_lines detail_popup 是否弹出详细信息窗口 detail_titlebar 设置弹出窗口的标题栏 totals_text totals_only group_change_edit header_text 4.按钮 DATA: i_events TYPE slis_t_event WITH HEADER LINE. 事件: it_events = i_events[] i_callback_pf_status_set = 'PF_STATUS_SET' i_callback_user_command = 'USER_COMMAND' 出口程序触发事件对应子程序: FORM PF_STATUS_SET USING rt_extab TYPE slis_t_extab. FORM user_command USING ucomm LIKE sy-ucomm selfield TYPE slis_selfield. 转:如何建立通过sap表维护工具来维护自定义表TCODE 在sap开发的过程中,经常需要自定义数据表,对于简单的数据表,我们可以通过sap的表维护工具生成维护代码,并建立自定义的TCODE来维护其数据。具体步骤如下: 一、建立自定义表(TCODE :SE11) 1 在“Delivery and Maintenance”Tab屏幕设置“Data Browser/Table view Maint.”属性为“允许通过标准表格维护工具维护” 2 设计表格字段 3 设置表格技术设置,菜单:转到-》技术设置 4 保存激活。 二、生成维护代码 生成维护代码代码有两个途径: 1、se11界面的菜单:实用程序-》Table Maintenance Generator其实这里就是调用SE54 2、通过TCODE: SE54 三、建立自定义CODE(TCODE:SE93) 有三种方法来建立自己的TCODE来维护自定义表; 1 通过SM30维护 进入TCODE:SE93建立新TCODE,tcode类型选择为:“Transaction with parameters(parameter transaction)”;事务栏输入“SM30”;选中“跳过起始屏幕”;选中“Inherit GUI attribute”;输入默认字段:VIEWNAME = '自定义的表名' 和UPDATE = 'X';保存激活即可; 2 通过RS_TABLE_LIST_CREATE函数建立新程序来建立TCODE 新程序代码如下 report zjwec026 . call function 'RS_TABLE_LIST_CREATE' exporting action = 'ANLE' table_name = 'ZJW_CC_GZJSQ' generation_forced = ' '. 3通过View_Maintenance_Call 函数建立新程序来建立TCODE,代码可以参见SAP的标准程序RFT042D_CALL 代码如下 report rft042d_call. call function 'VIEW_MAINTENANCE_CALL' exporting action = 'S' view_name = 'V_T042D'. For all entries语句 在ABAP编程的过程中,经常会将2个或几个表进行关联,然后取出数据。但是对于一些比较庞大的表(如BSEG表)来讲,按照常规的关联方式,会使程序运行起来十分缓慢。如果使用For all entries语句将会使情况大大改善。 1.格式(例) SELECT BELNR BUZEI DMBTR FROM BSEG INTO TABLE T_tab FOR ALL ENTRIES IN P_BKPF WHERE BELNR = P_BKPF-BELNR AND BUZEI = P_BKPF-BUZEI. 在 WHERE 条件中,P_BKPF-BELNR和P_BKPF-BUZEI这些列将用作占位符。该 SELECT 语句的结果集是 SELECT 语句的所有结果集的联合,这些结果集是用内部表 P_BKPF 中的相应值在每一行上替换占位符的结果。 2.使用该语句,对于最后得出的结果集系统会自动删除重复行,也就是distinct的问题。因此如果你要保留重复行记录时,记得在SELECT语句中添加足够键值项目,以保证结果集中所需重复项目不会被删除。 3.FOR ALL ENTRIES IN后面使用的内表itab如果为空,系统将视为无条件选取,将当前CLIENT下所有记录选出。因此为避免无意义的全件检索,在使用该语句前一定要判断内部表itab是否为空,为空时不执行包含该语句的数据库检索处理。 4.由于itab-f实际上是作为占位符被替换,所以内部表itab中不要包含HEADER行,以免造成混淆,检索出错。 5.内部表itab中作为条件替换用项目的类型和长度,一定要和检索数据库中对应的项目相同,否则编译不能通过。 6.对于内部表itab中作为条件替换用项目,不能使用LIKE,BETWEEN,IN比较操作符。因为这些比较操作符都是不确定比较操作符(将选择条件设定在一个范围内),而FOR ALL ENTRIES IN语句的作用相当于将选择条件块全部并列开来,用OR连接,如果每个OR分支中又是不确定的范围,那么系统性能将大大降低,因此R/3系统在使用该语句时禁止使用不确定比较操作符。 7.使用该语句时,ORDER BY语句和HAVING语句将不能使用。 8.使用该语句时,除COUNT( * )以外的所有合计函数(MAX,MIN,AVG,SUM)都不能使用。 ABAP 有用的日期FUNCTION 计算两个日期间的工作天数,就是剔除了双休日后的天数.( 待考证) DATE_CONVERT_TO_FACTORYDATE HR_HK_DIFF_BT_2_DATES 根据当前时间如何找到上月的第一天和最后一天? CALL FUNCTION 'FIMA_DATE_CREATE' EXPORTING I_DATE = SY-DATUM I_MONTHS = '-1' I_SET_LAST_DAY_OF_MONTH = 'X' IMPORTING E_DATE = LASTDATE. LASTDATE是上个月最后一天。 FIRSTDAY是上月第一天 CONCATENATE LASTDATE+(6) '01' INTO FIRSTDAY.。 当天是当年的第几周 DATE_GET_WEEK 得到该周第一天 WEEK_GET_FIRST_DAY 查找当前月份以前的月份(比如现在是4月份,如果我需要知道6个月之前是哪个月) CCM_GO_BACK_MONTHS RP_CALC_DATE_IN_INTERVAL 获取两日期之间天数函数: FIMA_DAYS_AND_MONTHS_AND_YEARS 取得当月的第一天和最后一天 CONCATENATE sy-datum(6) '01' INTO so_date-low. CALL FUNCTION 'BKK_GET_MONTH_LASTDAY' EXPORTING i_date = sy-datum IMPORTING e_date = so_date-high. so_date-sign = 'I'. so_date-option = 'BT'. APPEND so_date. RP_CALC_DATE_IN_INTERVAL 年月日加减 DATE_CHECK_PLAUSIBILITY 日期有效性检查 SD_DATETIME_DIFFERENCE 两日期作差 DATE_CONVERT_TO_FACTORYDATE 把输入日期转为工厂日历日期 MONTH_NAMES_GET 获得所有的月和名字 F4_DATE 弹出一个窗口显示一个日历允许用户选择一个日期。 RP_LAST_DAY_OF_MONTHS 获得一个月的最后一天 FIRST_DAY_IN_PERIOD_GET 获得期间首日 LAST_DAY_IN_PERIOD_GET 获得期间末日 DATE_GET_WEEK 返回一个日期所在的周数。 CALL FUNCTION 'HR_99S_INTERVAL_BETWEEN_DATES'"获得两个日期的年数 EXPORTING begda = gdat endda = sy-datum IMPORTING c_years = l_age. 关于星期(周)的函数 FM:GET_WEEK_INFO_BASED_ON_DATE 输入参数 值 DATE 2008.01.09 输出参数 值 WEEK 200802 <----2008年第二周 MONDAY 2008.01.07 <----这个周周一的日期 SUNDAY 2008.01.13 <----周日的日期 FM:DAY_IN_WEEK(输入日期是星期几) 输入参数 值 DATUM 2008.01.09 输出参数 值 WOTNR 3 <----2008-1-9为周三 *更多关于Week的函数请看Function Group:CADA *弹出选择周的对话框 AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_week-low. PERFORM getweek CHANGING s_week-low. FORM getweek CHANGING p_week . DATA: begin_date TYPE d . CALL FUNCTION 'POPUP_CALENDAR_SDB' EXPORTING sel_week = 'X' focus_day = sy-datum IMPORTING begin_date = begin_date. CALL FUNCTION 'GET_WEEK_INFO_BASED_ON_DATE' EXPORTING date = begin_date IMPORTING week = p_week. ENDFORM. F4_CLOCK 选择时间 *需求:只有显示年月,但要有日期的search help PARAMETERS:p1(6) TYPE c. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p1. DATA:l_date TYPE sy-datum. CALL FUNCTION 'F4_DATE' EXPORTING date_for_first_month = sy-datum IMPORTING select_date = l_date EXCEPTIONS calendar_buffer_not_loadable = 1 date_after_range = 2 date_before_range = 3 date_invalid = 4 factory_calendar_not_found = 5 holiday_calendar_not_found = 6 parameter_conflict = 7 OTHERS = 8. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. p1 = l_date+0(6). * check plausibilty of dates CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY' EXPORTING DATE = bkdf-dbbdt. TIME_CHECK_PLAUSIBILITY 判断是不是时间 GET_CURRENT_YEAR 得到当前的财政年(fiscal year) 察看某日期的属性,包括该日期是星期几,第几天(周2=2),是不是公共假期等,需要输入国家日历。 DAY_ATTRIBUTES_GET 判断某天是否是假日 HOLIDAY_CHECK_AND_GET_INFO POPUP_TO_SELECT_MONTH 月份选择窗口 比较日期和时间 TYPE-POOLS : TRFF . DATA : X_LOG_OP TYPE TRFF_TYPE_C_2 . CALL FUNCTION 'FIMA_DATE_COMPARE' EXPORTING I_FLG_INTRADAY = 'X' I_DATE = SY-DATUM I_TIME = SY-UZEIT I_COMP_DATE = L_MODIFY-MODDATE I_COMP_TIME = L_MODIFY-MODTIME IMPORTING E_LOG_OP = X_LOG_OP. p_months = -4."前4月,如果为正,则是后面的日期 CALL FUNCTION 'MONTH_PLUS_DETERMINE' EXPORTING MONTHS = p_months OLDDATE = p_date IMPORTING NEWDATE = p_date. 获得某个日期所在的周,获得某周的第一天。 DATE_GET_WEEK 和 WEEK_GET_FIRST_DAY function date_get_week. *"---------------------------------------------------------------------- *"*"Lokale Schnittstelle: *" IMPORTING *" VALUE(DATE) LIKE SCAL-DATE *" EXPORTING *" VALUE(WEEK) LIKE SCAL-WEEK *" EXCEPTIONS *" DATE_INVALID *"---------------------------------------------------------------------- 函数模块作用: 获得某个日期所在的周。 ============================================= function week_get_first_day. *"---------------------------------------------------------------------- *"*"Lokale Schnittstelle: *" IMPORTING *" VALUE(WEEK) LIKE SCAL-WEEK *" EXPORTING *" VALUE(DATE) LIKE SCAL-DATE *" EXCEPTIONS *" WEEK_INVALID *"---------------------------------------------------------------------- 函数模块作用: 获得某周的第一天。 ============================================ 上述两个函数的功能已经包含在 HR_GBSSP_GET_WEEK_DATES 中了。 从数据表中获得指定语言每周七天的名称,例如中文就是星期一、星期二……星期日,英文就是Sunday、Monday……Saturday。 WEEKDAY_GET FUNCTION WEEKDAY_GET. *"---------------------------------------------------------------------- *"*"Lokale Schnittstelle: *" IMPORTING *" VALUE(LANGUAGE) LIKE SY-LANGU DEFAULT SY-LANGU *" EXPORTING *" VALUE(RETURN_CODE) LIKE SY-SUBRC *" TABLES *" WEEKDAY STRUCTURE T246 *" EXCEPTIONS *" WEEKDAY_NOT_FOUND *"---------------------------------------------------------------------- 函数模块作用: 从数据表中获得指定语言每周七天的名称,例如中文就是星期一、星期二……星期日,英文就是Sunday、Monday……Saturday。 输入参数: LANGUAGE:指定语言代码,可以省略,如果不填就是当前登录语言。注意,在调用时如果指定某种特定语言,必须用一个字节的语言代码,例如中文是 1、英文是 E……,而不能用 ZH、EN,语言代码参见表 T002。 输出参数: RETURN_CODE:返回码,查询数据库获得的返回码。但是由于这个函数会抛出异常,因此返回码的作用不大。 表: WEEKDAY:结构与透明表 T246 相同,用来存储返回给用户的周日名称。 异常: WEEKDAY_NOT_FOUND:没有找到周日的描述。 ABAP 有用的日期FUNCTION 计算两个日期间的工作天数,就是剔除了双休日后的天数.( 待考证) DATE_CONVERT_TO_FACTORYDATE HR_HK_DIFF_BT_2_DATES 根据当前时间如何找到上月的第一天和最后一天? CALL FUNCTION 'FIMA_DATE_CREATE' EXPORTING I_DATE = SY-DATUM I_MONTHS = '-1' I_SET_LAST_DAY_OF_MONTH = 'X' IMPORTING E_DATE = LASTDATE. LASTDATE是上个月最后一天。 FIRSTDAY是上月第一天 CONCATENATE LASTDATE+(6) '01' INTO FIRSTDAY.。 当天是当年的第几周 DATE_GET_WEEK 得到该周第一天 WEEK_GET_FIRST_DAY 查找当前月份以前的月份(比如现在是4月份,如果我需要知道6个月之前是哪个月) CCM_GO_BACK_MONTHS RP_CALC_DATE_IN_INTERVAL 获取两日期之间天数函数: FIMA_DAYS_AND_MONTHS_AND_YEARS 取得当月的第一天和最后一天 CONCATENATE sy-datum(6) '01' INTO so_date-low. CALL FUNCTION 'BKK_GET_MONTH_LASTDAY' EXPORTING i_date = sy-datum IMPORTING e_date = so_date-high. so_date-sign = 'I'. so_date-option = 'BT'. APPEND so_date. RP_CALC_DATE_IN_INTERVAL 年月日加减 DATE_CHECK_PLAUSIBILITY 日期有效性检查 SD_DATETIME_DIFFERENCE 两日期作差 DATE_CONVERT_TO_FACTORYDATE 把输入日期转为工厂日历日期 MONTH_NAMES_GET 获得所有的月和名字 F4_DATE 弹出一个窗口显示一个日历允许用户选择一个日期。 RP_LAST_DAY_OF_MONTHS 获得一个月的最后一天 FIRST_DAY_IN_PERIOD_GET 获得期间首日 LAST_DAY_IN_PERIOD_GET 获得期间末日 DATE_GET_WEEK 返回一个日期所在的周数。 CALL FUNCTION 'HR_99S_INTERVAL_BETWEEN_DATES'"获得两个日期的年数 EXPORTING begda = gdat endda = sy-datum IMPORTING c_years = l_age. 关于星期(周)的函数 FM:GET_WEEK_INFO_BASED_ON_DATE 输入参数 值 DATE 2008.01.09 输出参数 值 WEEK 200802 <----2008年第二周 MONDAY 2008.01.07 <----这个周周一的日期 SUNDAY 2008.01.13 <----周日的日期 FM:DAY_IN_WEEK(输入日期是星期几) 输入参数 值 DATUM 2008.01.09 输出参数 值 WOTNR 3 <----2008-1-9为周三 *更多关于Week的函数请看Function Group:CADA *弹出选择周的对话框 AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_week-low. PERFORM getweek CHANGING s_week-low. FORM getweek CHANGING p_week . DATA: begin_date TYPE d . CALL FUNCTION 'POPUP_CALENDAR_SDB' EXPORTING sel_week = 'X' focus_day = sy-datum IMPORTING begin_date = begin_date. CALL FUNCTION 'GET_WEEK_INFO_BASED_ON_DATE' EXPORTING date = begin_date IMPORTING week = p_week. ENDFORM. F4_CLOCK 选择时间 *需求:只有显示年月,但要有日期的search help PARAMETERS:p1(6) TYPE c. AT SELECTION-SCREEN ON VALUE-REQUEST FOR p1. DATA:l_date TYPE sy-datum. CALL FUNCTION 'F4_DATE' EXPORTING date_for_first_month = sy-datum IMPORTING select_date = l_date EXCEPTIONS calendar_buffer_not_loadable = 1 date_after_range = 2 date_before_range = 3 date_invalid = 4 factory_calendar_not_found = 5 holiday_calendar_not_found = 6 parameter_conflict = 7 OTHERS = 8. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. p1 = l_date+0(6). * check plausibilty of dates CALL FUNCTION 'DATE_CHECK_PLAUSIBILITY' EXPORTING DATE = bkdf-dbbdt. TIME_CHECK_PLAUSIBILITY 判断是不是时间 GET_CURRENT_YEAR 得到当前的财政年(fiscal year) 察看某日期的属性,包括该日期是星期几,第几天(周2=2),是不是公共假期等,需要输入国家日历。 DAY_ATTRIBUTES_GET 判断某天是否是假日 HOLIDAY_CHECK_AND_GET_INFO POPUP_TO_SELECT_MONTH 月份选择窗口 比较日期和时间 TYPE-POOLS : TRFF . DATA : X_LOG_OP TYPE TRFF_TYPE_C_2 . CALL FUNCTION 'FIMA_DATE_COMPARE' EXPORTING I_FLG_INTRADAY = 'X' I_DATE = SY-DATUM I_TIME = SY-UZEIT I_COMP_DATE = L_MODIFY-MODDATE I_COMP_TIME = L_MODIFY-MODTIME IMPORTING E_LOG_OP = X_LOG_OP. p_months = -4."前4月,如果为正,则是后面的日期 CALL FUNCTION 'MONTH_PLUS_DETERMINE' EXPORTING MONTHS = p_months OLDDATE = p_date IMPORTING NEWDATE = p_date. 获得某个日期所在的周,获得某周的第一天。 DATE_GET_WEEK 和 WEEK_GET_FIRST_DAY function date_get_week. *"---------------------------------------------------------------------- *"*"Lokale Schnittstelle: *" IMPORTING *" VALUE(DATE) LIKE SCAL-DATE *" EXPORTING *" VALUE(WEEK) LIKE SCAL-WEEK *" EXCEPTIONS *" DATE_INVALID *"---------------------------------------------------------------------- 函数模块作用: 获得某个日期所在的周。 ============================================= function week_get_first_day. *"---------------------------------------------------------------------- *"*"Lokale Schnittstelle: *" IMPORTING *" VALUE(WEEK) LIKE SCAL-WEEK *" EXPORTING *" VALUE(DATE) LIKE SCAL-DATE *" EXCEPTIONS *" WEEK_INVALID *"---------------------------------------------------------------------- 函数模块作用: 获得某周的第一天。 ============================================ 上述两个函数的功能已经包含在 HR_GBSSP_GET_WEEK_DATES 中了。 从数据表中获得指定语言每周七天的名称,例如中文就是星期一、星期二……星期日,英文就是Sunday、Monday……Saturday。 WEEKDAY_GET FUNCTION WEEKDAY_GET. *"---------------------------------------------------------------------- *"*"Lokale Schnittstelle: *" IMPORTING *" VALUE(LANGUAGE) LIKE SY-LANGU DEFAULT SY-LANGU *" EXPORTING *" VALUE(RETURN_CODE) LIKE SY-SUBRC *" TABLES *" WEEKDAY STRUCTURE T246 *" EXCEPTIONS *" WEEKDAY_NOT_FOUND *"---------------------------------------------------------------------- 函数模块作用: 从数据表中获得指定语言每周七天的名称,例如中文就是星期一、星期二……星期日,英文就是Sunday、Monday……Saturday。 输入参数: LANGUAGE:指定语言代码,可以省略,如果不填就是当前登录语言。注意,在调用时如果指定某种特定语言,必须用一个字节的语言代码,例如中文是 1、英文是 E……,而不能用 ZH、EN,语言代码参见表 T002。 输出参数: RETURN_CODE:返回码,查询数据库获得的返回码。但是由于这个函数会抛出异常,因此返回码的作用不大。 表: WEEKDAY:结构与透明表 T246 相同,用来存储返回给用户的周日名称。 异常: WEEKDAY_NOT_FOUND:没有找到周日的描述。 功能代码: 函数文本: 图标名称: &ETA 细节 ICON_SELECT_DETAIL &EB9 调用报告... ICON_TABLE_SETTINGS &REFRESH 刷新 ICON_REFRESH &ALL 全部选择 ICON_SELECT_ALL &SAL 取消全选 ICON_DESELECT_ALL &OUP 按升序排列 ICON_SORT_UP &ODN 按降序排列 ICON_SORT_DOWN &ILT 设置过滤器 ICON_FILTER &UMC 总计 ICON_SUM &SUM 小计... ICON_INTERMEDIATE_SUM &RNT_PREV 打印预览 ICON_LAYOUT_CONTROL &VEXCEL Microsoft Excel ICON_XLS &AQW 字处理... ICON_WORD_PROCESSING %PC 本地文件 ... ICON_EXPORT %SL 邮件收件人 ICON_MAIL &ABC ABC 分析 ICON_ABC &GRAPH 图形 ICON_GRAPHICS &OL0 更改布局... ICON_ALV_VARIANTS &OAD 选择格式... ICON_ALV_VARIANT_CHOOSE &AVE 保存格式... ICON_ALV_VARIANT_SAVE &INFO 信息 ICON_INFORMATION 1. ALV表头设置 i_callback_html_top_of_page = 'ALV_TOP_OF_PAGE' form top_of_page using cl_dd type ref to cl_dd_document. 语法同HTML fomat