N2012_8的博客

原创 ABAP ALV 回车事件

it_event TYPE slis_t_event. "不能有表头,否则会RUNTIME ERROR。CLASS lcl_event_handler IMPLEMENTATION."类实现。PERFORM handle_data_changed ."具体处理数据事件。CLASS lcl_event_handler DEFINITION."类定义。FORM handle_data_changed . " 回车后操作。*&创建时间：15.07.2024 10:10:33。*& 增加ALV事件。

原创 SAP ABAP 单元格编辑，数字缩小问题解决方法

fieldcat2-fieldname = 'MENGE' . "参照字段名。fieldcat2-ref_tabname = 'EBAN' . "参照表名。fieldcat2-inttype = 'C' . "这个是指定字段的类型为C。fieldcat2-datatype = 'QUAN' . " 指定数据类型。

原创 SAP ABAP 删除预留

EXPORTINGTABLES。

原创 ABAP 通用批导EXCLE数据到数据库表

MESSAGE '保存失败，请检查数据是否有误' TYPE 'S' DISPLAY LIKE 'E'.title = '请选择要导入的格式'WHEN 'Y'."小数点是逗号。WHEN 'X'."小数点是逗号。MESSAGE '保存成功' TYPE 'S'.WRITE: '导入数据出错'.* text 获取内表结构。*根据取出的字段目录生成参考字段目录。* 指定生成的内表到字段符号。* 创建动态工作区结构。* 创建动态工作区。*取出表结构的字段目录。

原创 sap用户登录相关的表

sap用户登录su01usr21 usr02 adrp adcp adrc。视图：V_ADDR_USR 由adrp adcp adrc组成。表：Usr21 usr02。

原创 ABAP ALV 多行表头

PERFORM frm_set_field USING 'MATNR' 'MARA' 'MATNR' '物料编码'.PERFORM frm_set_field USING 'PSTAT' 'MARA' 'PSTAT' '维护状态'.PERFORM frm_set_field USING 'MTART' 'MARA' 'MTART' '商品类型'.PERFORM frm_set_field USING 'MATKL' 'MARA' 'MATKL' '物料组'.

原创 ABAP ME21N取消暂存功能代码

7.输入代码 ： CLEAR: ch_allowed 激活后，返回6界面。2. se18 BADI名称输入 ME_HOLD_PO，点击显示。8.点击激活， 进入 ME21N ，暂存按钮已取消。1. 找到暂存增强 ME_HOLD_PO。6.双击 接口 IS_ALLOWED。5. 输入实施短文本，点击接口。4. 输入实施名称，点击✔。3. 点击实施-创建。

原创 SAP 物料读取基本数据文本与检验文本READ_TEXT

使用函数 READ_TEXT。1. 读取基本数据文本。

原创 ABAP HR根据组织单元查询所有组织内人员

表RESULT_STRUC： 所有 OTYPE 为 P。

原创 SAP: ME22N,ME21N 采购订单交货地址取值

EKPO-ADRNR地址字段在ME22N修改地址之后会自动生成一个地址编号，对应ADRC-ADDRNUMBER,去相应地址打印即可。如果交货地址没有做更改，EKPO-ADRNR 为空。对应表ADRC-ADDRNUMBER,取相应地址。根据工厂取T001W 表 ADRNR 地址。

原创 ABAP 选择屏幕创建按钮，并执行

SELECT-OPTIONS : s1_auart FOR vbak-auart MODIF ID ty1, "销售订单类型。SELECT-OPTIONS : s2_erdat FOR vbak-erdat MODIF ID ty2, "订单创建日期。s2_vdatu FOR vbak-vdatu MODIF ID ty2. "订单交货日期。s1_vbeln FOR vbak-vbeln MODIF ID ty1, "销售订单。lv_functxt-icon_text = '数据导入'.

原创 ABAP 单选按钮，动态屏幕

SELECT-OPTIONS : s1_auart FOR vbak-auart MODIF ID ty1, "销售订单类型。SELECT-OPTIONS : s2_erdat FOR vbak-erdat MODIF ID ty2, "订单创建日期。s1_vbeln FOR vbak-vbeln MODIF ID ty1, "销售订单。s1_kunnr FOR vbak-kunnr MODIF ID ty1, "客户。

