return to previous screen

[Former Member]

Hi all,

I am selecting some data based on plant and storage location . when the data is entered wrongly in the selection screen it should display an error message. It is displaying an error message by leaving that screen. when i press enter its not going to the previous selection screen. how can i go back to previous sel screen ..i tried with leave to screen 0. its not working . is there any way to do this. plz help me out.

Thanks,

Kishore.

[Former Member]

Are you checking the data in START-OF-SELECTION? If so, try moving it to AT SELECTION-SCREEN.

Rob

[Former Member]

Hi Kiran,

You can try :

At Selection screen.

What message type you are using? use message type 'I'.

this will give a pop-up. after closing this it will take you back to the selection screen.

Lanka

Message was edited by: Lanka Murthy

Message was edited by: Lanka Murthy

Message was edited by: Lanka Murthy

[Former Member]

im using message type i at sel screen. but if we presse enter there then it will show the information message in status bar. but if the user just eneters the values and presses F8 then its entering into start of selection and giving a list with un wanted info...

[Former Member]

Hi,

Check where UR writing the error message.

If it is after start-of-selection then U'll not get

back to the selection screen, U have to give error

messages only before start-of-selection.

Regards,

GSR.

[Former Member]

Do the validation under <b>At selection-screen</b> Event.

[Former Member]

Hi Kiran,

Do the validation in the At Selection-Screen .Write the code for example:

*Validating the Plant..

SELECT WERKS

FROM T001W UP TO 1 ROWS

INTO T001W-WERKS

WHERE WERKS = P_WERKS.

ENDSELECT.

IF SY-SUBRC <> 0 .

MESSAGE I303 WITH 'Please enter valid Plant'.

LEAVE TO SCREEN 1000.

ENDIF.

[Former Member]

not working like that ..tried like that as well..if the users r gonna run it without pressing enter at sel screen. its entering into start of selection which it shouldnt do. so i have done validation at both at sel screen and start of selection..is there any way other than this.

[Former Member]

Hi Kiran,

The code which i wrote would work for sure,if you code at AT SELECTION-SCREEN event.

Or you can try AT SELECTIN-SCREEN ON FIELD.

Put the code i gave in

IF P_WERKS IS NOT INITIAL.

.................

ENDIF.

Message was edited by: Phani Kiran Nudurupati

[Former Member]

Hi,

Even if User runs without pressing the enter the

control will come to the at selectio-screen event.

Regards,

GSR.

[Former Member]

In the start-of-selection, change the error to a warning, and then:

    submit program via selection-screen.

Where program is the name of the program.

Rob

[Former Member]

yes ur code just works when the user presses enter button after entering the values in selection screen. but if just presses execute button after filling in the values then its entering into start of selection without validating. howz it gonna be solved. so i have to use validation at both sel screen and start of sel...

[Former Member]

Thats why write it in the IF condition i gave.

[Former Member]

submit program via selection-screen is also not working rob..

phani i am writing it in if condition .. not works

[Former Member]

Hi Kiran,

Post the code & let me try it here & see.

[Former Member]

What do you mean "not working"? Are you getting an error, or some other problem?

Rob

[Former Member]

here u go boss

REPORT zwm_scrap_it1 MESSAGE-ID za NO STANDARD PAGE HEADING LINE-SIZE 132.

----

---

• Created | Author | Description *

--

---

|

---

|--

---

• 09.04.02 |Jim Goldie | Program to allow the selection of materials *

*----

---

| from storage location 1802 for blocking *

• SIR 03352MP. | prior to them being scrapped. It also *

• | creates a download spreadsheet of selected *

• | materials that can be printed off. *

********************************************

*INTERNAL TABLES

DATA: BEGIN OF i_mard OCCURS 0,

cb_1 TYPE c,

matnr LIKE mard-matnr,

maktx LIKE makt-maktx,

labst LIKE mard-labst,

unblocked(10) TYPE n,

price LIKE mbew-stprs,

value LIKE mbew-stprs,

success TYPE c,

END OF i_mard.

DATA: BEGIN OF i_makt OCCURS 0,

matnr LIKE makt-matnr,

maktx LIKE makt-maktx,

