Screen doesn't display any data.

Former Member — Thu, 15 Feb 2007 13:47:11 GMT

Hi experts,

In the program there are two screen. In the first screen-Screen5000- there are four buttons and when user pushes these buttons the second screen-Screen250- displays. But problem starts here. Second secreen does not show any data from the itab.

Code:

INCLUDE ZFC_PROJE1TOP . " global Data

INCLUDE ZFC_PROJE1PBO . " PBO-Modules

INCLUDE ZFC_PROJE1PAI . " PAI-Modules

INCLUDE ZFC_PROJE1FRM . " FORM-Routines

PROGRAM ZFC_PROJE1.

TABLES : ZFC_CDTP_MESLEK, ZFC_CDTP_MUSTERI.

DATA : ITAB LIKE ZFC_CDTP_MUSTERI OCCURS 0 WITH HEADER LINE.

DATA : ITAB2 LIKE ZFC_CDTP_MESLEK.

DATA : BEGIN OF ITAB3 OCCURS 10,

MUSKD LIKE ZFC_CDTP_MUSTERI-MUSKD,

END OF ITAB3.

DATA : SUREC(1).

DATA : ISLEM TYPE I.

START-OF-SELECTION.

SELECT * FROM ZFC_CDTP_MUSTERI INTO TABLE ITAB.

CALL SCREEN 5000.

END-OF-SELECTION.

&----

*& Include ZFC_PROJE1PBO

&----

*& Module STATUS_5000 OUTPUT

&----

text

----

MODULE STATUS_5000 OUTPUT.

SET PF-STATUS 'GUI'.

SET TITLEBAR 'BASLIK'.

LOOP AT SCREEN.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDLOOP.

ENDMODULE. " STATUS_5000 OUTPUT

&----

*& Module STATUS_0250 OUTPUT

&----

text

----

MODULE STATUS_0250 OUTPUT.

SET PF-STATUS 'GUI2'.

SET TITLEBAR 'BASLIK2'.

IF SUREC EQ 'S'.

LOOP AT SCREEN.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ENDLOOP.

ELSEIF SUREC EQ 'U'.

LOOP AT SCREEN.

IF SCREEN-NAME EQ 'ITAB-MUSKD'.

SCREEN-INPUT = 0.

MODIFY SCREEN.

ELSE.

SCREEN-INPUT = 1.

ENDIF.

MODIFY SCREEN.

ENDLOOP.

ELSEIF SUREC EQ 'N'.

LOOP AT SCREEN.

SCREEN-INPUT = 1.

MODIFY SCREEN.

ENDLOOP.

ENDIF.

ENDMODULE. " STATUS_0250 OUTPUT

&----

*& Include ZFC_PROJE1PAI

&----

*& Module USER_COMMAND_5000 INPUT

&----

text

----

MODULE USER_COMMAND_5000 INPUT.

CASE SY-UCOMM.

WHEN 'YENI'. PERFORM YENI.

WHEN 'DEGISTIR'. PERFORM DEGISTIR.

WHEN 'GORUNTULE'. PERFORM GORUNTULE.

WHEN 'SIL'. PERFORM SIL.

ENDCASE.

ENDMODULE. " USER_COMMAND_5000 INPUT

&----

*& Module USER_COMMAND_0250 INPUT

&----

text

----

MODULE USER_COMMAND_0250 INPUT.

CASE SY-UCOMM.

WHEN 'ONCEKI'. PERFORM ONCEKI.

WHEN 'SONRAKI'. PERFORM SONRAKI.

WHEN 'KAYDET'. PERFORM KAYDET.

WHEN 'GERI'. PERFORM GERI.

ENDCASE.

ENDMODULE. " USER_COMMAND_0250 INPUT

&----

*& Include ZFC_PROJE1FRM

&----

*& Form YENI

&----

text

----

--> p1 text
<-- p2 text

----

FORM YENI .

SET SCREEN 250.

SUREC = 'N'.

ENDFORM. " YENI

&----

