Adding Return Credit Memo

[Former Member]

Hi All,

I would like to add Return Credit Memos to processed RA’s on this report. Currently when an order is shipped, it will give the Invoice number, so on the returns side, I would like the return credit memo to appear as well. In the delivery number field 2 types of delivery numbers are coming one with 5* and other with 6*.

5’s has billing num starts with 7 (which is displaying now)

6’s has billing num blank (which have to be filled with 8 - Return Credit Memos).

VBTYP_N = 'Q' is WMS transfer order

‘M’ Invoice

‘O’ Credit memo

I want to get data for VBRP-VBELN = ‘O’ also.

I tried this, but nothing is coming.

SELECT VBELV POSNV VBELN POSNN FROM VBFA INTO TABLE

ITAB_VBFA FOR ALL ENTRIES IN ITAB_LIPS

WHERE VBELV = ITAB_LIPS-VBELN

AND POSNV = ITAB_LIPS-POSNR

AND VBTYP_N = 'M' OR VBTYP_N = 'O'.

Please help me resolve this.

Thanks

Veni.

    SELECT VBELV POSNV VBELN ERDAT FROM VBFA INTO TABLE ITAB_VBFA1
                                           FOR ALL ENTRIES IN ITAB_LIPS
                                          WHERE VBELV = ITAB_LIPS-VBELN
                                            AND POSNV = ITAB_LIPS-POSNR
                                                  AND VBTYP_N = 'Q'.

    SELECT VBELV POSNV VBELN POSNN FROM VBFA INTO TABLE ITAB_VBFA
                                           FOR ALL ENTRIES IN ITAB_LIPS
                                          WHERE VBELV = ITAB_LIPS-VBELN
                                            AND POSNV = ITAB_LIPS-POSNR
                                                AND VBTYP_N = 'M'.
    DESCRIBE TABLE ITAB_VBFA LINES LIN.
    IF LIN NE 0.
      SELECT VBELN POSNR KZWI1 NETWR FROM VBRP INTO TABLE ITAB_VBRP
                              FOR ALL ENTRIES IN ITAB_VBFA
                              WHERE VBELN = ITAB_VBFA-VBELN
                                AND POSNR = ITAB_VBFA-POSNN.
      SELECT VBELN FKDAT FROM VBRK INTO TABLE ITAB_VBRK
                              FOR ALL ENTRIES IN ITAB_VBRP
                              WHERE VBELN = ITAB_VBRP-VBELN.
      SORT ITAB_VBRK BY VBELN FKDAT.
      DELETE ADJACENT DUPLICATES FROM ITAB_VBRK.
*----------------------------------------------------------------------*
      SORT ITAB_VBFA BY VBELV POSNV.
      ULINE /(289).

      LOOP AT ITAB_LIPS.
    READ TABLE ITAB_LIKP WITH KEY VBELN = ITAB_LIPS-VBELN BINARY SEARCH.
    READ TABLE ITAB_VBAK WITH KEY VBELN = ITAB_LIPS-VBELN BINARY SEARCH.
        READ TABLE ITAB_VBFA WITH KEY VBELV = ITAB_LIPS-VBELN
                                              POSNV = ITAB_LIPS-POSNR.
        READ TABLE ITAB_VBFA1 WITH KEY VBELV = ITAB_LIPS-VBELN
                                                POSNV = ITAB_LIPS-POSNR.

        READ TABLE ITAB_KNA1 WITH KEY KUNNR = ITAB_LIKP-KUNNR.

        IF SY-SUBRC EQ 0.
          READ TABLE ITAB_VBRP WITH KEY VBELN = ITAB_VBFA-VBELN
                                        POSNR = ITAB_VBFA-POSNN.
    READ TABLE ITAB_VBRK WITH KEY VBELN = ITAB_VBRP-VBELN BINARY SEARCH.
          WRITE: /01 SY-VLINE,
                  02 ITAB_LIPS-VBELN,
		  205 ITAB_VBRP-VBELN,

[RichHeilman]

Hi, you must be careful with the OR, make sure to wrap with parenthesis.

SELECT VBELV POSNV VBELN POSNN FROM VBFA INTO TABLE 
ITAB_VBFA FOR ALL ENTRIES IN ITAB_LIPS
WHERE VBELV = ITAB_LIPS-VBELN
AND POSNV = ITAB_LIPS-POSNR
AND <b>( VBTYP_N = 'M' OR VBTYP_N = 'O' ).</b>

Regards,
Rich Heilman

[Former Member]

Thank you Rich.