END OF i_makt.

DATA: BEGIN OF i_mbew OCCURS 0,

matnr LIKE mbew-matnr,

vprsv LIKE mbew-vprsv,

stprs LIKE mbew-stprs,

verpr LIKE mbew-verpr,

END OF i_mbew.

DATA: BEGIN OF i_lgort OCCURS 0,

lgort LIKE mard-lgort,

END OF i_lgort.

• Internal tables for the spreadsheet.

DATA: BEGIN OF i_field OCCURS 0,

field1(12) TYPE c,

field2(18) TYPE c,

field3(40) TYPE c,

field4(12) TYPE c,

field5(15) TYPE c,

END OF i_field.

DATA: i_goodsmvt_item LIKE bapi2017_gm_item_create OCCURS 0 WITH HEADER

LINE.

DATA: i_return LIKE bapiret2 OCCURS 0 WITH HEADER LINE.

*----

---

• DATA STATEMENTS

DATA: v_records TYPE p.

DATA: v_line_no TYPE p.

DATA: v_position TYPE p.

DATA: v_successes TYPE i.

DATA: v_failures TYPE i.

DATA: v_returncode TYPE c.

DATA: v_temp_labst TYPE i.

DATA: v_filename LIKE zprogparam-zvalue.

DATA: v_dl_filename TYPE string.

DATA: v_waers LIKE t001-waers.

DATA: v_bdcfail TYPE c.

*

DATA: v_filename1 TYPE string.

DATA: v_gm_code LIKE bapi2017_gm_code,

v_materialdocument LIKE bapi2017_gm_head_ret-mat_doc.

DATA: v_werks LIKE marc-werks.

*----

---

• WORK AREAS.

DATA: wa_goodsmvt_head LIKE bapi2017_gm_head_01.

*----

---

• CONSTANTS.

DATA: c_bukrs LIKE t001-bukrs VALUE '1800'.

DATA: c_xls(4) VALUE '.XLS'.

DATA: c_344(3) VALUE '344'.

DATA: c_a VALUE 'A',

c_e VALUE 'E',

c_s VALUE 'S',

c_i VALUE 'I',

c_italy(2) VALUE '18'.

*----

---

• Selection_screen.

SELECTION-SCREEN: BEGIN OF BLOCK b1 WITH FRAME TITLE text-b01.

PARAMETERS: p_werks LIKE mard-werks default '1800' OBLIGATORY,

p_lgort LIKE mard-lgort default '1800' OBLIGATORY.

SELECTION-SCREEN: END OF BLOCK b1.

*----

---

• AT SELECTION-SCREEN OUTPUT.

*----

---

AT SELECTION-SCREEN OUTPUT.

PERFORM validation.

*----

---

• START-OF-SELECTION.

*----

---

START-OF-SELECTION.

INCLUDE zbsusage.

PERFORM get_sto_locs.

PERFORM get_data.

PERFORM output.

*----

---

AT USER-COMMAND.

sy-lsind = sy-lsind - 1."Reset the no. of screens to back out of.

DESCRIBE TABLE i_mard LINES v_records.

v_line_no = 5.

v_position = 1.

• Read the lines that are printed out to see whether any are checked for

• change. Update the corresponding records in i_mard.

DO v_records TIMES.

READ LINE v_line_no.

i_mard-cb_1 = sy-lisel+1(1).

i_mard-unblocked = sy-lisel+76(14).

i_mard-value = i_mard-unblocked * i_mard-price.

MODIFY i_mard INDEX v_position.

v_line_no = v_line_no + 1.

v_position = v_position + 1.

ENDDO.

CASE sy-ucomm.

WHEN 'SELE'.

LOOP AT i_mard.

i_mard-cb_1 = 'X'.

MODIFY i_mard.

ENDLOOP.

WHEN 'DESE'.

LOOP AT i_mard.

i_mard-cb_1 = ''.

MODIFY i_mard.

ENDLOOP.

WHEN 'CHANGE'.

READ TABLE i_mard WITH KEY cb_1 = 'X'."Has anything been selected?

IF sy-subrc = 0.

PERFORM migo.

IF v_bdcfail IS INITIAL.

