Add new topic in survey list
Hello,
How to add new topic/survey topic in survey list keeping previous one.
And how to display survey list as a web part on a page.
Thanking you in advance.
Regards,
Jayashri
As I know you can update the question. but if you want add new topic in existing survey it not possible.you need to create new survey list.
For insert the Survey list as web part Edit the page and inset the web part as below.
Ravin Singh D
Similar Messages
-
I want to add new field to this list
hi all,
i want to add new field to this list.
kostenstelle from table zfmkstel
*& Report ZFM_MOBLIST *
REPORT ZFM_MOBLIST.
TABLES: zfm_handy , pa0002.
TYPE-POOLS : slis.
DATA: g_repid LIKE sy-repid,
gs_print TYPE slis_print_alv,
gt_list_top_of_page TYPE slis_t_listheader,
gt_list_end_of_page TYPE slis_t_listheader,
gt_events TYPE slis_t_event,
gt_sort TYPE slis_t_sortinfo_alv,
gs_layout TYPE slis_layout_alv,
gt_fieldcat TYPE slis_t_fieldcat_alv,
fieldcat_ln LIKE LINE OF gt_fieldcat,
col_pos TYPE i.
*DATA : BEGIN OF it_moblist OCCURS 0.
INCLUDE STRUCTURE zfm_handy.
*DATA : nachn TYPE pa0002-nachn,
vorna TYPE pa0002-vorna,
END OF it_moblist.
DATA : BEGIN OF IT_MOBLIST OCCURS 0,
TELNUM TYPE ZFM_HANDY-TELNUM,
KARTNR TYPE ZFM_HANDY-KARTNR,
ZUTART TYPE ZFM_HANDY-ZUTART,
PERNR TYPE ZFM_HANDY-PERNR,
nachn TYPE pa0002-nachn,
VORNA TYPE pa0002-vorna,
ZDATE TYPE ZFM_HANDY-ZDATE,
PINNR TYPE ZFM_HANDY-PINNR,
PUKNR TYPE ZFM_HANDY-PUKNR,
TARIF1 TYPE ZFM_HANDY-TARIF1,
TARIF2 TYPE ZFM_HANDY-TARIF2,
TARIF3 TYPE ZFM_HANDY-TARIF3,
GTYPE TYPE ZFM_HANDY-GTYPE,
IMEI TYPE ZFM_HANDY-TARIF1,
twincard type zfm_handy-twincard,
twinbill type zfm_handy-twinbill,
einbau type zfm_handy-einbau,
beschr type zfm_handy-beschr,
text1 type zfm_handy-text1,
text2 type zfm_handy-text2,
text3 type zfm_handy-text3,
end of it_moblist.
DATA : BEGIN OF IT_zfm_handy OCCURS 0,
TELNUM TYPE ZFM_HANDY-TELNUM,
KARTNR TYPE ZFM_HANDY-KARTNR,
ZUTART TYPE ZFM_HANDY-ZUTART,
PERNR TYPE ZFM_HANDY-PERNR,
ZDATE TYPE ZFM_HANDY-ZDATE,
PINNR TYPE ZFM_HANDY-PINNR,
PUKNR TYPE ZFM_HANDY-PUKNR,
TARIF1 TYPE ZFM_HANDY-TARIF1,
TARIF2 TYPE ZFM_HANDY-TARIF2,
TARIF3 TYPE ZFM_HANDY-TARIF3,
GTYPE TYPE ZFM_HANDY-GTYPE,
IMEI TYPE ZFM_HANDY-TARIF1,
twincard type zfm_handy-twincard,
twinbill type zfm_handy-twinbill,
einbau type zfm_handy-einbau,
beschr type zfm_handy-beschr,
text1 type zfm_handy-text1,
text2 type zfm_handy-text2,
text3 type zfm_handy-text3,
end of it_zfm_handy.
*DATA : BEGIN OF it_zfm_handy OCCURS 0.
INCLUDE STRUCTURE zfm_handy.
*DATA END OF it_zfm_handy.
DATA : BEGIN OF it_pa0002 OCCURS 0,
pernr TYPE pa0002-pernr,
nachn TYPE pa0002-nachn,
vorna TYPE pa0002-vorna,
pernr TYPE pa0002-pernr,
END OF it_pa0002.
INITIALIZATION.
g_repid = sy-repid.
PERFORM print_build USING gs_print. "Print PARAMETERS
START-OF-SELECTION.
PERFORM data_selection.
PERFORM build_fieldcat.
PERFORM eventtab_build CHANGING gt_events.
PERFORM comment_build CHANGING gt_list_top_of_page.
PERFORM call_alv.
*& Form TOP_OF_PAGE
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = gt_list_top_of_page.
WRITE: sy-datum, 'Page No', sy-pagno RIGHT-JUSTIFIED.
ENDFORM. "TOP_OF_PAGE
*& Form END_OF_PAGE
FORM end_of_page.
WRITE: /.
WRITE AT (sy-linsz) sy-pagno CENTERED.
ENDFORM. "END_OF_PAGE
### PRINT SETTINGS
FORM print_build USING ls_print TYPE slis_print_alv.
ls_print-print = ' '. "PRINT IMMEDIATE
ls_print-no_print_selinfos = 'X'. "NO SELECTION INFO
ls_print-no_coverpage = ' '. "NO COVER PAGE
ls_print-no_new_page = ' '. "NO NEW PAGE
ls_print-no_print_listinfos = 'X'. "NO PRINT LIST INFO
ls_print-reserve_lines = 2. " FOOTERLINE
ENDFORM. "PRINT_BUILD
*& Form data_selection
text
--> p1 text
<-- p2 text
FORM data_selection .
data : n(8) type n.
SELECT * FROM
zfm_handy
INTO CORRESPONDING FIELDS OF TABLE it_zfm_handy where pernr ne space.
IF NOT it_zfm_handy[] IS INITIAL.
loop at it_zfm_handy.
n = it_zfm_handy-pernr.
it_zfm_handy-pernr = n.
modify it_zfm_handy.
endloop.
SELECT pernr nachn
vorna
FROM pa0002
INTO TABLE it_pa0002
FOR ALL ENTRIES IN it_zfm_handy
WHERE pernr = it_zfm_handy-pernr and endda = '99991231'.
SELECT pernr nachn
vorna
FROM pa0002
INTO TABLE it_pa0002
FOR ALL ENTRIES IN it_zfm_handy
WHERE pernr = it_zfm_handy-pernr and begda le sy-datum and endda ge sy-datum.
ENDIF. " not it_zfm_handy
LOOP AT it_zfm_handy.
MOVE-CORRESPONDING it_zfm_handy TO it_moblist.
clear it_pa0002.
READ TABLE it_pa0002 WITH KEY pernr = it_zfm_handy-pernr.
if sy-subrc = 0.
move it_pa0002-nachn to it_moblist-nachn.
move it_pa0002-vorna to it_moblist-vorna.
move it_pa0002-pernr to it_moblist-pernr.
ENDIF.
APPEND it_moblist.
CLEAR it_moblist.
*endif.
ENDLOOP.
ENDFORM. " data_selection
*& Form BUILD
text
--> p1 text
<-- p2 text
FORM build_fieldcat .
Explain Field Description to ALV
DATA: fieldcat_in TYPE slis_fieldcat_alv.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'TELNUM'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'TELNUM'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'KARTNR'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'KARTNR'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'ZUTART'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'ZUTART'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'PERNR'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'PERNR'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'NACHN'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'NACHN'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'VORNA'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'VORNA'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'ZDATE'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'ZDATE'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'PINNR'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'PINNR'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'PUKNR'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'PUKNR'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'TARIF1'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'TARIF1'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'TARIF2'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'TARIF2'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'TARIF3'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'TARIF3'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'GTYPE'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'GTYPE'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'IMEI'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'IMEI'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'TWINCARD'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'TWINCARD'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'TWINBILL'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'TWINBILL'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'EINBAU'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'EINBAU'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'BESCHR'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'BESCHR'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'TEXT1'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'TEXT1'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'TEXT2'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'TEXT2'.
APPEND fieldcat_ln TO gt_fieldcat.
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'TEXT3'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'TEXT3'.
APPEND fieldcat_ln TO gt_fieldcat.
DATA SORTING
DATA: gs_sort TYPE slis_sortinfo_alv.
CLEAR gs_sort.
gs_sort-fieldname = 'TELNUM'.
gs_sort-spos = 1.
gs_sort-up = 'X'.
GS_SORT-SUBTOT = 'X'.
APPEND gs_sort TO gt_sort.
CLEAR GS_SORT.
GS_SORT-FIELDNAME = 'KARTNR'.
GS_SORT-SPOS = 2.
GS_SORT-UP = 'X'.
*GS_SORT-SUBTOT = 'X'.
APPEND gs_sort TO gt_sort.
ENDFORM. " BUILD
*& Form EVENTTAB_BUILD
text
<--P_GT_EVENTS text
FORM eventtab_build CHANGING lt_events TYPE slis_t_event.
CONSTANTS:
gc_formname_top_of_page TYPE slis_formname VALUE 'TOP_OF_PAGE',
gc_formname_end_of_page TYPE slis_formname VALUE 'END_OF_PAGE'.
DATA: ls_event TYPE slis_alv_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = lt_events.
READ TABLE 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 lt_events.
ENDIF.
define END_OF_PAGE event
READ TABLE lt_events WITH KEY name = slis_ev_end_of_page
INTO ls_event.
IF sy-subrc = 0.
MOVE gc_formname_end_of_page TO ls_event-form.
APPEND ls_event TO lt_events.
ENDIF.
ENDFORM. " EVENTTAB_BUILD
*& Form COMMENT_BUILD
text
<--P_GT_LIST_TOP_OF_PAGE text
FORM comment_build CHANGING gt_top_of_page TYPE slis_t_listheader.
DATA: gs_line TYPE slis_listheader.
DATA: today_date(10) TYPE c.
CONCATENATE
sy-datum+6(2) '.'
sy-datum+4(2) '.'
sy-datum(4) INTO today_date.
CLEAR gs_line.
gs_line-typ = 'H'.
gs_line-info = 'MOBLIST DETAILS'.
APPEND gs_line TO gt_top_of_page.
CLEAR gs_line.
gs_line-typ = 'S'.
gs_line-key = 'Date:'.
gs_line-info = today_date.
APPEND gs_line TO gt_top_of_page.
GS_LINE-KEY = 'User:'.
GS_LINE-INFO = sy-uname.
APPEND gs_line TO gt_top_of_page.
CLEAR gs_line.
gs_line-typ = 'A'.
gs_line-info = 'ACTION'.
APPEND gs_line TO gt_top_of_page.
ENDFORM. " COMMENT_BUILD
*& Form CALL_ALV
text
--> p1 text
<-- p2 text
FORM call_alv .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = g_repid
I_CALLBACK_PF_STATUS_SET = ' '
I_CALLBACK_USER_COMMAND = ' '
is_layout = gs_layout
it_fieldcat = gt_fieldcat
it_sort = gt_sort
it_events = gt_events
is_print = gs_print
TABLES
t_outtab = IT_MOBLIST
EXCEPTIONS
program_error = 1
OTHERS = 2.
ENDFORM. "CALL_ALV.Hi,
add:
1) to IT_MOBLIST
text3 type zfm_handy-text3,
kostl type csks-kostl,
end of it_moblist.
2)...
CLEAR fieldcat_in.
fieldcat_ln-fieldname = 'KOSTL'.
fieldcat_ln-tabname = 'IT_MOBLIST'.
fieldcat_ln-no_out = ' '.
fieldcat_ln-seltext_l = 'KOSTL'.
APPEND fieldcat_ln TO gt_fieldcat. -
How can I add new value in a list box in a screen
Hi All ,
In transaction CRMD_BUS2000120 (CRM Server), I need to add one value to the list box. Already 4 values are coming. How can I add 1 more value.
any suggestion is very appreciated.
Thanks & Regards,
Shekar.Hi,
Check you have any exits to do that, if there are no exits then you can Copy the program and change the code.
to add the extra value in list box, you just have to append the new line to the internal table which you are passing to VRM_SET_VALUES FM.
some thing like this..
wa_list-key = sy-tabix.
wa_list-text = itab1-vbeln.
Append wa_list to It_list.
v_name = 'P_VBELN'.
call function 'VRM_SET_VALUES'
exporting
id = v_name
values = It_list
EXCEPTIONS
ID_ILLEGAL_NAME = 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.
Regads
vijay -
How to add new fields on output list of ME5A(Purchase Requisitions)
Hi Friends,
I have to do a task to add a new field ABC Indicator (MARC-MAABC) on the output list of ME5A. IS there any standard way to to this or do I have to copy ME5A to ZME5A and do? Please advice.
Apprecaite your suggestions ont his thread.
Thanks,
HarryHi,
Already there are some ENHANCEMENT spots are available in the program RM06BA00.. check if you can use them to add your logic to get the new field... -
Hi
If I have only login name of any user like - "Donamin\login_name".
If this user is not present in sharepoint portal.
How can I add this user to people or group column of any list or in any sharepoint group with permission?hi
got the issue
it should be like this -
string userloginname = @"DOMAIN001\vyankatesh_mujumdar"
using (SPSite oSpSite = new SPSite(site.ID))
using (SPWeb web = site.OpenWeb())
try
{ SPList lst = web.Lists["TestList"];
string userloginname = @"DOMAIN001\vyankatesh_mujumdar";
web.EnsureUser(userloginname);
SPUser oSPUser = web.SiteUsers[userloginname];
SPFieldUserValue FieldValueName = new SPFieldUserValue(web, oSPUser.ID, oSPUser.LoginName);
SPListItem oSPListItem = lst.Items.Add();
oSPListItem["Title"] = userloginname;
oSPListItem["People"] = FieldValueName;
oSPListItem.Update();
catch (Exception ex)
ExceptionManager.LogErrorInFile("--------Exception -------", bIsLogEnabled);
ExceptionManager.LogErrorInFile(ex.Message, bIsLogEnabled);
ExceptionManager.LogErrorInFile(ex.Source, bIsLogEnabled);
ExceptionManager.LogErrorInFile(ex.StackTrace, bIsLogEnabled);
ExceptionManager.LogErrorInFile("-------------------------------------------------------", bIsLogEnabled);
Thanks for all for the reply -
How to add new images to the list of old images to ipod using itunes
I have around 1000 images in my ipod right now. I want to add some more images tinto it. I just have the latest phots in a folder in my PC. When i try to sysnchronize my ipod with a folder to add the new phots i am getting a warning message stating "All my photos will be replaced with the new folder". But the problem is i don't have my older photos in my folder.
Will my older photos be deleted when i sysnchronize with a new folder?
How can i add my latest phos alone?
Can somebody help and answer my questions?Somebody please help me
-
I wnat to add new fieldtext in the alv list output plz tell me
hi,
i whant add new fieldtext in the list output, plz tell me where can i modify it.
CORRECTIONS
DATE CORRECTION NOTE AUTHOR DESCRIPTION
09.03.2001 L9CK045451 0388404 XSC Wrong list output for multiple Os
05.06.2001 AL0K023393 0410219 Lud Wrong keydate for search with
Pchbegda and pchendda.
22.04.2004 S6BK024775 730486 PS Too many selection parameters in
header
19.06.2006 S6BK035494 956731 JF No sorting by qualification
REPORT RHPK_FIND_PERS_WITH_EXPIRED_QU MESSAGE-ID PQ.
DATA AUFRUF(8).
TABLES : OBJEC, GDSET.
DATA LIST.
DATA MARKFIELD(1) TYPE C.
ALV_POOL
TYPE-POOLS SLIS.
INCLUDES
INCLUDE .
INCLUDE RHPEINI0.
TABLES
DATA: orgeh_BUFFER like hrobject OCCURS 1 WITH HEADER LINE.
DATA: OBJECTS LIKE HRSOBID OCCURS 1 WITH HEADER LINE.
DATA: h_OBJEC LIKE objec OCCURS 0 WITH HEADER LINE.
DATA: pers_objects LIKE HRSOBID OCCURS 1 WITH HEADER LINE.
DATA: QUALI_TAB LIKE QUALI_PROF OCCURS 1 WITH HEADER LINE.
DATA: PERSONS LIKE PERSQ_PROF OCCURS 1 WITH HEADER LINE.
DATA: H_PERSONS LIKE HRPE_PROFL OCCURS 1 WITH HEADER LINE.
DATA: LIST_OUTPUT LIKE PERSQ_PROF OCCURS 1 WITH HEADER LINE.
DATA: BOOK_EVENT_TAB LIKE PERSQ_PROF OCCURS 1 WITH HEADER LINE.
DATA: PLAN_EVENT_TAB LIKE PERSQ_PROF OCCURS 1 WITH HEADER LINE.
DATA H_SUITED LIKE DYNP_PCRIT-SUITED.
DATA: O_COLOR LIKE STREEATTR-COLOR.
DATA: O_INTENSIV LIKE STREEATTR-INTENSIV.
DATA SHOW_KEY.
DATA EVENT.
DATA: HTEXT LIKE P1000-STEXT.
DATA: EVENT_TAB LIKE PERSQ_PROF OCCURS 1 WITH HEADER LINE.
DATA: COLLECTED_EVENTS LIKE PERSQ_PROF OCCURS 1 WITH HEADER LINE.
DATA: SUBTY_TAB LIKE HRPE_OTYPE_SUBTY OCCURS 0 WITH HEADER LINE.
DATA: BEGIN OF HIDE_STRU,
PERSTYPE LIKE HROTYPE-OTYPE,
PERSOBID LIKE HRSOBID-SOBID,
PERSTXT LIKE PERSQ_PROF-STEXT,
SCALE_ID LIKE HRPE_PROFQ-SCALE_ID,
TRAININGTYPE LIKE HRP1000-OTYPE,
TRAININGID LIKE HRP1000-OBJID,
TRAININGSTXT LIKE HRP1000-STEXT,
QUALID LIKE QUALI_PROF-QUALID,
QUALTEXT LIKE QUALI_PROF-QUALSTXT,
END OF HIDE_STRU.
DATA: BEGIN OF EXTAB OCCURS 10,
FCODE LIKE RSMPE-FUNC,
END OF EXTAB.
DATA: CURRENT_QUALID LIKE QUALI_PROF-QUALID.
DATA: CURRENT_TRAININGSID LIKE HRP1000-OBJID.
DATA: CURRENT_TRAININGTYPE LIKE HRP1000-OTYPE.
DATA: SUBRC LIKE SY-SUBRC.
VARIABLES
DATA: OBJID LIKE P1000-OBJID.
DATA: H_LINE_COUNT TYPE I.
DATA: H_TABIX1 LIKE SY-TABIX.
ALV-Variables
DATA: alv_events_line TYPE slis_alv_event. "header line
DATA ALV_EVENTS TYPE SLIS_T_EVENT.
DATA GT_ALV_LIST_TOP_OF_LIST TYPE SLIS_T_LISTHEADER.
DATA: gt_events TYPE SLIS_T_EVENT.
DATA G_REPID LIKE SY-REPID.
DATA G_VARIANT LIKE DISVARIANT.
DATA ALV_USERCOMMAND TYPE SLIS_FORMNAME VALUE 'USER_COMMAND'.
DATA G_USERCOMMAND_FOR_RANKINGLIST TYPE SLIS_FORMNAME VALUE
'USER_COMMAND_FOR_RANKINGLIST'.
DATA ALV_LAYOUT TYPE SLIS_LAYOUT_ALV.
DATA: GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV.
DATA: ALV_OUTPUT LIKE HRPDV_EXPIRED_Q OCCURS 0 WITH HEADER LINE.
DATA: Help_OUTPUT LIKE HRPDV_EXPIRED_Q OCCURS 0 WITH HEADER LINE.
begin of Dynpro 5020 - POPUP: WEITER
DATA: OK_CODE_5020 LIKE SY-UCOMM.
DATA: NO_ORG. "if no org selected
DATA: H_TABIX LIKE SY-TABIX.
begin of Dynpro 20nn - Header
TABLES: DYNP_RHPP.
SELECTION SCREEN
SELECTION-SCREEN BEGIN OF BLOCK B3 WITH FRAME TITLE TEXT-005.
PARAMETERS:
H_EVENTS LIKE DYNP_RHPP-GEN_TRAIN, "with training sugg
H_QUAL LIKE DYNP_RHPP-EXPIRED_QUAL. "with Qual
SELECTION-SCREEN END OF BLOCK B3.
INITIALIZATION
INITIALIZATION.
PERFORM READ_T77S0_PARAMETERS_FOR_PE.
get user parameters/Planvariante und Beginndatum setzen:
PCHOTYPE = $ORGEH.
CALL FUNCTION 'RHP0_USER_PARAMETERS_GET'
EXPORTING
FILL_IF_INITIAL = 'X'
IMPORTING
PLVAR = PCHPLVAR
BEGDA = PCHBEGDA
endda = Pchendda "Correction 0410219
WITH_KEY = SHOW_KEY
SUBSTITUTE =
ESSENTIAL = only_essential
ORG_UNIT = PCHOBJID-LOW
EXCEPTIONS
OTHERS = 0.
PCHBEGDA = LOW_DATE. "Correction note: 0410219 / AL0K023393
get menu text for key on/off
PERFORM USER_MENU_TEXT_KEY(SAPLRHP0) USING G_MENU_TEXT_KEY.
start-of-selection
START-OF-SELECTION.
terminate the selection if objid isn't given
READ TABLE PCHOBJID INDEX 1 TRANSPORTING NO FIELDS.
IF SY-SUBRC <> 0
AND PCHOBJID IS INITIAL.
PCHOBJID-SIGN = 'I'.
PCHOBJID-OPTION = 'EQ'.
PCHOBJID-LOW = '00000001'.
APPEND PCHOBJID.
NO_ORG = TRUE.
ELSE.
NO_ORG = FALSE.
ENDIF.
GET OBJEC.
terminate the selection if objid isn't given
IF NO_ORG = TRUE.
EXIT.
ENDIF.
OBJECTS-PLVAR = PCHPLVAR.
OBJECTS-OTYPE = PCHOTYPE.
OBJECTS-SOBID = OBJEC-REALO.
APPEND OBJECTS.
Für das lesen der Organisationseinheit
h_OBJEC-PLVAR = OBJEC-PLVAR.
h_OBJEC-OTYPE = OBJEC-OTYPE.
h_OBJEC-OBJID = OBJEC-objid.
append h_objec.
Read table h_objec index 1 transporting no fields.
if sy-subrc = 0.
Fill Buffer
orgeh_BUFFER = h_OBJEC.
orgeh_BUFFER[] = h_OBJEC[].
CALL FUNCTION 'RH_TEXT_BUFFER_FILL'
TABLES
OBJECTS = orgeh_BUFFER.
Loop at h_OBJEC.
H_TABIX = SY-TABIX.
Read text of organisation
CALL FUNCTION 'RH_READ_OBJECT'
EXPORTING
PLVAR = h_OBJEC-plvar
OTYPE = h_OBJEC-otype
OBJID = h_OBJEC-OBJID
IMPORTING
OBEG = h_objec-begda
OEND = h_objec-endda
SHORT = short
STEXT = h_OBJEC-stext
EXCEPTIONS
NOT_FOUND = 1
OTHERS = 2.
IF SY-SUBRC = 0.
modify h_OBJEC index H_TABIX.
ENDIF.
endloop.
endif.
end-of-selection
END-OF-SELECTION.
read objects of the organizational unit
OBJID = OBJECTS-SOBID.
CALL FUNCTION 'RHPH_PICK_UP_PERSONS'
EXPORTING
BEGDA = PCHBEGDA "Correction 0410219
ENDDA = PCHENDDA "Correction 0410219
STATUS = '1'
WITH_STEXT = 'X'
TABLES
OBJECTS = OBJECTS
PERSONS = H_PERSONS
EXCEPTIONS
UNDEFINED = 1
OTHERS = 2.
IF SY-SUBRC = 0.
prepare objects !
objects-otype = h_persons-ttype.
objects-sobid = h_persons-tobid.
append objects.
ELSE.
EXIT.
ENDIF.
CLEAR OBJECTS. REFRESH OBJECTS.
prepare sel_objects !
pers_objects-PLVAR = PCHPLVAR.
LOOP AT H_PERSONS.
pers_objects-OTYPE = H_PERSONS-TTYPE.
pers_objects-SOBID = H_PERSONS-TOBID.
APPEND pers_objects.
ENDLOOP.
sort objects and delete adjacent duplicates
SORT Pers_OBJECTS BY PLVAR OTYPE SOBID.
DELETE ADJACENT DUPLICATES FROM Pers_OBJECTS COMPARING PLVAR OTYPE
SOBID.
CALL FUNCTION 'RHPK_FIND_PERS_WITH_EXPIRED_Q'
EXPORTING
PLVAR = PCHPLVAR
CHECK_BEGDA = PCHBEGDA
CHECK_ENDDA = PCHENDDA
SUBTY = $ownsb "'B032'
only_essential =
target_otype =
target_ap_iea =
TABLES
IMP_PER_TAB = pers_objects
QUALI_TAB = QUALI_TAB
PERSONS = LIST_OUTPUT
altq_tab =
EXCEPTIONS
NO_QUALIFICATION = 1
NO_PERSON_FOUND = 2
OTHERS = 3.
IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.
100% case
READ TABLE pers_objects INDEX 1 TRANSPORTING NO FIELDS.
IF SY-SUBRC = 0.
sort pers_objects by otype sobid.
check the selected persons: if org.unit was selected !
Loop at pers_objects.
H_TABIX = SY-TABIX.
READ TABLE LIST_OUTPUT WITH KEY OTYPE = pers_objects-OTYPE
SOBID = pers_objects-SOBID
BINARY SEARCH.
IF SY-SUBRC <> 0.
person doesn't belong to the selected org.unit
DELETE LIST_OUTPUT INDEX H_TABIX.
ENDIF.
ENDLOOP.
ENDIF. "org.unit check needed ?
end-of-selection.
sort h_objec by otype objid.
sort list_output by otype sobid.
sort h_persons by ttype tobid.
ALV-Liste aufbauen
loop at h_objec.
loop at h_persons where otype = h_objec-otype "XSC
and sobid = h_objec-objid. "XSC
Read table list_output with key
otype = h_persons-ttype
sobid = h_persons-tobid
binary search.
if sy-subrc = 0.
h_tabix1 = sy-tabix.
while sy-subrc = 0.
clear alv_output. "XSC
ALV_OUTPUT-otype = h_objec-otype.
ALV_OUTPUT-sobid = h_objec-objid.
ALV_OUTPUT-stext = h_objec-stext.
ALV_OUTPUT-Ptype = LIST_OUTPUT-otype.
ALV_OUTPUT-pobid = LIST_OUTPUT-sobid.
ALV_OUTPUT-pshort = LIST_OUTPUT-short.
ALV_OUTPUT-ptext = LIST_OUTPUT-stext.
ALV_OUTPUT-qualid = LIST_OUTPUT-qualid.
ALV_OUTPUT-qualstxt = LIST_OUTPUT-qualstxt.
ALV_OUTPUT-expbegda = LIST_OUTPUT-vbegda.
ALV_OUTPUT-expendda = LIST_OUTPUT-vendda.
PERFORM FIND_TRAINING TABLES QUALI_TAB EVENT_TAB COLLECTED_EVENTS
USING $PLVAR $GDATE H_EVENTS H_QUAL.
IF NOT EVENT_TAB[] IS INITIAL.
READ TABLE COLLECTED_EVENTS WITH KEY
QUALID = LIST_OUTPUT-QUALID.
IF SY-SUBRC = 0.
ALV_OUTPUT-ICON_S_EVENTS = ICON_BOOKEVENT.
endif.
ENDIF.
Append ALV_OUTPUT.
h_tabix1 = h_tabix1 + 1.
READ TABLE list_output INDEX h_tabix1
COMPARING otype sobid.
endwhile.
endif.
endloop.
endloop.
check if indicator for qualification view is set
IF h_qual = 'X'. "note 956731
SORT alv_output by qualid OTYPE SOBID ptype pobid "note 956731
expbegda expendda. "note 956731
ELSE. "note 956731
SORT alv_output by OTYPE SOBID ptype pobid qualid expbegda expendda.
ENDIF. "note 956731
DELETE ADJACENT DUPLICATES FROM ALV_OUTPUT COMPARING OTYPE SOBID ptype
pobid qualid expbegda expendda.
stext_AQ und icon-Feld noch nicht gefüllt
perform PREPARE_TOP_OF_LIST.
perform Build_FIELDCAT using GT_FIELDCAT[] H_EVENTS.
perform ALV_LAYOUT USING alv_layout.
G_REPID = SY-REPID.
G_VARIANT-REPORT = G_REPID.
PERFORM EVENTTAB_BUILD USING GT_EVENTS.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
I_INTERFACE_CHECK = 'X'
I_CALLBACK_PROGRAM = G_REPID
I_CALLBACK_PF_STATUS_SET = 'SET_PF_STATUS'
I_CALLBACK_USER_COMMAND = ALV_USERCOMMAND
I_STRUCTURE_NAME = 'HRPDV_EXPIRED_Q'
IS_LAYOUT = ALV_LAYOUT
IT_FIELDCAT = GT_FIELDCAT[]
IT_EXCLUDING =
IT_SPECIAL_GROUPS =
IT_SORT =
IT_FILTER =
IS_SEL_HIDE =
I_DEFAULT = 'X'
I_SAVE = 'A'
IS_VARIANT = G_VARIANT
IT_EVENTS = GT_EVENTS
IT_EVENT_EXIT =
IS_PRINT =
IS_REPREP_ID =
I_SCREEN_START_COLUMN = 0
I_SCREEN_START_LINE = 0
I_SCREEN_END_COLUMN = 0
I_SCREEN_END_LINE = 0
IMPORTING
E_EXIT_CAUSED_BY_CALLER =
ES_EXIT_CAUSED_BY_USER =
TABLES
T_OUTTAB = ALV_OUTPUT
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.
*& Form FIND_TRAINING
text
-->P_QUALI_TAB text
-->P_EVENT_TAB text
-->P_$PLVAR text
-->P_GDATE text
-->P_H_EVENT text
-->P_H_QUAL text
FORM FIND_TRAINING TABLES P_QUALI_TAB STRUCTURE QUALI_TAB
P_EVENT_TAB STRUCTURE EVENT_TAB
P_COLLECTED_EVENTS STRUCTURE COLLECTED_EVENTS
USING VALUE(P_$PLVAR) LIKE P1000-PLVAR
VALUE(P_GDATE) LIKE P1000-GDATE
VALUE(P_H_EVENT) TYPE ANY
VALUE(P_H_QUAL) TYPE ANY.
IF NOT P_H_EVENT IS INITIAL.
READ TABLE EVENT_TAB INDEX 1 TRANSPORTING NO FIELDS.
IF SY-SUBRC <> 0.
CLEAR P_EVENT_TAB. REFRESH EVENT_TAB.
CLEAR P_COLLECTED_EVENTS. REFRESH P_COLLECTED_EVENTS.
IF EVENT = FALSE.
EVENT = TRUE.
ELSE.
EVENT = FALSE.
ENDIF.
CALL FUNCTION 'RHPH_FIND_TRAINING_FOR_QUAL'
EXPORTING
PLVAR = PCHPLVAR
GDATE = SY-DATUM
GET_NAME = 'X'
TABLES
QUALI_TAB = QUALI_TAB
TO_Q_TAB = EVENT_TAB
EXCEPTIONS
NO_QUALIFICATION = 1
NO_OBJECT_FOUND = 2
TECHNICAL_ERROR = 3
OTHERS = 4.
IF SY-SUBRC = 0.
the found qualifications are picked up into table event_tab
ENDIF.
IF SY-SUBRC = 1.
MESSAGE S015. "Zu den Eingaben wurden keine Daten gefunden
ENDIF.
IF SY-SUBRC > 2.
EXIT.
ENDIF.
collect events when there are double.
Veranstaltungen kollektieren, Können mehrfach auftauchen, da
verschiedenen Qualifikationen von gleichen Veranstaltungen vermittelt
LOOP AT P_EVENT_TAB INTO P_COLLECTED_EVENTS.
APPEND P_COLLECTED_EVENTS.
ENDLOOP.
SORT P_COLLECTED_EVENTS BY QUALID STEXT.
ENDIF.
ENDIF.
ENDFORM. " FIND_TRAINING
*& Form PREPARE_TOP_OF_LIST
text
--> p1 text
<-- p2 text
FORM PREPARE_TOP_OF_LIST.
DATA ALV_TOP_OF_LIST TYPE SLIS_LISTHEADER. "typ, key, info
DATA STEXT LIKE HRPDV_SUCCESSOR_VIEW-TTEXT.
DATA P_SUBRC LIKE SY-SUBRC.
DATA P_STEXT LIKE T777O-OTEXT.
DATA l_tabix like sy-tabix value 0.
DATA: h_counter TYPE i. "note 730486
ALV_TOP_OF_LIST-TYP = 'H'.
ALV_TOP_OF_LIST-INFO = TEXT-REQ.
APPEND ALV_TOP_OF_LIST TO GT_ALV_LIST_TOP_OF_LIST.
Organisationseinheit
ALV_TOP_OF_LIST-typ = 'S'.
Read text for organisationunit
PERFORM READ_TEXT_OTYPE_T777O(SAPLRHP0) USING SY-LANGU $ORGEH
P_STEXT P_SUBRC.
ALV_TOP_OF_LIST-key = P_STEXT.
fill buffer for read organisation-text
CALL FUNCTION 'RH_TEXT_BUFFER_FILL'
EXPORTING
CHECK_STRU_AUTH = 'X'
WITH_EXTINT = ' '
TABLES
OBJECTS = OBJECTS.
loop at objects for multipleselection
clear h_counter. "note 730486
LOOP AT OBJECTS.
$OBJID = OBJECTS-SOBID.
CALL FUNCTION 'RH_READ_OBJECT'
EXPORTING
PLVAR = OBJECTS-PLVAR
OTYPE = OBJECTS-OTYPE
OBJID = $OBJID
IMPORTING
SHORT = short
STEXT = STEXT
EXCEPTIONS
NOT_FOUND = 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.
IF h_counter >= 15. "note 730486
MOVE '( ... )' TO ALV_TOP_OF_LIST-INFO. "note 730486
APPEND ALV_TOP_OF_LIST TO gt_alv_list_top_of_list.
"note 730486
EXIT. "note 730486
ENDIF. "note 730486
CONCATENATE $ORGEH OBJECTS-SOBID STEXT INTO
ALV_TOP_OF_LIST-INFO SEPARATED BY SPACE.
APPEND ALV_TOP_OF_LIST TO GT_ALV_LIST_TOP_OF_LIST.
CLEAR ALV_TOP_OF_LIST.
ALV_TOP_OF_LIST-typ = 'S'.
l_tabix = l_tabix + 1.
ADD 1 TO h_counter. "note 730486
ENDLOOP.
CLEAR ALV_TOP_OF_LIST.
ALV_TOP_OF_LIST-TYP = 'S'.
ALV_TOP_OF_LIST-key = TEXT-003.
WRITE PCHBEGDA TO ALV_TOP_OF_LIST-INFO.
APPEND ALV_TOP_OF_LIST TO GT_ALV_LIST_TOP_OF_LIST.
clear ALV_TOP_OF_LIST-INFO.
ALV_TOP_OF_LIST-key = TEXT-004.
WRITE PCHENDDA TO ALV_TOP_OF_LIST-INFO.
Append ALV_TOP_OF_LIST TO GT_ALV_LIST_TOP_OF_LIST.
ENDFORM. " PREPARE_TOP_OF_LIST
*& Form BUILD_FIELDCAT
text
-->P_GT_FIELDCAT[] text
FORM BUILD_FIELDCAT USING P_GT_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV
P_H_EVENTS.
DATA: WA_FIELDCAT LIKE LINE OF P_GT_FIELDCAT.
DATA: P_REPNAME LIKE SY-REPID,
L_TABIX LIKE SY-TABIX. "local variable for sy-tabix.
P_REPNAME = SY-REPID.
Erstellen des Feldkataloges
CALL FUNCTION 'REUSE_ALV_FIELDCATALOG_MERGE'
EXPORTING
I_PROGRAM_NAME = P_REPNAME
I_INTERNAL_TABNAME =
I_STRUCTURE_NAME = 'HRPDV_EXPIRED_Q'
I_CLIENT_NEVER_DISPLAY = 'X'
I_INCLNAME = PRONAME
CHANGING
CT_FIELDCAT = P_GT_FIELDCAT
EXCEPTIONS
INCONSISTENT_INTERFACE = 0
PROGRAM_ERROR = 0
OTHERS = 0.
LOOP AT P_GT_FIELDCAT INTO WA_FIELDCAT.
l_tabix = sy-tabix.
CASE WA_FIELDCAT-FIELDNAME.
when 'OTYPE'.
WA_FIELDCAT-DDICTXT = 'L'.
when 'SOBID'.
WA_FIELDCAT-DDICTXT = 'L'.
WHEN 'STEXT'.
WA_FIELDCAT-DDICTXT = 'L'.
when 'PTYPE'.
WA_FIELDCAT-DDICTXT = 'L'.
when 'POBID'.
WA_FIELDCAT-DDICTXT = 'L'.
when 'PSHORT'.
WA_FIELDCAT-DDICTXT = 'L'.
WHEN 'PTEXT'.
WA_FIELDCAT-DDICTXT = 'L'.
WHEN 'QUALID'.
WA_FIELDCAT-DDICTXT = 'L'.
WHEN 'QUALSTXT'.
WA_FIELDCAT-DDICTXT = 'L'.
WHEN 'EXPBEGDA'.
WA_FIELDCAT-DDICTXT = 'L'.
WHEN 'EXPENDDA'.
WA_FIELDCAT-DDICTXT = 'L'.
WHEN 'ICON_S_EVENTS'.
IF P_H_EVENTS IS INITIAL.
WA_FIELDCAT-NO_OUT = 'X'.
else.
WA_FIELDCAT-DDICTXT = 'X'.
endif.
ENDCASE.
MODIFY P_GT_FIELDCAT FROM WA_FIELDCAT INDEX l_tabix.
ENDLOOP.
ENDFORM. " BUILD_FIELDCAT
*& Form ALV_LAYOUT
text
-->P_L_ALV_LAYOUT text
FORM ALV_LAYOUT USING P_ALV_LAYOUT TYPE slis_layout_alv.
build layout
P_LAYOUT-BOX_FIELDNAME = 'MARK_X'. "fieldname for checkbox
P_ALV_LAYOUT-COLWIDTH_OPTIMIZE = 'X'.
P_ALV_LAYOUT-BOX_TABNAME = ALV_OUTPUT. "tabname for checkbox
p_ALV_layout-info_fieldname = 'ALV_COLOR'.
ENDFORM. " ALV_LAYOUT
FORM eventtab_build USING
FORM EVENTTAB_BUILD USING RT_EVENTS TYPE SLIS_T_EVENT.
DATA: LS_EVENT TYPE SLIS_ALV_EVENT.
MOVE 'TOP_OF_PAGE' TO LS_EVENT-NAME.
MOVE 'TOP_OF_PAGE' TO LS_EVENT-FORM.
APPEND LS_EVENT TO RT_EVENTS.
ENDFORM. "EVENTTAB_BUILD
*FORM TOP_OF_PAGE
FORM TOP_OF_PAGE. "#EC CALLED
NEW-PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
IT_LIST_COMMENTARY = GT_ALV_LIST_TOP_OF_LIST[].
ENDFORM. "TOP_OF_PAGE
FORM USER_COMMAND *
USER_COMMAND for the list of successor view *
--> r_ucomm *
--> rs_selfield *
FORM USER_COMMAND USING ALV_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD. "#EC CALLED
DATA: SELECTED_LINE LIKE HRPDV_expired_q.
DATA: SOBID_QUA LIKE P1000-OBJID.
DATA: LT_PERS_TAB LIKE HRSOBID OCCURS 0 WITH HEADER LINE.
CASE ALV_UCOMM.
WHEN '&IC1'. "per Doppelklick auswählen
READ TABLE ALV_OUTPUT INDEX
RS_SELFIELD-TABINDEX INTO SELECTED_LINE.
CASE RS_SELFIELD-FIELDNAME.
WHEN 'POTYPE' or 'POBID' or 'PTEXT' or 'OTYPE' or 'SOBID' or
'STEXT' or 'QUALID' or 'QUALSTXT' or 'EXPBEGDA' or 'EXPENDDA'.
READ TABLE ALV_OUTPUT INDEX RS_SELFIELD-TABINDEX INTO
Help_output.
IF SY-SUBRC <> 0.
MESSAGE S027. "Bitte gültige Zeile auswählen
EXIT.
Endif.
IF ALV_OUTPUT-SOBID IS INITIAL.
MESSAGE S015. "Zu den Eingaben wurden keine Daten gefunden
ELSE.
converte the variable because of the different types
SOBID_QUA = SELECTED_LINE-SOBID_QUA.
CALL FUNCTION 'RHPP_SHOW_PROFILE'
EXPORTING
PLVAR = pchplvar
OTYPE = SELECTED_LINE-PTYPE "XSC
OBJID = SELECTED_LINE-POBID "XSC
BEGDA = PCHBEGDA
ENDDA = PCHENDDA
MAINTAIN = ' '
EXCEPTIONS
NO_AUTHORITY = 1
NOT_FOUND = 2
OTHERS = 3.
CASE SY-SUBRC.
WHEN 0.
All right.
WHEN 1.
MESSAGE S015.
Zu Ihren Eingaben konnten keine Daten gefunden werden!
WHEN 2.
MESSAGE E000.
Dazu haben sie keine berechtigung!
WHEN OTHERS.
MESSAGE E008.
Es ist ein unvorhergesehener Fehler aufgetreten.
ENDCASE. "sy-subrc.
CLEAR ALV_OUTPUT.
ENDIF. "IF ALV_OUTPUT-SOBID IS INITIAL.
CLEAR ALV_OUTPUT-SOBID.
when 'ICON_S_EVENTS'.
IF SELECTED_LINE-ICON_S_EVENTS IS INITIAL.
MESSAGE S027. "Bitte gültige Zeile auswählen
EXIT.
ENDIF.
CLEAR LT_PERS_TAB.
REFRESH LT_PERS_TAB.
LT_PERS_TAB-PLVAR = pchPLVAR.
LT_PERS_TAB-OTYPE = SELECTED_LINE-PTYPE. "XSC
LT_PERS_TAB-SOBID = SELECTED_LINE-POBID. "XSC
APPEND LT_PERS_TAB.
SOBID_QUA = SELECTED_LINE-QUALID.
CALL FUNCTION 'RHPP_SHOW_SUGGEST_EVENTS'
EXPORTING
P_PLVAR = pchPLVAR
P_SOBID_QUA = SOBID_QUA
P_PROFCY_REQ = SELECTED_LINE-RATING_REQ
P_GDATE = sy-datum
TABLES
EVENT_TAB =
PERS_TAB = LT_PERS_TAB.
endcase.
CLEAR SELECTED_LINE.
ENDCASE. "case sy-ucomm
CLEAR SY-UCOMM.
ENDFORM. "USER_COMMANDPls be more specific in your question. If you want to include an extra field in your alv output, then read the field catalog table you created through "Reuse_alv_fieldcatalog_merge" and then add an extra entry in it giving the details of the field you want to add.. and then call the "resuse_alv_grid_display",
Hope this helps. To be able to help you in a better way, kindly revert with any specific issue.
Reward if helpful,
Karan -
How do I add a new font to the list?
In "Tools/Options/Content/Advanced" how do I add a new font to the list? I have "Comic Sans MS" listed for one of the options, but the drop-down menu does not contain that option, so I can't select it for another font option.
Thanks for your reply.
As to your question: No, of course I wouldn't scroll down, it's in alphabetical order, so why would "C" for Comic Sans MS be anywhere but between B and D on the list?
Now a question for you: If person or group was going to alphabetize a list and then break it down into sublists, why would he, she, they not include headers for each portion and maybe even indent each font name, so a person might have a chance of getting the drift?
Also, how do you add new fonts to the list? -
Need to add new fields in transaction UDM_DISPUTE.
Hi Friends,
This is regarding UDM_DISPUTE transaction in FSCM.
I need to add new fields (drop down lists) in transaction UDM_DISPUTE.
Program Name: SAPLSRMCLFRM2
Screen Number: 100
Can any one please suggest me with the name of exit using which I can add these new fields.
Or another way through which I can add these new fields viz., BADI or classes.
Thank You in Advance!
Regards,
TejaswiniExecute the below code to find the userexits the t-code is using
REPORT yuserexit_vin NO STANDARD PAGE HEADING.
TABLES : tstc, tadir, modsapt, modact, trdir, tfdir, enlfdir.
TABLES : tstct. DATA : jtab LIKE tadir OCCURS 0 WITH HEADER LINE.
DATA : field1(30).
DATA : v_devclass LIKE tadir-devclass.
PARAMETERS : p_tcode LIKE tstc-tcode OBLIGATORY.
SELECT SINGLE * FROM tstc WHERE tcode EQ p_tcode.
IF sy-subrc EQ 0.
SELECT SINGLE * FROM tadir WHERE pgmid = 'R3TR' AND object = 'PROG' AND obj_name = tstc-pgmna.
MOVE : tadir-devclass TO v_devclass.
IF sy-subrc NE 0.
SELECT SINGLE * FROM trdir WHERE name = tstc-pgmna.
IF trdir-subc EQ 'F'.
SELECT SINGLE * FROM tfdir WHERE pname = tstc-pgmna.
SELECT SINGLE * FROM enlfdir WHERE funcname = tfdir-funcname.
SELECT SINGLE * FROM tadir WHERE pgmid = 'R3TR' AND object = 'FUGR' AND obj_name EQ enlfdir-area.
MOVE : tadir-devclass TO v_devclass.
ENDIF.
ENDIF.
SELECT * FROM tadir INTO TABLE jtab WHERE pgmid = 'R3TR' AND object = 'SMOD' AND devclass = v_devclass.
SELECT SINGLE * FROM tstct WHERE sprsl EQ sy-langu AND tcode EQ p_tcode.
FORMAT COLOR COL_POSITIVE INTENSIFIED OFF.
WRITE:/(19) 'Transaction Code - ', 20(20) p_tcode, 45(50) tstct-ttext.
SKIP.
IF NOT jtab[] IS INITIAL.
WRITE:/(95) sy-uline.
FORMAT COLOR COL_HEADING INTENSIFIED ON.
WRITE:/1 sy-vline, 2 'Exit Name', 21 sy-vline , 22 'Description', 95 sy-vline.
WRITE:/(95) sy-uline.
LOOP AT jtab.
SELECT SINGLE * FROM modsapt WHERE sprsl = sy-langu AND name = jtab-obj_name.
FORMAT COLOR COL_NORMAL INTENSIFIED OFF.
WRITE:/1 sy-vline, 2 jtab-obj_name HOTSPOT ON, 21 sy-vline , 22 modsapt-modtext, 95 sy-vline.
ENDLOOP.
WRITE:/(95) sy-uline.
DESCRIBE TABLE jtab.
SKIP.
FORMAT COLOR COL_TOTAL INTENSIFIED ON.
WRITE:/ 'No of Exits:' , sy-tfill.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(95) 'No User Exit exists'.
ENDIF.
ELSE.
FORMAT COLOR COL_NEGATIVE INTENSIFIED ON.
WRITE:/(95) 'Transaction Code Does Not Exist'.
ENDIF.
AT LINE-SELECTION.
GET CURSOR FIELD field1.
CHECK field1(4) EQ 'JTAB'.
SET PARAMETER ID 'MON' FIELD sy-lisel+1(10).
CALL TRANSACTION 'SMOD' AND SKIP FIRST SCREEN.
* *---End of Program -
Robohelp 6, crash system after insert new topic
Hi,
i have a problem with Robohelp 6. when i try to insert a new topic in one exsisting project, created with the same program, the system crash, so it's not possible to add new topic.
Someone have ever had that kind of problem or know the reason?
Thank youWhere is your RoboHelp project located. If on a network drive, move it to a local drive and try again. You should never work on a RoboHelp project whilst it is on a network unless you want all sorts of problems like this to occur. By all means backup to a network but that's it.
If the problem still persists, try closing the project and deleting the <projectname>.cpd file in Windows Explorer (where <projectname> is the name of the project). When you reopen the project, this file is rebuilt.
The RoboColum(n)
@robocolumn
Colum McAndrew -
Hello,
how to add new locale to the list in BI Dashboards -> Settings> My Account -> Locale (location)
http://tinypic.com/r/zjhttv/6German spell checker is currently on the product roadmap and will be available out-of-the-box in the product itself - though there are no fixed timelines as of now.
Can you please file a request via Enterprise support channel so that this feature gets a higher priority?
BTW the application itself works fine in English, French , German & Japanese languages - if you change the browser locale to German then the entire UI would appear in German language.
--Santosh -
Customize worklist app, add new column
Hi!
I want to customize worklist application, add new columns to list which I want to fill in from database (withs SELECTs).
This is not an easy task... I add the new columns as TaskAttribute (change the Login.java), so the new columns appear in the Preferences as well. Great, I thought, I will use the new columns in searching and filters... but I couldn't.
I got NullPointerException.:( I can not integrate these new columns in the workist application!
Please help me, How can I add new columns to task list?
Thank You!
ViktorHi,
using custamization we can get this field in CAT2 transaction in the work list. after that SAP provided two user exits CATS0001 and CATS0010. first is for displaying project number and second one is to display project description in CAT2 transaction.
Thanks,
Ramaiah -
Guys,
I need to add a new language key in CRM 5.0. In Transaction BP when we select languages, how do we add new languages to the list?
AniIndividual languages cannot be added by a phone owner/user.
A specific/select set/combination of languages is put on devices intended for specific regions/countries.
This means that all possible combinations of languages that individual people might wish to see do not exist (such software packages, firmware, has not been created by Nokia).
And the only proper way of getting whatever languages are available, is to buy a device intended for the region/country where those languages are available. -
Add new rating scale text filed in SharePoint 2010 Survey List???
Would it be possible to add extra text range field in SharePoint survey Rating Scale filed? so far i know it could be achieved by using Client Java script. i have added following script in NewForm.aspx, EditForm.aspx, DispForm.aspx and Summary.aspx
but nothing its reflecting into the UI page. Another problem is if i have multiple Questions with rating scale field, how i am gonna achieve extra text range for each question in one page/separator page like the following way?
VeryDissatisfied Dissatisfied not satisfied Satisfied Very Satisfied Do not participate
1 2 3
4 5 6
These JavaScript codes are all added in the content tag which contentplaceholderid="PlaceHolderMain". should i add this script to another location?
For NewForm.aspx; DispForm.aspx; EditForm.aspx
<script type="text/javascript">
var tables = document.getElementsByTagName('table');
for (var i=0; i<tables.length; i++)
if (tables[i].summary == 'Rating Scale Question')
var trs = tables[i].getElementsByTagName('tr');
var tds = trs[0].getElementsByTagName('td');
tds[2].colSpan = 1;
tds[2].innerHTML = 'your range text';
tds[3].colSpan = 1;
tds[3].innerHTML = your range text';
tds[4].colSpan = 1;
tds[4].innerHTML = your range text';
tds[5].colSpan = 1;
tds[5].innerHTML = your range text';
</script>
For Summary.aspx
<script type="text/javascript">
var tables = document.getElementsByTagName('table');
for (var i=0; i<tables.length; i++)
if (tables[i].className == 'ms-surveyVBarT')
tables[i].deleteRow(0);
var row = tables[i].insertRow(0);
var cell0 = row.insertCell(0);
var cell1 = row.insertCell(1);
var cell2 = row.insertCell(2);
var cell3 = row.insertCell(3);
cell0.innerHTML = your range text';
cell1.innerHTML = your range text';
cell2.innerHTML = your range text';
cell3.innerHTML = your range text';
</script>
Thanks in advanced!Hi,
According to your post, my understanding is that you wanted to Add new rating scale title fields in SharePoint Survey.
I have done a test, it works fine. I have just added the function to load the code, refer to the following:
For NewForm.aspx; DispForm.aspx; EditForm.aspx
<script type="text/javascript">
_spBodyOnLoadFunctionNames.push("ChangeTitle");
function ChangeTitle() {
var tables = document.getElementsByTagName('table');
for (var i = 0; i < tables.length; i++) {
if (tables[i].summary == 'Rating Scale Question') {
var trs = tables[i].getElementsByTagName('tr');
var tds = trs[0].getElementsByTagName('td');
tds[2].colSpan = 1;
tds[2].innerHTML = 'your range text';
tds[3].colSpan = 1;
tds[3].innerHTML = 'your range text';
tds[4].colSpan = 1;
tds[4].innerHTML = 'your range text';
tds[5].colSpan = 1;
tds[5].innerHTML = 'your range text';
</script>
For Summary.aspx
<script type="text/javascript">
_spBodyOnLoadFunctionNames.push("ChangeTitle");
function ChangeTitle() {
var tables = document.getElementsByTagName('table');
for (var i=0; i<tables.length; i++)
if (tables[i].summary == 'Rating Scale Question')
var trs = tables[i].getElementsByTagName('tr');
var tds = trs[0].getElementsByTagName('td');
tds[2].colSpan = 1;
tds[2].innerHTML = 'your range text';
tds[3].colSpan = 1;
tds[3].innerHTML = your range text';
tds[4].colSpan = 1;
tds[4].innerHTML = your range text';
tds[5].colSpan = 1;
tds[5].innerHTML = your range text';
< /script>
For Summary.aspx
< script type="text/javascript">
var tables = document.getElementsByTagName('table');
for (var i=0; i<tables.length; i++)
if (tables[i].className == 'ms-surveyVBarT')
tables[i].deleteRow(0);
var row = tables[i].insertRow(0);
var cell0 = row.insertCell(0);
var cell1 = row.insertCell(1);
var cell2 = row.insertCell(2);
var cell3 = row.insertCell(3);
cell0.innerHTML = your range text';
cell1.innerHTML = your range text';
cell2.innerHTML = your range text';
cell3.innerHTML = your range text';
</script>
Best Regards,
Lisa Chen -
Crystal Report not listed Add New Item for Visual Studio 2010
I just finished installing cryestal report for visual studio 2010.
During the installation a visual studio error dialog popped up "Operation cannot be completed. Access Denied", the crystal report installation continued and was informed that the installation was successful.
But on opening my visual studio project to add new item, crystal report item is not listed there.
Is there anything that needs to be done to get it listed in the Add New Item dialog for visual studio?I wonder what file you ran to install CRVS2010? Was it the MSI as opposed to the actual install file?
The link to the correct install is here:
http://downloads.businessobjects.com/akdlm/cr4vs2010/CRforVS_13_0_2.exe
Is that the file you ran to install CRVS2010? E.g. as opposed to:
http://downloads.businessobjects.com/akdlm/cr4vs2010/CRforVS_redist_install_32bit_13_0_2.zip
- Ludek
Maybe you are looking for
-
How to validate a date in message mapping
Hi experts, how to validate a date in message mapping. For ex: if date comes as 2008/02/31, then file it shold not get processed.how to achieve this in message mapping. Please help . Thanks&Regards, Reyaz Hussain
-
I need to be able to create captions from the metadata located in the file info on .png images created in Photoshop. I have been running into multiple issues. 1. The data from Photoshop is not showing up in the InDesign File Info 2. When I simply r
-
I tunes is putting 2/duplicate songs on to my Ipod touch
Why is I tunes is duplicating songs when synching on to my I pod touch?
-
Service purchase requition ,although we selected in maintainaec order,it is
Dear Sap experts, Please advise me for service purchase requition ,although we selected in maintainaec order,it is not linked with service PR. tHANKS mOIHT
-
Greetings, With the new version of sawfish out that supports razor-qt, i wanted to give them both a try, however I am having issues getting Razor-QT compile. Here is the output from my pacman -Q: acl 2.2.51-1 attr 2.4.46-1 autoconf 2.68-2 automake 1