原创 ABAP MR8M 冲销增强

双击 ZXM08U16 创建，后添加对应代码。3. 选择组件，找到出口进行代码编写。2. CMOD 创建增强实施项目。SMOD 查找对应出口。se93 查找对应包。1. 查找增强出口--全部激活后，增强启用。

原创 ABAP OO分屏：sflight

m_fcat_0100 'SEATSMAX_B' '' '' '商务舱的最大容量' '' '' '' gc_i.m_fcat_0100 'SEATSOCC_B' '' '' '占据的商务舱座位' '' '' '' gc_i.m_fcat_0100 'SEATSMAX_F' '' '' '头等舱的最大容量' '' '' '' gc_i.m_fcat_0100 'SEATSOCC_F' '' '' '占据的头等舱座位' '' '' '' gc_i.

原创 ABAP ALV 单元格是否可更改

ls_edit-style = cl_gui_alv_grid=>mc_style_disabled. " 不可更改 mc_style_enabled 可更改。style TYPE lvc_t_styl, "FOR DISABLE 单元格是否可更改。"第2步：在内表定义添加字段，用于控制具体行的具体单元是否可编辑。"第1步：用操作具体单元的是否可编辑的内表和工作区。

原创 ABAP 前导0操作

SHIFT lv_str LEFT DELETING LEADING '0'. "去除 前导0。SHIFT lv_str RIGHT DELETING TRAILING '0'. "去除后缀0。1. 去除 前导 0 或者后缀 0。2.调用函数去除 / 补全前导0.OUTPUT去除 前导 0。INPUT补全 前导 0。

原创 SAP ABAP 日期、时间相关函数

type_time = 'B' " A = 24小时制 -> 12小时制 B = 12小时制 -> 24小时制。date_external = '2016.01.01' "当前用户日期格式：YYYY.MM.DD。select_date = l_date "用户选择后返回的日期。holiday_calendar = ' ' "假日日历 ID。

原创 ABAP 取域值 描述

READ TABLE lt_dd07v INTO DATA(ls_dd07v) WITH KEY domvalue_l = ls_out-zzqddw "域值。1. 根据表直接查询 dd07v。一般域值表数据量不会特别的大，根据域名取值，在循环中二分法读取速度比用函数取值要快。WHERE domname EQ 'ZZQDDW' " 域名。

原创 SAP 请求释放后如何恢复

1、请求： SBTK900030已释放，现在要将该请求删除2、se38运行程序RDDIT076，输入已经释放的请求号，点击运行。3、执行后看到要删除的请求号，进行双击4、在弹出框中点击“修改“按钮，将请求的状态R（已释放）修改为D（可修改），点击保存。5、执行SE10（se01/Se09无所谓，能看到就行），查看请求状态是否变更为可修改6、选中请求，点击删除按钮，将请求删除，得到提示，请求已删除

原创 ABAP 增强查询方法 SMOD

1. 根据事务码 查询 对应包。2. SMOD -- 查询。

原创 ABAP cl_exithandler 增强查询

1. se24 输入 cl_exithandler。2. 选择 GET_INSTANCE 方法，双击进入。exit_name 即会运行到的增强出口。4. 执行 查询TCODE。3. 在14行 打断点。

原创 ABAP SMARTFORMS 纸张设置 SPAD

1. 事务码 SPAD - 完全管理。2. 设备类型--页格式。

原创 ABAP : 人事PA30删除权限检查，日志记录：增强HRPAD00INFTY

2. SE18 -- BADI名称 输入 HRPAD00INFTY-- 显示。4. 进入实施--接口 找到方法 BEFORE_OUTPUT ，双击进入。1. 找到对应BADI增强 HRPAD00INFTY。3. 实施--创建--输入实施名称。

原创 ABAP VA02增强：行项目 物料与订单数量不可更改

1. 找到 对应 USEREXIT 出口 MV45AFZZ--USEREXIT_FIELD_MODIFICATION。

原创 ABAP 生成UUID方法

RECEIVING。

转载 SAP ABAP 增强点查询程序DEMO

