ABAP BAPI_ACC_DOCUMENT_POST 中 EXTENSION1的用法

BAPI_ACC_DOCUMENT_POST 在过账会计凭证时候,经常会发现一些标准字段在参数中并没有

可以通过CMOD/SMOD增强出口--》ACBAPI01--》EXIT_SAPLACC4_001--》ZXACCU15

示例代码:

DATA: wa_extension TYPE bapiextc,it_extension TYPE STANDARD TABLE OF bapiextc.
wa_extension(3) = '005'.               "ITEMNO_ACC
wa_extension+3(11) = 'Note 487722'.    "Data, not in standard interface
APPEND wa_extension TO it_extension.传递到函数里面然后在include中这样写
READ TABLE t_accit WITH KEY posnr = extension(3).
IF sy-subrc IS INITIAL.
* Update the line item textt_accit-sgtxt = extension+3(11).MODIFY t_accit INDEX sy-tabix.
ENDIF.

另外还可以通过BTE的增强:RWBAPI01

1.FIBF--》设置--》产品--》客户的--》然后新增一条

2.复制函数 SAMPLE_INTERFACE_RWBAPI01 示例代码

(SE37-->/SAPPCE/DPC_PROCESS_EXTENSION)

3.FIBF-->设置--》处理函数模块---》客户的-》新增条目 RWBAPI01 

另外如果字段还是没找到你要的,可以在如下结构中:append structure

示例代码:

DATA: LS_EXTEND1 TYPE BAPIACEXTC.
DATA: LT_EXTEND2 TYPE STANDARD TABLE OF BAPIACEXTC.CLEAR:LS_EXTEND1.
LS_EXTEND1-FIELD1 = LV_BUZEI.
LS_EXTEND1-FIELD2 = 'KUNNR'.
LS_EXTEND1-FIELD3 = '0000001000'.
APPEND LS_EXTEND1 TO LT_EXTEND1.

