Showing posts with label Vendor Deposit Documents. Show all posts
Showing posts with label Vendor Deposit Documents. Show all posts

Wednesday, July 16, 2014

Function Module to Get the Vendor Deposit Documents

 1 - Create the Structure as ZSP_VEND_DEPOSIT with the following fields -

LIFNR
BELNR
BUDAT
WRBTR
DMBTR
ZUONR
SGTXT

2 - Import Parameters Enter the following fields-

     I_LIFNR    TYPE    LIFNR

3 - Copy the code in Source Code -

FUNCTION ZSP_VEND_DEPOSIT.
*"----------------------------------------------------------------------
*"*"Local Interface:
*"  IMPORTING
*"     VALUE(I_LIFNR) TYPE  LIFNR
*"  TABLES
*"      ITAB STRUCTURE  ZSP_VEND_DEPOSIT
*"----------------------------------------------------------------------


DATA: IT_BSIK TYPE STANDARD TABLE OF ZSP_VEND_DEPOSIT WITH HEADER LINE.
DATA: WA_BSIK like LINE OF IT_BSIK.

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


SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_BSIK
FROM BSIK WHERE
  BUKRS = 'Your Company Code' AND
  LIFNR = I_LIFNR AND
  UMSKZ IN (Your Special GL Indicator).

SELECT * INTO CORRESPONDING FIELDS OF TABLE IT_BSAK
FROM BSAK WHERE
   BUKRS = 'Your Company Code' AND
   LIFNR = I_LIFNR AND
   UMSKZ IN (Your Special GL Indicator).

LOOP AT IT_BSIK.
APPEND WA_BSIK TO ITAB.
ENDLOOP.

LOOP AT IT_BSAK.
APPEND IT_BSAK TO ITAB.
ENDLOOP.

ENDFUNCTION.