ABAP INSERT数据无效

最新推荐文章于 2024-07-29 03:46:25 发布
最新推荐文章于 2024-07-29 03:46:25 发布
阅读量3.7k 收藏 3
点赞数
分类专栏： SAP ABAP
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/ot512csdn/article/details/49779893
版权


近日写了一个程序，调用系统功能修改内向交货单数量。


出现了一个诡异的问题。


INSERT ZMMT_LOG026 FROM GS_ZMMT_LOG026  插入语句，无论如何也插不进数据，找了N多方法，最后终于有了结果。



程序功能本身很简单，

1、准备数据

2、保存日志透明表  （INSERT）

3、调用系统功能FUNCTION

4、保存日志透明表 （MODIFY）


问题出现在第二步，始终无法插入数据到自己的透明表。


原来是，后面的FUNCTION影响到2步的插入语句。。。。。需要显示地申明数据库提交，就好了。


SAP的解释：


行内更新

可以将更新语句（INSERT、 UPDATE、 MODIFY、 DELETE）直接放置在 代码中。

这些是“行内 ”更新（也就是非绑定的），无需使用任何 ABAP/4 绑定技术就可以执行。

即使没有COMMIT WORK 语句，下一屏幕更改的 数据库提交 也将更新提 交给数据库 。


此行内更新方法只适用于单个屏幕事务。

通过多屏幕事务 ，如果错误发生在以后的屏幕中， 则不能反转早期屏幕提交的数据。
如果使用该方法，则不依靠屏幕更改时执行的自动提交。

SAP建议在屏幕处理之前显式地使用COMMIT WORK。



程序全文：


*&---------------------------------------------------------------------*
*& Report  ZTEST8
*&
*&---------------------------------------------------------------------*
*&
*&
*&---------------------------------------------------------------------*

REPORT ZTEST8.

TABLES ZMMT_LOG026.



DATA GT_MSEG LIKE TABLE OF MSEG WITH HEADER LINE.

DATA GV_MENGE103 LIKE MSEG-MENGE VALUE 0.
DATA GV_MENGE104 LIKE MSEG-MENGE VALUE 0.
DATA GV_MENGE_BAPI LIKE MSEG-MENGE VALUE 0.

DATA GS_ZMMT_LOG026 LIKE ZMMT_LOG026.



DATA GS_HEADER_DATA    LIKE BAPIIBDLVHDRCHG .
DATA GS_HEADER_CONTROL LIKE BAPIIBDLVHDRCTRLCHG .
DATA GT_ITEM_DATA    LIKE TABLE OF BAPIIBDLVITEMCHG WITH HEADER LINE.
DATA GT_ITEM_CONTROL LIKE TABLE OF BAPIIBDLVITEMCTRLCHG WITH HEADER LINE.
DATA RETURNSS TYPE STANDARD TABLE OF BAPIRET2 WITH HEADER LINE.







"从凭证中得到当天的内向交货单

SELECT DISTINCT MATNR VBELN_IM VBELP_IM INTO CORRESPONDING FIELDS OF TABLE GT_MSEG "带物料抓取快
  FROM MSEG
  WHERE CPUDT_MKPF = SY-DATUM
  AND BWART IN (103,104)
  AND VBELN_IM <> ''.




