Problem: Fields get invisible on pressing a button.

Hello ,
Using
ECC 6
Designer 6.
Adobe 8.1
Form trigerred through portal.
I have a check box which makes a text field and button visible on checking it.
On pressing the button i populate data in the fields of the form using user command method in the BADI .
But , my checkbox becomes unchecked and so goes the text field and the button ..
which shouldnt happen.
Please help me with this ...
Points will be rewarded.

Hi,
It will be great if you please let us know how you have solved this issue?
Regards
Satya

Similar Messages

Getting dump after pressing save button in web interface

Hi all!
When i press save button in my web interface. i'm getting dump:
The following error text was processed in the system EDW : Syntax error in program GP1ARALDY6TX0M51YNJ5FNELBCI .
The error occurred on the application server kurmutau_EDW_01 and in the work process 0 .
The termination type was: RABAX_STATE
The ABAP call stack was:
Form: VALUE_TO_SID_CONVERT1 of program SAPLRRSI
Form: VALUE_TO_SID_CONVERT1 of program SAPLRRSI
Form: VALUE_TO_SID_CONVERT of program SAPLRRSI
Function: RRSI_VAL_SID_SINGLE_CONVERT of program SAPLRRSI
Form: GET_SID of program GP5VHI3S252BZAWN36WKBAS71QH
Form: GET_DIMID_DA of program GP5VHI3S252BZAWN36WKBAS71QH
Form: WRITEIC of program GP5VHI3S252BZAWN36WKBAS71QH
Form: WRITEIC of program GPEP1KAM5Q04J9717R7T5PDWE0W
Form: APO_WRITEIC of program GPEP1KAM5Q04J9717R7T5PDWE0W
Method: _WRITE_TO_CUBE of program CL_RSDRI_INFOCUBE=============CP
Infocube and web interface were imported from BW3.5 system...
How can i solve this problem?
Thanks in advance...

Go in ST22 and post the short dump to better ubderstand.
Regards

How can i return to getting sound after pressing panic button?

I pressed the panic button after setting up my layout, and I had everything set up the way I wanted it (volume included). The volume then disappeared and no sound appears after I pressed the panic button. I've tried remapping everything but I had no luck. Please help me.

Unfortunately it does happen sometimes. I'm still trying to solve the same problem. Panic is assigned to a button on my controller and it usually works correctly, but sometimes during a live performance when I get a stuck note, the panic button kills the plugin completely. It happens mainly with Vintage B3 and E. Piano, but it has also happened with Ivory II. This never happened with MS 2. Panic is supposed to reset MDI and the audio engine, according to MS 3 help. Maybe it's a bug, or maybe my older machine isn't fast enough. I'm using a mid-2010 Mac Mini 2.6 with 16GB RAM and two 500GB 7200 rpm drives running the OSX 10.9.2 and MS 3.0.3. Any ideas, CCTM or Blueberry?

Urgent: getting error while pressing SAVE button on final grid screen

Hi ABAPers,
      please help me to sort this problem, i want to save the records selected by the user to database table. but when i m pressing save on o/p grid screen its giving error as GETWA_NOT_ASSIGNED.
This is my code
TABLES: plaf,
        mara,
        makt,
        zcdr_d.
Type Pools for ALV *************************************
TYPE-POOLS: SLIS,
            ABAP.
TYPES DECLARATION ************************************
TYPES:
******Types declaration for the plaf
BEGIN OF ty_plaf,
plnum TYPE plaf-plnum,
matnr TYPE plaf-matnr,
END OF ty_plaf,
******Types declaration for the makt
BEGIN OF ty_makt,
maktx TYPE makt-maktx,
END OF ty_makt.
INTERNAL TABLE DECLARATION ***************************
DATA:
*---internal table for the type ty_plaf
it_plaf TYPE TABLE OF ty_plaf,
*---internal table for the type t_bseg
it_makt TYPE TABLE OF ty_makt,
*---internal table for fieldcat
it_fcat TYPE TABLE OF slis_fieldcat_alv WITH NON-UNIQUE DEFAULT KEY
WITH HEADER LINE INITIAL SIZE 0,
*it_fcat1 TYPE TABLE OF slis_fieldcat_alv WITH NON-UNIQUE DEFAULT KEY
*WITH HEADER LINE INITIAL SIZE 0,
*---internal table for alv events
it_events TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
WITH HEADER LINE INITIAL SIZE 0,
*it_events1 TYPE TABLE OF slis_alv_event WITH NON-UNIQUE DEFAULT KEY
*WITH HEADER LINE INITIAL SIZE 0,
*---final Internal table
BEGIN OF it_final OCCURS 0,
plnum LIKE plaf-plnum,
sel TYPE C,
matnr LIKE plaf-matnr,
maktx LIKE makt-maktx,
END OF it_final,
BEGIN OF it_zcdr_d OCCURS 0,
DSEL TYPE C,
        CBOOKNO LIKE zcdr_d-CBOOKNO,
        PLNUM LIKE zcdr_d-plnum,
        MATNR LIKE zcdr_d-matnr,
        MAKTX LIKE zcdr_d-maktx,
