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.