Report program

[Former Member]

hi all in my report i am calling a transaction...

it works good but when the transaction is called after the 1st screen when i enter into the second screen and come back

i come out of my report program?

i want that from 2nd screen i should come back to the initial screen and finally to the screen of my report program.

Does it has any connection with the parameter id?

please help

[Former Member]

Hi,

Use the below statement.

Leave to screen 0.

[abapdeveloper20]

Hi,

Use this in usercommand

CASE R_UCOMM.

WHEN 'BACK'.

LEAVE TO SCREEN 0.

[Former Member]

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