END OF it_zcdr_d,
*-------to pass the internal table data to database table
itab TYPE TABLE OF zcdr_d with header line,
it_save TYPE TABLE OF zcdr_d with header line.
WORK AREA DECLARATION ********************************
DATA:
*---workarea for the type ty_plaf
wa_plaf TYPE ty_plaf,
*---workarea for the type ty_makt
wa_makt TYPE ty_makt,
*---workarea for the fieldcatalog
wa_fcat TYPE slis_fieldcat_alv,
wa_final LIKE LINE OF it_final,
*---WORKAREA FOR THE PROCESSED DOCUMENT
wa_zcdr_d LIKE LINE OF it_zcdr_d,
*---LAYA OUT DECLARATION
wa_layout TYPE slis_layout_alv.
*---LAYA OUT DECLARATION
*wa_layout1 TYPE slis_layout_alv.
Variables DECLARATION ********************************
DATA: v_repid LIKE SY-REPID,
           v_hkont LIKE bseg-hkont,
           v_pifno(16) TYPE C,
           v_pifdat LIKE SY-DATUM,
           v_pif(6) TYPE C,
           Field_Cat type Slis_T_fieldcat_alv with HEADER LINE,
           List_Top_Of_Page type Slis_T_Listheader.
PARAMETERS ****************************************
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME.
PARAMETERS : CBOOKNO(16) TYPE n OBLIGATORY.      "Customs Book number
SELECTION-SCREEN END OF BLOCK b1.
SELECT OPTION ****************************************
SELECTION-SCREEN : BEGIN OF BLOCK blk WITH FRAME TITLE text-001.
SELECTION-SCREEN SKIP 1.
SELECT-OPTIONS:
Date
so_pertr for plaf-pertr,
Material
so_matnr for plaf-matnr,
Material Group
so_matkl for mara-matkl,
Plant
so_plwrk for plaf-plwrk OBLIGATORY,
Sales Order
so_kdauf for plaf-kdauf.
SELECTION-SCREEN : END OF BLOCK blk.
LOAD OF PROGRAM ***************************************
*LOAD-OF-PROGRAM.
*IF sy-tcode NE text-002. "Condition for TCode Check
MESSAGE 'RUN THROUGH THE TRANSACTION CODE' TYPE 'X'.
*ENDIF. "End Condition for TCode
INITIALIZATION ****************************************
INITIALIZATION.
PERFORM CLEAR_DATA.
CLEAR: wa_layout.
START-OF-SELECTION *************************************
START-OF-SELECTION.
*-------Getting the data from database
PERFORM GET_DATA.
*-------Populating field catalog
PERFORM populate_fieldcatalog.
PERFORM set_events USING it_events[].
PERFORM top_of_page.
*------Processing the Data and Moving to final Internal Table
*PERFORM PROCESS_DATA.
*------Displaying the data in the Output
PERFORM DISPLAY_OUTPUT.
*end-of-SELECTION.
*call screen 0500.
**&      Module d0100_set_status OUTPUT
      text
