su-george的博客

转载 ABAP 非数字补0

补0

转载 ABAP OOALV 字段修改同时其它字段跟着修改

1.按钮间隔 butn_type2.原文地址

原创 ABAP工单状态

1.REL / TECOCASE is_item-stat.WHEN ‘E0001’."将INACTI0001打上“X”。PERFORM inact_change USING is_item-aufnrCHANGING e_return . WHEN 'E0003'. lv_user_st = 'RELEASE'. "下达 WHEN 'E0004'. lv_user_st = 'TECO_WITH_NOTIF'. "技术完成ENDCASE.IF is_item-stat

原创 ABAP新语法

SELECT bukrs,versn,gjahr,CAST( concat( citem,citem1 ) AS CHAR ) AS zuonr,citem1,citemsum,citemtype,fiscyearper,zweek,dmbtr,wrbtr,waers FROM zfit_cashplan INTO TABLE @DATA(lt_cashplan).

原创 CO01保存增强

SMOD:PPCO0007CMOD创建

原创 CO_XT_COMPONENTS_DELETE 删除工单组件

form frm_del_compnt changing ps_resb type ty_resb_alv.data: ls_resb type ty_resb.data: lt_resbkeys_to_delete type coxt_t_resbdel with header line.data: es_bapireturn type table of coxt_bapireturn with header line.data: e_error_occurred type c.dat

原创 ABAP VA02改客户地址

&---------------------------------------------------------------------*& Report ZADRESS&---------------------------------------------------------------------*&&--------------------------------------------------------------------...

原创 ABAP 字段搜索帮助

原创 ABAP 哈希表MODIFY

CLASS-DATA cd_safe_mm TYPE HASHED TABLE OF ty_safe_mm WITH UNIQUE KEY primary_key COMPONENTS matnr werks.DATA ls_safe_mm TYPE ty_safe_mm.LOOP AT cd_safe_mm INTO ls_safe_mm.MODIFY cd_safe_mm FROM ls_safe_mm USING KEY primary_key TRANSPORTING eisbe .EN

原创 ABAP ME21N屏幕增强

ME21N屏幕增强XM06函数组 加屏幕ZXM06ZZZ

原创 ABAP 上传 下载EXCEL模板 导入数据

上传：smw0下载：DATA: lw_key LIKE wwwdatatab,lv_dest LIKE rlgrap-filename,lv_rc LIKE sy-subrc.DATA: lv_filename TYPE string,lv_path TYPE string,lv_fullpath TYPE string,lv_def_filename TYPE string.DATA: u_tcode TYPE w3objid.u_tcode =

原创 ABAP调用视图

CALL FUNCTION ‘VIEW_MAINTENANCE_CALL’EXPORTINGaction = ‘U’view_name = view_nameno_warning_for_clientindep = ‘X’EXCEPTIONSclient_reference = 1foreign_lock = 2invalid_action

原创 ABAP字段增强

ME3M显示alv里加字段增强。1.在ME包找表MEREP_OUTTAB_PURCHDOC的位置SE18:找badi增强点：ES_BADI_ME_REPORTINGSE19创建

原创 ABAP 时间戳

CALL FUNCTION ‘IB_CONVERT_INTO_TIMESTAMP’EXPORTINGI_DATLO = P_DATUM "日期I_TIMLO = P_UZEIT "时间I_TZONE = P_TZONE "时区 UTCIMPORTINGE_TIMESTAMP = P_TSTAMPS. "时戳

原创 ABAP 更新函数

CALL FUNCTION ‘ZSD_***’ IN UPDATE TASKTABLESit_header = lt_headerit_item = lt_itemit_vbpa = gs_vbpa[]. COMMIT WORK. "必须加 不然无法更新 IF sy-subrc NE 0. ROLLBACK WORK. ENDIF.调试：

原创 ABAP SAP 内存

SAP 内存例子：ME22NGET PARAMETER ID ‘BES’ FIELD gv_ebeln.

原创 ABAP 调用migo

在遇到MIGO这样的无法使用set parameter，因为有些字段是没有parameter ID。调用函数MIGO_DIALOG跳转：CALL FUNCTION ‘MIGO_DIALOG’EXPORTINGI_ACTION = ‘A04’I_REFDOC = ‘R02’I_MBLNR = MATNRI_MJAHR = ‘2021’EXCEPTIONS

原创 ABAP ACDOCA表 会计科目替代

类：CL_FINS_ACDOC_POSTING_EVENTS方法：UPDATE_CLEARING_INFO异步调用MR22物料过账冲销

原创 ABAP 销售单 采购单更新价格

DATA: lv_ebeln TYPE ebeln,lv_vbeln TYPE vbeln,lt_bapimepoitem TYPE TABLE OF bapimepoitem,ls_bapimepoitem TYPE bapimepoitem,lt_bapimepoitemx TYPE TABLE OF bapimepoitemx,ls_bapimepoitemx TYPE bapimepoitemx.LOOP AT gt_vbap INTO gs_vbap

原创 2021-10-19 SAP 创建会计凭证 BTE替代利润中心

创建会计凭证 BTE替代利润中心

原创 ABAP 消息弹窗

MESSAGE I001(00) WITH ’ 哈哈哈哈哈哈哈哈 ’ DISPLAY LIKE ‘E’.

原创 ABAP scriptform

上传LOGOBITMAP ‘LOGO’ OBJECT GRAPHICS ID BMAP TYPE BCOL

原创 ABAP 找bapi