PERFORM spreadsheet_creation.

ELSE.

LOOP AT i_mard WHERE cb_1 = 'X'.

i_mard-success = '2'.

MODIFY i_mard.

ENDLOOP.

ENDIF.

LOOP AT i_mard WHERE cb_1 = 'X'.

i_mard-cb_1 = ' '.

MODIFY i_mard.

ENDLOOP.

ELSE.

PERFORM message_popup."No lines have been selected.

ENDIF.

ENDCASE.

PERFORM output.

IF NOT v_bdcfail IS INITIAL.

CLEAR v_bdcfail.

ENDIF.

*----

---

TOP-OF-PAGE.

WRITE:/ sy-uline(127).

WRITE:/ text-001 COLOR COL_HEADING.

WRITE:/ text-004 COLOR COL_HEADING.

WRITE:/ sy-uline(127).

*----

---

TOP-OF-PAGE DURING LINE-SELECTION.

WRITE:/ sy-uline(127).

WRITE:/ text-001 COLOR COL_HEADING.

WRITE:/ text-004 COLOR COL_HEADING.

WRITE:/ sy-uline(127).

&----

---

*& Form GET_DATA

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM get_data.

• GET the materials and quantities.

SELECT matnr werks lgort labst

FROM mard

INTO CORRESPONDING FIELDS OF TABLE i_mard

WHERE labst > '0'

AND werks = p_werks

AND lgort = p_lgort.

CHECK NOT i_mard[] IS INITIAL.

• Copy the unblocked quantities to the I/O field.

LOOP AT i_mard.

MOVE i_mard-labst TO i_mard-unblocked.

MODIFY i_mard.

ENDLOOP.

• Get their descriptions.

SELECT matnr maktx

FROM makt

INTO TABLE i_makt

FOR ALL ENTRIES IN i_mard

WHERE matnr = i_mard-matnr

AND spras = sy-langu.

SORT i_makt BY matnr.

DELETE ADJACENT DUPLICATES FROM i_makt.

LOOP AT i_mard.

READ TABLE i_makt WITH KEY matnr = i_mard-matnr BINARY SEARCH.

MOVE i_makt-maktx TO i_mard-maktx.

MODIFY i_mard.

ENDLOOP.

• Get the transfer price of the materials.

SELECT matnr vprsv stprs verpr

FROM mbew

INTO TABLE i_mbew

FOR ALL ENTRIES IN i_mard

WHERE matnr = i_mard-matnr

AND bwkey = p_werks.

SORT i_mbew BY matnr.

• and move them to i_mard.

LOOP AT i_mard.

READ TABLE i_mbew WITH KEY matnr = i_mard-matnr BINARY SEARCH.

IF i_mbew-vprsv = 'S'.

MOVE i_mbew-stprs TO i_mard-price.

ELSE.

MOVE i_mbew-verpr TO i_mard-price.

ENDIF.

i_mard-value = i_mard-labst * i_mard-price.

MODIFY i_mard.

ENDLOOP.

• Get the currency.

SELECT SINGLE waers

FROM t001

INTO v_waers

WHERE bukrs = c_bukrs.

• Get the filename to download to from ZPROGPARAM.

SELECT SINGLE zvalue

FROM zprogparam

INTO v_filename

WHERE prog_id = sy-repid

AND param_id = 'DOWNLOAD_ADDRESS'

AND sequence_no = '001'.

• Tells the user if the ZPROGPARAM entry is missing and what to do

• about it.

IF sy-subrc NE 0.

MESSAGE e556(za).

EXIT.

ENDIF.

DATA: l_len(3) TYPE n.

l_len = STRLEN( v_filename ).

l_len = l_len - 1.

IF v_filename+l_len(1) = '\'.

CONCATENATE v_filename 'BLOCKED' sy-datum sy-uzeit c_xls INTO

v_dl_filename.

ELSE.

CONCATENATE v_filename '\BLOCKED' sy-datum sy-uzeit c_xls INTO

v_dl_filename.

ENDIF.

PERFORM test_download.

ENDFORM. " GET_DATA

&----

---

*& Form OUTPUT

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM output.

SET PF-STATUS 'MAIN'." Gives menu buttons.

