Radio Button Widget Highlight Options

In Captivate 5.5, is it possible for the standard radio button widget (RadioButtons.swf) to not have a highlight color behind the text? I just want a transparent background with text so the master slide background shows. Adjusting the Alpha Channel only effects the radio buttons themselves, not the highlight color.

Hello and welcome to the forum,
But I have bad news, having explored this widget a lot, and struggled with that 'highlight color' a lot. I try to put it on a uniform colored background and apply the background color as a Highlight. Didn't find another way.
Perhaps a tip: do download the enhanced version of this widget, that allows you to control it more (variable can be changed by advanced actions and displayed). It was created by Jim Leichliter (CaptivatePro) and it is FREE:
Radiobuttons Enhanced
Lilybiri

Similar Messages

Assigning Actions to Radio Button Widget

I'd like to be able to use the radio button widget as a way to jump to slides. I created a variable for each option (assigning a value of 1 to each) and tied it to an advanced action I've attempted to create. I then added a button that executes that advanced option once the radio button is selected. It doesn't seem to be working.
Does anyone know how to do this, by chance?
My advanced action script looks like this:
Check if [var1 is equal to 1]
begin
Jump to slide Slide 4
end
Or Else
begin
end
Check if [var 2 is equal to 1]
begin
Jump to slide Slide 5
begin
end
Etc, etc.

Hi,
Only one variable is sufficient to acheive this.I tried the following steps and it worked.
1. Create a variable say var1
2. Create advanced actions
Check if [var1 is equal to 1]
begin
Jump to slide Slide 4
end
Or Else
begin
end
Check if [var1 is equal to 2]
begin
Jump to slide Slide 5
begin
end
3. Insert the Radio Button widget
4. In Widget Parameters provide the comma seperated values like 1,2,3
5. Provide the variable name (var1)
6. Insert a button and call the above script.
thanks
ravi

Radio button and select option in one line

Hi,
I have an requirement in which i need to display the radio button and select option in one line in an report program.
How can i do it?
Regards,
Arun.

Hi,
Try this code.
TABLES: bkpf.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: p_r1 RADIOBUTTON GROUP a.
SELECTION-SCREEN COMMENT 4(20) text-001 FOR FIELD p_r1.
SELECTION-SCREEN COMMENT 30(12) text-002 FOR FIELD p_date.
SELECTION-SCREEN POSITION 39.
SELECT-OPTIONS: p_date FOR bkpf-budat OBLIGATORY.
SELECTION-SCREEN END OF LINE.
PARAMETERS: p_r2 RADIOBUTTON GROUP a.
text-001 = " Radio button"
text-002 = "Posting date"

How do I make a Radio Button Widget Report to an LMS?

Alright....still trying to solve my basic problem.....
I can put in a radio button widget which looks great, but radio buttons do not report info to LMS. THen I can use Ravvi's code style to set a variable based on which radio button was clicked and then take a specific action depending on the value. The action I want is to send info to LMS. How can I do this?

I may have, but I have run across many Survey forms that do exactly that.
Some also have checkboxes as well and they are used for Check all that apply.
For all I know they may be using JavaScript code for the buttons to react the way the do.
I don't know if any of you are old enough to remember the old two button light switches. push one in and the others pop out. Push the other in and the first pops out. That's the button action I see on many survey forms.
I am not saying it correct. But if its not correct, how does one change their mind if the clicked the wrong choice?

Spry Radio Button widget for CS3

Hi,
I can't seem to find a definitive answer if the Spry Radio Button widget for CS3 is available or not. The help menu says that it's there, but I can't find it. I've updated my Spry and checked the web and can't find an answer. Can anyone help me out?
Thanks!

I can't remember that far back, but if you cannot find i, then you may be right; it's not there. CS5 has it located on the insert bar as follows
but you can aslo go to the Insert Menu, Insert->Form->Spry Validation Radio Group.
Cheers,
Gramps

RAdio Button Widget

Hi,
Is there a radio button widget that validates?
Thanks

Hi,
On the folder you downloaded from labs site, on the widgets
folder, you should have the radiovalidation folder.
In that folder there are one js and ine css file that you
have to link in you page.
Please look over the example page I send you to see exactly
what you need to have the radio button functional.
Diana

Radio Buttons in select options

Hi WD4a development team,
is it planned to integrate radio buttons into WDR_SELECT_OPTIONS in future releases?
Cheers,
Sascha

Hi Sascha,
There had been serious deliberation regarding what to carry over (reimplement) in WD select options compared to dynpro select options. Selection fields got in (obviously), dropdowns and checkboxes as well (not so obvious). Parameter fields got added in SP13 due to much demand by developers, although we felt that adding something that's already defined within Web Dynpro (with more properties and options) doesn't add much further value.
Anyway, for the same reason originally Radiobuttons didn't make it as well as Tabstrips. Both are not based on range tables and the latter one can easily be added around the component from outside.
Shortly said, if we add all kinds of ui elements available in Web Dynpro to the select options component, we will end up with recreating portions of the Web Dynpro runtime while having ppl asking for keeping things in sync or extending them all the time. For anyone who develops Web Dynpro applications that's not desireable at all (you will be dependent on SAP all the time). Instead, we felt that we should empower the community instead to add whatever is available as an ui element. So it seems to be a lot more desireable to add some break-out places inside of SelectOptions where developers can add their own ui elements.
This in turn means that parameter fields have highly likely been the last addition to SelectOptions in terms of new specialized screen item types.
Of course, the break-out screen item type is just an idea for a future enhancement. So I can't make a commitment nor provide an eta.
Best regards,
Thomas