*module d0500_set_status output.
data : rt_extab TYPE slis_t_extab.
perform set_pf_status USING rt_extab.
*endmodule.                 " d0100_set_status OUTPUT
*module d0100_fcode input.
perform user_command.
*endmodule.                 " d0100_fcode INPUT
form CLEAR_DATA .
**CLEARDING THE TABLES AND WORK AREAS
CLEAR: it_plaf[],
it_makt[],
wa_plaf,
wa_makt.
endform. " CLEAR_DATA
*& Form GET_DATA
text
--> p1 text
<-- p2 text
form populate_fieldcatalog.
DATA: L_POS TYPE I.
FIELD_CAT-COL_POS   = L_POS.
L_POS = L_POS + 1.
CLEAR FIELD_CAT.
field_cat-SELTEXT_M = 'Planned Order Nos.'.
field_cat-tabname = wa_final.
field_cat-fieldname = 'PLNUM'.
append field_cat.
FIELD_CAT-COL_POS   = L_POS.
L_POS = L_POS + 1.
CLEAR FIELD_CAT.
*field_cat-checkbox = 'X'.
field_cat-SELTEXT_M = 'Check Box'.
Field_Cat-outputlen = '1'.
field_cat-tabname = wa_final.
field_cat-checkbox = abap_true.
field_cat-edit = abap_true.
field_cat-fieldname = 'CHK'.
append field_cat.
FIELD_CAT-COL_POS   = L_POS.
L_POS = L_POS + 1.
CLEAR FIELD_CAT.
field_cat-SELTEXT_M = 'Material'.
field_cat-tabname = wa_final.
field_cat-fieldname = 'MATNR'.
append field_cat.
FIELD_CAT-COL_POS   = L_POS.
L_POS = L_POS + 1.
CLEAR FIELD_CAT.
field_cat-SELTEXT_M = 'Material Description'.
field_cat-tabname = wa_final.
field_cat-fieldname = 'MAKTX'.
append field_cat.
endform. " build_fieldcatalog
form GET_DATA .
SELECT
          a~PLNUM
          a~MATNR
          b~MAKTX
          c~matkl
          INTO CORRESPONDING FIELDS OF TABLE it_final
          FROM plaf as a
          Inner join makt as b
          on amatnr = bmatnr
          Inner join mara as c
          on cmatnr = bmatnr
          where a~pertr in so_pertr
                or a~matnr in so_matnr
                or c~matkl in so_matkl
                or a~kdauf in so_kdauf
                or a~plwrk in so_plwrk.
SORT it_final by plnum.
endform. " GET_DATA
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
    EXPORTING
      IT_LIST_COMMENTARY = List_Top_Of_Page.
ENDFORM.
form DISPLAY_OUTPUT .
DATA:   repid LIKE sy-REPID,
        Eventcat type Slis_T_Event,
        LAYOUT TYPE SLIS_LAYOUT_ALV.
    LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
    LAYOUT-ZEBRA = 'X'.
repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK                 = ' '
I_BYPASSING_BUFFER                = ' '
I_BUFFER_ACTIVE                   = ' '
I_CALLBACK_PROGRAM                  = repid
   I_CALLBACK_PF_STATUS_SET          = 'SET_PF_STATUS'
   I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
   I_CALLBACK_TOP_OF_PAGE            = 'TOP_OF_PAGE'
I_CALLBACK_HTML_TOP_OF_PAGE       = ' '
I_CALLBACK_HTML_END_OF_LIST       = ' '
I_STRUCTURE_NAME                  =
I_BACKGROUND_ID                   = ' '
I_GRID_TITLE                      = 'PLANNED ORDERS'
I_GRID_SETTINGS                   =
IS_LAYOUT                         = layout
   IT_FIELDCAT                       = Field_Cat[]
IT_EXCLUDING                      =
IT_SPECIAL_GROUPS                 =
IT_SORT                           =
IT_FILTER                         =
IS_SEL_HIDE                       =
   I_DEFAULT                         = 'X'
   I_SAVE                            = 'X'
IS_VARIANT                        =
IT_EVENTS                         = IT_EVENTS[]
TABLES
    T_OUTTAB                          = it_final
EXCEPTIONS
PROGRAM_ERROR                      = 1
   OTHERS                            = 2
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
ENDFORM.
FORM set_events USING it_events TYPE slis_t_event.
DATA: x_event TYPE LINE OF slis_t_event.
clear x_event.
x_event-name = 'USER_COMMAND'.
x_event-form = 'USER_COMMAND'.
append x_event to it_events.
CLEAR x_event.
call function 'REUSE_ALV_EVENTS_GET'
EXPORTING
    I_LIST_TYPE           = 0
IMPORTING
    ET_EVENTS             = IT_EVENTS
EXCEPTIONS
    LIST_TYPE_WRONG       = 1
    OTHERS                = 2
if sy-subrc <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
endif.
read table it_events into x_event with key name = 'USER_COMMAND'.
      if sy-subrc = 0.
      x_event-form = 'USER_COMMAND'.
      modify it_events from x_event index sy-tabix transporting form .
      endif.