FUNCTION /sappce/dpc_process_extension.
*"----------------------------------------------------------------------
*"*"Lokale Schnittstelle:
*"  TABLES
*"      IT_ACCIT STRUCTURE  ACCIT
*"      IT_ACCCR STRUCTURE  ACCCR
*"      RETURN STRUCTURE  BAPIRET2
*"      EXTENSION STRUCTURE  BAPIACEXTC
*"      IT_ACCWT STRUCTURE  ACCIT_WT
*"  CHANGING
*"     VALUE(DOCUMENT_HEADER) LIKE  ACCHD STRUCTURE  ACCHD
*"----------------------------------------------------------------------DATA ld_tabix TYPE sy-tabix.DATA ld_posnr TYPE posnr_acc.DATA ls_bapi_extension TYPE bapiacextc.DATA ls_accit    TYPE accit.DATA ls_acccr    TYPE acccr.DATA ls_accit_wt TYPE accit_wt.DATA ld_shkzg    TYPE shkzg.DATA ld_currtyp  TYPE acccr-currtyp.                       "N1282263* process extension dataLOOP AT extension INTO ls_bapi_extension.ld_posnr = ls_bapi_extension-field1.* evaluate fieldnameCASE ls_bapi_extension-field2.WHEN c_ext_document_status.
* set document StatusREAD TABLE it_accit INTO ls_accitWITH KEY posnr = ld_posnr.CHECK sy-subrc EQ 0.ld_tabix = sy-tabix.ls_accit-bstat = ls_bapi_extension-field3.
* modify document itemMODIFY it_accit FROM ls_accit INDEX ld_tabix.WHEN c_ext_wbs_element.
* set wbs elementREAD TABLE it_accit INTO ls_accitWITH KEY posnr = ld_posnr.CHECK sy-subrc EQ 0.ld_tabix = sy-tabix.ls_accit-ps_psp_pnr = ls_bapi_extension-field3.
* modify document itemMODIFY it_accit FROM ls_accit INDEX ld_tabix.WHEN c_ext_target_sp_ind.READ TABLE it_accit INTO ls_accitWITH KEY posnr = ld_posnr.CHECK sy-subrc EQ 0.ld_tabix = sy-tabix.
* set target special G/L indicatorls_accit-zumsk = ls_bapi_extension-field3.
* modify document itemMODIFY it_accit FROM ls_accit INDEX ld_tabix.WHEN c_ext_tax_code.
* set tax codeREAD TABLE it_accit INTO ls_accitWITH KEY posnr = ld_posnr.CHECK sy-subrc EQ 0.ld_tabix = sy-tabix.ls_accit-mwskz = ls_bapi_extension-field3.
* modify document itemMODIFY it_accit FROM ls_accit INDEX ld_tabix.WHEN c_ext_tax_base_amount.
* set tax base amountIF ls_bapi_extension-field4 IS INITIAL.              "N1282263ld_currtyp = '00'.                                 "N1282263ELSE.                                                "N1282263ld_currtyp = ls_bapi_extension-field4.             "N1282263ENDIF.                                               "N1282263READ TABLE it_acccr INTO ls_acccrWITH KEY posnr   = ld_posnr                     "N1282263curtp   = ld_currtyp.                  "N1282263
*            WITH KEY posnr = ld_posnr.                      "N1282263CHECK sy-subrc EQ 0.ld_tabix = sy-tabix.ls_acccr-wmwst = ls_bapi_extension-field3.
* modify document itemMODIFY it_acccr FROM ls_acccr INDEX ld_tabix.WHEN c_ext_stat_tax_amount.
* set statistic tax amountREAD TABLE it_accit INTO ls_accitWITH KEY posnr = ld_posnr.CHECK sy-subrc EQ 0.ld_tabix = sy-tabix.ls_accit-sttax = ls_bapi_extension-field3.
* modify document itemMODIFY it_accit FROM ls_accit INDEX ld_tabix.WHEN c_ext_stat_tax_amount_ccc.
* set statistic tax amount (company code currency)READ TABLE it_accit INTO ls_accitWITH KEY posnr = ld_posnr.CHECK sy-subrc EQ 0.ld_tabix = sy-tabix.ls_accit-sthtx = ls_bapi_extension-field3.
* modify document itemMODIFY it_accit FROM ls_accit INDEX ld_tabix.* set WT_KEY for CREDITOR, if creditor is subject to withholding taxWHEN c_ext_with_tax_creditor.READ TABLE it_accit INTO ls_accitWITH KEY posnr = ld_posnr.CHECK sy-subrc EQ 0.ld_tabix = sy-tabix.ls_accit-wt_key = ls_bapi_extension-field3.ls_accit-qsskz = 'XX'.
* modify document itemMODIFY it_accit FROM ls_accit INDEX ld_tabix.* set withholding taxWHEN c_ext_withholding_tax.CLEAR ls_accit_wt.ls_accit_wt-wt_key    = ls_bapi_extension-field1+0(6).ls_accit_wt-witht     = ls_bapi_extension-field1+6(2).ls_accit_wt-wt_withcd = ls_bapi_extension-field1+8(2).ld_shkzg              = ls_bapi_extension-field1+10(1).ls_accit_wt-wt_qsshb  = ls_bapi_extension-field3.ls_accit_wt-wt_qbuihb = ls_bapi_extension-field4.APPEND ls_accit_wt TO it_accwt.WHEN c_ext_activity.
* set activity for down payment requestsREAD TABLE it_accit INTO ls_accitWITH KEY posnr = ld_posnr.CHECK sy-subrc EQ 0.ld_tabix = sy-tabix.ls_accit-vorgn = ls_bapi_extension-field3.
* modify document itemMODIFY it_accit FROM ls_accit INDEX ld_tabix.*** header data *****************************************WHEN c_ext_business_transaction.
* change activity (needed for CA-JVA)document_header-glvor = ls_bapi_extension-field3.WHEN c_ext_transaction_code.
* change transaction code (needed for CA-JVA)document_header-tcode = ls_bapi_extension-field3.WHEN c_ext_invoice_reference.
* set invoice referenceREAD TABLE it_accit INTO ls_accitWITH KEY posnr = ld_posnr.CHECK sy-subrc EQ 0.ld_tabix = sy-tabix.ls_accit-rebzg = ls_bapi_extension-field3.
* modify document itemMODIFY it_accit FROM ls_accit INDEX ld_tabix.WHEN c_ext_invoice_reference_year.
* set invoice reference yearREAD TABLE it_accit INTO ls_accitWITH KEY posnr = ld_posnr.CHECK sy-subrc EQ 0.ld_tabix = sy-tabix.ls_accit-rebzj = ls_bapi_extension-field3.
* modify document itemMODIFY it_accit FROM ls_accit INDEX ld_tabix.WHEN c_ext_invoice_reference_item.
* set invoice reference itemREAD TABLE it_accit INTO ls_accitWITH KEY posnr = ld_posnr.CHECK sy-subrc EQ 0.ld_tabix = sy-tabix.ls_accit-rebzz = ls_bapi_extension-field3.
* modify document itemMODIFY it_accit FROM ls_accit INDEX ld_tabix.WHEN c_ext_sub_document_type.
* set type of subsequent documentREAD TABLE it_accit INTO ls_accitWITH KEY posnr = ld_posnr.CHECK sy-subrc EQ 0.ld_tabix = sy-tabix.ls_accit-rebzt = ls_bapi_extension-field3.
* modify document itemMODIFY it_accit FROM ls_accit INDEX ld_tabix.WHEN c_ext_invoice_reference_check.
* set invoice reference check = NOREAD TABLE it_accit INTO ls_accitWITH KEY posnr = ld_posnr.CHECK sy-subrc EQ 0.ld_tabix = sy-tabix.ls_accit-rebzg_check = ls_bapi_extension-field3.
* modify document itemMODIFY it_accit FROM ls_accit INDEX ld_tabix.WHEN c_ext_allocation.
* fill allocation for tax itemsREAD TABLE it_accit INTO ls_accitWITH KEY posnr = ld_posnr.CHECK sy-subrc EQ 0.ld_tabix = sy-tabix.ls_accit-zuonr = ls_bapi_extension-field3.
* modify document itemMODIFY it_accit FROM ls_accit INDEX ld_tabix.* insert XAUTO for tax clearing linesWHEN c_xauto.READ TABLE it_accit INTO ls_accitWITH KEY posnr = ld_posnr.CHECK sy-subrc EQ 0.ld_tabix = sy-tabix.ls_accit-xauto = ls_bapi_extension-field3.
* modify document itemMODIFY it_accit FROM ls_accit INDEX ld_tabix.** insert cash discount amount                               "#976257  "N1140971
*      when c_ext_cash_discount_amount.                      "#976257  "N1140971
*        read table it_acccr into ls_acccr                   "#976257  "N1140971
*             with key posnr = ld_posnr.                     "#976257  "N1140971
*        check sy-subrc eq 0.                                "#976257  "N1140971
*        ld_tabix = sy-tabix.                                "#976257  "N1140971
*        ls_acccr-wskto = ls_bapi_extension-field3.          "#976257  "N1140971
** modify document item                                      "#976257  "N1140971
*        modify it_acccr from ls_acccr index ld_tabix.       "#976257  "N1140971* insert posting key (requested by functionality DBM)       "#976257when c_ext_posting_key.                               "#976257read table it_accit into ls_accit                   "#976257with key posnr = ld_posnr.                     "#976257check sy-subrc eq 0.                                "#976257ld_tabix = sy-tabix.                                "#976257ls_accit-bschl = ls_bapi_extension-field3.          "#976257
* modify document item                                      "#976257modify it_accit from ls_accit index ld_tabix.       "#976257* othersWHEN OTHERS.CONTINUE.ENDCASE.ENDLOOP.ENDFUNCTION.

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.rhkb.cn/news/126361.html

