订单项出现问题(表格控件)

2020-08-17 21:11发布

点击此处---> 群内免费提供SAP练习系统(在群公告中)加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)您好,我目前停留在订单项插入中。...

         点击此处--->   EasySAP.com群内免费提供SAP练习系统(在群公告中)

加入QQ群:457200227(SAP S4 HANA技术交流) 群内免费提供SAP练习系统(在群公告中)


您好,我目前停留在订单项插入中。 保存后,不会保存订单项

我使用以下select语句获取订单项。 从数据库表创建标题和订单项时没有问题。 当我尝试为插入保存更改(功能代码:sve)时,发生了问题。 如果我的选择语句有问题,请纠正我

模块FETCH_DATA输出。

   从ZEKKO_03中选择EBELN LIFNR EKORG EKGRP BUKRS WAERS ZTERM ZDESC
 表GT_ZEKKO的对应字段
 EBELN在哪里= GWA_ZEKKO-EBELN。

   从ZEKKO_03中选择单个埃伯恩·莱弗特·埃科格·埃格普·布克尔·华兹·泽特斯
     GWA_ZEKKO的对应字段
     EBELN在哪里= GWA_ZEKKO-EBELN。

   将表GT_ZEKKO读入GWA_ZEKKO INDEX SY-TABIX。


   选择EBELP MATNR WERKS LGORT MENGE MEINS
     ZEKPO_03中表GT_ZEKPO的对应字段
      EBELN在哪里= GWA_ZEKKO-EBELN。

     将gwa_zekpo移动到zekpo_03。
 

这是我使用的插入物。 我试图用where子句或索引

-current_line寻找insert ,似乎没有这样的语句(如果存在,请纠正我)。

" SVE"时。

       通话功能" CONVERSION_EXIT_ALPHA_INPUT"
         出口
           输入= GWA_ZEKKO-EBELN
         输入
           输出= GWA_ZEKKO-EBELN。

       IF GV_CREATE EQ'X'。

         从GWA_ZEKKO插入ZEKKO_03。


         读取表gt_zekpo索引tc_zekpo-current_line INTO gwa_zekpo。
         插入INTO zekpo_03值gwa_zekpo。

         通话功能" NUMBER_GET_NEXT"
           出口
             NR_RANGE_NR = GV_RANGE
             OBJECT ='ZEBELN_03'
           输入
             NUMBER = GWA_ZEKKO-EBELN。

       万一。

       如果SY-SUBRC = 0。
         提交工作。
         消息"条目已创建" TYPE" S"。
       其他。
         消息"创建条目失败",类型为" E"。

       万一。

       IF GV_EDIT EQ'X'。

         更新ZEKKO_03 SET
        EKGRP = GWA_ZEKKO-EKGRP
        EKORG = GWA_ZEKKO-EKORG
        BUKRS = GWA_ZEKKO-BUKRS
        LIFNR = GWA_ZEKKO-LIFNR
        WAERS = GWA_ZEKKO-WAERS
        ZTERM = GWA_ZEKKO-ZTERM
        ZDESC = GWA_ZEKKO-ZDESC
        EBELN在哪里= GWA_ZEKKO-EBELN。


         更新ZEKPO_03设置
        玉宝= GWA_ZEKPO-玉宝
        MATNR = GWA_ZEKPO-MATNR
        WERKS = GWA_ZEKPO-WERKS
        LGORT = GWA_ZEKPO-LGORT
        MENGE = GWA_ZEKPO-MENGE
        MEINS = GWA_ZEKPO-MEINS
        EBELN在哪里= GWA_ZEKKO-EBELN。
         提交工作。

       万一。

   结束。

   清除GT_ZEKKO。
   清除GT_ZEKPO。

 ENDMODULE。

(18.5 kB)
9条回答
xfwsx85
2020-08-17 22:03

我实际上是这样做的,这有意义吗,小写字母是我添加的

1。 将数据从Itab移至tbl控件

表:zekko_03,zekpo_03。

 模块FETCH_DATA输出。
   从ZEKKO_03中选择EBELN LIFNR EKORG EKGRP BUKRS WAERS ZTERM ZDESC
 表GT_ZEKKO的对应字段
 EBELN在哪里= GWA_ZEKKO-EBELN。

   从ZEKKO_03中选择单个埃伯恩·莱弗特·埃科格·埃格普·布克尔·华兹·泽特斯
     GWA_ZEKKO的对应字段
     EBELN在哪里= GWA_ZEKKO-EBELN。

   将表GT_ZEKKO读入GWA_ZEKKO INDEX SY-TABIX。

   选择EBELP MATNR WERKS LGORT MENGE MEINS
     ZEKPO_03中表GT_ZEKPO的对应字段
      EBELN在哪里= GWA_ZEKKO-EBELN。

   读取表gt_zekpo INTO gwa_zekpo索引sy-tabix。
 如果sy-subrc = 0。
     zekpo_03-ebelp = gt_zekpo-ebelp。
     zekpo_03-matnr = gt_zekpo-matnr。
     zekpo_03-werks = gt_zekpo-werks。
     zekpo_03-lgort = gt_zekpo-lgort。
     zekpo_03-menge = gt_zekpo-menge。
     zekpo_03-meins = gt_zekpo-meins。
 万一。

 结束模块。

2。 将数据从表控件移至Itab

" SVE"时。

       IF GV_CREATE EQ'X'。

         通话功能" CONVERSION_EXIT_ALPHA_INPUT"
           出口
             输入= GWA_ZEKKO-EBELN
           输入
             输出= GWA_ZEKKO-EBELN。

         从GWA_ZEKKO插入ZEKKO_03。

         通话功能" NUMBER_GET_NEXT"
           出口
             NR_RANGE_NR = GV_RANGE
             OBJECT ='ZEBELN_03'
           输入
             NUMBER = GWA_ZEKKO-EBELN。
         万一。


     gt_zekpo-ebelp = zekpo_03-ebelp。
     gt_zekpo-matnr = zekpo_03-matnr。
     gt_zekpo-werks = zekpo_03-werks。
     gt_zekpo-lgort = zekpo_03-lgort。
     gt_zekpo-menge = zekpo_03-menge。
     gt_zekpo-meins = zekpo_03-meins。
    
     在gt_zekpo INTO gwa_zekpo中循环。
      
       GWA_ZEKPO-EBELN = GWA_ZEKKO-EBELN。
     从gwa_zekpo索引sy-tabix修改gt_zekpo。

     结束循环。
    
     从表gt_zekpo修改zekpo_03。
    
     zekpo_03-ebelp = gwa_zekpo-ebelp。
     zekpo_03-matnr = gwa_zekpo-matnr。
     zekpo_03-werks = gwa_zekpo-werks。
     zekpo_03-lgort = gwa_zekpo-lgort。
     zekpo_03-menge = gwa_zekpo-menge。
     zekpo_03-meins = gwa_zekpo-meins。

3。 插入语句。 如果表控件中不存在数据,则插入

如果SY-SUBRC = 0。
         提交工作。  <<<<<此部分用于标题(正在显示数据)
         消息"条目已创建" TYPE" S"。
       ELSEIF sy-subrc ne 0。
          插入zekpo_03。  <<<<<如果tbl ctrl中不存在数据,请插入
         提交工作。
       其他。
         消息"创建条目失败",类型为" E"。
       ENDIF。

对不起,我完全被卡住了。

一周热门 更多>

向帮助了您的知道网友说句感谢的话吧!