Hi
i am sending the sample code.you go through this.in this program i call va03 transaction .
*-- Declaring the structure,internal table and workarea for Kna1 table.--*
TYPES:BEGIN OF ST_KNA1,
KUNNR TYPE KUNNR,
NAME1 TYPE NAME1,
END OF ST_KNA1.
DATA:IT_KNA1 TYPE STANDARD TABLE OF ST_KNA1,
WA_KNA1 TYPE ST_KNA1.
*-- Declaring the structure,internal table and workarea for vbak table.--*
TYPES:BEGIN OF ST_VBAK,
VBELN TYPE VBELN,
ERDAT TYPE ERDAT,
NETWR TYPE NETWR,
VKORG TYPE VKORG,
KUNNR TYPE KUNNR,
END OF ST_VBAK.
DATA:IT_VBAK TYPE STANDARD TABLE OF ST_VBAK,
WA_VBAK TYPE ST_VBAK.
*-- Declaring the structure,internal table and workarea for vbap table.--*
TYPES:BEGIN OF ST_VBAP,
POSNR TYPE POSNR,
MATNR TYPE MATNR,
POSAR TYPE POSAR,
PSTYV TYPE PSTYV,
VBELN TYPE VBELN,
END OF ST_VBAP.
DATA:IT_VBAP TYPE STANDARD TABLE OF ST_VBAP,
WA_VBAP TYPE ST_VBAP.
--
Declaring Variable--
DATA:V_KNA1 TYPE KNA1,
V_FIELD(50) TYPE C,
V_VALUE1 TYPE KNA1-KUNNR ,
V_VALUE2 TYPE KNA1-KUNNR ,
V_TCODE(4) VALUE 'VA03',
WA_CUST TYPE KNA1-KUNNR.
--
Selection-Screen block--
SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
--
select options for customer number--
SELECT-OPTIONS:SO_CUST FOR V_KNA1-KUNNR OBLIGATORY.
SELECTION-SCREEN SKIP.
--
parameter for maximum hits--
PARAMETER:P_HITS(10).
SELECTION-SCREEN END OF BLOCK B1.
&----
*& Start-of-Selection Event -- To select customer no, name from kna1 table
&----
START-OF-SELECTION.
SELECT KUNNR
NAME1
FROM KNA1 UP TO P_HITS ROWS
INTO TABLE IT_KNA1
WHERE KUNNR IN SO_CUST.
IF SY-SUBRC <> 0.
MESSAGE E003(Z50886MESSAGE).
ENDIF.
SET PF-STATUS 'SALESDETAILS'.
&----
*& End Of SElection Event-- To Write the selected Field values
&----
END-OF-SELECTION.
LOOP AT IT_KNA1 INTO WA_KNA1.
WRITE:/1 SY-VLINE,
3 WA_KNA1-KUNNR,
20 SY-VLINE,
30 WA_KNA1-NAME1,
100 SY-VLINE.
ENDLOOP.
ULINE AT /1(100).
&----
*& Top-of-Page Event--To display field Headings on every page
&----
TOP-OF-PAGE.
WRITE:/50 TEXT-001.
SKIP.
ULINE AT /1(100).
WRITE:/1 SY-VLINE,
3 TEXT-002,
20 SY-VLINE,
30 TEXT-003,
100 SY-VLINE.
ULINE AT /1(100).
&----
*& At line-selection Event --To Display the Secondary List accordingly
&----
AT LINE-SELECTION.
CASE SY-LSIND.
WHEN 1.
PERFORM SALESHEADER.
WHEN 2.
PERFORM SALESITEM.
ENDCASE.
&----
*& Top-of-page during line selection--To display feild heading for
*& secondary lists on every page of the list.
&----
TOP-OF-PAGE DURING LINE-SELECTION.
CASE SY-LSIND.
WHEN 1.
WRITE:/50 TEXT-012.
WRITE:/ TEXT-002,':', V_VALUE1.
ULINE AT /1(100).
WRITE:/1 SY-VLINE,
3 TEXT-004,
25 SY-VLINE,
30 TEXT-005,
40 SY-VLINE,
45 TEXT-006,
65 SY-VLINE,
70 TEXT-007,
100 SY-VLINE.
ULINE AT /1(100).
WHEN 2.
WRITE:/50 TEXT-013.
WRITE:/ TEXT-002, ':', V_VALUE1,
/20 TEXT-004, ':', V_VALUE2.
ULINE AT /1(100).
WRITE:/1 SY-VLINE,
3 TEXT-008,
25 SY-VLINE,
30 TEXT-009,
45 SY-VLINE,
50 TEXT-010,
65 SY-VLINE,
70 TEXT-011,
100 SY-VLINE.
ULINE AT /1(100).
ENDCASE.
&----
*&At- user-command --To Set the user defined keys
&----
AT USER-COMMAND.
CASE SY-UCOMM.
WHEN 'SAHE'.
PERFORM SALESHEADER.
WHEN 'SAIT'.
PERFORM SALESITEM.
WHEN 'VA03'.
SET PARAMETER ID 'AUN' FIELD WA_VBAK-VBELN.
CALL TRANSACTION V_TCODE AND SKIP FIRST SCREEN.
ENDCASE.
&----
*& END-OF-PAGE
&----
END-OF-PAGE.
ULINE AT /1(100).
SKIP.
WRITE:/70 'PAGE NO.', SY-PAGNO.
--
Form salesheader--
FORM SALESHEADER.
SET PF-STATUS 'SALESHEADER'.
GET CURSOR FIELD V_FIELD VALUE V_VALUE1.
IF V_FIELD = 'WA_KNA1-KUNNR'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = V_VALUE1
IMPORTING
OUTPUT = V_VALUE1.
SELECT VBELN
ERDAT
NETWR
VKORG
KUNNR
FROM VBAK INTO TABLE IT_VBAK
WHERE KUNNR = V_VALUE1.
LOOP AT IT_VBAK INTO WA_VBAK.
IF SY-SUBRC <> 0.
MESSAGE E004(Z50886MESSAGE).
ENDIF.
WRITE:/1 SY-VLINE,
3 WA_VBAK-VBELN,
25 SY-VLINE,
30 WA_VBAK-ERDAT,
40 SY-VLINE,
50 WA_VBAK-NETWR CURRENCY 'INR',
65 SY-VLINE,
76 WA_VBAK-VKORG,
100 SY-VLINE.
HIDE WA_VBAK-VBELN.
ENDLOOP.
ULINE AT /1(100).
ELSE.
MESSAGE I005(Z50886MESSAGE).
ENDIF.
ENDFORM. "salesheader
--
Form SALESITEM--
FORM SALESITEM.
SET PF-STATUS ' '.
GET CURSOR FIELD V_FIELD VALUE V_VALUE2.
IF V_FIELD = 'WA_VBAK-VBELN'.
CALL FUNCTION 'CONVERSION_EXIT_ALPHA_INPUT'
EXPORTING
INPUT = V_VALUE2
IMPORTING
OUTPUT = V_VALUE2.
SELECT POSNR
MATNR
POSAR
PSTYV
VBELN
FROM VBAP INTO TABLE IT_VBAP
WHERE VBELN = V_VALUE2.
LOOP AT IT_VBAP INTO WA_VBAP.
WRITE:/1 SY-VLINE,
3 WA_VBAP-POSNR,
25 SY-VLINE,
30 WA_VBAP-MATNR,
45 SY-VLINE,
50 WA_VBAP-POSAR,
65 SY-VLINE,
70 WA_VBAP-PSTYV,
100 SY-VLINE.
ENDLOOP.
ULINE AT /1(100).
ELSE.
MESSAGE I006(Z50886MESSAGE).
ENDIF.
ENDFORM. "salesitem
Bluesky
