
<thtmlb:radioButtonGroup id="Radio" >
<thtmlb:image src = "<%= controller->gv_url2 %>"
GV_COUNTER Static Attribute Public Type NUM02
method EH_ONRADIO1.
gv_resp1 = 'X'.
endmethod.
DATA: zv_msg_srv TYPE REF TO cl_bsp_wd_message_service,
lv_flag VALUE 'FALSE' TYPE boolean.
CONSTANTS : c_msgtype VALUE 'I' TYPE symsgty,
c_msg_id VALUE 'ZFUN' TYPE symsgid,
c_correct_msg VALUE '004' TYPE symsgno,
c_wrong_msg VALUE '005' TYPE symsgno.
CLEAR : zv_msg_srv,lv_flag.
zv_msg_srv = cl_bsp_wd_message_service=>get_instance( ).
CHECK zv_msg_srv IS BOUND.
CASE gv_counter.
WHEN 0.
IF gv_resp2 = 'X'.
lv_flag = 'X'.
ENDIF.
WHEN 1.
IF gv_resp4 = 'X'.
lv_flag = 'X'.
ENDIF.
WHEN 2.
IF gv_resp3 = 'X'.
lv_flag = 'X'.
ENDIF.
WHEN 3.
IF gv_resp1 = 'X'.
lv_flag = 'X'.
ENDIF.
WHEN 4.
IF gv_resp1 = 'X'.
lv_flag = 'X'.
ENDIF.
WHEN 5.
IF gv_resp3 = 'X'.
lv_flag = 'X'.
ENDIF.
ENDCASE.
IF gv_counter <= 5.
IF lv_flag = 'X' .
*---Right Answer-----*
CALL METHOD zv_msg_srv->add_message
EXPORTING
iv_msg_type = c_msgtype
iv_msg_id = c_msg_id
iv_msg_number = c_correct_msg.
ELSE.
*---Wrong Answer-----*
CALL METHOD zv_msg_srv->add_message
EXPORTING
iv_msg_type = c_msgtype
iv_msg_id = c_msg_id
iv_msg_number = c_wrong_msg.
ENDIF.
ENDIF.
CLEAR: gv_resp1, gv_resp2, gv_resp3, gv_resp4.
gv_counter = gv_counter + 1.
CASE gv_counter.
WHEN 0.
gv_question = ' Identify the Apple LOGO '.
gv_url1 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/logo.bmp'.
gv_url2 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/apple.bmp'.
gv_url3 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/microsoft.bmp'.
gv_url4 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/yahoo.bmp'.
when 1.
gv_question = 'Identify button in web UI'.
gv_url1 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/checkbox.bmp'.
gv_url2 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/input_area.bmp'.
gv_url3 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/radio.bmp'.
gv_url4 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/button.bmp'.
when 2.
gv_question = 'Identify the Radio button in web UI'.
gv_url1 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/dropdown.bmp'.
gv_url2 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/checkbox.bmp'.
gv_url3 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/radio.bmp'.
gv_url4 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/button.bmp'.
when 3.
gv_question = 'Identify the Checkbox in web UI'.
gv_url1 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/checkbox.bmp'.
gv_url2 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/dropdown.bmp'.
gv_url3 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/input_area.bmp'.
gv_url4 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/button.bmp'.
when 4.
gv_question = 'Identify the Dropdown field below'.
gv_url1 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/dropdown.bmp'.
gv_url2 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/checkbox.bmp'.
gv_url3 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/radio.bmp'.
gv_url4 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/button.bmp'.
when 5.
gv_question = 'Identify the Radio button in web UI'.
gv_url1 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/dropdown.bmp'.
gv_url2 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/checkbox.bmp'.
gv_url3 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/radio.bmp'.
gv_url4 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/button.bmp'.
when 6.
gv_question = 'Identify the Radio button in web UI'.
gv_url1 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/dropdown.bmp'.
gv_url2 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/checkbox.bmp'.
gv_url3 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/radio.bmp'.
gv_url4 = '/SAP/BC/BSP/SAP/ZCRM_FUNBOX/button.bmp'.
ENDCASE.
<%@page language="abap" %>
<%@extension name="htmlb" prefix="htmlb" %>
<%@extension name="xhtmlb" prefix="xhtmlb" %>
<%@extension name="crm_bsp_ic" prefix="crmic" %>
<%@extension name="thtmlb" prefix="thtmlb" %>
<%@extension name="chtmlb" prefix="chtmlb" %>
<%@extension name="bsp" prefix="bsp" %>
<chtmlb:config mode = "RUNTIME"
displayMode = "TRUE"
xml = "<%= controller->configuration_descr->get_config_data( ) %>" />
<%-- <thtmlb:fileUpload id = "imgUpl" --%>
<%-- onUpload = "upload" /> --%>
<thtmlb:tray design = "PLAIN"
height = "100%"
id = "de"
title = "Now Answer the below question" >
<thtmlb:trayBody>
<thtmlb:grid cellSpacing = "1"
columnSize = "3"
height = "100%"
rowSize = "7"
width = "100%" >
<thtmlb:label id = "question"
text = '<%= controller->gv_question %>'
labelType = "MEDIUM" />
<thtmlb:radioButtonGroup id="Radio" >
<thtmlb:gridCell colSpan = "1"
columnIndex = "1"
horizontalAlignment = "center"
rowIndex = "2" >
<thtmlb:radioButton id = "R1"
text = " A "
onClick = "radio1" />
<thtmlb:image src = "<%= controller->gv_url1 %>"
width = "175"
height = "175" />
</thtmlb:gridCell>
<thtmlb:gridCell colSpan = "1"
columnIndex = "2"
horizontalAlignment = "center"
rowIndex = "2" >
<thtmlb:radioButton id = "R2"
text = " B "
onClick = "radio2" />
<thtmlb:image src = "<%= controller->gv_url2 %>"
width = "175"
height = "175" />
</thtmlb:gridCell>
<thtmlb:gridCell colSpan = "1"
columnIndex = "1"
horizontalAlignment = "center"
rowIndex = "4" >
<thtmlb:radioButton id = "R3"
text = " C "
onClick = "radio3" />
<thtmlb:image src = "<%= controller->gv_url3 %>"
width = "175"
height = "175" />
</thtmlb:gridCell>
<thtmlb:gridCell colSpan = "1"
columnIndex = "2"
horizontalAlignment = "center"
rowIndex = "4" >
<thtmlb:radioButton id = "R4"
text = " D "
onClick = "radio4" />
<thtmlb:image src = "<%= controller->gv_url4 %>"
width = "175"
height = "175" />
</thtmlb:gridCell>
<thtmlb:gridCell colSpan = "1"
columnIndex = "1"
horizontalAlignment = "right"
rowIndex = "7" >
<thtmlb:button id = "submit"
onClick = "submit"
text = "SUBMIT" />
</thtmlb:gridCell>
</thtmlb:radioButtonGroup>
</thtmlb:grid>
</thtmlb:trayBody>
</thtmlb:tray>
You must be a registered user to add a comment. If you've already registered, sign in. Otherwise, register and sign in.
User | Count |
---|---|
2 | |
1 | |
1 | |
1 | |
1 | |
1 | |
1 |