一、1.SE93输入代码，双击包2.业务对象类型二、输入TCODE：BAPI，根据业务对象查找，根据描述找到对应bapi

原创 ABAP 打印无预览

原创 ABAP DEBUG 内存分析

ABAP DEBUG 内存分析

原创 ABAP JOB是否在正在运行

表：TBTCJCNTXT

转载 ABAP:双击跳转财务凭证明细界面

实现双击财务凭证号跳转至FB03概览界面，用户双击行项目再进入明细行。通过下面的语法可以实现。SET PARAMETER ID ‘BLN’ FIELD ‘0100000013’. " 财务凭证号SET PARAMETER ID ‘BUK’ FIELD ‘8010’. " 公司代码SET PARAMETER ID ‘GJR’ FIELD ‘2021’. " 年度CALL TRANSACTION ‘FB03’ AND SKIP FIRST SCREEN.

原创 ABAPVL02N伙伴信息维护

UPDATE VBPASET PARNR = TAB-PARNRWHERE VBELN = G_VBELN AND PARVW = ‘AP’.SELECT SINGLE ADRNR ADRNP INTO (L_ADRNR,L_ADRNP ) FROM VBPA WHERE VBELN = G_VBELN AND PARVW = ‘AP’.UPDATE ADRP SET NAME_FIRST = TAB-NAME_TEXT "TAB-NAME_TEXT+1(L_LEN)NAME_LAST =

原创 ABAP SQL直接字符中拼接

SELECT（ EBELN && EBELP ）AS EBELN, EBELN FROM EKPO INTO TABLE @DATA(IT_EKPO) UP TO 5 ROWS.CL_DEMO_OUTPUT=>DISPLAY_DATA( IT_EKPO ).

原创 ABAP 更改凭证表

CDPOS：更改凭证项目CDHDR：更改凭证抬头SELECTOBJECTCLAS "对象类OBJECTID "对象值CHANGENR "文档更改编号USERNAME "修改文档中的个人负责的用户名UDATE "创建修改文档的数据UTIME "时间已更改TCODE "从中已做修改的事务PLANCHNGNR "计划更改号码ACT_CHNGNO "修改本次修改所创建文档的数量WAS_PLANND "标志由计划的修改生成的修改CHANGE_IND

原创 ABAP 视图创建TCODE SE54赋值初始值

SE11:视图SE93:

原创 ABAP

SMOD 跟 CMOD关联表MODACT

原创 ABAP SUBMIT / CALL TRANSACTION 调用

CALL TRANSACTION用法：①标准TCODE:SET PARAMETER ID ‘VL’ FIELD TAB1-VBELN.CALL TRANSACTION ‘VL03N’ AND SKIP FIRST SCREEN.② 自开发TCODE:SET PARAMETER ID ‘A’ FIELD it_display-vbeln.SET PARAMETER ID ‘B’ FIELD ‘X’.SET PARAMETER ID ‘C’ FIELD zmailf.SET PARAMETER

原创 ABAP 域值获取

函数：DD_DOMA_GET

原创 ABAP BDC

QA11:检验批使用决策FUNCTION z_iqc_set_qa11.*"----------------------------------------------------------------------*"*"本地接口：*" IMPORTING*" VALUE(CTU) LIKE APQI-PUTACTIVE DEFAULT 'X'*" VALUE(MODE) LIKE APQI-PUTACTIVE DEFAULT 'N'*" VALUE(UPDAT

原创 ABAP 行表与列表的转换

通过ASSIGN COMPONENT 语句实现行表/列表的互相转换.ASSIGN COMPONENT 语句是动态编程的核心语句. 灵活掌握可以实现更多的复杂的功能.*&---------------------------------------------------------------------**& Report ZSU_TEST_2*&*&--------------------------------------------------------

原创 SUBSTRING 字符串前截取

SUBSTRINGDATA(LV_STR) = ‘牛逼666’.DATA(L_BEF) = SUBSTRING( VAL = LV_STRLEN = FIND( VAL = LV_STRREGEX = ‘666’ ) ).WRITE:L_BEF./ 牛逼

原创 2021-06-23 SAP 预制凭证 BAPI

查找：CODE_SCANNER事务创建：BAPI_ACC_DOCUMENT_POST 修改：预制会计凭证 BAPI PRELIMINARY_POSTING_DOC_WRITEF-65生成预制凭证 CALL FUNCTION ‘BAPI_ACC_DOCUMENT_POST’EXPORTINGDOCUMENTHEADER = WA_DOCUMENTHEADER "录入凭证头TABLESACCOUNTGL = IT_ACCOUNTGL

原创 光标定位 grid_refresh_and_keep_position

FUNCTION grid_refresh_and_keep_position.*"----------------------------------------------------------------------"“本地接口：*” IMPORTING*" REFERENCE(I_SOFT) TYPE CHAR01 DEFAULT ‘X’*" REFERENCE(I_SET_CURRENT) TYPE CHAR01 DEFAULT SPACE*" REFERENCE(I_SET_SEL

原创 BAPI_PR_CREATE

海总牛逼！！！pr用bapi创建的时候可以改自己想要的bomDATA: ls_header TYPE bapimereqheader,ls_headerx TYPE bapimereqheaderx,lt_return TYPE TABLE OF bapiret2,lt_item TYPE TABLE OF bapimereqitemimp,ls_item TYPE bapimereqitemimp,lt_itemx TYPE TABLE OF bapimereqitemx