LOOP AT GT_MSEG.


        SELECT MENGE INTO GV_MENGE103 FROM MSEG WHERE BWART = '103' AND MATNR = GT_MSEG-MATNR AND VBELN_IM = GT_MSEG-VBELN_IM AND VBELP_IM = GT_MSEG-VBELP_IM.  "移动类型103，物料，内单号，项目
        ENDSELECT.

        SELECT MENGE INTO GV_MENGE104 FROM MSEG WHERE BWART = '104' AND MATNR = GT_MSEG-MATNR AND VBELN_IM = GT_MSEG-VBELN_IM AND VBELP_IM = GT_MSEG-VBELP_IM.  "移动类型104，物料，内单号，项目
        ENDSELECT.

        GV_MENGE_BAPI = GV_MENGE103 - GV_MENGE104.


        "装填日志前部分数据

        GS_ZMMT_LOG026-USRID = SY-UNAME. "用户名
        GS_ZMMT_LOG026-ERDAT = SY-DATUM. "日期
        GS_ZMMT_LOG026-ANUZT = SY-UZEIT. "时间

        CALL FUNCTION 'NUMBER_GET_NEXT'
            EXPORTING
              NR_RANGE_NR                   = 'A1'
              OBJECT                        = 'ZSDFM020'
           IMPORTING
              NUMBER                         = GS_ZMMT_LOG026-AUTONUMBER. "自动编号


         CALL FUNCTION 'CONVERSION_EXIT_ALPHA_OUTPUT'  "去掉前导零
           EXPORTING
             INPUT         = GS_ZMMT_LOG026-AUTONUMBER
          IMPORTING
            OUTPUT        =  GS_ZMMT_LOG026-AUTONUMBER.


     " PICK UP  ASN号码，项目，内单号码，行项目，物料，初始数量
        SELECT  VBELV POSNV VBELN POSNR   MATNR LFIMG
                                  INTO CORRESPONDING FIELDS OF GS_ZMMT_LOG026
                                  FROM LIPS
                                  WHERE VBELN = GT_MSEG-VBELN_IM
                                  AND   POSNR = GT_MSEG-VBELP_IM.
        ENDSELECT   .





            INSERT ZMMT_LOG026 FROM GS_ZMMT_LOG026. "处理前保存到日志表前部分

            COMMIT WORK. "后面BAPI影响，这里必须提交



            "使用BAPI调整内向交货单数量

            "BAPI 入口参数
            GS_HEADER_DATA-DELIV_NUMB    = GS_ZMMT_LOG026-VBELN. "内单号
            GS_HEADER_CONTROL-DELIV_NUMB = GS_ZMMT_LOG026-VBELN. "内单号


            "BAPI 入口表
            GT_ITEM_DATA-DLV_QTY        = GS_ZMMT_LOG026-MENGE_BAPI. "交货数量 ，被修改
            GT_ITEM_DATA-DLV_QTY_IMUNIT = GS_ZMMT_LOG026-MENGE_BAPI.
            GT_ITEM_DATA-DEL_QTY_FLO    = GS_ZMMT_LOG026-MENGE_BAPI.
            GT_ITEM_DATA-DLV_QTY_ST_FLO = GS_ZMMT_LOG026-MENGE_BAPI.
            GT_ITEM_DATA-FACT_UNIT_NOM = 1.   "固定1
            GT_ITEM_DATA-FACT_UNIT_DENOM = 1. "固定1
            GT_ITEM_DATA-CONV_FACT = 1.       "固定1
            GT_ITEM_DATA-DELIV_NUMB = GS_ZMMT_LOG026-VBELN. "内单号
            GT_ITEM_DATA-DELIV_ITEM = GS_ZMMT_LOG026-POSNR. "行项目
            APPEND GT_ITEM_DATA .

            GT_ITEM_CONTROL-DELIV_NUMB = GS_ZMMT_LOG026-VBELN. "内单号
            GT_ITEM_CONTROL-DELIV_ITEM = GS_ZMMT_LOG026-POSNR. "行项目
            GT_ITEM_CONTROL-CHG_DELQTY = 'X'.
            APPEND GT_ITEM_CONTROL .

            CALL FUNCTION 'BAPI_INB_DELIVERY_CHANGE'
              EXPORTING
                HEADER_DATA                = GS_HEADER_DATA
                HEADER_CONTROL             = GS_HEADER_CONTROL
                DELIVERY                   = GS_ZMMT_LOG026-VBELN "内单号
              TABLES
                ITEM_DATA                  = GT_ITEM_DATA
                ITEM_CONTROL               = GT_ITEM_CONTROL
                RETURN                     = RETURNSS .

            IF RETURNSS[] IS INITIAL.

               CALL FUNCTION 'BAPI_TRANSACTION_COMMIT' " BAPI成功提交
               EXPORTING
               WAIT = 'X'.

               GS_ZMMT_LOG026-ERPDO = 'X'.      "ERP处理标志
               GS_ZMMT_LOG026-EDATS = SY-DATUM. "ERP处理日期
               GS_ZMMT_LOG026-ETIMS = SY-UZEIT. "ERP处理时间

               MODIFY ZMMT_LOG026 FROM GS_ZMMT_LOG026. "保存日志透明表

            ELSE.

               GS_ZMMT_LOG026-ERPDO = 'X'.      "ERP处理标志
               GS_ZMMT_LOG026-EDATS = SY-DATUM. "ERP处理日期
               GS_ZMMT_LOG026-ETIMS = SY-UZEIT. "ERP处理时间



                DATA SS LIKE BAPIRET2-MESSAGE.
                DATA GV_LONG(200) TYPE C.

                  LOOP AT RETURNSS.
                      CALL FUNCTION 'MESSAGE_TEXT_BUILD'
                       EXPORTING
                         MSGID               = RETURNSS-ID
                         MSGNR               = RETURNSS-NUMBER
                         MSGV1               = RETURNSS-MESSAGE_V1
                         MSGV2               = RETURNSS-MESSAGE_V2
                         MSGV3               = RETURNSS-MESSAGE_V3
                         MSGV4               = RETURNSS-MESSAGE_V4
                       IMPORTING
                         MESSAGE_TEXT_OUTPUT = SS.
                        GV_LONG = GV_LONG && '(' && SY-TABIX && ')' &&  '[' && RETURNSS-TYPE && ']' && SS .
                  ENDLOOP.



               GS_ZMMT_LOG026-MESSAGE = GV_LONG.



               MODIFY ZMMT_LOG026 FROM GS_ZMMT_LOG026. "保存日志透明表
               COMMIT WORK.




            ENDIF.




            "对透明表LIPS，加完成标记
               UPDATE LIPS
               SET GRUND = '0006'
               WHERE VBELN = GS_ZMMT_LOG026-VBELN "内单号
               AND   POSNR = GS_ZMMT_LOG026-POSNR."行项目




              CLEAR: GS_ZMMT_LOG026,GV_MENGE_BAPI,GV_MENGE103,GV_MENGE104.
              CLEAR: GS_HEADER_DATA,GS_HEADER_CONTROL,GT_ITEM_DATA,GT_ITEM_DATA[],GT_ITEM_CONTROL,GT_ITEM_CONTROL[],RETURNSS,RETURNSS[].
              CLEAR: SS,GV_LONG.




