Vendor Payment Document Posting Date Wise

1- Create Structure ZSP_VEND_PAYMENT by T-Code SE11.

Enter the field –

LIFNR

BELNR

BUDAT

GJAHR

WRBTR

ZUONR

SGTXT

EBELN



2- In Import Parameters

I_LIFNR          TYPE   LIFNR

I_FROM_BUDAT       TYPE   BUDAT

I_TO_BUDAT TYPE   BUDAT



3- Enter in the Source Code –

FUNCTION ZSP_VEND_PAYMENT.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(I_LIFNR) TYPE  LIFNR
*"     VALUE(I_FROM_BUDAT) TYPE  BUDAT
*"     VALUE(I_TO_BUDAT) TYPE  BUDAT
*"  TABLES
*"      ITAB STRUCTURE  ZSP_VEND_PAYMENT
*"----------------------------------------------------------------------

DATA: IT_BSAK TYPE STANDARD TABLE OF ZSP_VEND_PAYMENT WITH HEADER LINE.
DATA: WA_BSAK like LINE OF IT_BSAK.

DATA: IT_BSAS TYPE STANDARD TABLE OF ZSP_VEND_PAYMENT WITH HEADER LINE.
DATA: WA_BSAS like LINE OF IT_BSAS.

SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_BSAK
FROM BSAK WHERE
   BUKRS = ' Your Company Code ' AND
   LIFNR = I_LIFNR AND
   BLART IN (Your Document Type) AND
   ( BUDAT BETWEEN I_FROM_BUDAT AND I_TO_BUDAT ).

LOOP AT IT_BSAK INTO WA_BSAK.
  SELECT * INTO CORRESPONDING FIELDS OF WA_BSAS
    FROM BSAS WHERE
    BUKRS = 'Your Company Code' AND
    BELNR = WA_BSAK-BELNR AND
    ( BUDAT BETWEEN I_FROM_BUDAT AND I_TO_BUDAT ).
  ENDSELECT.
  APPEND WA_BSAS TO IT_BSAS.
ENDLOOP.

LOOP AT IT_BSAS INTO WA_BSAS.
  WA_BSAS-LIFNR = I_LIFNR.
  APPEND WA_BSAS TO ITAB.
ENDLOOP.

DELETE ADJACENT DUPLICATES FROM ITAB.

ENDFUNCTION.