如若内容造成侵权/违法违规/事实不符,请联系长河编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

OpenCV(二十一):椒盐噪声和高斯噪声的产生

目录 1.图像噪声介绍 2.椒盐噪声的产生 3.高斯噪声的产生 1.图像噪声介绍 噪声介绍 图像噪声是指在图像中存在的不期望的、随机的像素值变化,这些变化来源于多种因素。噪声可能导致图像细节模糊、失真或难以分辨。 以下是几种常见的图像噪声类型: 1…

javascritp如何判断是从刷新(重新加载)、正常打开(或链接打开)、还是从浏览器回退进入页面的

重点先下另外一个知识点: 当我们的Web站点采用主体页面的iframe导航各个子页面(浏览器地址保持不变)的情况,如果我们希望每次iframe中打开的新的子页面,也都能够像在不采用iframe的情况那样,后续能够在浏览…

Tailwind 练手项目

Tailwind 练手项目 用到的技巧 Tailwind CSS 速成 应该都提过了,我不记得这里有什么特别新的知识 整体完成图大概这样: 一个纯静态页面,没有做 JS 之类的特效,不过做了移动端适配,说实话我写到一半的时候改了不少………

易云维®医院后勤管理系统软件利用物联网智能网关帮助实现医院设备实现智能化、信息化管理

近年来,我国医院逐渐意识到医院设备信息化管理的重要性,逐步建立医院后勤管理系统软件,以提高信息化管理水平。该系统是利用数据库技术,为医院的中央空调、洁净空调、电梯、锅炉、医疗设备等建立电子档案,把设备监控、…

mysql 安全加固

PS:之前在做安全测试的时候,报告mysql有安全漏洞,于是研究了下如何修复,于是记录下来分享给大家 1.1修改mysql 存放位置 修复 1.停服务 service mysqld stop2.迁位置 2.1 新建迁移目录 mkdir /home/database2.2 迁移数据文件…

【业务功能篇96】微服务-springcloud-springboot-认证服务-登录注册功能-Auth2.0-分布式session