ENDLOOP.



刘欣的博客
关注
专栏目录
SAP ABAP 新语法 INNER JOIN 内表 新特性 详解和使用心得
SAP李斌，本人承诺所有原创文章均不使用任何AI生成技术，请大家放心阅读。
11-13 1646
INNER JOIN 内表是 ABAP 7.50+ 新特性。ABAP 语言的一个大分水岭是 7.40，从 7.40 开始，SAP 对 ABAP 语言新特性的发布越来越快。这篇文章，我以 INNER JOIN 内表为例，对照 FOR ALL ENTRIES IN 详细讲解新特性，并谈谈我对 ABAP 新语法的使用心得。
SAP ABAP开发规范
u011559504的博客
02-23 871
每个SAP项目都会制定对应的开发规范以提高开发质量，同时也便于后续的运维、复用和升级工作。一个良好的开发习惯是我们每个码农应该具备的职业行为，可养成良好开发习惯的前提是你在每个项目上沉淀的一行行代码。所以每个项目都应具备全面、完善、尽可能相同的开发规范。这样对每个SAP开发从业者，每个项目，从长远来看，都有着巨大的益处。
abap进行insert lines of itab 操作时报错
Rhine_danji_ys的博客
07-30 1249
哪位abap大神解释下这个错误的原因和改法，跪谢。 *insert添加 TABLES:usr21. DATA:BEGINOFempOCCURS0, nameLIKEusr21-bname, ENDOFemp. DATA:emptab2LIKEempoccurs10withHEADERLINE. SELECTbnameASname...
insert into插入数据的时候出现不兼容的错误incompatible 不兼容，compatible
weixin_45762425的博客
08-06 483
插入数据的时候出现问题，两个不同的字段告诉你不兼容 原因是 字段的位置变化了 重新变化一下位置 重新插入
mysql insert into values 多个values
最新发布
weixin_37020437的博客
07-29 110
数据库相关学习资料：https://edu.51cto.com/video/655.htmlMySQL 插入多条记录的指南 作为一名经验丰富的开发者，我经常被问到如何使用MySQL进行批量插入操作。在这篇文章中，我将向初学者介绍如何使用INSERT INTO ... VALUES语句来插入多条记录。我们将会通过一个简单的...
SAP insert XX from table yy 不成功有可能是索引的问题
GAVIN
05-20 497
在缺料报表zpp_mu01 INSERTZPP_MAPLKFROMTABLETAB_MAPLK. 插入失败 sy-subrc = 4 需求范围界定 设计模型展示 设计思路 经查：意思是数据有重复。 方案一：表关键字加几个。经过测试不行 方案二：清理历史数据。经过测试，不行 进一步细化测试：单个物料下到不同工厂，不行。那么不是数据库组件的问题，试着查看索引 索引新增工厂和序号，并激活之后，单个物料下不同工厂可以了，多个物料下不同工厂也可以了 ...
vba range select 方法无效
张少华的专栏
06-26 1万+
vba 中在range使用select方法的时，需要先激活range所在的sheet，如果sheet没有被激活，使用range.select方法会痴线1004， 方法无效的错误。 激活sheet，可以使用Activate方法。
vba 中 “类 Range 的 Select 方法无效 ”
朱亚星的专栏
03-08 7064
<br />            '激活"模板"sheet<br />            ThisWorkbook.Worksheets(strSheetTempalteName).Activate<br />。。。。。。。。。。。<br />。。。。。。。。。<br />                 ThisWorkbook.Worksheets(strSheetTempalteName).Range("A" & intJobBeginLineNum & ":S" & intJobBeginLi
VBA运行时提示“类range的select方法无效”问题
hanqiu212的博客
10-28 2万+
Sub online()     Windows("bondCahed.xls").Activate     If ActiveSheet.FilterMode = True Then         ActiveSheet.Range("A:AH").AutoFilter Field:=21, Criteria1:=Array( _         "结清", "结清代偿", "正常")
# ABAP 1. ALV快速模板
wjc1123212438的博客
08-29 462
#1 ALV快速模板 提示： 不了解我可以点这里看看哟. 文章目录#1 ALV快速模板前言一、普通ALV二、OOALV1.引入库2.读入数据总结 前言 大部分时候，我们的需求最常见的就是开发报表 如果只是简单的报表还好，有的报表是层层嵌套屏幕，每次重头开始略有点费劲， 所以就有了快速模板，CV大法，然后再处理业务逻辑。 一、普通ALV 业务和用户只想看看数据没什么操作，5min REPORT YYTEST001. DATA : gt_ekpo TYPE TABLE OF ekpo . DA
ABAP总结之二，BDC完整版
zcywset15的专栏
07-29 1万+
BDC（batch data communication）是SAP常用的一种数据传输方法。用于一些数据量大，但是对速度又要求不高的数据传输。    在实施中，很多开发顾问都忽略了BDC的日志和出错管理。这给用户在使用中带来了很大的不便。比如：哪些数据是成功生成的，哪些是失败的？那些失败的，原因的是什么？程序问题还是数据问题？    我觉得，既然是要做一套程序，那就应该尽可能地为客户考虑，减
sap abap用户指南
01-30
- ABAP Data Types：ABAP有多种数据类型，如I（整数）、N（数值）、C（字符）、D（日期）、T（时间）等，用于定义变量。 - Programs and Modules：程序由模块组成，模块可以是主程序、子程序或函数模块。 - Flow ...
SAP Insert数据库表
weixin_45420932的博客
02-15 370
Insert的数据中有重复数据（key值相同），或插入数据与数据库表中原有数据重复（key值相同）时，insert操作会失败。
SAP ABAP写入数据库操作及数据一致注意要点
大步甩起来
04-14 2564
插入 1.insert ***(数据库表) from table t_tab(内表) ACCEPTING DUPLICATE KEYS.(自动跳过已存在相同KEY值行) 更新 1.update ***（数据库表）set field(数据库表字段) = ** where field2(数据库表字段) = * 修改 1.modify ***(数据库表) from WA(结构) [有相同KEY值就修改，没有就更新] 2.modify *(数据库表) from table t_tab. 删除 1delete fro
SAP TableControl 控制单个单元格输入
少年休闲海
02-04 5597
*屏幕中 PROCESS BEFORE OUTPUT. *&SPWIZARD: PBO FLOW LOGIC FOR TABLECONTROL 'TBL'   MODULE TBL_CHANGE_TC_ATTR. *&SPWIZARD: MODULE TBL_CHANGE_COL_ATTR.   LOOP AT   I_TAB        INTO WA_TAB        
ABAP中的异常处理 - TRY CATCH的使用实例
热门推荐
王小磊
09-29 3万+
在平时的ABAP开发中，需要捕获的异常通常为两种，一种是执行SQL，比如主键重复，INSERT语句字段类型不匹配等。还有就是RFC的通信错误，比如不能进行远程连接等。通常可以这么处理：1.数据库异常：　　DATA: lcx_error TYPE REF TO cx_root. "cx_sy_sql_error . "cx_sy_open_sql_db.　　DATA i_tab LIKE TABLE...
SAP ABAP READ TABLE读取不到数据的问题
LikZ_WM的博客
11-23 1769
如果TAB1内表是根据ZFIT001自建表定义的，而ZFIT001-ID字段长度定义为了字符串三位，那么可能由于数据导入的过程中存在‘01’后面多了一个空格，从而导致获取不到数据的情况。注意：WITH TABLE KEY 必须将所有的主键全部在语句中指定，否则会遇到syntax error “key must be completely provided”当内表排序时，定义了两个字段，但读取数据时，定义了三个字段，可能会出现找不到相关数据的情况。
insert/update操作失败原因及解决方法
Eddyx的专栏
09-19 8534
    很奇怪，asp+sql server人数在300人左右的时候，插入数据的操作有数据丢失的情况。    查了半天，数据库相关表的编号列是primary key，有identity属性，每次自动加一。代码里面显示编号是通过select max(clNum)拿出来的。这样的话，在插入数据成功之后，还需要select一把。     这里就有个漏洞，如果同时做插入动作的用户很多，对单个用户来说，插入
