ABAP FIND关键字

2020.05.06 23:08 • 发布 • 阅读 709

程序来源于FAGL_LINE_ITEM_BROWSER / RKESS_FORMS，FIND关键字用于判断指定字符在变量中是否存在，若存在则subrc返回0.

FORM SS_SO_TO_SEL
  USING
    I_FIELDNAME   TYPE RSSCR_DBFI
    IT_SO         TYPE ANY TABLE.

  DATA: S_TRANGE  TYPE RSDS_RANGE,
        TABIX     LIKE SY-TABIX VALUE 0.

  FIND '-' IN I_FIELDNAME.
  IF SY-SUBRC = 0.
    SPLIT I_FIELDNAME AT '-' INTO SS_TABLENAME SS_FIELDNAME.
  ELSE.
    SS_FIELDNAME = I_FIELDNAME.
  ENDIF.

  CHECK SS_FIELDNAME IS NOT INITIAL.

  READ TABLE SS_GR_INT->T_TRANGE INTO S_TRANGE
    WITH KEY TABLENAME = SS_TABLENAME.

  IF SY-SUBRC = 0.
    TABIX = SY-TABIX.
  ELSE.
    S_TRANGE-TABLENAME = SS_TABLENAME.
  ENDIF.

  CL_KESS_FREE_SELECTION_INT=>CONVERT_RANGE_TO_SELTAB(
    EXPORTING
      I_FIELDNAME = SS_FIELDNAME
      IT_TABLE    = IT_SO
    CHANGING
      XT_SELTAB = S_TRANGE-FRANGE_T ).

  IF TABIX = 0.
    APPEND S_TRANGE TO SS_GR_INT->T_TRANGE.
  ELSE.
    MODIFY SS_GR_INT->T_TRANGE FROM S_TRANGE INDEX TABIX.
  ENDIF.

ENDFORM.

FORM SS_SO_TO_SEL

USING

I_FIELDNAME TYPE RSSCR_DBFI

IT_SO TYPE ANY TABLE.

DATA: S_TRANGE TYPE RSDS_RANGE,

TABIX LIKE SY-TABIX VALUE 0.

FIND '-' IN I_FIELDNAME.

IF SY-SUBRC = 0.

SPLIT I_FIELDNAME AT '-' INTO SS_TABLENAME SS_FIELDNAME.

ELSE.

SS_FIELDNAME = I_FIELDNAME.

ENDIF.

CHECK SS_FIELDNAME IS NOT INITIAL.

READ TABLE SS_GR_INT->T_TRANGE INTO S_TRANGE

WITH KEY TABLENAME = SS_TABLENAME.

IF SY-SUBRC = 0.

TABIX = SY-TABIX.

ELSE.

S_TRANGE-TABLENAME = SS_TABLENAME.

ENDIF.

CL_KESS_FREE_SELECTION_INT=>CONVERT_RANGE_TO_SELTAB(

EXPORTING

I_FIELDNAME = SS_FIELDNAME

IT_TABLE = IT_SO

CHANGING

XT_SELTAB = S_TRANGE-FRANGE_T ).

IF TABIX = 0.

APPEND S_TRANGE TO SS_GR_INT->T_TRANGE.

ELSE.

MODIFY SS_GR_INT->T_TRANGE FROM S_TRANGE INDEX TABIX.

ENDIF.

ENDFORM.

如若转载，请注明出处：https://www.gavindong.com/3007.html

ABAP内表整体赋值的思路

上一篇 2020.05.06 23:07

SAP BDC数据结构及简单实例

下一篇 2020.05.06 23:09

发布

使用sublime text开发GO应用

使用sublime text开发GO应用下载sublime text和GO运行环境 sublime text GO运行环境如果打不开golang官网（需要能上google）请用…

2018.01.24
776 0
发布

启动ABAP调试器的几种方法

1.使用菜单启动ABAP调试器 2.代码内设置断点并F8运行程序 3.通过System菜单 4.最常用的/h加回车运行程序 5.hardcode 注意事项每次启动新调试器将开启一…

2021.03.28
61 0
ABAP内表和json互转

*&———————————————————————* *& Report…

发布 2019.05.05
680 0
发布

