![](https://img-blog.csdnimg.cn/20201014180756919.png?x-oss-process=image/resize,m_fixed,h_64,w_64)
客制函数 + FORM子程序
王小磊
勤恒德谦,挚爱默行。
专注于企业财务数字化领域的建设方案构建和流程设计,系统构建主要包括:全面预算管理、财务全流程共享、合并报表自动化、司库、会计电子档案、税务平台、资金管理、业财核算系统等。
展开
-
获取信息集(ZFI002)维护内容 - GS01/GS02/GS03
T-CODE:GS01/GS02/GS03程序中获取信息集:ZFI002,并将获取的值存入RANGE变量中表:setleafrange变量:lra_blart*&---------------------------------------------------------------------**& Report ZTEST*&----...原创 2019-12-12 16:20:30 · 588 阅读 · 0 评论 -
获取合并集团下阶所有合并单元
*&---------------------------------------------------------------------**& Form FRM_GET_BUNIT*&---------------------------------------------------------------------** 获取合并集...原创 2019-07-22 15:31:49 · 289 阅读 · 0 评论 -
获取工作区(work area)或内表字段信息封装子例程(CLASS:CL_ABAP_TYPEDESCR)
FORM frm_get_cols_fields TABLES pt_comp TYPE abap_compdescr_tab USING ps_cols. DATA: lcl_ref_descr TYPE REF TO cl_abap_structdescr, ls_comp TYPE abap_compde...原创 2019-07-22 10:50:09 · 776 阅读 · 0 评论 -
获取自定义内表或结构的字段信息(CLASS:CL_ABAP_TYPEDESCR)
获取内表或某个结构它的属性或者它的字段的属性,可以通过类CL_ABAP_TYPEDESCR和它的子类取得。类CL_ABAP_TYPEDESCR和子类的树状图CL_ABAP_TYPEDESCR | |--CL_ABAP_DATADESCR | | | |--CL_ABAP_ELEMDESCR | |--CL_ABAP_REFDESCR | ...原创 2018-01-22 11:28:30 · 8388 阅读 · 0 评论 -
本地文件夹存在性判断和新建WS_QUERY / GUI_CREATE_DIRECTORY
BAPI: WS_QUERYBAPI:GUI_CREATE_DIRECTORYFORM frm_check_folder USING pv_path. DATA: lv_return. CHECK pv_path IS NOT INITIAL. "检查文件夹是否存在 CALL FUNCTION 'WS_QUERY' EXPORTING fil...原创 2019-07-24 15:54:44 · 521 阅读 · 0 评论 -
通过SUBMIT方式不同程序间获取ALV数据
当前程序:ZFIR039被调程序:ZFIR038ZFIR038执行结果ZFIR039中获取ZFIR038的ALV值,程序段*********************************************************************** 获取程序ZFIR038 输出内表GT_OUT值 FIELD-SYMBOLS:<lt_dat...原创 2019-06-03 11:31:02 · 674 阅读 · 0 评论 -
SAP 凭证更改日志查询(表:cdpos cdhdr)
实例:查询SO “拒绝原因” 修改日志。 SO:2600000057CDS如下@AbapCatalog.sqlViewName: 'ZVRSD001_002'@AbapCatalog.compiler.compareFilter: true@AccessControl.authorizationCheck: #CHECK@EndUserText.label: 'SO修改系...原创 2017-09-21 16:52:30 · 6091 阅读 · 0 评论 -
<一> SAP ABAP 将数字转换成本地语言(中文、英文)大写
由于打印invoice和packing list等时需要将数量和金额转换成英文大写,所以写了段代码进行转换。利用此段代码可以将所有数字类型的值转换成英文大写。源代码如下:iftotal_amountne0.performget_num_lenusingtotal_amountchangingintegerpointleng1leng2.perform...转载 2013-09-14 10:25:14 · 3600 阅读 · 0 评论 -
通过RH_TYPE_STRUC_HELP构建搜索帮助返回多个值到屏幕select-option “部门”
HR模块中经常需要用“部门”即“组织单位”作为检索条件,要是构建一个搜索帮助,如下所示实现代码如下:"部门SELECT-OPTIONS:s_orgeh FOR pa0001-orgeh NO INTERVALS.INITIALIZATION. AT SELECTION-SCREEN ON VALUE-REQUEST FOR s_orgeh-low. PERFORM...原创 2018-12-26 15:59:37 · 801 阅读 · 0 评论 -
冲销凭证BAPI_ACC_DOCUMENT_REV_POST封装FUNCTION
FM: ZF_FI_ACC_DOC_REV_POSTFUNCTION ZF_FI_ACC_DOC_REV_POST.*"----------------------------------------------------------------------*"*"本地接口:*" IMPORTING*" REFERENCE(IV_BUKRS) TYPE BKPF-BUK...原创 2018-12-05 14:27:53 · 1866 阅读 · 0 评论 -
选择屏幕年月(yyyymm)搜索帮助
年月(yyyymm)需要如下搜索帮助SELECTION-SCREEN BEGIN OF BLOCK bk1 WITH FRAME TITLE TEXT-001.SELECT-OPTIONS:s_fpper FOR pc261-fpper OBLIGATORY.SELECTION-SCREEN END OF BLOCK bk1.INITIALIZATION.AT SELECTI...原创 2018-10-31 14:23:30 · 1098 阅读 · 0 评论 -
关联工厂和公司的对应关系表以及本位币获取
公司代码的表是T001 评估范围 T001K工厂代码 T001W第一种:你可以根据公司代码 到T001K中找到评估范围(BWKEY) 然后根据评估范围到表T001W找到工厂 ; 逆向根据工厂代码查询公司也可以。第二种:可以到输入SPRO->企业结构->分配->后勤-常规 ->给公司代码分配工厂 逆向根据工厂代码查询公司也可以。...原创 2014-07-15 01:28:01 · 3197 阅读 · 0 评论 -
根据用户ID获取对应描述
转载自:http://blog.csdn.net/qinyuezhan/article/details/42100719有时候我们知道SAP当前用户登录的ID,也就是SY-UNAME,可以取得用户中文名称,如下:***取得用户中文名称DATA: g_sheet_jsr TYPE string. "用户中文名称 DATA: L_DEPARTMENT TYPE AD_DPRTMNT...转载 2017-06-13 16:44:44 · 1882 阅读 · 0 评论 -
限制SELECT OPTION 选择值方式(屏幕事件 INITIALIZATION 中使用)
FUNCTION zs4_select_options_restrict.*"----------------------------------------------------------------------*"*"本地接口:*" IMPORTING*" REFERENCE(IV_NAME) TYPE RSRESTRICT-OBJECTNAME OPTIONAL*...原创 2018-09-28 15:04:22 · 1145 阅读 · 0 评论 -
屏幕字段搜索帮助F4IF_INT_TABLE_VALUE_REQUEST
屏幕多个字段需要通过程序客户化搜索帮助时,通过封装一个共用form,提高程序的通用性*&---------------------------------------------------------------------**& Form FRM_SEARCH_HELP*&--------------------------------------------...原创 2018-04-25 10:36:53 · 3296 阅读 · 0 评论 -
金额数值转中文大写
FUNCTION ZS4_CONVERSION_AMOUNT.*"----------------------------------------------------------------------*"*"本地接口:*" IMPORTING*" REFERENCE(INPUT) TYPE FINS_VHCUR12*" EXPORTING*" REFERE...转载 2018-09-20 11:17:21 · 1148 阅读 · 0 评论 -
输入数字列号获取EXCEL的列编号
根据输入的数字列号,转换为标准的excel列编号,比如:29对应ACFUNCTION z_num_to_excel_column.*"----------------------------------------------------------------------*"*"本地接口:*" IMPORTING*" REFERENCE(IV_NUM) TYPE I...原创 2017-07-24 16:01:12 · 5484 阅读 · 0 评论 -
拆分拼接的Excel位置,如A11拆分成A和11,即A列11行
拆分拼接的Excel位置,如A11拆分成A和11,即A列11行 *"----------------------------------------------------------------------*"*"本地接口:*" IMPORTING*" REFERENCE(IV_STRING) TYPE STRING*" EXPORTING*" REFE...原创 2017-07-25 10:38:25 · 976 阅读 · 0 评论 -
ABAP:如何等待小数秒数
转载自:http://www.cnblogs.com/eagle-dtq/p/6834154.htmlWAIT UP TO x SECONDS. 和CALL FUNCTION 'ENQUE_SLEEP'都只能支持整数的秒数(如果是非整数,则四舍五入),如果要WAIT非整数的描述,可以如下写法: DATA: t1 TYPE i, t2 TYPE i.GET RUN TI...转载 2017-09-13 14:45:17 · 6604 阅读 · 0 评论