abap 中modify 的使用
weixin_30563319的博客
03-26 1823
1、modify table itab from wa Transporting f1 f2 ... 表示表itab中符合工作区wa 中关键字的一条数据的 f1 f2字段会被wa中对应的字段值更新。 modify用于更新和新增数据，当表中没有数据时就新增，有就修改。 2、在使用binary search 时一定要先排序，并且排序的字段要和read语句中的字段相同，否则有可能找不...
abap insert
07-27
ABAP中的INSERT语句用于将数据插入到数据库表中。根据引用\[1\]中的解释，INSERT INTO语句可以用来插入单条记录，语法如下： INSERT INTO dbtab VALUES wa. 其中，dbtab是数据库表的名称，wa是一个结构体或内表，包含要插入的数据。wa中的字段排列必须与数据库表中的字段排列一致。 另外，INSERT INTO语句还可以用来插入多条记录，可以通过FROM TABLE子句指定一个内表来插入多条数据，语法如下： INSERT dbtab FROM TABLE itab. 其中，itab是一个内表，包含要插入的多条数据。 除了INSERT INTO语句，ABAP还提供了其他的插入数据的方式。例如，可以使用INSERT dbtab语句将一个结构体或内表作为一个记录插入数据库表中，语法如下： INSERT dbtab FROM wa. 或者 INSERT (dbtabname) FROM wa. 其中，wa是一个结构体或内表，dbtab是一个与wa结构相同的数据库表。 总结起来，ABAP中的INSERT语句可以用于插入单条记录或多条记录到数据库表中，可以使用不同的语法形式来实现。 #### 引用[.reference_title] - *1* *2* [ABAP数据库操作之操作语句Insert](https://blog.csdn.net/zhongguomao/article/details/53349520)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insert_down1,239^v3^insert_chatgpt"}} ] [.reference_item] - *3* [ABAP数据库操作03-数据添加](https://blog.csdn.net/f346348157/article/details/124065795)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v91^insert_down1,239^v3^insert_chatgpt"}} ] [.reference_item] [ .reference_list ]
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包

打赏作者

刘欣的博客

你将成为第一个打赏博主的人！

¥1 ¥2 ¥4 ¥6 ¥10 ¥20
扫码支付：¥1
获取中
扫码支付

您的余额不足，请更换扫码支付或充值

打赏作者

实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值