ENDFORM.
FORM set_pf_status USING rt_extab TYPE slis_t_extab.
SET PF-STATUS 'Z_PFSTAT'.
ENDFORM. "set_pf_status
*& Form user_command
text
-->R_UCOMM text
-->RS_SELFIELDtext
FORM user_command USING
         r_ucomm TYPE sy-ucomm
         rs_selfield TYPE slis_selfield. "#EC *
if r_ucomm = '&DATA_SAVE' .
LOOP AT it_final INTO wa_final.
IF wa_final-sel EQ 'X'.
MOVE: wa_final-plnum TO it_save-plnum,
wa_final-matnr TO it_save-matnr,
wa_final-maktx TO it_save-maktx,
v_pifno TO it_save-CBOOKNO,
SY-MANDT TO it_save-mandt.
MOVE it_save to zcdr_d.
*INSERT zcdr_d.
*if l_valid = 'X'.
MODIFY zcdr_d FROM TABLE it_save.
endif.
ENDLOOP.
IF it_save is initial.
MESSAGE 'Select Atleast one Check Box' TYPE 'E' .
ELSE.
*CONCATENATE 'Number ' V_PIFNO ' Genrated'
IF SY-SUBRC EQ 0.
MESSAGE S001(zcdr_d) WITH 'Number ' CBOOKNO ' Genrated'.
ENDIF.
endif.
ENDFORM.

Thanks a lot for the reply Kiran, but i have already checked it, but its the same one. In debugging mode its going for error when there is a call for method like:
call method gt_grid-grid->set_function_code
      changing
        c_ucomm = l_okcode.
so i dont know where is the problem. & this is in PAI module of the system program.
Thanks
Pankaj

Having problem to get the value from radio button

i am doing my double module project for my degree course and i am also a newbie in JSP. Hope there is someone can help me to solve this problem. Now, i set the value of a radio button to "don't smoke", "smoke lightly", and "smoke heavily". Then i use request.getParameter ("smoking behavior") to get the value selected by the user, but the result is only "don't" or "smoke", which the character after spacing will be not be retrieved. I dun know how to solve it, so can any expert here help me to solve this problem? Thanks for helping.

Why do you have to use whitespace. If your radio button group is name smokingBehavior - no whitespace, wouldn't it just make sence to have values of don't, lightly and heavily. This would solve the problem easily. If your teacher is being a pain in the a&!, and requires you to use whitespace for your naming variables I guess you could insert %20 between the two words and unescape the value on the server side. This seems like a lot of unnecessary work and a silly solution - good luck!

Alert Monitor Problem (Fields are Invisible)

Hello All,
In SCM 4.0 we have written an User Exit to add own customer specific fields. It was working in SCM 4. Now after our upgrade we are not able to view our customer specific fields in the alert monitor. The BADI is still active and when I debugged the BADI everything (addition of field catlog and value population) seems to fine. Please let me know if any need to maintain any additional setting to make our fields visible in the alert monitor.
Thanks,
Siva.

Siva
I think something is still missing in your layout setting. Display the alerts in the alert monitor . After that go to change layout (the layout icon is the second one to the left of delete icon). When you say change layout a popup screen will be displayed with 2 sections "displayed columns" and "column set". Pull the additional fields from the column set to the displayed columns section and save the layout. (SAP will ask for a custom name , and you cannot save a std layout. So u have to give a custom name). When this is done and the alerts are regenerated the additional fields should defenitely get displayed.
In case you dont see the additional fields in the column set itself ,then it means you do not have those characteristics in your system. You have to check RSD1 in that case.
Thanks
Saradha

Problem in getting previous screen in Classic report.

Hello everyone,
I am facing a serious problem in getting the previous screen in classical report.
let me tell you in detail.
When i run the report, i will have a selection screen with some checkboxes and select-options. Now in the report i have functionality to get some more select-options from user selection. Here i am calling the pop-up screen, wherein if user selects checkboxes, then those fields will be visible on the default selection screen.
To display them i am using Modif-id concept. Depending on the checkbox values, i am setting up the variables. Using those variables i am modifying screen.
Now suppose user has got some extra fields and run the report. It will get the output in the desired format.
Now the problem is when i am pressing 'BACK' button on the report output. The fields which are appended using modif-id are getting cleared. After that what i have is only the default selection-screen.
I want those fields to be restored. How do i go for it. Please help me out.
thanks in advance.

