saptopia的专栏

转载 检查系统中被激活的用户出口

report zfindactexit .tables: modsap,tfdir.data : begin of itab_exit  occurs 0,         funcname like tfdir-funcname,                  mand like tfdir-mand,                  name like modsap-name,     

原创 取得配置器配置参数的FM

CUXM_GET_CONFIGURATION

原创 生产工单修改历史的NOTES

Note 390635 - Change documents for production and process order

原创 存储更改对象的表：TCDOB

转载 动态内表实例

****************** hardcoded "old style" local type******************** This is a normal hardcoded local typeTYPES : BEGIN OF TYP_HARDCODED,      L_COUNT TYPE I,      LT_SFLIGHT TYPE SFLIGHT.TYPES : E

原创 profile和dependency维护的相关FM

CARD_CON_PROFILE_READ           读取profileCAMA_CON_PROFILE_MAINTAIN      建立profileCARD_DEPENDENCY_READ           读取dependencyCAMA_DEPENDENCY_MAINTAIN      建立dependencyCUK1_API_DEPNET_READ      

原创 跟踪事务代码检查的权限

ST01另可直接查询事务代码检查的权限 SU24

原创 物料预测计划

TABLES:marc,mard.**************************************************TYPE-POOLS truxs.DATA: xlstab TYPE truxs_t_text_data,      f_size TYPE i .**********************************************DATA: d_ref T

原创 发票校验批导

TYPE-POOLS truxs.TABLES : t001,mkpf.DATA: header TYPE bapi_incinv_create_header.DATA: return TYPE bapiret2 OCCURS 0 WITH HEADER LINE.DATA: gpp TYPE i,      flag TYPE i.DATA: xlstab TYPE truxs_t_text_d

原创 计划订单批导

TYPE-POOLS truxs.DATA: xlstab TYPE truxs_t_text_data,      f_size TYPE i .PARAMETERS: filename LIKE rlgrap-filename .DATA header TYPE bapiplaf_i1.DATA error TYPE bapireturn1.DATA:BEGIN OF itb_input OC

原创 采购订单批导

TYPE-POOLS truxs.DATA: xlstab TYPE truxs_t_text_data,      f_size TYPE i .PARAMETERS: filename LIKE rlgrap-filename ,            p_doc_ty  LIKE ekko-bsart DEFAULT YNB,            p_doc_da LIKE  bapi

原创 用户登陆后的用户出口

增强：SUSR0001示例程序：TYPE-POOLS abap .DATA name TYPE abap_bool.DATA value(100) TYPE c.IF sy-uname = USR1.  CALL METHOD cl_gui_frontend_services=>file_exist    EXPORTING      file                 = c

原创 如何窃取权限

..............................如何窃取权限..............................用户:User type用户类型(干啥用的不讲):通常的用户类型有a.dialog (就是normal user)b.communicationc.systemd.servicee.reference.通常你在使用任何T-code前一定会有权限检测的.AU

原创 计量单位的转换

CALL FUNCTION MD_CONVERT_MATERIAL_UNIT        EXPORTING          i_matnr                    = itb_out-matnr          i_in_me                    =           i_out_me                   =          i_me

原创 BDC

DATA: BEGIN OF itab OCCURS 0 ,        app_obj LIKE tse05-app_obj ,        keyword LIKE tse05-keyword ,        position LIKE tse05-position ,        line  LIKE tse05-line ,      END OF itab.DATA: BEGIN

原创 XML

INCLUDE ixml_global.TYPES: t_raw(256) TYPE x.DATA: xml_xtable        TYPE TABLE OF t_raw WITH HEADER LINE,      l_filename        TYPE string,      l_filetable       TYPE filetable,      l_filelin

原创 上传下载传输请求

TYPE-POOLS: trwbo, stms.DATA:    es_selected_request TYPE trwbo_request_header,    es_selected_task TYPE trwbo_request_header,    iv_organizer_type TYPE trwbo_calling_organizer,    is_selection TYPE t

原创 SF实例

DATA it_itab TYPE STANDARD TABLE OF ledlv_delnote WITH HEADER LINE.DATA wa LIKE LINE OF it_itab.DATA it_line TYPE STANDARD TABLE OF ledlv_hd_adr WITH HEADER LINE.START-OF-SELECTION.  PERFORM getda

原创 服务器文件列表

DATA:  BEGIN OF GS_FILE,    DIRECTORY(75) TYPE C,              " name of directory.                                       " (possibly truncated.)    NAME(75)    TYPE C,                " name of entry.

原创 简易的R/3系统用户间的点对点通讯

INCLUDE .DATA: BEGIN OF usr_tabl OCCURS 0.        INCLUDE STRUCTURE uinfo.DATA: END OF usr_tabl.DATA: l_length        TYPE i,      t_abaplist      LIKE abaplist OCCURS 0 WITH HEADER LINE.DATA: BEGIN

原创 程序字符串的搜索引擎

TABLES: d020s,        tadir,        trdir,        tuchk3,        rsrepl.TYPES:  BEGIN OF result_ln,          repname LIKE sy-repid,          dynnr   LIKE sy-dynnr,          line_no(6) TYPE n,*        

原创 ABAP OOP

******************************************************************** Global Selection Screens*******************************************************************SELECTION-SCREEN BEGIN OF: SCREEN 100 TI

原创 把本地文件作为附件发送

DATA method1 LIKE sy-ucomm.DATA g_user LIKE soudnamei1.DATA g_user_data LIKE soudatai1.DATA g_owner LIKE soud-usrnam.DATA g_receipients LIKE soos1 OCCURS 0 WITH HEADER LINE.DATA g_document LIKE sood4

