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.
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.
No comments:
Post a Comment