Hi thanks for reply.
Actually code is too big to post. But have you understood my problem. Some part of code ia am sending.
AT SELECTION-SCREEN OUTPUT.
IF SY-UCOMM <> 'ONLI' AND SY-UCOMM <> 'FLDS' AND SY-UCOMM <> 'OK' AND
SY-DYNNR <> '0100' AND SY-UCOMM = ' '.
LEAVE TO SCREEN 1000.
ENDIF.
Now i want to know, whether i could get bcak those fields which which are appended using Modif-id,
how do i get the information about screen fiedls which was there after leaving the screen.
Thanks.

How can print a report from form 6i, when I press a button?

hi Friends,
How can print a report from form 6i, when I press a button?
When i press a button from Form 6i, the report should print through printer.
I have done it by using report parameter DESTYPE Printer but problem is that when I press a button printer dialogue box appear and then I give command Print to printer, I don’t want to show Printer dialogue box.
I want when I press a button form Forms 6i , printer will print my report directly.
Please send me the solution of this problem.
Best regards,
Shahzad

Hi
If You are using Client server application then to passing to Add all Print Parameter in the Host Command.
Means Print command in unix to Host(lp.............) and Other Parameter to file name of the report to print.
If You not Use Client Server Application the Also Passing a Host Command in Button-Pressed Event and Run.

Which trigger fires after pressing 'Save' button on toolbar.

hi,
I wanted to know which triggers get fired after pressing 'save' button on toolbar, and in which sequence it get's fired.

When you press 'save' it tries to do a commit_form.
Before commiting the form, it checks for any errors which might occur at form level, block level or item level and does the commit only when it doesn't find one.

Having problems us ng my ipod 7g Nike Fitness. When running when I press the button between the volume buttons, I get a different action almost every time.

I am having problems using my ipod 7g with Nike Fitness. When running when I press the button between the volume buttons, I get a different action almost every time. And usually I end up either turrning volume up very high or ending the workout. I need to be able to pause workout, and get spoken feedback regarding time, distance, and pace, that's all. I'm using a Griffin brand armband, that covers all of the buttons. I've read the online manual. no help. I'm just about ready to return it and go back to my 5th gen with its smaller song capacity and no blurry. Any help or suggestions very welcome.

Jeff:
I have had both good and bad experiences with Acronis True Image. I got the recent copy of ATI via a Newegg.com bundle. I haven't tried it yet on any Windows 7 editing systems. ATI installs some services that I would rather not have running in the background.
What made you change from ATI to ShadowProtect Desktop Edition?
Are you running Windows 7?
What do you see as advantages to running ShadowProtect Desktop Edition as opposed to Acronis True Image?
Thanks

Recently having problem with flickering on monitor (viewsonic vg2436wm). When coming out of sleep mode. The screen goes gray, sometime out. Have to press power button to get screen on. Problem stops.

Recently having problem with flickering on monitor (viewsonic vg2436wm). When coming out of sleep mode. It will flicker, the screen goes gray, sometime out. Have to press power button to get screen on. Problem stops. Getting more frequent. After sometime problem stops. My system is a Mac Mini 2010, 2.4 intel core 2 duo, 2 GB, running OSX10.8.5

See if it's related to this...
The 2012 macs (and later apparently) not waking normally from sleep after hours being in sleep. (noted here ...
http://www.xlr8yourmac.com/archives/feb13/022813.html#2012macswontwake
"Why 2012 iMac/2012 Mac Mini won't Wake After Hours of Sleep (Hibernates/Powers Off)")
The sleepimage file still reappears even if never slept. Delete it (hibernate off, etc) - within minutes its back.
A note on that here - http://www.xlr8yourmac.com/feedback/Chameleon_SSD_Optimizer.html
About iMac sleep...
http://forums.macrumors.com/showthread.php?t=1529750
Try this: "sudo pmset autopoweroff 0" and "sudo pmset standby 0"
http://xlr8yourmac.com/archives/sep13/091313.html#10.8.5SleepEjectTip

Purchased a new Apple TV and the remote double clicks each time I press the button. It worked fine during set up and for the first two days. I have since moved it and this problem started. Restarted,reset,unplugged,change remotes, no change.Help please.

Purchased a new Apple TV and the remote double clicks each time I press the button. It worked fine during set up and for the first two days. I have since moved it and this problem started. Restarted,reset,unplugged,changed remotes, no change. Latest software update. This is really annoying. iPhone remote app works just fine. Any suggestions?