*& Form KAYDET

&----

text

----

--> p1 text
<-- p2 text

----

FORM KAYDET .

check SUREC eq 'U' or SUREC eq 'N'.

if SUREC eq 'N'.

select count( * ) from zFC_CDTP_MUSTERI into sy-tfill

where MUSKD = itab-MUSKD.

if sy-tfill ne 0.

message s004(ZSG_CL_MESAJ) with 'Bu Kod Zaten Kayıtlıdır'.

exit.

else.

clear zFC_CDTP_MUSTERI.

move-corresponding itab to zFC_CDTP_MUSTERI.

insert zFC_CDTP_MUSTERI.

append itab.

describe table itab lines islem.

endif.

elseif surec eq 'U'.

clear zFC_CDTP_MUSTERI.

move-corresponding itab to zFC_CDTP_MUSTERI.

modify zFC_CDTP_MUSTERI.

modify itab index islem.

endif.

surec = 'S'.

ENDFORM. " KAYDET

&----

*& Form GERI

&----

text

----

--> p1 text
<-- p2 text

----

FORM GERI .

LEAVE TO SCREEN 5000.

ENDFORM. " GERI

&----

*& Form DEGISTIR

&----

text

----

--> p1 text
<-- p2 text

----

FORM DEGISTIR .

if SUREC EQ 'S'.

SUREC = 'U'.

elseif SUREC eq 'U' or SUREC eq 'N'.

SUREC = 'S'.

ENDIF.

SET SCREEN 250.

ENDFORM. " DEGISTIR

&----

*& Form ONCEKI

&----

text

----

--> p1 text
<-- p2 text

----

FORM ONCEKI .

check SUREC eq 'S'.

check ISLEM ne 1.

ISLEM = ISLEM - 1.

ENDFORM. " ONCEKI

&----

*& Form SONRAKI

&----

text

----

--> p1 text
<-- p2 text

----

FORM SONRAKI .

check SUREC eq 'S'.

check ISLEM ne 1.

ISLEM = ISLEM + 1.

describe table itab lines ISLEM.

ENDFORM. " SONRAKI

&----

*& Form GORUNTULE

&----

text

----

--> p1 text
<-- p2 text

----

FORM GORUNTULE .

SUREC = 'S'.

SET SCREEN 250.

ENDFORM. " GORUNTULE

&----

*& Form SIL

&----

text

----

--> p1 text
<-- p2 text

----

FORM SIL .

DATA : ans(1).

CALL FUNCTION 'POPUP_TO_CONFIRM_STEP'

EXPORTING

DEFAULTOPTION = 'N'

TEXTLINE1 = 'KAYIT SILINECEK?'

TEXTLINE2 = ' '

TITEL = 'SIL'

START_COLUMN = 25
START_ROW = 6

CANCEL_DISPLAY = 'X'

IMPORTING

ANSWER = ans.

if ans = 'J'.

delete from zfc_cdtp_musteri where muskd = itab-muskd.

describe table itab lines sy-tfill.

if islem eq sy-tfill.

delete itab index islem.

islem = islem - 1.

else.

delete itab index islem.

endif.

ENDFORM. " SIL

Re: Screen doesn't display any data.

Former Member — Thu, 15 Feb 2007 14:51:25 GMT

Hi,

Instead of set screen 250 use, call screen 250 and check your results.

Regards

Subramanian

Re: Screen doesn't display any data.

Former Member — Sun, 18 Feb 2007 04:55:53 GMT

Hi,

Remove the statement CALL SCREEN 5000 from Start-of-selection event and place it in the <b>end-of-selection</b> event.

START-OF-SELECTION.

SELECT * FROM ZFC_CDTP_MUSTERI INTO TABLE ITAB.

END-OF-SELECTION.

CALL SCREEN 5000.

Try this.

regards,

Saumya

topic Re: Screen doesn't display any data. in Application Development and Automation Discussions

Screen doesn't display any data.

Re: Screen doesn't display any data.

Re: Screen doesn't display any data.