hi,
i want to get the invoice date.but i got the invoice number and invoice quantity from RSEG table.
the following is my coding.
DATA BKTXT(12).
SELECT * FROM ZGATEP INTO CORRESPONDING FIELDS OF TABLE ITAB2
WHERE ZDATE IN ZDATE
AND WERKS IN WERKS
AND GTEN IN GTEN.
LOOP AT ITAB2.
CLEAR BKTXT.
MOVE ITAB2-GTEN TO BKTXT.
SHIFT BKTXT LEFT DELETING LEADING '0'.
SELECT * FROM MKPF WHERE BKTXT = BKTXT.
AND BUDAT = ITAB1-DDATE.
IF SY-SUBRC EQ '0'.
SELECT * FROM MSEG WHERE WERKS IN WERKS
AND MBLNR = MKPF-MBLNR
AND MJAHR = MKPF-MJAHR
AND LIFNR = ITAB2-LIFNR
AND SHKZG = 'S'
AND BWART = '101'.
SELECT SINGLE * FROM RSEG WHERE EBELN = ITAB2-EBELN.
SELECT SINGLE BLDAT FROM BKPF INTO ITAB2-BLDAT WHERE
GJAHR = ITAB2-GJAHR.
IF SY-SUBRC EQ '0'.
MOVE MKPF-MBLNR TO ITAB2-MBLNR.
MOVE MKPF-MJAHR TO ITAB2-MJAHR.
MOVE MKPF-XBLNR TO ITAB2-XBLNR.
MOVE RSEG-BELNR TO ITAB2-BELNR.
MOVE RSEG-BPMNG TO ITAB2-BPMNG.
MOVE BKPF-BLDAT TO ITAB2-BLDAT.
ITAB2-BUKRS = MSEG-BUKRS.
ITAB2-WERKS = MSEG-WERKS.
ITAB2-BSTMG = MSEG-BSTMG.
ITAB2-MEINS = MSEG-MEINS.
ITAB2-EBELN = MSEG-EBELN.
MODIFY ITAB2.
MOVE-CORRESPONDING ITAB2 TO ITAB.
MOVE ITAB2-GTEN TO ITAB3-GTEN.
APPEND ITAB.
APPEND ITAB3.
CLEAR ITAB.
ENDIF.
ENDSELECT.
ENDIF.
ENDIF.
ENDSELECT.
ENDSELECT.
ENDLOOP.