- 博客(72)
- 收藏
- 关注
RSS订阅原创 ABAP——字段获取指定位数
取前八位data a type c(30).a = '88888888abcdefg'.a = a(6). "取前6位a = a+6(1). "取第7位a + 6 ( 1 ) 其中 +6 是从第7位开始，(1)是指取几位。a = a+6 . "取第六位后的所有字符a + 6 取第六位后的所有字符
2021-04-26 11:10:19
3118
原创 ABAP——sql用order排序
SELECT zmmt0029~matnr, zmmt0029~lifnr, zmmt0029~status FROM zmmt0029 INNER JOIN @gt_out AS gt_out ON zmmt0029~matnr = gt_out~matnr AND zmmt0029~lifnr = gt_out~lifnr WHERE zmmt0029~status = '试用'order by zmmt0029~matnr,zmmt0029~lifn..
2021-04-25 10:15:20
2216
原创 ABAP——sql
case SELECT FROM ekbe AS a INNER JOIN @gt_out AS b ON a~ebeln = b~ebeln AND a~ebelp = b~ebelp FIELDS a~ebeln, a~ebelp,* menge,* wrbtr, CASE a~shkzg WHEN 'H' THEN a~menge * -1 ELSE a~menge END AS menge, CASE a~shkzg
2021-04-23 10:06:20
782
原创 ABAP——ROUND函数小数位取整
lv_string为输入的数值，lv_string2为需要保留小数位数sign为判断是需要向上取整还是向下取整，+是向上，-是向下 DATA:lv_string TYPE p DECIMALS 10. DATA:lv_string2 TYPE p VALUE '3'. CALL FUNCTION 'ROUND' EXPORTING decimals = lv_string2 input = lv_strin
2021-04-13 15:17:04
6020
原创 ABAP——modify内表和modify数据库表
modify内表一般的modify内表是需要嵌套在loop中，或者在后面加上where判断条件，否者火报一个没有有效游标的错误。modify数据库表直接modify table就可以了。modify table 数据库表 from 工作区.
2021-04-07 16:49:24
11533
原创 ABAP——新语法添加和去除前导零
添加前导零ls_number = |{ ls_number ALPHA = IN }|.除去前导零ls_number = |{ ls_number ALPHA = OUT }|.
2021-03-30 16:30:02
5352
原创 ABAP——设置GUI界面按钮显示
定义一个lt_fcode,类型为sy-ucomm,，然后将需要删除的按钮，append到内表中，在SET PF-STATUS的时候用EXCLUDING不显示内表lt_fcode中的按钮。FORM pf_status_set USING rt_extab TYPE slis_t_extab. DATA lt_fcode TYPE TABLE OF sy-ucomm. REFRESH lt_fcode. IF rd_3 = 'X'. APPEND 'SAVE' TO lt_fcode.
2021-03-30 09:59:35
1875
原创 ABAP——SAP复制标准的GUI状态栏
1、从标准程序【SAPLKKBL】中复制GUI Status【STANDARD】来创建GUI Status2、从标准程序【SAPSIMPLE_TREE_CONTROL_DEMO】中复制GUI Status【MAIN】来创建GUI Status3、从标准程序【SAPLSLVC_FULLSCREEN】中复制GUI Status【STANDARD_FULLSCREEN】来创建GUI Status4、如果不是ALV，是Write输出时，从标准程序【S
2021-03-30 09:52:32
1823
原创 ABAP——value和reduce
循环插入内表 LOOP AT lt_zmmt0183 INTO DATA(ls_zmmt0183). rang_matkl[] = VALUE #( BASE rang_matkl[] ( sign = 'I' option = 'EQ' low = ls_zmmt0183-matkl ) ). ENDLOOP.
2021-03-23 17:06:14
1014
原创 ABAP——动态的选择ALV输出的内表
FORM frm_display_data . PERFORM fill_fieldcat. FIELD-SYMBOLS <lt_out> TYPE STANDARD TABLE. IF pa_all = 'X'. ASSIGN ('gt_out') TO <lt_out>. ELSE. ASSIGN ('gt_out2') TO <lt_out>. ENDIF. gs_layout-colwidth_optimize = 'X
2021-03-15 13:58:01
551
原创 ABAP——增强点记录
MIGO增强事务代码migo增强：MB_CHECK_LINE_BADI事务代码MD81/md82增强我写在MV45AFZB，这个增强点类似是一个程序，参考光哥的写法，定义一个perform，参数是Xvbap，双击可以看到这个增强点的输入参数，然后程序代码都放在ZSDM001中，避免在标准程序中写入太多冗长的代码。...
2021-03-05 11:11:57
616
1
原创 ABAP——smartform添加图片
smartform中可以添加图片，输入你导入到系统的图片名称，类型等信息。事务代码：se78进入到图形管理系统选择导入按钮，就可以导入BMP格式的图片，也可以在右侧输入name查找显示已经导入的图片。...
2021-02-24 11:26:25
4195
原创 ABAP——在当前窗口中显示进度指示器
"在当前窗口中显示进度指示器 CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR' EXPORTING percentage = gv_perc.gv_perc为显示的进度值。
2021-02-23 10:29:27
194
原创 ABAP——保存报表程序变式
这个函数可以保存用户上一次在前台输入的数据，在下一次显示屏幕的时候就可以输出出来 CALL FUNCTION 'ZCA002_REPORT_VARIANT_SAVE' EXPORTING iv_repid = sy-repid iv_uname = sy-uname.效果如下，显示的时候自动填充了上一次输入的工厂，销售组织，物料号。...
2021-02-22 11:46:23
1021
原创 BAAP——屏幕执行顺序
SELECTION-SCREEN BEGIN OF BLOCK part1 WITH FRAME. PARAMETERS: number1 TYPE i, number2 TYPE i, number3 TYPE i. SELECTION-SCREEN END OF BLOCK part1. SELECTION-SCREEN BEGIN OF BLOCK part2 WITH FRAME. PARAMETERS:nu.
2021-02-20 11:44:48
322
1
转载 ABAP——选择屏幕：根据用户选择动态显示屏幕
在有些程序中我们发现，如果用户选择了多个选项中的其一（单选框），则屏幕的外观将会有所调整。这是怎么实现呢？我们来看下面的例子。PARAMETERS: p1 TYPE c RADIOBUTTON GROUP g1 USER-COMMAND uc,p2 TYPE c RADIOBUTTON GROUP g1 DEFAULT ‘X’.PARAMETERS: p_werks TYPE werks MODIF ID ty1,p_matnr TYPE matnr MODIF ID ty2.AT SELECT
2021-02-18 11:35:34
2577
原创 ABAP——用line_exists替代read内表
LOOP AT gt_mseg. IF gt_mseg-bwart_i = '105'. "删除移动类型为105且不是从香港过来的物料移动 IF NOT line_exists( lt_ekko[ ebeln = gt_mseg-ebeln_i zordertype1 = 'A4' ] ). DELETE gt_mseg. ENDIF. ENDIF. ENDLOOP.循环gt_mseg带表头的内表…如果不存在（内表lt_ekko中【eb..
2021-02-01 16:14:54
3070
原创 ABAP——FOR ALL ENTRIES IN/INNERJOIN 内表
FOR ALL ENTRIES INFOR ALL ENTRIES IN 关联内表的时候，如果内表为空，会把所需要查找的表中的所有数据查找出来，如果内表中有重复项，查找出来的数据也不会有重复项。 SELECT ekko~ebeln, ekko~zordertype1 FROM ekko INTO TABLE @DATA(lt_ekko) FOR ALL ENTRIES IN @gt_mseg WHERE ekko~ebeln
2021-02-01 16:08:51
3230
1
原创 ABAP——整体修改一个内表的某一个字段
l_wa_iseg_infor-msg = ‘盘亏’.MODIFY l_it_iseg_infor FROM l_wa_iseg_inforTRANSPORTING msg WHERE msg = space.
2021-01-27 10:53:10
4966
原创 ABAP——弹窗显示错误信息
弹窗显示错误信息（ZSDR045程序）*$---------------------------------------------$** 弹窗显示*$---------------------------------------------$*DATA: lv_msg TYPE string.DATA: lv_lines TYPE i.DATA: lv_count TYPE i.DATA: BEGIN OF lt_message OCCURS 0, msgid LIKE
2021-01-22 17:11:43
1572
原创 ABAP——传输到Q系统
勾选传输副本，点击创建副本传输输入描述，然后传输目标选中shq系统选中你要传输的请求号下面的的传输项，选中刚刚创建的副本请求，点击上面的按钮输入请求。到Q系统，输入事务代码stms，执行双击shq点击请求选中筛选按钮，输入要传输过来的请求，点击第二个车进行传输。输入你要传输到哪个环境后面还有一个选择界面，选中前面四个选中，完成传输。...
2021-01-20 09:36:26
512
原创 ABAP——将内表的全部数据添加到另一个内表中
如果要保留目标表的数据：append lines of it_tabA to lt_tabB.如果只是单纯的内表赋值：it_tabB[] = it_tabA[].
2021-01-14 18:22:52
10420
原创 ABAP——ALV设置小数位和可编辑常长度
CLEAR gs_fieldcat. gs_fieldcat-fieldname = &1. gs_fieldcat-seltext_m = &2. gs_fieldcat-hotspot = &3. gs_fieldcat-outputlen = &4.“输出长度 gs_fieldcat-edit = &5.”是否可编辑 gs_fieldcat-decimals_out = &6.“小数位长度...
2021-01-13 10:58:29
2831
原创 ABAP——获取物料长文本
调用FORM_GTT_LONGTXT函数，传入物料和长文本。* 物料长文本 PERFORM FORM_GTT_LONGTXT USING lv_matnr CHANGING gs_item-ITEXT2.FORM_GTT_LONGTXT函数获取长文本FORM FORM_GTT_LONGTXT USING ZMATNR "物料号 （需要定义为THEAD-TDNAME 类型） CHANGING LONGTXT.
2021-01-11 14:35:01
2102
3
原创 ABAP——查看数据库表之间的主外键关联（SQVI）
Tcode:SQVI进入随便输入名字创建输入描述和选择表连接跳转到这个界面后就可以点击左边的按钮输入表名，多个表会显示表之间的主外键连接关系。
2021-01-04 16:38:55
1112
原创 ABAP——除去空格或头字符
除去字符串前面首个的’;’SHIFT gt_zmmt0135-cbtxt LEFT DELETING LEADING ‘;’."SHIFT gt_zmmt0135-cbtxt002 LEFT DELETING LEADING ‘;’.SHIFT gt_zmmt0135-cbtxt003 LEFT DELETING LEADING ‘;’.去空格的CONDENSE gt_zmmt0135-cbtxt NO-GAPS.CONDENSE gt_zmmt0135-cbtxt002 NO-GAPS.C.
2020-12-24 18:00:26
2511
1
原创 ABAP——增强
查找增强找BADI的方法。先运行SE24，查看类对象CL_EXITHANDLER,在其方法：GET_INSTANCE的14行（ CALL METHOD CL_EXITHANDLER=>GET_CLASS_NAME_BY_INTERFACE）打上一个断点。接下来运行事务代码，当有BADI是将会被执行，这时在DEBUG模式下，会进入类CL_EXITHANDLER 的GET_INSTANCE 方法，按F6执行这个方法之后，点参数EXIT_NAME查看其对应的值，所有的方法实现都在此类对象中，此时
2020-12-18 09:48:52
940
原创 ABAP-判断是否是后台job运行和自动写入上个月的第一天和最后一天
IF sy-batch IS INITIAL."判断是否是后台job运行 IF so_dates[] IS INITIAL. MESSAGE e001(00) WITH '评分日期范围必填'. ENDIF. ELSE. DATA: lv_monat TYPE numc2. DATA: lv_year TYPE numc04.* DATA: lv_datum_s TYPE sy-datum. lv_monat = sy-datum+4(2...
2020-12-16 15:36:20
792
原创 ABAP-排序，删除内表中的多余行，根据字段匹配
lt_zmmt0115 = gt_zmmt0115.SORT lt_zmmt0115 BY werks.DELETE ADJACENT DUPLICATES FROM lt_zmmt0115 COMPARING werks.
2020-12-14 10:51:22
763
原创 ABAP——工厂，采购组织权限检查
采购组织权限检查 SELECT ekorg FROM EINE INTO TABLE @DATA(lt_ekorg) WHERE ekorg eq @pa_ekorg. LOOP AT lt_ekorg INTO DATA(ls_ekorg). AUTHORITY-CHECK OBJECT 'M_EINF_EKO' ID 'ACTVT' FIELD '03' ID 'EKORG' FIELD ls_ekorg-ekorg
2020-12-05 10:22:07
1732
原创 ABAP-屏幕跳转切换
LEAVE LIST-PROCESSING.返回当前界面 LEAVE TO SCREEN 0.返回上一级界面GO TO SCREEN 1000.前往1000屏幕号，注意使用leave to creen 1000后无法使用 LEAVE TO SCREEN 0.返回上一级界面
2020-12-05 09:08:23
2238
原创 ABAP-维护视图修改字段可修改和定义事件
进入维护视图的布局模式sm30菜单-系统-状态-屏幕号布局给视图添加事件se11进入视图实用程序-表格维护生成器环境-修改-事件
2020-11-24 15:10:44
1995
原创 ABAP-修改数据库表
SE38运行RKSE16N_EDIT SE16N 输入表选择数据，然后输入/H，编辑GD-SAPEDIT 、GD-EDIT两个变量，将其值设为“X”。 还可以用SE37运行SE16N_INTERFACE达到同样效果。
2020-11-18 17:37:20
868
原创 ABAP-快速创建指针并插入空行到内表中
READ TABLE gt_zcat0901i ASSIGNING FIELD-SYMBOL(<LS_zcat0901i>) WITH KEY STLNR_o = gs_zmmt0115-stlnr matnr_o = gs_zmmt0115-pmatnr IF SY-subrc <> 0. APPEND INITIAL LINE TO gt_zcat0901i[] ASSIGNING <LS_zcat0901i&g
2020-11-14 17:31:05
964
原创 abap——CREATE_TEXT创建采购申请的抬头文本
例如创建采购申请抬头文本采购申请 ME52N双击抬头注释转到——表头程序* 创建抬头文本 DATA: ls_fid LIKE thead-tdid, ls_fname LIKE thead-tdname, ls_fobject LIKE thead-tdobject, ls_text TYPE string. DATA : flines LIKE TABLE OF tline WITH HEADER LINE . LO
2020-10-26 15:53:11
2790
原创 ABAP-read语句判断读取不到指定的数据
READ TABLE gt_out WITH KEY mark = 'X' BINARY SEARCH TRANSPORTING NO FIELDS.问题：又两条数据，我选择第一条数据，内表中的 mark为X,但是read table 执行不成功，选择第二条数据，read语句执行成功。原因：因为在read中使用了BINARY SEARCH二分法，但是在read语句前我没有sort排序导致这个问题。..
2020-10-15 16:31:56
919
原创 ABAP中修改显示的alv数据没有更新到后台内表的问题
FORM frm_user_command_0100 USING pa_ucomm LIKE sy-ucomm pa_selfield TYPE slis_selfield. CALL FUNCTION 'GET_GLOBALS_FROM_SLVC_FULLSCR' IMPORTING e_grid = lo_grid. CALL METHOD lo_grid->check_c
2020-10-14 15:29:52
1047
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人