&*&*&tadir,modsapt,modact,trdir,tfdir,enlfdir,tstct.ENDIF.ENDIF.ENDIF.SKIP.AT FIRST.ENDAT.ENDIF.ENDAT.

原创 SAP ABAP 部分增强点

SPOT是ENHANCEMENT-POINT KONTIERUNG_INIT_01 SPOTS ES_SAPMM07M.实现功能：如果移动类型是XXX，特殊库存标识变成灰，工厂变成灰。USER-EXIT：SAPMF02D FUNCTION：EXIT_SAPMF02D_001 客户主数据的销售数据增强。USER-EXIT：IWOC0001 FUNCTION：EXIT_SAPLIWO1_001 创建的时候检查。QQMA0014 FUNCTION：EXIT_SAPMIWO0_020 保存的时候检查。

原创 SAP ABAP MIGO 增强判断操作类型

原创 SAP ABAP EXCLE_INCLUDE

lv_name-objid = gv_name."pv_mname. "***************这里给定模板的名字******************** initial_directory = 'D:\ ' "默认打开D盘，也可以默认空"default_filename = '*.XLSX' "默认excel文件"MESSAGE '请选择导入的文件' TYPE 'E'.MESSAGE '导出模板成功.' TYPE 'I'.

原创 SAP ABAP ALV单元格下拉框DEMO

gw_events-name = 'CALLER_EXIT'. "“固定值。*根据物料的所有的语言生成不同的生成下拉列表。*设置下拉列表，使Grid和内表能链接上。*定义存储下拉列表的数据。* 设置输出字段的格式。

原创 ABAP 查询增强方法 SNIF

SE38 SNIF 进入，后点击执行。执行后，可以查询对应的增强。选择需要查询的增强方式。

原创 SAP ABAP获取ME22N订单中的文本信息

其次，记住这三个参数，文本名：如果是行项目即为单号+行项目 ，表头即为单号。首先，找到你想要获取的文字，双击点开输入文本的地方。最后，带入函数 READ_TEXT。然后，找到表头，点击打开。

原创 ABAP BAPI_RESERVATION_CREATE1创建预留：ME21 BAPI

ls_item-entry_qnt = '1'. "数量。ls_item-item_text = 'ceshi'. "文本。ls_header-move_type = '201'. "移动类型。*ls_item-entry_uom = 'PC'. "单位。ls_header-move_plant = '2021'. "工厂。

原创 ABAP BAPI报错消息处理

方法： MESSAGE_TEXT_BUILD。

原创 SAP ABAP : 刷新ALV 修改字段

两种方法：1.ENDFORM.ENDFORM.2.IMPORTINGENDFORM.

原创 SAP 表维护视图排序

MODULE check_zbb ON CHAIN-REQUEST. 回车事件。13（8） 为字段位置，13为前面有几位，8为字段位置。

原创 SAP RFC接口创建WEBSERVICES

如果WEBSEIVICES 不能使用，SAP-SICF 激活 接口与WSDL。（如果打不开，可以试一下我后面介绍的方法。如果你已经有创建过函数组，可以省略这一步。右键对象名称 -- 创建 -- 企业服务。：SE37创建一个函数模块ZCS001，：SE37创建一个函数组ZCESHI;：SE80 创建webservice。会打开一个网页，选择“web服务配置“函数组选择之前创建的ZCESHI。最后记得保存和激活。

原创 SAP修改记录：查询

批量查看修改记录2种方法：通过表查询：表头：CDHDR，项目：CDPOS。通过程序，通过进入SE38，输入：RSSCD1TS，运行。

原创 ABAP BAPI BADI SMARTFORMS 设置断点

BREAK-POINT.

原创 ABAP 金额转换大写 FUN

REPLACE ALL OCCURRENCES OF REGEX '\-' IN l_money_str WITH ''. "删除 - 符号。units TYPE c LENGTH 30 VALUE '分角元拾佰仟万拾佰仟亿拾佰仟万',CONCATENATE e_money '整' INTO e_money.CONCATENATE '负' E_MONEY INTO E_MONEY.IF e_money NS '分'.IF cword = '零'.e_money = '零'.