原创 IDOC读取

DATA: idoc_control LIKE edidc,      number_of_data_records LIKE sy-dbcnt,      number_of_status_records LIKE sy-dbcnt,      int_edids LIKE edids OCCURS 0 WITH HEADER LINE,      int_edidd LIKE edidd OC

原创 IDOC创建

DATA: g_idoc_ctl LIKE edidc,      g_e1maram LIKE e1maram,      g_e1maktm LIKE e1maktm.DATA: gi_ret_ctl LIKE edidc OCCURS 0,      gi_idoc_data LIKE edidd OCCURS 0 WITH HEADER LINE.* BUILD IDOC_CTL RE

原创 FTP链接

TYPE-POOLS truxs.DATA: BEGIN OF btab OCCURS 10 ,        date TYPE d ,        cdc(10) TYPE c,        mat LIKE mard-matnr ,        dj(3) TYPE c ,        xx TYPE i ,      END OF btab .DATA: BEGIN OF ct

原创 根据事务代码寻找用户出口

TABLES : tstc,     "SAP Transaction Codes(SAP 事务代码)         tadir,    "Directory of Repository Objects(资源库对象的目录)         modsapt,  "SAP Enhancements - Short Texts(SAP增强-短文件)         modact,   "Modific

原创 用ABAP控制EXCEL的应用

* Marc Hoffmann HSE Consulting LLC, OrionFoodSystems LLC* Written on 46B in 2003** P_EXVIS Excel visible* P_WORKBK Number of workbooks to create* P_WSHEET Number of sheets per workbook*PARAMETERS: p_f

原创 动态内表

DATA: d_ref TYPE REF TO data,      d_ref2 TYPE REF TO data ,      i_alv_cat TYPE TABLE OF lvc_s_fcat,      ls_alv_cat LIKE LINE OF i_alv_cat.TYPES tabname LIKE dcobjdef-name .PARAMETER: p_tablen T

原创 DOI技术

TYPE-POOLS: SLIS,VRM, SBDST, SOI.TABLES: LIKP, KNA1,LIPS,VBAP,MARA,KONV.DATA: GD_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.DATA: SLA TYPE SLIS_LAYOUT_ALV ,      IVARIANT LIKE DISVARIANT,      I_REPID LIKE

原创 下拉框的实例程序

 TYPE-POOLS: VRM.DATA: IT_VAL TYPE VRM_VALUES,      W_LINE LIKE LINE OF IT_VAL.PARAMETERS P_BUKRS LIKE T001-BUKRS AS LISTBOX VISIBLE LENGTH 25 OBLIGATORY.INITIALIZATION.  SELECT BUKRS BUTXT FROM T00

原创 把模板文件上传到服务器

REPORT yup MESSAGE-ID SB.DATA: fname TYPE rlgrap-filename,      ftype TYPE rlgrap-filetype,      fsize TYPE i.data: fname_p type string,      fname_n type string.data: sfname_p type string .data: sf

原创 服务器文件管理程序

此程序用于管理服务器上的文件，程序中定义了一些okcode命令，可以通过新增GUI状态来调用，也可以直接在TCODE命令框里输入命令直接调用。清单如下：CREA       UTDL       COPY       UTUL       RENA       DELE       STRT     EXT    创建       下载       复制          上传      

原创 怎样查询TCODE的节点路径。

在命令栏里输入：Search_SAP_Menu。搞定。

原创 返修的处理方法

背景： 在仓储的时候有可能造成成品的损坏，此部分成品需要到生产车间进行返修。处理的难点在于，成品有可能已经出售给客户，有可能还是在车间的成品仓库中，产权的归属不定。方案：1 建立内部订单（ko01），将维修使用的物料投料到内部订单上，将机时工时汇报给财务，并计算入内部订单，归集费用。此方案适用于成品已出售给客户的情形。2  重新维护产品的BOM和工艺路线等信息，将返修的任务下达

原创 选择屏幕元素的动态显示

TABLES:sscrfields.DATA ucm LIKE sy-ucomm.DATA ucm_sta LIKE sy-ucomm.PARAMETERS field1(15) TYPE c  MODIF ID m1.PARAMETERS field2(15) TYPE c  MODIF ID m2.SELECTION-SCREEN PUSHBUTTON /1(49) button1 USE

原创 通过TCODE查找用户增强的示例程序

TABLES : tstc,     "SAP Transaction Codes(SAP 事务代码)         tadir,    "Directory of Repository Objects(资源库对象的目录)         modsapt,  "SAP Enhancements - Short Texts(SAP增强-短文件)         modact,   "Modific

转载 用ABAP实现将金额转换为大写

TYPES: CUR6  TYPE P DECIMALS 6 ,       CUR2  TYPE P DECIMALS 2 .DATA VA1 TYPE CUR2.DATA STR(40) TYPE C .VA1 = 232.23.PERFORM CONV_AMOUNT USING VA1                    CHANGING STR.WRITE STR.*&-

原创 怎样在选择屏幕中添加LISTBOX

TYPE-POOLS: vrm.DATA: itb_list TYPE vrm_values.DATA: wa LIKE LINE OF itb_list.PARAMETERS: listbox LIKE mara-matnr AS LISTBOX VISIBLE LENGTH 20.INITIALIZATION.  wa-key = 01.  wa-text = 文本1.  APPE

原创 ABAP中控制程序源码

如何将report程序的源码读入内表，并进行修改操作?ABAP中提供一系列指令来实现此功能。语法如下：INSERT REPORT prog FROM itab.    根据内表内容更新程序READ REPORT prog INTO itab.        将程序读入内表DELETE REPORT prog.                           删除程序 示例程