SORT i_mard BY matnr.

LOOP AT i_mard.

• Move the total available to a temp field to allow sub-field access.

IF NOT i_mard-labst IS INITIAL.

MOVE i_mard-labst TO v_temp_labst.

ELSE.

CLEAR v_temp_labst.

ENDIF.

IF i_mard-success IS INITIAL

OR v_returncode = 'A'.

WRITE:/

sy-vline, 2 i_mard-cb_1 AS CHECKBOX,

3 sy-vline, i_mard-matnr+8(10) COLOR COL_BACKGROUND INTENSIFIED,

sy-vline, i_mard-maktx COLOR COL_BACKGROUND INTENSIFIED,

sy-vline, v_temp_labst COLOR COL_BACKGROUND INTENSIFIED,

75 sy-vline, i_mard-unblocked INPUT DECIMALS 0 NO-ZERO

COLOR COL_BACKGROUND INTENSIFIED,

91 sy-vline, i_mard-price CURRENCY v_waers

COLOR COL_BACKGROUND INTENSIFIED,

sy-vline, i_mard-value CURRENCY v_waers

COLOR COL_BACKGROUND INTENSIFIED,

127 sy-vline.

ELSEIF i_mard-success = '1'.

v_successes = v_successes + 1.

WRITE:/

sy-vline, 2 i_mard-cb_1 AS CHECKBOX,

3 sy-vline, i_mard-matnr+8(10) COLOR COL_POSITIVE,

sy-vline, i_mard-maktx COLOR COL_POSITIVE,

sy-vline, v_temp_labst COLOR COL_POSITIVE,

75 sy-vline, i_mard-unblocked INPUT DECIMALS 0 NO-ZERO

COLOR COL_POSITIVE,

91 sy-vline, i_mard-price CURRENCY v_waers

COLOR COL_POSITIVE,

sy-vline, i_mard-value CURRENCY v_waers

COLOR COL_POSITIVE,

127 sy-vline.

ELSEIF i_mard-success = '2'.

v_failures = v_failures + 1.

WRITE:/

sy-vline, 2 i_mard-cb_1 AS CHECKBOX,

3 sy-vline, i_mard-matnr+8(10) COLOR COL_NEGATIVE,

sy-vline, i_mard-maktx COLOR COL_NEGATIVE,

sy-vline, v_temp_labst COLOR COL_NEGATIVE,

75 sy-vline, i_mard-unblocked INPUT DECIMALS 0 NO-ZERO

COLOR COL_NEGATIVE,

91 sy-vline, i_mard-price CURRENCY v_waers

COLOR COL_NEGATIVE,

sy-vline, i_mard-value CURRENCY v_waers

COLOR COL_NEGATIVE,

127 sy-vline.

ENDIF.

i_mard-success = ''. "Get rid of coloured lines.

MODIFY i_mard.

HIDE i_mard. "Makes records available later.

ENDLOOP.

WRITE:/ sy-uline(127).

SKIP.

SKIP.

IF NOT v_successes IS INITIAL.

WRITE:/ v_successes COLOR COL_POSITIVE INVERSE, text-005

COLOR COL_POSITIVE INVERSE.

ENDIF.

SKIP.

IF NOT v_failures IS INITIAL.

WRITE:/ v_failures COLOR COL_NEGATIVE INVERSE, text-006

COLOR COL_NEGATIVE INVERSE.

ENDIF.

CLEAR v_returncode.

ENDFORM. " OUTPUT

&----

---

*& Form MESSAGE_POPUP

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM message_popup.

CALL FUNCTION 'FC_POPUP_ERR_WARN_MESSAGE'

EXPORTING

is_error = 'X'

message_text = text-002

start_column = 20

start_row = 7.

ENDFORM. " MESSAGE_POPUP

&----

---

*& Form SPREADSHEET_CREATION

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM spreadsheet_creation.

DATA: zeros(18) VALUE '000000000000000000'.

MOVE text-s01 TO i_field-field1.

MOVE text-s02 TO i_field-field2.

MOVE text-s03 TO i_field-field3.

MOVE text-s04 TO i_field-field4.

MOVE text-s05 TO i_field-field5.