Using Radio Buttons in widget to store Data

I am building my 2nd widget and I am curious to know if anyone has used radio buttons within the edit mode to change/modify/set variables before. I don't want a radio button widget. I want a complex menu widget that will hide/show selected items within my playbar such as the forward button.
Currently I am using User variables to determine all the hide/shows for my playbar. But I would like to make it more user friendly by having a visual widget people could use to turn buttons on off, set url's for help documents etc. And have everything be based on a per slide basis. just wondering if anyone has done anything like this in the past.
The other part of this is, can I use a widget to construct User variables. In As2 I was able to create variables in root and then set those accordingly without having to add them to every projects user variables. But it appears in AS3 it is not possible to create a variable of a clip/objects parent is anyone familiar with this?
Thanks ahead of time.
zsrc

Hi zsrc,
If you're using WidgetFactory then here's a post that might give you the information that you need.
http://www.infosemantics.com.au/widgetking/2010/11/widget-properties-how-theyre-used/
As far as the code you'd write in your circumstance, a radio button's selected property tells you if it's... well... selected. So you can write that to a widget property like so:
properties.MyPropertyName = myRadioButton.selected;
That line would be inside the saveProperties template method as mentioned in the article above.
override protected function saveProperties():void
    properties.MyPropertyName = myRadioButton.selected;
