Skip to Content
-1
A S
May 26, 2020 at 05:10 PM

Issue with line item (table control)

143 Views Last edit May 26, 2020 at 05:26 PM 2 rev

Hi, im currently stuck at line item insert. Upon saving, it is not saving the line item

Im using following select statement to get line item. No issue when i created header and line item from database table. The issue occured when i tried to do save changes (function code: sve) for the insert. Correct me if theres something wrong with my select statement

MODULE FETCH_DATA OUTPUT.

  SELECT EBELN LIFNR EKORG EKGRP BUKRS WAERS ZTERM ZDESC FROM ZEKKO_03
INTO CORRESPONDING FIELDS OF TABLE GT_ZEKKO
WHERE EBELN = GWA_ZEKKO-EBELN.

  SELECT SINGLE EBELN LIFNR EKORG EKGRP BUKRS WAERS ZTERM ZDESC FROM ZEKKO_03
    INTO CORRESPONDING FIELDS OF GWA_ZEKKO
    WHERE EBELN = GWA_ZEKKO-EBELN.

  READ TABLE GT_ZEKKO INTO GWA_ZEKKO INDEX SY-TABIX.


  SELECT EBELP MATNR WERKS LGORT MENGE MEINS
    INTO CORRESPONDING FIELDS OF TABLE GT_ZEKPO FROM ZEKPO_03
     WHERE EBELN = GWA_ZEKKO-EBELN.

    MOVE-CORRESPONDING gwa_zekpo TO zekpo_03.

This is the insert i used. Im trying to look for insert <dbtab> with where clause or with index <table control>-current_line seems like theres no such statement (correct me if they exist).

 WHEN 'SVE'.

      CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
        EXPORTING
          INPUT  = GWA_ZEKKO-EBELN
        IMPORTING
          OUTPUT = GWA_ZEKKO-EBELN.

      IF GV_CREATE EQ 'X'.

        INSERT ZEKKO_03 FROM GWA_ZEKKO .


        READ TABLE gt_zekpo INDEX tc_zekpo-current_line INTO gwa_zekpo.
        insert INTO zekpo_03 VALUES gwa_zekpo .            

        CALL FUNCTION 'NUMBER_GET_NEXT'
          EXPORTING
            NR_RANGE_NR = GV_RANGE
            OBJECT      = 'ZEBELN_03'
          IMPORTING
            NUMBER      = GWA_ZEKKO-EBELN.     

      ENDIF.

      IF SY-SUBRC = 0.
        COMMIT WORK.
        MESSAGE 'Entry created' TYPE 'S'.
      ELSE.
        MESSAGE 'Create entry failed' TYPE 'E'.

      ENDIF.

      IF GV_EDIT EQ 'X' .

        UPDATE 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
       WHERE EBELN = GWA_ZEKKO-EBELN.


        UPDATE ZEKPO_03 SET
       EBELP = GWA_ZEKPO-EBELP
       MATNR = GWA_ZEKPO-MATNR
       WERKS = GWA_ZEKPO-WERKS
       LGORT = GWA_ZEKPO-LGORT
       MENGE = GWA_ZEKPO-MENGE
       MEINS = GWA_ZEKPO-MEINS
       WHERE EBELN = GWA_ZEKKO-EBELN.
        COMMIT WORK.

      ENDIF.

  ENDCASE.

  CLEAR GT_ZEKKO.
  CLEAR GT_ZEKPO.

ENDMODULE.