APPEND i_field.

LOOP AT i_mard WHERE cb_1 = 'X'.

WRITE sy-datum TO i_field-field1 DD/MM/YYYY.

SHIFT i_mard-matnr LEFT DELETING LEADING zeros.

SHIFT i_mard-matnr RIGHT DELETING TRAILING space.

MOVE i_mard-matnr TO i_field-field2.

MOVE i_mard-maktx TO i_field-field3.

SHIFT i_mard-unblocked LEFT DELETING LEADING zeros.

SHIFT i_mard-unblocked RIGHT DELETING TRAILING space.

MOVE i_mard-unblocked TO i_field-field4.

i_field-field5 = i_mard-unblocked * i_mard-price.

APPEND i_field.

ENDLOOP.

v_filename1 = v_dl_filename.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

filename = v_filename1

filetype = 'ASC'

write_field_separator = 'X'

TABLES

data_tab = i_field

EXCEPTIONS

file_write_error = 1

no_batch = 2

gui_refuse_filetransfer = 3

invalid_type = 4

no_authority = 5

unknown_error = 6

header_not_allowed = 7

separator_not_allowed = 8

filesize_not_allowed = 9

header_too_long = 10

dp_error_create = 11

dp_error_send = 12

dp_error_write = 13

unknown_dp_error = 14

access_denied = 15

dp_out_of_memory = 16

disk_full = 17

dp_timeout = 18

file_not_found = 19

dataprovider_exception = 20

control_flush_error = 21

OTHERS = 22.

IF sy-subrc = 15.

MESSAGE w000(zj).

ELSEIF sy-subrc <> 0.

MESSAGE w555(za).

ENDIF.

ENDFORM. " SPREADSHEET_CREATION

&----

---

*& Form migo

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM migo .

wa_goodsmvt_head-pstng_date = sy-datum.

wa_goodsmvt_head-header_txt = text-s08.

v_gm_code = '04'.

LOOP AT i_mard WHERE cb_1 = 'X'.

i_goodsmvt_item-move_type = c_344.

i_goodsmvt_item-plant = p_werks.

i_goodsmvt_item-stge_loc = p_lgort.

i_goodsmvt_item-material = i_mard-matnr.

i_goodsmvt_item-entry_qnt = i_mard-unblocked.

i_goodsmvt_item-entry_uom_iso = text-s09.

i_goodsmvt_item-mvt_ind = ' '.

APPEND i_goodsmvt_item.

ENDLOOP.

CALL FUNCTION 'BAPI_GOODSMVT_CREATE'

EXPORTING

goodsmvt_header = wa_goodsmvt_head

goodsmvt_code = v_gm_code

testrun = ' '

IMPORTING

materialdocument = v_materialdocument

TABLES

goodsmvt_item = i_goodsmvt_item

return = i_return.

IF NOT v_materialdocument IS INITIAL.

COMMIT WORK AND WAIT.

MESSAGE s733(za) WITH v_materialdocument.

CLEAR v_materialdocument.

• Give a nice green background to the successfully updated lines.

LOOP AT i_mard WHERE cb_1 = 'X'.

i_mard-success = '1'.

MODIFY i_mard.

ENDLOOP.

ELSE.

• Loop at i_return and pass the error messages out to the user.

MESSAGE i035(za).

LOOP AT i_return WHERE type EQ c_e

OR type EQ c_s

OR type EQ c_a.

MESSAGE ID i_return-id TYPE c_i NUMBER i_return-number

WITH i_return-message_v1

i_return-message_v2

i_return-message_v3

i_return-message_v4.

ENDLOOP.

v_bdcfail = 'X'.

ENDIF.

ENDFORM. " migo

&----

---

*& Form test_download

&----

---

• text

----

---

• --> p1 text

• <-- p2 text

----

---

FORM test_download .

DATA: return TYPE i.

DATA: v_exit TYPE c.

MOVE text-s10 TO i_field-field1.

APPEND i_field.

• Try to download to the created filename.

CALL FUNCTION 'GUI_DOWNLOAD'

EXPORTING

filename = v_dl_filename

TABLES

data_tab = i_field

EXCEPTIONS