Then you can read that property back when the widget is in the published Captivate movie.
override protected function enterRuntime():void
   if (properties.MyPropertyName == true) {
      // The Radio Button was selected. Do stuff
   } else {
      // The Radio Button wasn't selected. Do stuff?

Radio button & select options in same line

Hi,
   I am working in sap 3.1 version. there I required radio button and select options in same line. here begin of line is not allowing for select options.
Thanks,
suma

Hi,
Hope the below code helps you.
SELECTION-SCREEN BEGIN OF LINE.
*SELECTION-SCREEN COMMENT [/][pos](len)
                          {text|{[text] FOR FIELD sel}}
                          [VISIBLE LENGTH vlen]
                          [MODIF ID modid]
                          [ldb_additions].
parameters: p1 radiobutton group 1,
              p2 radiobutton group 1.
select-options s_date for sy-datum.
SELECTION-SCREEN END OF LINE.
You can use SELECTION-SCREEN COMMENT for placing the appropriate comments at respective positions.
Regards,
Satya

Report should executed based on the radio buttons on the selection screen

Hi everyone,
Greets....................
My scenario is I have 2 selection screen blocks on same screen..
One selection screen block contains input parameters as follows
Company Code - S_BUKRS
Business Area - S_GSBER
Customer Code - S_KUNNR
Fiscal Area -   S_GJAHR
GL Account - S_HKONT
Posting Date -S_ZFBDT
Ledger Type -P_RLDNR
Open Item Key Date - P_ZFBDT
Another selection screen block contains 2 radio buttons with the option as follows
Collection Plan
*Credit days summary.
If i click Collection plan the report output should come based on the input parameters in first selection-screen block.
If i click Credit days summary the report output should come based on the input parameters in first selection-screen block.
Pls send me the sample code for this.
Thanks in Advance
Regards
Raj kumar

See the below folling example : it will have radio buttons and depends on radio button it will show output.
REPORT ZPPR_BOM_INFOL_REPORT no standard page heading
                 line-size 160
                 line-count 60.
======================================================================
Program Name : ZPPR_BOM_INFOL_REPORT
Description : This Program would be used for BOM List for a material*
               and the component's where used list                   *
Author       : Seshu                                                 *
Date         : 07/24/2006                                            *
MODIFICATION HISTORY                                                 *
DATE    | AUTHOR   | CHANGE #   | DESCRIPTION OF MODIFICATION        *
|----
|----
|----
*12/04/06 | Seshu    | DEVK921821 | Removed new page for each material *
======================================================================
Table definition                                                    *
TABLES: mast,
        stko,
        stpo,
        T418,
        makt.
TYPE - POOLS
TYPE-POOLS: slis.
Constants
constants : c_tcode(4) type c value 'CS03',
            gc_formname_top_of_page TYPE slis_formname
            VALUE 'TOP_OF_PAGE'.
Variables
data : v_maktx like makt-maktx,
       wa_stko like stko.
DATA:
Objekttyp 'Material'
   otyp_mat(1) TYPE c VALUE '1',
   ootyp_mat(1) TYPE c VALUE 'M',
Objekttyp 'kein Objekt'
   otyp_noo(1) TYPE c VALUE '2',
Objekttyp 'Dokument'
   otyp_doc(1) TYPE c VALUE '3',
Objekttyp 'Klasse'
   otyp_kla(1) TYPE c VALUE '4',
Objekttyp 'Intramaterial'
   otyp_ntm(1) TYPE c VALUE '5'.
maximal anzeigbare Menge
data:   max_num(7) TYPE p DECIMALS 3 VALUE '9999999999.999',
        ueberl_kz(1) TYPE c VALUE '*',
        min_num(7) TYPE p DECIMALS 3 VALUE '9999999999.999-',
        b_flag(1) TYPE c VALUE 'X',
        ecfld(250) TYPE c,
        v_flag type c.
ALV Variables
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
      gs_layout   TYPE slis_layout_alv,
      gs_keyinfo TYPE slis_keyinfo_alv,
      gt_sp_group TYPE slis_t_sp_group_alv,
      gt_events   TYPE slis_t_event.
DATA: g_repid LIKE sy-repid.
DATA: gt_list_top_of_page TYPE slis_t_listheader,
            g_tabname_header TYPE slis_tabname,
            g_tabname_item   TYPE slis_tabname,
            g_save(1) TYPE c,
            gx_variant LIKE disvariant,
            g_variant LIKE disvariant,
            g_default(1) TYPE c,
            g_exit(1) TYPE c.
Includes                                                             *
INCLUDE .
Internal Table Declaration                                           *
DATA: t_mast LIKE STANDARD TABLE OF mast WITH HEADER LINE.
*DATA: t_makt LIKE STANDARD TABLE OF makt WITH HEADER LINE.
BOM Function module Related
DATA: t_matcat LIKE cscmat OCCURS 0 WITH HEADER LINE.
Internal Table for Level by Level Function module
DATA: t_stb LIKE stpox OCCURS 0 WITH HEADER LINE.
Get the Relevant data from FM
DATA: BEGIN OF hd_tab OCCURS 0,
         stufe LIKE stpox-stufe,
         vwegx LIKE stpox-vwegx,
      END OF hd_tab.
Final Output
DATA: BEGIN OF alv_stb OCCURS 0.
        INCLUDE STRUCTURE stpox_alv.
DATA:   info(3)   TYPE c,
      END OF alv_stb.
DATA: BEGIN OF stb_orig.
        INCLUDE STRUCTURE stpox.
DATA: END OF stb_orig.
DATA: BEGIN OF stb_add.
        INCLUDE STRUCTURE stpol_add.
DATA: END OF stb_add.
Internal Table for STPO
*-- BOM Line item
TYPES: BEGIN OF ty_stpo,
       stlty TYPE stpo-stlty,
       stlnr TYPE stpo-stlnr,
       stlkn TYPE stpo-stlkn,
       stpoz TYPE stpo-stpoz,
       idnrk TYPE stpo-idnrk,
       meins TYPE stpo-meins,
       menge TYPE stpo-menge, "Component Qty
       END OF ty_stpo.
DATA: t_stpo TYPE STANDARD TABLE OF ty_stpo WITH HEADER LINE.
*-- BOM Header
TYPES: BEGIN OF ty_stko,
       stlty TYPE stko-stlty,
       stlnr TYPE stko-stlnr,
       stlal TYPE stko-stlal,
       stkoz TYPE stko-stkoz,
       bmein TYPE stko-bmein,
       bmeng TYPE stko-bmeng,
       END OF ty_stko.
DATA: t_stko TYPE STANDARD TABLE OF ty_stko WITH HEADER LINE .
data : t_makt like makt occurs 0 with header line.
DATA: BEGIN OF cl_clstab OCCURS 0,                          "YHG079407
         class LIKE klah-class,                             "YHG079407
         klart LIKE klah-klart,                             "YHG079407
         chked LIKE csdata-xfeld,                           "YHG079407
         noobj LIKE csdata-xfeld,                           "YHG079407
         dsply LIKE csdata-xfeld,                           "YHG079407
      END OF cl_clstab.
*-- Header table
TYPES: BEGIN OF ty_main_material,
       matnr TYPE mast-matnr, "Material
       werks TYPE mast-werks, "Plant
       maktx TYPE makt-maktx, "Description
       stlal TYPE mast-stlal, "Alternative BOM
       stlnr TYPE stko-stlnr, "BOM Number
       bmein TYPE stko-bmein, "UOM
       bmeng TYPE stko-bmeng, "Base Qty
       expand(1) TYPE c,      "Expanding Field
       END OF ty_main_material.
DATA: t_main_material TYPE STANDARD TABLE OF ty_main_material WITH
      HEADER LINE.
*-- Item (Component) Table
TYPES: BEGIN OF ty_item_material,
       matnr TYPE mast-matnr, "Material
       werks TYPE mast-werks, "Plant
       idnrk TYPE stpo-idnrk, "Component (Material)
       maktx TYPE makt-maktx, "Description
       stlal TYPE mast-stlal, "Alternative BOM
       stlnr TYPE stpo-stlnr, "BOM Number
       meins TYPE stpo-meins, "UOM
       menge TYPE stpo-menge, "Base Qty
       END OF ty_item_material.
DATA: t_item_material TYPE STANDARD TABLE OF ty_item_material WITH
      HEADER LINE.
Selection Screen                                                     *
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
PARAMETERS: p_werks LIKE marc-werks DEFAULT '1000' OBLIGATORY.
SELECT-OPTIONS s_stlal FOR mast-stlal .
SELECT-OPTIONS s_stlan FOR mast-stlan DEFAULT '1'.
SELECTION-SCREEN SKIP.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
SELECTION-SCREEN SKIP.
PARAMETERS: p_bomlst RADIOBUTTON GROUP g1 DEFAULT 'X'.
SELECT-OPTIONS s_matnr FOR mast-matnr.
SELECTION-SCREEN SKIP.
PARAMETERS: p_compon RADIOBUTTON GROUP g1.
SELECT-OPTIONS: s_idnrk FOR stpo-idnrk.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN END OF BLOCK b1.
selection-screen begin of block b03 with frame title text-b03.
selection-screen begin of line.
selection-screen comment 1(40) text-005.
parameters: p_all radiobutton group r1 default 'X'.
selection-screen end of line.
selection-screen begin of line.
selection-screen comment 1(40) text-006.
parameters: p_one radiobutton group r1 .
selection-screen end of line.
selection-screen end of block b03.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETERS: p_vari LIKE disvariant-variant.
SELECTION-SCREEN END OF BLOCK b3.
At slection screen events                                            *
*-- Process on value request
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_vari.
PERFORM f4_for_variant.
Intitialisation
INITIALIZATION.
g_repid = sy-repid.
g_tabname_header = 'T_MAIN_MATERIAL'.
g_tabname_item   = 'T_ITEM_MATERIAL'.
*-- define keyinformation
CLEAR gs_keyinfo.
gs_keyinfo-header01 = 'MATNR'.
gs_keyinfo-item01   = 'MATNR'.
PERFORM e03_eventtab_build USING gt_events[].
PERFORM e04_comment_build USING gt_list_top_of_page[].
PERFORM e07_sp_group_build USING gt_sp_group[].
PERFORM e08_layout_build   USING gs_layout.
Set Options: save variants userspecific or general
g_save = 'A'.
PERFORM variant_init.
Get default variant
gx_variant = g_variant.
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.
    p_vari = gx_variant-variant.
ENDIF.
S T A R T - O F - S E L E C T I O N *******************
start-of-selection.
if p_all = 'X'.
Get the data from MAST and MAKT Table
    if p_bomlst = 'X'.
Get the data Based On Material #
      perform get_data.
    else.
Get the data Based On Component
      perform get_data_component.
    endif.
else.
Get the Single Level Report
*-- Moved the fiedl catalog here inorder to change the layout based on
*-- Selection
    PERFORM e01_fieldcat_init USING gt_fieldcat[].
    PERFORM select_data.
endif.
E N D - O F - S E L E C T I O N *******************
end-of-selection.
if p_one = 'X'.
    perform alv.
endif.
User Command
at line-selection.
Interactive to CS03 Transaction
case sy-ucomm.
    when 'PICK' or 'F2'.
      if not alv_stb-idnrk is initial .
        if not alv_stb-werks is initial.
          if not alv_stb-objty is initial.
            SET PARAMETER ID 'MAT' FIELD alv_stb-idnrk.
            SET PARAMETER ID 'WRK' FIELD alv_stb-werks.
            SET PARAMETER ID 'CSV' FIELD alv_stb-OBJTY.
            call transaction c_tcode and skip first screen.
          endif.
        endif.
      endif.
      clear alv_stb.
endcase.
*&      Form get_data
      Get data from MAST and MAKT Table
FORM get_data.
data : wa_lines type sy-index.
REFRESH : T_MAST,
            t_STB,
            t_MATCAT,
            alv_STB.
CLEAR : T_MAST,
            t_STB,
            t_MATCAT,
            alv_STB.
Get the data from MAST Table
Get all the information from MAST - BOM Table
SELECT * FROM mast INTO TABLE t_mast WHERE matnr IN s_matnr AND
                                             werks = p_werks AND
                                             stlan IN s_stlan AND
                                             stlal IN s_stlal.
describe table t_mast lines wa_lines.
if wa_lines is initial.
    Write:/2 'List contains no data'.
    stop.
endif.
loop at t_mast.
    clear : v_maktx.
Start of change Seshu
Reason - Remove the new page option
    if sy-tabix ne 1.
      skip 1.
    endif.
End of Change Seshu
Get the material Description
    select single maktx from makt into v_maktx
                             where matnr = t_mast-matnr
                             and   spras = 'E'.
Get the material details from STKO Table
    select single * from stko into wa_stko
                    where STLTY = 'M'
                    and   STLNR = t_mast-stlnr
                    and   STLAL = t_mast-stlal.
Main Header for Each Material
    format color 5 on.
    write:/2 'Material',20 'Material Description',65 'Alternative BOM',
         90 'Base Qty', 115 'Base Unit'.
    format color 5 off.
    format color 1 on.
    write:/2 t_mast-matnr,20 v_maktx,65 wa_stko-STLAL, 85 wa_stko-BMENG,
           115 wa_stko-BMEIN.
    format color 1 off.
Use the Function Module and get the format level by level
    perform get_level_level.
endloop.
ENDFORM.                    " get_data
Top of page                                                  *
top-of-page.
perform report_header .
*&      Form report_header
      text
--> p1        text
<-- p2        text
FORM report_header.
new-page line-size 160 .
format color col_heading intensified on.
write:/ sy-uline(160) .
*--- Write Company Name.
perform calc_col_and_write using    text-h00
                                      sy-linsz.
*--- Write Report Title.
perform calc_col_and_write using    sy-title
                                      sy-linsz.
*--- Write User Id, Date / Time, Program Id, Page etc.
perform write_other_hdr_details.
write:/ sy-uline(160) .
ENDFORM.                    " report_header
*&      Form calc_col_and_write
      text
     -->P_TEXT_H00 text
     -->P_SY_LINSZ text
FORM calc_col_and_write USING    P_TEXT
                                 P_LINSZ.
data: col1 type i,
         col2 type i,
          len type i,
          str type i.
str = strlen( p_text ).
col1 = ( p_linsz / 2 ) - ( str / 2 ) .
len = p_linsz - col1 - 2.
write: at /1 '|'.
write: at col1 p_text,
         at sy-colno(len) space.
write at 160 '|'.
ENDFORM.                    " calc_col_and_write
*&      Form write_other_hdr_details
      text
--> p1        text
<-- p2        text
FORM write_other_hdr_details.
data: col1 type i,
          col2 type i,
          len type i.
col1 = 3.
write:/1 '|'.
write: at col1 'UserId : ',
                  sy-uname.
len = sy-linsz - 1.
write at sy-colno(len) space.
col2 = sy-linsz - 18.
write: at col2 'Date: ',
                 sy-datum mm/dd/yyyy.
write: at sy-linsz '|'.
write:/1 '|'.
write: at col1 'ReportId: ',
                  sy-repid.
write at sy-colno(len) space.
col2 = sy-linsz - 18.
write: at col2 'Page: ',
                  sy-pagno.
write: at sy-linsz '|'.
ENDFORM.                    " write_other_hdr_details
*&      Form get_data_component
      Get the data based on Component level
FORM get_data_component.
data wa_lines type i.
*-- Get the BOM item details
SELECT stlty stlnr stlkn stpoz idnrk meins menge
          FROM stpo
          INTO TABLE t_stpo
WHERE   idnrk IN s_idnrk.
IF sy-subrc = 0.
    CLEAR wa_lines.
    DESCRIBE TABLE t_stpo LINES wa_lines.
    IF wa_lines > 0.
      SELECT stlty stlnr stlal stkoz bmein bmeng
              FROM stko
              INTO TABLE t_stko
              FOR ALL ENTRIES IN t_stpo
      WHERE stlnr = t_stpo-stlnr.
      CLEAR wa_lines.
      DELETE ADJACENT DUPLICATES FROM t_stko COMPARING ALL FIELDS.
      DESCRIBE TABLE t_stko LINES wa_lines.
      IF wa_lines > 0.
*-- Get the BOM item details
        SELECT * FROM mast INTO TABLE t_mast FOR ALL ENTRIES IN t_stko
                                            WHERE werks = p_werks AND
                                              stlnr = t_stko-stlnr
                                              and stlal in s_stlal.
      ENDIF.
    ENDIF.
else.
    Write:/2 'List contains no data'.
    stop.
endif.
loop at t_mast.
    clear : v_maktx.
Start of change Seshu
Reason - Remove the new page option
    if sy-tabix ne 1.
      skip 1.
    endif.
End of change    Seshu
Get the material Description
    select single maktx from makt into v_maktx
                             where matnr = t_mast-matnr
                             and   spras = 'E'.
Get the material details from STKO Table
    select single * from stko into wa_stko
                    where STLTY = 'M'
                    and   STLNR = t_mast-stlnr
                    and   STLAL = t_mast-stlal.
Main Header for Each Material
    format color 5 on.
    write:/2 'Material',20 'Material Description',65 'Alternative BOM',
         90 'Base Qty', 115 'Base Unit'.
    format color 5 off.
    format color 1 on.
    write:/2 t_mast-matnr,20 v_maktx,65 wa_stko-STLAL, 85 wa_stko-BMENG,
           115 wa_stko-BMEIN.
    format color 1 off.
Use the Function Module and get the format level by level
    perform get_level_level.
    clear : t_mast.
endloop.
ENDFORM.                    " get_data_component
*&      Form obj_ident
      text
FORM obj_ident.
weder Mat noch Doc
CHECK: T_stb-objty NE otyp_mat,
         T_stb-objty NE ootyp_mat,
         T_stb-objty NE otyp_doc,
         T_stb-objty NE otyp_ntm.
?T418-WA schon ok
nein
IF T_stb-postp NE t418-postp.
    T418 einlesen
    PERFORM t418_lesen USING T_stb-postp.
ENDIF.
PERFORM cl_clstab_maint.
?MatNr-Eingabe bei diesem PosTyp moeglich
und keine Textposition
trifft zu
IF     t418-matin NE '-'
     AND t418-txpos IS INITIAL.
    aktuelles Objekt ist Material NLAG
    T_stb-objty = '1'.
    PosKurztext in ObjKurztext uebernehmen.
    T_stb-ojtxp = T_stb-potx1.
    MODIFY T_stb.
ELSE.
    IF T_stb-objty IS INITIAL.
      T_stb-objty = '2'.
      MODIFY T_stb.
    ENDIF.
ENDIF.
ENDFORM.                    " obj_ident
*&      Form t418_lesen
      text
     -->P_T_STB_POSTP text
FORM t418_lesen USING   lkl_postp LIKE stpo-postp.
T418-WA initialisieren
CLEAR:
     t418.
Key angeben
t418-postp = lkl_postp.
PosTypDefinition lesen
READ TABLE t418.
ENDFORM.                    " t418_lesen
*&      Form cl_clstab_maint
      text
FORM cl_clstab_maint.
nur fuer Klassenpositionen
CHECK t_STB-OBJTY EQ OTYP_KLA.
Teilkey der Klassenpositionentabelle
CL_CLSTAB-CLASS = t_STB-CLASS.
CL_CLSTAB-KLART = t_STB-KLART.
Klassenpositionentabelle lesen
READ TABLE CL_CLSTAB
     WITH KEY CL_CLSTAB(21)
     BINARY SEARCH.
aktuelle Klassenposition bereits in Klassenpositionentabelle
nein
IF SY-SUBRC <> 0.
    Klassenposition in Klassenpositionentabelle hinzufuegen
    INSERT CL_CLSTAB INDEX SY-TABIX.
ENDIF.
ENDFORM.                    " cl_clstab_maint
*&      Form alv_stb_prep
      Printing the data as LEVEL BY LEVEL
FORM alv_stb_prep.
CLEAR:
      alv_stb,
      stb_orig,
      stb_add.
IF t_stb-hdnfo IS INITIAL.
    stb_orig = t_stb.
    IF t_stb-mngko >= max_num.
      stb_add-ovfls = ueberl_kz.
    ELSE.
      IF t_stb-mngko <= min_num.
        stb_add-ovfls = ueberl_kz.
      ELSE.
        CLEAR: stb_add-ovfls.
      ENDIF.
    ENDIF.
    IF NOT t_stb-xtlnr IS INITIAL.
      stb_add-bomfl = b_flag.
    ENDIF.
    IF    NOT t_stb-knobj IS INITIAL
       OR NOT t_stb-class IS INITIAL
       OR NOT t_stb-kzclb IS INITIAL.
      stb_add-knofl = 'X'.
    ENDIF.
ELSE.
    CHECK t_stb-stufe > 1.
    alv_stb-info = 'C30'.
    IF t_stb-ttidx <> t_matcat-index.
      READ TABLE t_matcat INDEX t_stb-ttidx.
    ENDIF.
    stb_orig-hdnfo = t_stb-hdnfo.
    stb_orig-stufe = t_stb-stufe - 1 .
    stb_orig-ojtxp = t_stb-ojtxb.
    IF NOT t_stb-altst IS INITIAL.
      stb_orig-stlal = t_stb-stlal.
      IF stb_orig-stlal(1) EQ '0'.
        stb_orig-stlal(1) = ' '.
      ENDIF.
    ENDIF.
    stb_orig-idnrk = t_matcat-matnr.
ENDIF.
CLEAR:
    stb_add-dobjt,
    stb_add-objic.
CASE t_stb-objty.
    WHEN otyp_mat.
      WRITE: stb_orig-idnrk TO ecfld.
      stb_add-objic = '@A6@'.
    WHEN 'M'.
      WRITE: stb_orig-idnrk TO ecfld.
      stb_add-objic = '@A6@'.
    WHEN otyp_noo.
      WRITE: stb_orig-potx1 TO ecfld.
      stb_add-objic = '@0Q@'.
    WHEN otyp_doc.
      write stb_orig-doknr to ecfld.                        "note 489354
      IF ecfld CP '*# '. ENDIF.                             "note 489354
      sy-fdpos = sy-fdpos + 1.                              "note 489354
      CONCATENATE
*d      stb_orig-doknr                                      "note 489354
        stb_orig-dokar
        stb_orig-doktl
        stb_orig-dokvr
*d      INTO ecfld                                          "note 489354
        INTO ecfld+sy-fdpos                                 "note 489354
        SEPARATED BY space.
      stb_add-objic = '@AR@'.
    WHEN otyp_kla.
      CONCATENATE
        stb_orig-class
        stb_orig-klart
        INTO ecfld
        SEPARATED BY space.
      stb_add-objic = '@7C@'.
    WHEN otyp_ntm.
      WRITE: stb_orig-intrm TO ecfld.
    WHEN OTHERS.
ENDCASE.
*d CONDENSE ecfld.                                          "note 515408
stb_add-dobjt = ecfld(40).
CLEAR: ecfld.
WRITE stb_orig-stufe TO stb_add-dstuf NO-SIGN.
*d MOVE-CORRESPONDING stb_orig TO alv_stb.                 "note 331962
MOVE-CORRESPONDING stb_add TO alv_stb.
MOVE-CORRESPONDING stb_orig TO alv_stb.                   "note 331962
APPEND alv_stb.
ENDFORM.                    " alv_stb_prep
*&      Form get_level_level
      text
FORM get_level_level.
REFRESH : T_STB,
            T_MATCAT,
            ALV_STB.
CLEAR : T_STB,
          T_MATCAT,
          ALV_STB.
CALL FUNCTION 'CS_BOM_EXPL_MAT_V2'
       EXPORTING
            capid                 = 'PP01'
            datuv                 = sy-datum
            mktls                 = 'X'
            mehrs                 = 'X'
            mtnrv                 = t_mast-matnr
            stlal                 = '01'
            stlan                 = '1'
            stpst                 = 0
            svwvo                 = 'X'
            werks                 = p_werks
            vrsvo                 = 'X'
       TABLES
            stb                   = t_stb
            matcat                = t_matcat
       EXCEPTIONS
            alt_not_found         = 1
            call_invalid          = 2
            material_not_found    = 3
            missing_authorization = 4
            no_bom_found          = 5
            no_plant_data         = 6
            no_suitable_bom_found = 7
            conversion_error      = 8
            OTHERS                = 9.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
CLEAR: hd_tab.
        Entry der KlassenstatusTab. initialisieren
         cl_clstab,
        Entry 'Objekte von Klassen' initialisieren
         cl_objmemo.
REFRESH: hd_tab.
SORT t_matcat BY index ASCENDING.
Get the All levels
loop at t_stb.
    IF NOT t_stb-hdnfo IS INITIAL.
      EXIT.
    ENDIF.
Object Identification
    PERFORM obj_ident.
    READ TABLE hd_tab
        WITH KEY stufe = t_stb-stufe
                 vwegx = t_stb-vwegx
        BINARY SEARCH
        TRANSPORTING NO FIELDS.
    ?gibt es diesen Satz schon
    nein
    IF sy-subrc <> 0.
       dann in SFP-Infosatzverweistab. aufnehmen
*d       APPEND HD_TAB.                                       "HGH054648
      hd_tab-stufe = t_stb-stufe.
                                                            "HGH054648
      hd_tab-vwegx = t_stb-vwegx.
                                                            "HGH054648
      INSERT hd_tab                                         "HGH054648
        INTO hd_tab                                         "HGH054648
        INDEX sy-tabix.                                     "HGH054648
       PosNr initialisieren
      CLEAR: t_stb-posnr.
       SFP-InfosatzKz setzen
      t_stb-hdnfo = 'X'.
        stb-objty = otyp_mat.
                                                            "HGE246532
       als SFP-Infosatz in die STB aufnehmen
      append t_stb.
    ENDIF.
*del ENDIF.
    clear t_stb.
endloop.
SORT t_stb ASCENDING BY stufe
              index ASCENDING
*del        POSNR ASCENDING.                                  "HGC062735
              posnr ASCENDING                               "HGC062735
              hdnfo DESCENDING.
LOOP AT t_stb.
    T_stb-index = sy-tabix.
    MODIFY T_stb.
    PERFORM alv_stb_prep.
ENDLOOP.
Displays the Value as Level by Level
loop at ALV_stb.
    if sy-tabix = 1.
      format color 3 on.
      write:/2 'Level',12 'Item',22 'Component',
      42 'Material Description',82 'Base Qty',
      107 'Base Unit',120 'Assembly Indicator'.
      format color 3 on.
    endif.
    if alv_stb-MEINs is initial.
      v_flag = 'X'.
    endif.
    if v_flag = 'X'.
      format color 5 on.
      write:/2 ALV_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
             42 alv_stb-OJTXP.
      format color 1 off.
    else.
      if alv_stb-STUFE = '1'.
        format color 1 on.
        write:/2 ALV_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
               42 alv_stb-OJTXP,72 alv_stb-mngko,
               107 alv_stb-MEINs, 120 alv_stb-bomfl .
        format color 1 off.
      elseif alv_stb-STUFE = '2'.
        format color 2 on.
        write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
               42 alv_stb-OJTXP,72 alv_stb-mngko,
               107 alv_stb-MEINs,120 alv_stb-bomfl.
        format color 2 off.
      elseif alv_stb-STUFE = '3'.
        format color 3 on.
        write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
                42 alv_stb-OJTXP,72 alv_stb-mngko,
                107 alv_stb-MEINs,120 alv_stb-bomfl .
        format color 3 off.
      elseif alv_stb-STUFE = '4'.
        format color 4 on.
        write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
                42 alv_stb-OJTXP,72 alv_stb-mngko,
                107 alv_stb-MEINs,120 alv_stb-bomfl .
        format color 4 off.
      elseif alv_stb-STUFE = '5'.
        format color 5 on.
        write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
                42 alv_stb-OJTXP,72 alv_stb-mngko,
                107 alv_stb-MEINs,120 alv_stb-bomfl .
        format color 5 off.
      elseif alv_stb-STUFE = '6'.
        format color 7 on.
        write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
               42 alv_stb-OJTXP,72 alv_stb-mngko,
               107 alv_stb-MEINs,120 alv_stb-bomfl.
        format color 6 off.
      elseif alv_stb-STUFE = '7'.
        format color 7 on.
        write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
               42 alv_stb-OJTXP,72 alv_stb-mngko,
               107 alv_stb-MEINs,120 alv_stb-bomfl .
        format color 7 off.
      else.
        format color 1 on.
        write:/2 alv_stb-STUFE,12 alv_stb-posnr,22 alv_stb-idnrk,
                42 alv_stb-OJTXP,72 alv_stb-mngko,
                107 alv_stb-MEINs,120 alv_stb-bomfl .
        format color 1 off.
      endif.
    endif.
    hide: alv_stb.
    clear : alv_stb.
    clear v_flag.
endloop.
ENDFORM.                    " get_level_level
*&      Form f4_for_variant
      text
FORM f4_for_variant.
CALL FUNCTION 'REUSE_ALV_VARIANT_F4'
         EXPORTING
              is_variant          = g_variant
              i_save              = g_save
              i_tabname_header    = g_tabname_header
              i_tabname_item      = g_tabname_item
          it_default_fieldcat =
         IMPORTING
              e_exit              = g_exit
              es_variant          = gx_variant
         EXCEPTIONS
              not_found = 2.
IF sy-subrc = 2.
    MESSAGE ID sy-msgid TYPE 'S'      NUMBER sy-msgno
            WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ELSE.
    IF g_exit = space.
      p_vari = gx_variant-variant.
    ENDIF.
ENDIF.
ENDFORM.                    " f4_for_variant
      FORM E03_EVENTTAB_BUILD                                       *
--> E03_LT_EVENTS                                                 *
FORM e03_eventtab_build USING e03_lt_events TYPE slis_t_event.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
       EXPORTING
            i_list_type = 0
       IMPORTING
            et_events   = e03_lt_events.
READ TABLE e03_lt_events WITH KEY name = slis_ev_top_of_page
                           INTO ls_event.
IF sy-subrc = 0.
    MOVE gc_formname_top_of_page TO ls_event-form.
    APPEND ls_event TO e03_lt_events.
ENDIF.
ENDFORM.
      FORM E04_COMMENT_BUILD                                        *
--> E04_LT_TOP_OF_PAGE

Changing the Selection Screen on the selection of a radio button

Hi experts,
I am stuck with a situation here.
I have a selection screen with 2 blocks.
The first block contains 5 radio buttons.
The second block contains 7 select options fields.
Now i want to show different select options when the user selects different radio buttons.
For example, when the user selects radio button 1, select options 1, 2, 3, 4, and 5 should be shown.
When the user selects radio button2, select options 3, 4, 5, 6, and 7 should be shown.
How do i go about implementing this????
I guess i need to do the coding in event "AT SELECTION-SCREEN OUTPUT".
Should i use MODIF ID????
Please help.
Points will be awarded.
Thanks and Regards
Gaurav Kumar Raghav

Use AT SELECTION-SCREEN
not AT SELECTION-SCREEN OUTPUT.
cause output addition makes it a PBO not PAI
check ur requirement & use the events accordingly
group all select options under one group which you want to show on selection of radio button
under AT SELECTION-SCREEN
loop at screen and change the property "ACTIVE (0/1)" for the group you want
& don't forget to modify screen table in the end.
one more thing u should do is use addition USER-COMMAND with your radio buttons.
PARAMETERS : r1 RADIOBUTTON GROUP r1 USER-COMMAND f1,
             r2 RADIOBUTTON GROUP r1.
PARAMETERS : p1 TYPE c MODIF ID a,
             p2 TYPE c MODIF ID b.
AT SELECTION-SCREEN . " output
LOOP AT SCREEN .
    IF r2 = 'X' AND screen-name = 'P1'.
      screen-active = '0'.
      MODIFY SCREEN.
    ENDIF.
ENDLOOP.
Edited by: mrugesh phatak on Oct 8, 2008 11:00 AM

Trying to create multiple lines of radio buttons on the same page. how do i do that??

Greetings. I'm brand new to this, and am trying to create a form with multiple lines of radio buttons on a single page to send to my students. How can I do this?? I currently have a table that I want the students to fill out and return, but every time I put radio buttons in, the form only allows selection of one of the 12 - I want students to be able to select one on each row.........

Each group of three radio buttons for a row should have the same field name and different "Radio Button Choice" (see Options tab). So if you copy & paste the first row, be sure to rename the new ly added radio buttons.

Related selects using radio button

Hi All,
I wanna use radio button with three options and one dropdown
box .
my problem is i wanna choose option from radio button and run
the related query to get the values into dropdown box and then
choose the value from drop down and submit it to another page.
Any ideas ? please help me.
Thanks in advance

Google coldfusion related selects and adjust the javascript
so that you are using radio buttons instead of a select.
I recently posted my own code. Look for the keyword
etiologydetail.

How to set the value of an radio button using set_radio_button_property

I'd like to set the value of an radio button dynamically, depending of the situation.
(=> the value which the object returns to the radio group)
Means: the 'radio button value' of my object 'rb_1' shall be 1, in other circumstances 99 and so on.
Is it possible to set this value at runtime ?

the problem is as Gerd wrote:
there are two or more radio buttons in an option group.
Their value depends on the text objext t_field.
If t_field is "car" the value of radio button 1 shall be 75, button 2: 90 and button 3 115.
if t_field is "bus" the value of radio button 1 shall be 250, button 2: 275 and button 3 300 and so on.
My problem is to set the value of the radio buttons at runtime after choosing/typing the value of the text field t_field.
Message was edited by:
PatrickM

Filtering responses in different text fields from different radio buttons.

Once again I need some guidance with my form please.
I have a form (audit report) with numerous radio buttons with 4 options each, NA, CN, PC and C.
Each represents a different answer to the question associated with the radio button.
This answer this then passes through to a text field next to the radio buttons.
In turn at the beginning of my form I have an executive brief giving a run down on findings from the different questions asked. These are a reflection of the text fields associated with the radio buttons.
These are represented as 2 text fields namely, Non-compliant (NC), partial – compliant (PC).
What I am getting now is a whole lot of “null” answers that change when one of the radio buttons are selected and reflects that answer associated with the selection, both NC and PC text fields are the same and I then have to edit it and delete the PC from the NC section and the same for the PC section.
What I would like to happen is that all the “nulls” are hidden and only when the answer representing the NC or PC buttons are selected, that those answer get represented through to the Non-compliant (NC), partial- compliant (PC) text fields in my executive brief. IE some sort of filter for each text filed that only displays the NC or PC answers.
Any help or guidance will be appreciated.

I will explain this through an example.
In my application I have created two Select Lists.
The first select list is a select list with a submit
P3_X allows selection of 1,2,3
The page branch sets the value of P3_X with &P3_X. so that way the second select list knows what value it will be using.
The second select list P3_Y is a dynamic query that says
Select SCOL d, SCOL r from TEST1 where FCOL=:P3_X
If you were to have a third select list you would make the second Select List also a submit and have the page branch also set P3_Y with &P3_Y.
The third Select list would say select from where item=:P3_Y
Does this answer your question?

Radio Button Widget Highlight Options

Similar Messages

Maybe you are looking for