That's one of the weird things.. it recognizes it maybe 10% of the time. And usually, only after I do the two-button reset. Problem is.. since it won't charge above 2%, anytime I try to do a restore or anything like that using iTunes, my device shuts off and I lose whatever progress I'd made.
So, an update... after reading through a bunch of similar complaints (there are literally 1000's of them so there's NO WAY this isn't somehow ios7 related, thanks a lot APPLE ) I decided to try a restore in recovery mode. After 3 hours and several disconnections... I ended up having to just set it up as a new iPad, as the restore did nothing. Weirdly though... as I was doing the restore in recovery mode.. I noticed I'd gotten up to a 10% charge.. higher than it's been since September, so after setting it up as a new device, I turned it off and plugged it in using the wall charger. 2 hours later and I was up to 38%. Still not great, as my iPad, before ios7 could've fully charged twice in the amount of time it took for me to now get 28% more of a charge. And that's with a fully cleaned out device.. so that really ***** and I'm now more confused than ever.
But I'm gonna leave it overnight charging and see what I come up with tomorrow. Sadly, when I paid $600 for it in February, I never expected to have to play "wait and see" with it...

Problem displaying drill down STANDARD ALV for a particular record after pressing back button

I have a simple interactive ALV grid report. NOT 'OO'. It display correctly on initial execution. AT the moment, 6 records. I want it to work such that if i click record '1', a drill-down version of that ALV with only that one record clicked is displayed. This currently occurs correctly. The problem arises when i click the back button and want to click on a new record, say in the 2nd row..this new 2nd row record is not displayed. The first one is displayed again. I tried clearing and fiddling around but then the last record is displayed. I have used the 'ID' field as a 'hotspot' getting picked up by sy-tabindex. Maybe it could be that i shouldn't loop and use a work area e.g in my select statement. i'm not so sure i've looked around, and tried a few things. I can't get it right yet. My code is below:
*& Report ZALV
REPORT ZALV.
TABLES: ZCONTACT.
TYPE-POOLS: slis. "slis contains all of the ALV data types.
TYPES: BEGIN OF ty_zcontact.
         INCLUDE STRUCTURE zcontact.
TYPES: icon TYPE char4, "field holding traffic light value- adding a column to internal table to hold the traffic light
         END OF ty_zcontact.
DATA: "fieldcatALOG TYPE slis_t_fieldcat_alv WITH HEADER LINE,
       it_zcontact TYPE TABLE OF ty_zcontact,"declares an internal table of type ZCONTACT
       wa_zcontact TYPE ty_zcontact,
       gd_layout TYPE slis_layout_alv,
       gd_repid LIKE sy-repid,
       g_variant TYPE disvariant,
       gx_variant TYPE disvariant,
       g_save TYPE c VALUE 'X',
       it_fieldcat TYPE slis_t_fieldcat_alv,"declares field catalog table of line type alv
       wa_fieldcat TYPE slis_fieldcat_alv, "declares the work area of the field catalog
       it_list_top_of_page TYPE slis_t_listheader.
DATA: it_fieldcat1 TYPE slis_t_fieldcat_alv,
       wa_fieldcat1 TYPE slis_fieldcat_alv.
DATA: V_FIELD(30) TYPE C,
V_VALUE(10) TYPE C.
       "izontact TYPE TABLE OF zcontact.
        "i_logo TYPE OT.
       "ls_layout TYPE slis_layout_alv.
**Selection Screen details
*SELECTION-SCREEN BEGIN OF BLOCK B1 WITH FRAME.
*PARAMETERS: variant like disvariant-variant.
*SELECTION-SCREEN END OF BLOCK B1.
SELECT-OPTIONS:
age FOR wa_zcontact-age,
lastnme FOR wa_zcontact-lastname.
**Getting default variant
* AT SELECTION-SCREEN ON age.
*    SELECT SINGLE age FROM zcontact INTO wa_zcontact-age WHERE age = age.
* IF sy-subrc NE 0.
*    MESSAGE:'That age does not exist mate, Please enter another age' TYPE 'E'.
*    ENDIF.
INITIALIZATION.
*gx_variant-report = sy-repid.
*CALL FUNCTION 'REUSE_ALV_VARIANT_DEFAULT_GET'
*EXPORTING
* I_SAVE = G_SAVE
* CHANGING
*    CS_VARIANT = GX_VARIANT
* EXCEPTIONS
*    NOT_FOUND = 2.
*IF SY-SUBRC = 0.
* VARIANT = GX_VARIANT-VARIANT.
* ENDIF.
START-OF-SELECTION.
PERFORM DATA_RETRIEVAL.
PERFORM BUILD_FIELDCATALOG.
PERFORM DISPLAY_ALV_REPORT.
PERFORM top_of_page.
"g_repid = sy-repid.
*Fetch data from the database
FORM DATA_RETRIEVAL.
SELECT * FROM zcontact INTO TABLE it_zcontact WHERE age IN age AND lastname IN lastnme.
"assigning traffic light colour to each row based on a condition
* IF wa_zcontact-age GE 65.
*   wa_zcontact-icon = 1. "Red Traffic Light
*   ELSEIF wa_zcontact-age BETWEEN 40 AND 64.
*     wa_zcontact-icon = 2. "Yellow traffic light
*     ELSE.
*       wa_zcontact-icon = 3." Green traffic light
*       ENDIF.
*       MODIFY it_zcontact FROM wa_zcontact TRANSPORTING icon.
*       CLEAR wa_zcontact.
ENDFORM.
FORM BUILD_FIELDCATALOG.
*Build field catalog
wa_fieldcat-fieldname = 'ID'.
"wa_fieldcat-seltext_m = 'The Contact ID'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'LASTNAME'.
"wa_fieldcat-seltext_m = 'Contact Lastname'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'FIRSTNAME'.
"wa_fieldcat-seltext_m = 'Contact Firstname'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'DOB'.
"wa_fieldcat-seltext_m = 'Date Of Birth'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'TEL'.
"wa_fieldcat-seltext_m = 'Telephone Number'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'ADDRESS'.
"wa_fieldcat-seltext_m = 'The Address'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'OCCUPATION'.
"wa_fieldcat-seltext_m = 'The Occupation'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'WEIGHT'.
"wa_fieldcat-seltext_m = 'WEIGHT'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'AGE'.
"wa_fieldcat-seltext_m = 'AGE OF THE CONTACT'.
wa_fieldcat-do_sum   = 'X'.        "Display column total
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'SALARY'.
"wa_fieldcat-seltext_m = 'SALARY'.
wa_fieldcat-do_sum   = 'X'.
APPEND wa_fieldcat TO it_fieldcat.
gd_layout-lights_fieldname = 'ICON'.
ENDFORM.
FORM DISPLAY_ALV_REPORT.
gd_repid = sy-repid.
*Pass data and field catalog to ALV function module to display ALV list
   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
     EXPORTING
       it_fieldcat            = it_fieldcat
       i_callback_program     = gd_repid
       i_callback_top_of_page = 'TOP_OF_PAGE'
       i_callback_user_command = 'USER_COMMAND'
       i_structure_name       = 'ZCONTACT'
       i_save                 = 'X'
       is_variant             = g_variant
       is_layout     = gd_layout
TABLES
       t_outtab      = it_zcontact
EXCEPTIONS
       program_error = 1
       OTHERS        = 2.
ENDFORM.
FORM top_of_page.
*ALV Header declarations
   DATA: it_listheader TYPE slis_t_listheader,
         wa_listheader TYPE slis_listheader,
         t_line like wa_listheader-info,
         ld_lines TYPE I,
         ld_linesc(10) TYPE C.
wa_listheader-typ = 'H'.
wa_listheader-info = 'Contact Details'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-info = sy-repid.
wa_listheader-key = 'Program Name:'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-info = sy-uname.
wa_listheader-key = 'User Name:'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-key = 'Run Date :'.
CONCATENATE sy-datum+6(2)
             sy-datum+4(2)
             sy-datum(4)
             INTO wa_listheader-info
             SEPARATED BY '/'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
wa_listheader-typ = 'S'.
wa_listheader-key = 'Time :'.
CONCATENATE sy-uzeit(2)
             sy-uzeit+2(2)
             sy-uzeit+4(2)
             INTO wa_listheader-info
             SEPARATED BY ':'.
APPEND wa_listheader TO it_listheader.
CLEAR wa_listheader.
   CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
     EXPORTING
       it_list_commentary = it_listheader
       i_logo = 'KLOGO'.
ENDFORM. "top_of_page
*& Form sub_user_command
FORM USER_COMMAND USING P_UCOMM TYPE SY-UCOMM
P_SELTAB TYPE SLIS_SELFIELD.
CASE P_UCOMM.
   WHEN '&IC1'.
CASE p_seltab-fieldname.
   WHEN 'ID'.
   READ TABLE it_zcontact INTO wa_zcontact INDEX p_seltab-tabindex.
   PERFORM DATA_RETRIEVAL1.
   PERFORM BUILD_FIELDCATALOG1.
   PERFORM SECOND_GRID.
   ENDCASE.
   ENDCASE.
ENDFORM. "
FORM DATA_RETRIEVAL1.
SELECT * FROM zcontact INTO TABLE it_zcontact WHERE id EQ wa_zcontact-id.
ENDFORM.
FORM BUILD_FIELDCATALOG1.
*Build field catalog
CLEAR: wa_fieldcat, it_fieldcat.
wa_fieldcat-fieldname = 'ID'.
"wa_fieldcat-seltext_m = 'The Contact ID'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'LASTNAME'.
"wa_fieldcat-seltext_m = 'Contact Lastname'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
wa_fieldcat-fieldname = 'FIRSTNAME'.
"wa_fieldcat-seltext_m = 'Contact Firstname'.
APPEND wa_fieldcat TO it_fieldcat.
CLEAR wa_fieldcat.
ENDFORM.
FORM SECOND_GRID.
   CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
     I_CALLBACK_PROGRAM = SY-REPID
     IT_FIELDCAT = IT_FIELDCAT
     i_structure_name       = 'ZCONTACT'
     i_callback_user_command = 'USER_COMMAND'
     TABLES
       T_OUTTAB = IT_ZCONTACT.
   ENDFORM.

Hi Ten Mariga,
                 I wonder why the second select Query is needed at all instead you can use
---> Not Needed
FORM DATA_RETRIEVAL1.
SELECT * FROM zcontact INTO TABLE it_zcontact WHERE id EQ wa_zcontact-id.
ENDFORM.
----> Instead you can do
   READ TABLE it_zcontact INTO wa_zcontact INDEX p_seltab-tabindex.
Append wa_zcontact to Second_table.
And you can use the Second_table to display the second ALV. The second Select Query will affect the performance too.
Cheers,
Krishnakumar B.

Problem pressing end button

Hi experts...
i've implemented the BADI ORDER_SAVE for some cheks on transaction save......
firstly i've confirmed a client, and i've tried to create a contact...press save button, my Z messages are raised and saving is blocked,....I press the back arrow for return on confirmation view..
then tried to create a new business transaction and as done previously, tried to save, Z messages raised, saving is blocked then i pressed the back arrow.....
at this point i pressed the end button on IC...and my Z message raised whed i've tried to save the business transaction reappers......
in debug i've find that the flow logic pass via BADI ORDER_SAVE although i tried to end the confirmation of account and not to save a document......
Anybody can help me to understand this, and help me????
Best regards
Marco
Edited by: Menegazzo Marco on Jan 27, 2011 5:32 PM

Here is the code. I'm a newbi, so it's not good programming
DAD_14April contains the program with both green and red lights simulating a traffic light.
DAD_Test3 only has the red LED.
Still, the program will only run when he highlight execution is selected.
I have it set to produce a random number, display the red light, detect the signal from the switch, turn off the red light, and record reaction time.
One more problem: Sometimes, the DAQ assisstant does not start aquiring data fast enough to detect the trigger. How do I get it to start aquiring data as soon as the program begins to ensure that the switch depression is detected?
Attachments:
DAD_14April.vi ‏177 KB
DAD_Test3.vi ‏176 KB

Since I have changed from Windows 7 to Windows 8.1, I have not been able to start up Photoshop Elements 9! or Premiere Elements 9! The menu starts up allright, but the programs don't start when I press any buttons. How do I fix this problem?

Since I have changed from Windows 7 to Windows 8.1, I have not been able to start up Photoshop Elements 9! or Premiere Elements 9! The menu starts up alright, but the programs don't start when I press any buttons. How do I fix this problem?

If Layers is greyed out it possibly means that you are in Quick Mode. Select 'Expert' and all the options should become available.
Try permanently associating psd files with C:\Program Files (x86)\Adobe\Photoshop Elements 12\PhotoshopElementsEditor.exe and see if that fixes the issue. Instructions here - http://windows.microsoft.com/en-gb/windows-8/choose-programs-windows-uses-default.
Cheers,
Neale
Insanity is hereditary, you get it from your children
If this post or another user's post resolves the original issue, please mark the posts as correct and/or helpful accordingly. This helps other users with similar trouble get answers to their questions quicker. Thanks.

Problem: Fields get invisible on pressing a button.

Similar Messages

Maybe you are looking for