这几天在折腾清帐的东西，找到了这个函数，跟大家共享一下。有需要的可以拿去看看。
REPORT ZZTEST001.
*REPORT ztest.
*——————————————————————–*
* INTERNAL TABLE DECLARATION
*——————————————————————–*
DATA: it_blntab TYPE TABLE OF blntab WITH HEADER LINE,
it_ftclear TYPE TABLE OF ftclear WITH HEADER LINE,
it_ftpost TYPE TABLE OF ftpost WITH HEADER LINE,
it_fttax TYPE TABLE OF fttax WITH HEADER LINE.
*——————————————————————–*
* START-OF-SELECTION
*——————————————————————–*
START-OF-SELECTION.
DEFINE populate_ftpost.
it_ftpost-stype = &1.
it_ftpost-_count= &2.
it_ftpost-fnam = &3.
it_ftpost-fval = &4.
append it_ftpost.
END-OF-DEFINITION.
DEFINE populate_ftclear.
it_ftclear-agkoa = ‘K’. ” K for vender,D for custmor, S for GL
it_ftclear-agbuk = ‘1000’. “company code
it_ftclear-selfd = ‘BELNR’.
it_ftclear-xnops = ‘X’.
it_ftclear-selvon = &1.
append it_ftclear.
END-OF-DEFINITION.
CALL FUNCTION ‘POSTING_INTERFACE_START’
EXPORTING
i_function = ‘C’
i_keep = ‘X’
i_mode = ‘N’ “A for step by step,N default,for background
EXCEPTIONS
client_incorrect = 1
function_invalid = 2
group_name_missing = 3
mode_invalid = 4
update_invalid = 5
OTHERS = 6.
populate_ftpost: ‘K’ 1 ‘BKPF-BUKRS’ ‘1000’, “Company code
‘K’ 1 ‘BKPF-BLART’ ‘KA’,
‘K’ 1 ‘BKPF-BLDAT’ ‘20121113’,
‘K’ 1 ‘BKPF-BUDAT’ ‘20121113’,
‘K’ 1 ‘BKPF-WAERS’ ‘EUR’,
‘K’ 1 ‘BKPF-XBLNR’ ‘Test’
* ,
* ‘P’ 1 ‘RF05A-NEWBS’ ’50’,
* ‘P’ 1 ‘BSEG-HKONT’ ‘0000100000’,
* ‘P’ 1 ‘BSEG-SGTXT’ ‘20100916-01’,
* ‘P’ 1 ‘BSEG-WRBTR’ ‘200’
.
populate_ftclear ‘01000000422012001’. “concatenate doc number + fiscal year + line number
populate_ftclear ‘01000000422012002’.
* populate_ftclear ‘01000000412012002’.
CALL FUNCTION ‘POSTING_INTERFACE_CLEARING’
EXPORTING
i_auglv = ‘UMBUCHNG’
i_tcode = ‘FB05’
i_sgfunct = ‘C’
IMPORTING
e_msgid = sy-msgid
e_msgno = sy-msgno
e_msgty = sy-msgty
e_msgv1 = sy-msgv1
e_msgv2 = sy-msgv2
e_msgv3 = sy-msgv3
e_msgv4 = sy-msgv4
* E_SUBRC = SY-SUBRC
TABLES
t_blntab = it_blntab
t_ftclear = it_ftclear
t_ftpost = it_ftpost
t_fttax = it_fttax
EXCEPTIONS
clearing_procedure_invalid = 1
clearing_procedure_missing = 2
table_t041a_empty = 3
transaction_code_invalid = 4
amount_format_error = 5
too_many_line_items = 6
company_code_invalid = 7
screen_not_found = 8
no_authorization = 9
OTHERS = 10.
IF sy-subrc = 0.
message ‘ok’ type ‘S’ .
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
* WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
else .
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CALL FUNCTION ‘POSTING_INTERFACE_END’
EXCEPTIONS
session_not_processable = 1
OTHERS = 2.
SAP GRC权限合规检查系统（简称AMS-R系统）是SAP ERP应用企业进行权限合规检查、违规数据抓取和IT审计的理想工具。
AMS-V SAP License 资产优化管理系统产品：是应用于SAP系统权限风险控制及注册用户账号管理为目标的SAP软件资产精益化管理方案。
SAP 日志堡垒机安全管理系统（简称AMS-L系统）是一款面向SAP ERP 系统的网络安全管理工具，提供基于SAP系统用户业务行为的常态化监管，是对SAP现有日志体系的有效增强管理。
SAP 运维管理平台系统（简称AMS-Ops）旨在确保企业SAP应用系统健康、稳定运行的基础上，持续性的改进、优化，从而满足其业务发展需要的企业级SAP系统运维管理服务。
AMS SAP 商超订单统一管理系统以商超平台订单集中管理为核心，系统支持多平台、多店铺、全渠道系统采购订单、验收单、结算单等业务单据的统一管理；商超订单统一管理系统支持与 SAP ERP 系统的无缝衔接，在SAP ERP系统中自动生成销售订单、外向交货单，核对验收单、结算单等 SD 模块业务操作，有效的简化企业商超订单管理工作流程，保证订单数据处理的统一、准确、高效，实现跨系统、组织的协同管理，提升企业营销效率。
河南赛锐信息科技有限公司（简称“赛锐信息”）是一家致力于SAP ERP系统应用的服务商，公司立足打造基于AMS产品套件的企业信息化解决方案，结合前沿技术追求最佳用户体验、企业信息化优秀解决方案和企业级产品应用的供应商。公司自主研发的AMS系列软件产品是国内首个用于SAP权限风险识别的增强系统，也是同行业用户精益化管理解决方案中最优的解决方案，作为用户管理、风险规避和信息审计的辅助工具，其有助于规范企业的管理行为，帮助建立合规的管控流程，有效提高企业IT资产投资回报率；AMS系列产品在各项技术指标上拥有完全的、独立的领先优势，可以满足市场竞争、技术许可和标准制定等方面的需要。
作者：SAP权限管理 QQ:2651000673
