Add new functions?
Is it possible to write and add your own function (not formula) to Numbers? I have the impression that this might be done, but I have not been able to find how to do it in Numbers Help or elsewhere.
I am a long time Mac user, but new to these Discussions. This is the first thread that I have read and I find that there is a huge abyss between where BobH is and Yvan. We "end users" need simpler instruction (at least I do)
Bob seems to want some concrete ABC suggestions and Yvan is saying that there are all sorts of capabilities available via scripts. I don't use scripts either and would welcome some step by step instruction to use scripts.
I am slowly moving more of my work to iWork but still rely more on AppleWorks. Often, enhance capability comes at a price of being less obvious. In Appleworks, if I want to fill down in a spreadsheet, I just use Command-D but with Numbers, I have to navigate to a menu to select that fill feature. This, in my mind, is a step backward. It is a common and simple move to fill, so why is it not available as a keyboard command???
Similar Messages
-
Can i add new function in B1.Example exist function in 2005 version is Concat(,) if i want to add new function can i do.I want function to convert number to text for decribe total price, example total price = 3250 the text must show as 'three thousand and two hundred fifty'.Can i do.Please reply.
thank youHi Virasak
Where are you trying to do this??? In your program or the pld. If in the pld it can be done, works great.
In the sdk itself i do not think there is any functions for this, but you should check in your programming enviroment to see if it has such a function.
Hope this helps -
Add new function to Services for Object in transaction XD03
Hi expert,
Do you know how to add a new function to the Services for Object appeared at the beginning of the title bar on transaction XD03? I would like to add it to the Create list. Please help, thanks!
ChuongHi,
Check this Post, May help you
XD01 ENHANCEMENT
Regards,
Satish -
Hi !!
I need to add a custom button in list result of transaction VKM1, but i'm looking for an exit program and I'can't find it, can you help me??.
Thanks a lot!.
Soraya CervantesI think we can't able to add any custom button directly to the transaction VMK1.
Copy the program RVKRED02 and it's include to some Z Program ZRVKRED02 and do the changes.
Regards
Prakash. -
How can i add a new function to the Basic IVI class vi's?
I need to use the IVI vi's to control some instruments, let's say a DC Power Supply.
Since there's a DC Power supplyclass, i can used those VI's but waht if one of the VI's does not contains all the functions that i need?. How can i add more functions to the IVI classes?. What do i need to do to add a new function to the iviFGen class?If you would like to try developing your own instrument driver (or modify the existing one), we have documentation, model instrument drivers, and driver templates to help at :
http://www.ni.com/devzone/idnet/development.htm
We also have a syndicate of third party vendors that specialize in National Instruments' products and services. Some of the vendors specialize in driver development. I would suggest contacting one of the Alliance members at:
http://www.ni.com/alliance -
Smartview 11.1.2.1 toolbar-Add new/modify functionality without VBA
Please help me with below questions
1. Is it possible to add new custom functionality (like add new button/modify the existing functionality) in Smart view 11.1.2.1 toolbar or anywhere in Smart view main menu without using VBA?
2. Can above mentioned changes brought on the server side, which would reflect on client; in other words, maintain code on server side; no need of installation.
3. Is JAVA code supported by Smartview 11.1.2.1 as VBA; if yes then how it can be achieved?
Product version:
11.1.2.1.000Hi Anku,
1. Is it possible to add new custom functionality (like add new button/modify the existing functionality) in Smart view 11.1.2.1 toolbar or anywhere in Smart view main menu without using VBA?With a little research, you can expose the Smartview menus and functionality using a .net project in Visual Studio.
2. Can above mentioned changes brought on the server side, which would reflect on client; in other words, maintain code on server side; no need of installation.The Smartview client UI elements are derived from local msoffice APIs, and not managed at the server. The server is a web service and the only thing it knows is how to dispatch requests in the form of XML to the appropriate API (E.g. Essbase) and return the results to the client as an xml stream.
3. Is JAVA code supported by Smartview 11.1.2.1 as VBA; if yes then how it can be achieved?No.
Regards,
Robb Salzmann -
downloaded 11.0.3 (42) 64 bit to my MacBook Pro and it crashes every time I select a song a use the 'add to' function to add to a play list. It's never done this before, is it a bug with the new version?
You could just disable updates. Change these settings in about:config.
* app.update.auto - set to false
* app.update.enabled - set to false
You can still check for updates with the "Check for Updates" button in the About Firefox window, but it will download the update file anyway if there is an update available. You can also check which is the current release from here:
* http://sjc.mozilla.com/en-US/firefox/new/ -
Not able to add new fields in Content cube
Hi all
I think I had this post earlier too, but I haven't been able to add new fields in a Business content cube. I added them in the cube but I am not sure how to update the datasource, infosource, update rule etc. in proper manner.
Please write me the details or send me in my email at
[email protected] , I would be so happy for your help.
Thank you in Advance.
SajitaRoberto;
I am doing the third options. feeding data from source system and I tried to add them into the infosource it didn't work. In this case, do you think I need to update the data sourece too, if so how do I do that it's function module. data source I am using is '0ME_ISM_AM_REV_1'. So please give me some more details. Thank you.
Sajita -
Why "New Item" in ribbon and "Add new item" in xsllistview link to different form
Hi all,
I have a question. I have a list with two new forms, one is created in SPD the other one is created in InfoPath (both forms are created by developer).
I don't know why the new form link to different page when I click "New Item" in ribbon and "Add new item" in list view.
1. Will open new form that created in InfoPath when click on "New Item" in ribbon.
2. Will open new form that created in SPD when click on "Add new item" in list view.One way to do this would be to hold the urls for the pages you need to display in a table. You could then build the links as one of the columns of a report using some fancy SQL.<br>
<br>
Or you could make a simple function to return the correct link based on the relevant parameters:<br>
<br>
create or replace function get_url (p_criteria in varchar2) return varchar2<br>
is<br>
lv_url varchar2(500);<br>
begin<br>
if p_criteria = 'Personal' then<br>
lv_url := 'http://host:port/pls/portal/etc...';<br>
end if;<br>
etc...<br>
return '<a href="' || lv_url || '">' || p_criteria || '</a>';<br>
end;<br>
<br>
Your report could then include the function as one of the columns in your report.<br>
Not very elegant but it should do the job.
Patrick. -
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 -
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. -
Crystal crashes when add new parameters to a stored proc in a subreport
This one has been driving me nuts so any help much appreciated...
I have a stored procedure (Oracle 9i) that is used as the datasource for a subreport (needs to be in the subreport as I need to pass multi-value parameters to the proc - something I've done in numerous other procs/reports). All of the parameters from the proc are linked to data/parameters on the main report.
The report works fine at the moment.
I need to add three new parameters to the proc with an If statement on each one to run various bits of code depending on what is passed in. This is where the trouble starts.
The proc works.
If I create a main report based on the new proc, it works.
If I create a subreport based on the proc and DON'T link it to the main report, it works.
If I create a subreport based on the proc and DO link it to the main report, Crystal crashes with no explanation (just that painful error that apologies for the inconvenience). It is not all the parameters that cause this problem - it's not even restricted to just the new parameters or even just to ones that are used in the IF statements.
This is not the first proc to do this to me - just the first one where the new functionality was too critical to strip out for now.
I have been trawling the net and trying all sorts of things for days so I am hoping someone out there has a suggestion!
Versions: Oracle 9i, Crystal Reports 11.0.0.1994Hi Daniel,
Starting from the basics, after you've inserted the subreport don't link it yet. Edit the subreport and verify the database. Once it's verified, try linking the reports and adding a parameter.
Verify the linking you are using. I've seen where the field from the main report was passing invalid or coruupted data and caused the subreport to die a horrifying death.
Good luck,
Brian -
How to do ALV Popup in a new Function module
Hi experts,
This is the Client Requirement.
" Flow Diagram/Pseudo Code:
Attach a data flow diagram. Write brief pseudo code in plain English. Be sure to include all access data plans.
- FM interface:
- Import: company code/ vendor#.
- Export: default_line, type y4ap_t11
- Exception: NO_DATA or CANCELED
In the FM code, past current z_venddefault code, except for write statements. After internal table is generated, show it in ALV popup. On ALV, add a OK/Cancel button. On OK, ensure that one line is selected (otherwise throw warning), and then fill export structure with that lines G/L account, cost Center, and internal order# fields. Then close the ALV and end FM. For Cancel, just close the ALV end the FM.
For an example of how to build such popup ALVs, take a look at FM Y4AP_SELECT_APPROVER.
Unit Test Plan:
Just use co.code 3000/vend# 1000 to test this FM."
here i need to do is there is a simple report program by displaying in list.
But now i need to do is , i have to put that code in a new function module and there i need to display it in alv grid.
How to do this can anybody help me.
It's a urgent i need to submit today to client.
Thank you
BasuHi,
Check this.
select several rows in alv
It will be helpful.
Regards,
J.Jayanthi -
New functionality in ECC 6.0 and problems during sap implementation
Dear Gurus,
may i know the details of the New functionality in ECC 6.0 on (MM,SD,PP,QM,PS,HR,PM,FI/CO,BI,XI,DMS ) or what is the problems coming at the time of implementation of ECC 6.0.
THANKS AND REGARDS
RSRitesh,
Question is bit confusing
may i know the details of the New functionality in ECC 6.0 on (MM,SD,PP,QM,PS,HR,PM,FI/CO,BI,XI,DMS )
That means you are going to upgarde from some earlier version .what is that version ?
Then you might find some specific information at
https://websmp102.sap-ag.de/uda -
>Upgrade Dependency Analyzer
what is the problems coming at the time of *implementation* of ECC 6.0.
If its a new implemenation you will not face problem , but you need to configure everything accordingly.
Problem depends upon what all you are using from standard and customizing.
Above provided link will help you.
Just add up
http://wiki.sdn.sap.com/wiki/display/ERPLO/NewfunctionalityinECC6.0%28+MM%29
Regards, -
BAPI_SALESORDER_CHANGE add new line and conditions with a condition value
Hi,
I am using BAPI_SALESORDER_CHANGE to add new lines to a credit memo. All works fine except that I can not seem to put a condition value on the new lines. The condition is created but with a value of 0. I can popluate the condition amount field, KBETR but not KWERT. BAPICONDX seems to only have the COND_VALUE field in it and not CONDVALUE as in BAPICOND. Does anyone have any idea how to do this? In the code below I just want to change the material on the first line of the credit memo and not add the condition. Then add new lines with the the condition.
lw_order_header_inx-updateflag = 'U'.
LOOP AT i_accru INTO wa_accru.
lv_count = lv_count + 1.
lv_posnr = lv_count * 10.
* Order Items
lw_order_item_inx-itm_number = lv_posnr.
lw_order_item_inx-material = 'X'.
IF lv_count = 1.
lw_order_item_inx-updateflag = 'U'.
ELSE.
lw_order_item_inx-updateflag = 'I'.
ENDIF.
APPEND lw_order_item_inx TO lt_order_item_inx.
lw_order_item_in-itm_number = lv_posnr.
lw_order_item_in-material = wa_accru-vakey.
APPEND lw_order_item_in TO lt_order_item_in.
* Conditions
IF lv_count <> 1.
lw_conditions_inx-itm_number = lv_posnr.
lw_conditions_inx-cond_st_no = '905'.
lw_conditions_inx-cond_count = '01'.
lw_conditions_inx-cond_type = 'ZHIE'.
lw_conditions_inx-currency = 'X'.
lw_conditions_inx-updateflag = 'I'.
APPEND lw_conditions_inx TO lt_conditions_inx.
lw_conditions_in-itm_number = lv_posnr.
lw_conditions_in-cond_st_no = '905' .
lw_conditions_in-cond_count = '01'.
lw_conditions_in-cond_type = 'ZHIE'.
lw_conditions_in-condvalue = wa_accru-accru.
lw_conditions_in-currency = 'GBP'.
APPEND lw_conditions_in TO lt_conditions_in.
ENDIF.
ENDLOOP.
* Change the credit memo
CALL FUNCTION 'BAPI_SALESORDER_CHANGE'
EXPORTING
salesdocument = lv_vbeln
order_header_in = lw_order_header_in
order_header_inx = lw_order_header_inx
* SIMULATION =
* BEHAVE_WHEN_ERROR = ' '
* INT_NUMBER_ASSIGNMENT = ' '
* LOGIC_SWITCH =
* NO_STATUS_BUF_INIT = ' '
TABLES
return = lt_return
order_item_in = lt_order_item_in
order_item_inx = lt_order_item_inx
* PARTNERS =
* PARTNERCHANGES =
* PARTNERADDRESSES =
* ORDER_CFGS_REF =
* ORDER_CFGS_INST =
* ORDER_CFGS_PART_OF =
* ORDER_CFGS_VALUE =
* ORDER_CFGS_BLOB =
* ORDER_CFGS_VK =
* ORDER_CFGS_REFINST =
* SCHEDULE_LINES =
* SCHEDULE_LINESX =
* ORDER_TEXT =
* ORDER_KEYS =
conditions_in = lt_conditions_in
conditions_inx = lt_conditions_inx
* EXTENSIONIN =
IF sy-subrc = 0.
CALL FUNCTION 'BAPI_TRANSACTION_COMMIT'
* EXPORTING
* WAIT =
* IMPORTING
* RETURN =
ENDIF.Hi Rob,
Have you managed to solve this issue. If so, could you please share the solution.
I am also facing similar problem.
Thanks for your help.
Anoop
Maybe you are looking for
-
Hello, I'm generating a webservice from pl/sql package which returns a collection. JDeveloper generates wrapper pl/sql which gives errors when executed in the database because it consists of code like: PROCEDURE "NAME"$PROC_NAME_A The " creates datab
-
How to activate business content extractor for masterdata in ECC 6.0?
Hi Experts, I have a small problem with the extracttor 0PS_RESPNO_TEXT in ECC 6.0? If i try to open it in RSA2 / RSA6, it says that active version not available. When i check in the developement system, i have it as modified version. For this problem
-
MBP Video output - from Windows
Hi all, My MBP outputs video to nearly any device beautifully. Today I'd booted into WinXP because the streamed content I wanted to watch can't be view on the Mac. The output was dreadful. It almost looked like I was watching a PAL video on an NTSC d
-
PDF Output Encrption/Password for EBS
Hi Tim, Can you please provide some more information on how to encrypt/password protect the pdf output of a template. I am a EBS user and am using 5.6.3 version of XMLP. Thanks in advance. Simar
-
Hi , I have created on PO in which system showing exicse and VAT amount. But while doing MIRO it is not showing any tax and exice even though i selected calculate tax option. Regards, Ravindra