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  过帐代码名称

一、客户主数据
基本数据放在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:没有找到周日的描述。

计算两个日期间的工作天数,就是剔除了双休日后的天数.( 待考证)

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  

原创文章,作者:Maggie-Hunter,如若转载,请注明出处:https://blog.ytso.com/18233.html

(0)
上一篇 2021年7月19日
下一篇 2021年7月19日

相关推荐

发表回复

登录后才能评论