file_write_error = 1

no_batch = 2

gui_refuse_filetransfer = 3

invalid_type = 4

no_authority = 5

unknown_error = 6

header_not_allowed = 7

separator_not_allowed = 8

filesize_not_allowed = 9

header_too_long = 10

dp_error_create = 11

dp_error_send = 12

dp_error_write = 13

unknown_dp_error = 14

access_denied = 15

dp_out_of_memory = 16

disk_full = 17

dp_timeout = 18

file_not_found = 19

dataprovider_exception = 20

control_flush_error = 21

OTHERS = 22.

IF sy-subrc <> 0.

MESSAGE i001(zj).

v_exit = 'X'.

STOP.

ELSE.

• Delete your test file.

CALL METHOD cl_gui_frontend_services=>file_delete

EXPORTING

filename = v_dl_filename

CHANGING

rc = return.

ENDIF.

CLEAR i_field.

REFRESH i_field.

ENDFORM. " test_download

&----

---

*& Form get_sto_locs

&----

---

• Getz the storage locations for particular plant.

----

---

• --> p1 text

• <-- p2 text

----

---

FORM get_sto_locs.

DATA: l_lgort LIKE mard-lgort.

SELECT SINGLE werks FROM t001w INTO v_werks

WHERE werks = p_werks.

IF v_werks IS INITIAL.

MESSAGE w870(za).

submit zwm_scrap_it1 via selection-screen.

ENDIF.

IF v_werks(2) = c_italy. " Plant is only confined to Italy(starts with 18)

SELECT lgort FROM t001l INTO TABLE i_lgort

WHERE werks = v_werks.

IF i_lgort[] IS INITIAL.

MESSAGE w869(za) WITH p_werks. " Displays E Message 'no storage location exists for specified plant'.

submit zwm_scrap_it1 via selection-screen.

call screen 0.

ENDIF.

LOOP AT i_lgort.

IF p_lgort = i_lgort-lgort.

l_lgort = p_lgort.

EXIT.

ENDIF.

ENDLOOP.

IF l_lgort <> p_lgort.

MESSAGE w202(za) WITH p_lgort p_werks. "Displays E Message 'Storage location & does not exist within plant &' .

submit sy-repid via selection-screen.

ENDIF.

ELSE.

MESSAGE w870(za). " Displays E Message 'Plant does not exist' if its not Italy.

submit sy-repid via selection-screen.

ENDIF.

ENDFORM. " get_sto_locs.

&----

---

*& Form validation

&----

---

• To validate plant and storage location in selection screen.

----

---

• --> p1 text

• <-- p2 text

----

---

FORM validation .

DATA: l_lgort LIKE mard-lgort.

SELECT SINGLE werks FROM t001w INTO v_werks

WHERE werks = p_werks.

IF v_werks IS INITIAL.

MESSAGE i870(za).

endif.

IF v_werks(2) = c_italy. " Plant is only confined to Italy(starts with 18)

SELECT lgort FROM t001l INTO TABLE i_lgort

WHERE werks = v_werks.

IF i_lgort[] IS INITIAL.

MESSAGE i869(za) WITH p_werks. " Displays I Message 'no storage location exists for specified plant'.

ENDIF.

LOOP AT i_lgort.

IF p_lgort = i_lgort-lgort.

l_lgort = p_lgort.

EXIT.

ENDIF.

ENDLOOP.

IF l_lgort <> p_lgort.

MESSAGE i202(za) WITH p_lgort p_werks. "Displays I Message 'Storage location & does not exist within plant &' .

ENDIF.

ELSE.

MESSAGE i870(za). " Displays I Message 'Plant does not exist' if its not Italy.

ENDIF.

clear v_werks.

clear i_lgort. refresh i_lgort.

ENDFORM. " validation

[Former Member]

My mistake - make it an information message:

START-OF-SELECTION.
  MESSAGE i205 WITH 'Test'.
  SUBMIT ztest VIA SELECTION-SCREEN.

Rob

[Former Member]

ill try with i rob and c how it goes

[Former Member]

great rob it works.

thank u so much.

[Former Member]

Glad to help - there may be other, better ways, but this one will at least get you going.

Rob