topic Re: report-selection scree in Application Development and Automation Discussions

report-selection scree

Former Member — Fri, 08 Jun 2007 10:15:11 GMT

Hi,

Iam developing a reprot and the requirement is like his.

Bukrs (select option)- if it is blank, than only i have to select

VKORG(select option) -, other wise i should not allow to enter in VKORG.

Please any one help.

Thanks,

Donald

Re: report-selection scree

Former Member — Fri, 08 Jun 2007 10:18:55 GMT

Hi,

try this code

at selection screen

if bukrs is not initial.

loop at screen.

CASE SCREEN-NAME.

WHEN 'vkorg'.

SCREEN-INPUT = 0. " will not allow to enter the value fof vkorg

if the bukrs value is space.

MODIFY SCREEN.

endloop.

reward points if helpful

regards,

venkatesh

endif.

Re: report-selection scree

Former Member — Fri, 08 Jun 2007 10:19:18 GMT

at selection-screen.

if bukrs is initial and vkorg is initial.

message 'Error' type 'E'.

elseif not ( bukrs is initial and vkorg is initial ).

message 'Error1' type 'E'.

endif.

regards

shiba dutta

Re: report-selection scree

Former Member — Fri, 08 Jun 2007 10:19:36 GMT

Hi,

Check the code below and modify :

Selection Screen for Input Interface

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

PARAMETERS: pa_file TYPE rlgrap-filename MODIF ID abc,

pa_lifnr TYPE lfa1-lifnr MODIF ID abc,

pa_vkorg TYPE vbak-vkorg MODIF ID abc.

SELECTION-SCREEN END OF BLOCK b1.

Selection Screen for Reprocessing

SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.

PARAMETERS: pa_kunnr TYPE vbak-kunnr MODIF ID def.

SELECT-OPTIONS: s_lifnr FOR gs_lfa1-lifnr MODIF ID def,

s_date FOR gs_lfa1-erdat MODIF ID def,

s_augru FOR gs_vbak-augru MODIF ID def,

s_vbeln FOR gs_vbak-vbeln MODIF ID def.

SELECTION-SCREEN END OF BLOCK b2.

Selection screen for Processing Options

SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: pa_upd RADIOBUTTON GROUP g1 USER-COMMAND uc01 DEFAULT 'X'."#EC *

SELECTION-SCREEN COMMENT 3(60) text-004 FOR FIELD pa_upd.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN BEGIN OF LINE.

PARAMETERS: pa_rep RADIOBUTTON GROUP g1 ."#EC *

SELECTION-SCREEN COMMENT 3(60) text-005 FOR FIELD pa_rep.

SELECTION-SCREEN END OF LINE.

SELECTION-SCREEN END OF BLOCK b3.

form screen_ouput .

For Upload & processing

IF pa_rep EQ gc_x.

LOOP AT SCREEN.

IF screen-group1 = gc_abc.

screen-input = gc_zero_num.

ELSEIF screen-group1 = gc_def.

screen-active = gc_one_num.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ELSEIF pa_upd EQ gc_x.

*For Reprocessing

LOOP AT SCREEN.

IF screen-group1 = gc_def.

screen-input = gc_zero_num.

ELSEIF screen-group1 = gc_abc.

screen-active = gc_one_num.

ENDIF.

MODIFY SCREEN.

CLEAR pa_upd.

ENDLOOP.

ENDIF.

endform. " screen_ouput

regards

Kannaiah

Re: report-selection scree

former_member188827 — Fri, 08 Jun 2007 10:25:29 GMT

TRY DIS

TABLES VBRK.

SELECT-OPTIONS BUKRS FOR VBRK-BUKRS.

SELECT-OPTIONS VKORG FOR VBRK-VKORG.

IF BUKRS IS INITIAL.

IF VKORG IS INITIAL.

MESSAGE 'ENTER VALUE FOR SALES ORG' TYPE 'E'.

ENDIF.

U CA FURTHER IMPROVE DIS CODE BY CREATIG GUI STATUS WHICH 'LL HELP U TO RETURN TO INITIAL SCREE WHE ERROR OCCURS...

RGDS

PLZ REWARD POINTS IF IT HELPS..

Re: report-selection scree

Former Member — Fri, 08 Jun 2007 10:29:50 GMT

Hi,

at selection-screen output.

loop at screen.

if screen-s_bukrs is not initial.

screen-s_vkorg = 'NO-INPUT'.

endif.

regards,

Ruchika