5.登录功能 通过最基础的登录操作来完成登录处理 登录页面处理 认证服务的处理 /*** 注册的方法* return*/PostMapping("/login")public String login(LoginVo loginVo , RedirectAttributes redirectAttributes){R r memberFeginService.login(loginVo);if(r.getC…

数据结构:线性表之-单向链表(无头)

目录 什么是单向链表 顺序表和链表的区别和联系 顺序表: 链表: 链表表示(单项)和实现 1.1 链表的概念及结构 1.2单链表(无头)的实现 所用文件 将有以下功能: 链表定义 创建新链表元素 尾插 头插 尾删 头删 查找-给一个节点的…

(二十二)大数据实战——Flume数据采集之故障转移案例实战

前言 本节内容我们完成Flume数据采集的故障转移案例,使用三台服务器,一台服务器负责采集nc数据,通过使用failover模式的Sink处理器完成监控数据的故障转移,使用Avro的方式完成flume之间采集数据的传输。整体架构如下:…

OpenCV 01(图像加载与显示)

一、机器视觉 现在说的机器视觉(Machine Vision)一般指计算机视觉(Computer Vision), 简单来说就是研究如何使机器看懂东西。就是是指用摄影机和电脑代替人眼对目标进行识别、跟踪和测量等机器视觉,并进一步做图形处理,使电脑处理成为更适合人眼观察或传…

VS编译.cu文件源文件无法打开matrix.h和mex.h问题

配置好cu和VS相关库文件后CUDA程序仍然报错:无法打开matrix.h和mex.h,解决办法: (1)这两个头文件是matlab中的,可能无法直接在VS中调用,可以通过添加外部依赖项的方法将matlab中的头文件的文件路…

1600*C. Maximum Set

解析: 尽可能的增大集合内的数,所以倍数要尽可能的小,所以让最小的数不断乘 2,即可找到最大的数量。 所以,每次计算 k log2( y / x ),这样可得出最小的 x,乘多少个 2,能…

VS Code断点调式Cesium

1.在VS Code中安装Debugger for Firefox插件 2.下载安Firefox Developer Edition 3. 创建launch.json 编辑并保存launch.json {// Use IntelliSense to learn about possible attributes.// Hover to view descriptions of existing attributes.// For more information, vis…

MJDK 如何实现压缩速率的 5 倍提升?

MJDK 是基于 OpenJDK 构建的美团 JDK 发行版。本文主要介绍 MJDK 是如何在保障 java.util.zip.* API 及压缩格式兼容性的前提下,实现压缩/解压缩速率提升 5-10 倍的效果。希望相关的经验能够帮助到更多的技术同学。 1 前言 数据压缩技术[1]因可有效降低数据存储及…

strerror函数

目录 strerror 函数介绍&#xff1a; 举例&#xff1a; 使用案例&#xff1a; 优化&#xff1a; perror&#xff1a; strerror 函数介绍&#xff1a; 函数声明&#xff1a; char * strerror ( int errnum );头 文 件&#xff1a;#include <string.h>返 回 值&a…

01_前端css编写的三种方式

前言 CSS的引入方式共有三种&#xff1a;行内样式、内部样式表、外部样式表 一、内联式引入 用法&#xff1a; 在元素上直接通过style属性进行设置css样式设置 示例&#xff1a; <h1 style"color:red;">style属性的应用</h1> <p style"font-si…

hive指定字段插入数据,包含了分区表和非分区表

1、建表 语句如下&#xff1a; CREATE EXTERNAL TABLE ods_lineitem_full (l_shipdate date,l_orderkey bigint,l_linenumber int,l_partkey int,l_suppkey int,l_quantity decimal(15, 2),l_extendedprice decimal(15, 2),l_discount de…

数据结构-第一期——数组(Python)

目录 00、前言&#xff1a; 01、一维数组 一维数组的定义和初始化 一维变长数组 一维正向遍历 一维反向遍历 一维数组的区间操作 竞赛小技巧&#xff1a;不用从a[0]开始&#xff0c;从a[1]开始 蓝桥杯真题练习1 读入一维数组 例题一 例题二​ 例题三 实战训…

每日刷题|回溯法解决全排列问题第二弹之解决字符串、字母大小排列问题

食用指南&#xff1a;本文为作者刷题中认为有必要记录的题目 前置知识&#xff1a;回溯法经典问题之全排列 ♈️今日夜电波&#xff1a;带我去找夜生活—告五人 0:49 ━━━━━━️&#x1f49f;──────── 4:59 …

安科瑞铁塔基站能耗监控解决方案

安科瑞 华楠 1 背景概述 5G发展&#xff0c;基站先行。5G基站的选址建设&#xff0c;是保证5G信号覆盖的基础&#xff0c;因此5G基站建设是5G产业布局的一部分&#xff0c;也是5G成熟的基础。 2G、3G、4G均是低频段信号传输&#xff0c;宏基站几乎能应付所有的信号覆盖。但由…

SpringMVC入门详细介绍

一. SpringMVC简介 Spring MVC是一个基于Java的实现了MVC设计模式的请求驱动类型的轻量级Web框架&#xff0c;通过把Model&#xff0c;View&#xff0c;Controller分离&#xff0c;将web层进行职责解耦&#xff0c;把复杂的web应用分成逻辑清晰的几部分&#xff0c;简化开发&a…