Skip to Content
0
Former Member
Mar 25, 2009 at 10:30 AM

invoice date

46 Views

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.