• 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… 定义数据类型 
    
    2SORT 
    
    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语句中添加足够键值项目,以保证结果集中所需重复项目不会被删除。
    
    3FOR 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 
  • 相关阅读:
    《你的知识需要管理》——田志刚
    《谁动了我的奶酪》——[美]斯宾塞·约翰逊
    《程序员面试宝典(第三版)》——欧立奇 / 刘洋 / 段韬
    《天才在左疯子在右》——高铭
    LintCode: Combination Sum
    LintCode: Flatten Binary Tree to Linked List
    LintCode: First Position of Target
    LintCode: Delete Node in the Middle of Singly Linked List
    LintCode: Maximum Depth of Binary Tree
    pytorch visdom可视化工具学习—3-命令行操作使用经验
  • 原文地址:https://www.cnblogs.com/huangjianisgood/p/2791895.html
Copyright © 2020-2023  润新知