TCURR表取汇率问题

DATA: date LIKE sy-datum VALUE ‘20000101’, datu(8). datu = date. datu = &#8216…

2020.09.29
267 0
Where-Used List直接查表WBCROSSGT

例如希望查询data type CRMT_SOC_NAME_VALUE_PAIR_TAB被哪些program & class所使用，将其name 传入table WBCR…

发布 2020.05.12
534 0
SAP FI记账凭证FB01的BAPI

FI模块记账凭证FB01的BAPI – POSTING_INTERFACE_DOCUMENT CALL FUNCTION ‘POSTING_INTERFACE_STAR…

发布 2017.05.03
1.2K 0
修改SAP表数据

提示：除非非常有必要，否则绝对不要修改系统表，有可能你就修改了一下系统表，前台报的错你一个星期都解决不了。因为SAP七万多张表很多是通过前台配置互相关联起来的，你如果直接修改底层数…

发布 2017.05.15
625 0
SAP汇率表：TCURR

SAP汇率表：TCURR日期字段的实际汇率日期：GDATU = 99991231 – GDATU 相关事务代码：OB08、TCURMNT、OBBS、OB07、TCURW…

发布 2018.06.07
1.8K 0
SAP常用参数及默认值设定方法

参数ID 参数描述参数参考 KPL 会计科目表 CACN CAC 控制范围 CAGD SCL Upper and lower case in source code: &#821…

发布 2020.10.13
516 0
发布

幸福的价格

这段时间在YouTube《跟我一起来谈钱》这个频道看了几期关于金钱观、财务规划方面的节目，我也想来算一算我理解的幸福需要多少钱，这样以后努力更有方向性、目标也会更明确一些。首先，…

2020.10.04
234 0
The Ultimate Cheat Sheet on SAP SD Database Architecture

Often, you would need to understand the technical aspect of how things are structured to r…

发布 2018.03.01
587 0
发布

HANA view关于创建属性视图

属性视图创建好之后，在激活之前需要先勾选主键，否则预览数据时会报错。报错信息如下：解决办法：点击Semantics勾选主键字段，保存激活即可。

2018.07.25
842 0
发布

韩剧《评价女王》经典台词

《评价女王》讲述了一位无时无刻满脑子都是“喜欢给任何事物评分”的平凡却十分有魅力的广告公司职员“高好”寻找真爱的趣味故事，目前可以在搜狐视频观看。 1.睡前别哭，本来就长得不好看，…

2020.02.25
306 0
SAP特性，物料特性，批次特性建立的BAPI函數

类的T-CODE: CL03 特性T-CODE: CT04 特性可以通过下面的BAPI来进行批量维护： BAPI_CHARACT_CREATEBAPI_CHARACT_CHANGE…

发布 2017.09.08
2.5K 0
SAP的服务收费怎么算的

SAP的服务收费包括两部分：一，是License费用，数量越多、总额越大; License8000美元，约6万元人民币，License的价格×其数量，就是客户最终需要付出的软件费…

发布 2017.05.15
678 0
C++库常用函数一览

本文中提到的函数库有：<string> <cctype> <algorithm> <cmath> <cstdlib> &…

发布 2017.05.20
614 0
ABAP不export直接submit并import内表的方法

使用类CL_SALV_BS_RUNTIME_INFO的GET_DATA_REF方法。例子： cl_salv_bs_runtime_info=>set( EXPORTING …

发布 2019.05.05
480 0
go操作mysql

package main import ( “database/sql” “fmt” _ “github.com/go-sql-driver/mysql” ) func main(…

发布 2018.06.08
726 0
十大系统备份应用软件

现在市场上有太多的备份应用软件，到底哪一款才是最好的呢? 实际上，这是一个见仁见智的问题。以下是笔者推荐的一些比较好的备份应用软件，排名不分先后。1、赛门铁克的Backup Exe…

发布 2017.05.17
728 0
发布

Ubuntu18.04安装Cisco AnyConnect 客户端

1.下载客户端 https://uci.service-now.com/kb_view.do?sysparm_article=KB0010201 2.安装 tar -zxvf an…

2019.01.05
1.6K 0

ABAP FIND关键字

相关推荐