Function key displayed in BDC Source Code By Transaction
Dear All,
/EE , /EECAN Is the value of function key Back and Cancel respectively in selection screen 1000.
Where i can see these value without going through Source code after recording.
Hello,
You could check the table RSMPTEXTS for the field OBJ_CODE with the standard program name for the transaction you are recording
Vikranth
Similar Messages
-
Functional Module:Need some sample source code.
Hi All,
I have created a customized table u2018ZStock_Order_Dealeru2019 with the following fields:
Stock_Order_Dealer
Dealer Number
S2D order Number
Line item Number
Material Number
Ordered Quantity
Batch Number
Received Quantity
S2D from D2G
Receiving Date
I need to create a remote enabled function module in CRM system to fetch the u2018Batch Numberu2019 and u2018Received Quantityu2019 fields when the Material Number is fed to it.Please note that the input and output should be tables.
Could some one please give some sample source code for this.I used table types and select queries to resolve this problem.
-
Function Module to get ABAP source code for a specific version
Hi all
Is there a function module that I can use to get the source code of another function module at a specific version?
For example, can I call a function module passing in "FM_NAME" and "FM_VERSION" and have it return the lines of code associated with that object?
Thanks in advance.
StuartThanks guys
That's incredibly helpful! I have one more question that I just thought of last night...
Is there a way to hook into the code activation process? I want to be able to take a snapshot of the ABAP source code at each point when it is activated for use in another system, but need to be able to intercept this event and get the source code at that point in time.
Any ideas?
Thanks! -
[SOLVED]How to add OAL driver level functionality in the AM335x BSP source code???
Dear developers,
Greetings!!!
As, my platform is WinCE 7 with AM335x BSP and I would like to copy one driver and update the driver as per my requirements. The location from where I have taken the existing driver is -
BSP\SRC\CSP\COMMON_TI_AMXX\OAL --
Existing diver is OALRTC and new driver is abc_I2C under the same location and I have tailored the driver according to my requirements.
One funciton is OALIoCtlHalInitRTC and the call is made from BSP\SRC\OAL\oallib\ioctl.c and the calling funciton is BSPIoCtlHalInitRegistry
In my case, I am calling my OAL API as OALIoCtlHalInitPHY..
But the thing is that I am getting linking error during the time of compiling and is shown below -
Error 6 Error(s) in directory "C:\WINCE700\platform\AM335x\SRC\OAL\OALEXE\". C:\WINCE700\build.log 2800
Error 7 oal.lib(ioctl.obj) : error LNK2019: unresolved external symbol OALIoCtlHalInitPHY referenced in function BSPIoCtlHalInitRegistry C:\WINCE700\build.log 2801
Error 8 fatal error LNK1120: 1 unresolved externals {log="C:\WINCE700\build.log(2802)"} C:\WINCE700\OSDesigns\Enventure\Enventure\Wince700\AM335x_ARMV7_Retail\cesysgen\platform\AM335x\target\ARMV7\retail\oal.exe
Error 9 NMAKE : fatal error U1077: 'C:\WINCE700\sdk\bin\i386\ARM\link.EXE' : return code '0x460' C:\WINCE700\build.log 2803
Error 10 TargetExeFiles -nologo BUILDMSG=Stop. BUILDROOT=C:\WINCE700\platform\AM335x LINKONLY=1 NOPASS0=1 failed - rc = 2. C:\WINCE700\build.log 2805
Error 11 BLDDEMO: ERROR: There were errors building CEBASE. C:\WINCE700\build.log 2837
As I searched but I am unable to solve the issue.
Any one suggest that how to solve the issue???Hello Friends,
The above problem is self solved.. -
Problem of function key desoite of parameter ITSMOBILEDEVICEINCLUDE
Hello,
We are using handheld terminals psionteklogix 7535 G2. All the F-keys are responding as requested by the application transaction except the F6 and F7 that decreases text size and increases text size.
As SAP recommends, when function keys are not working, we have created and attached (with the help of the parameter ~ITSMOBILEDEVICEINCLUDE ) to the internet service the following code:
[http://community.psionteklogix.com/support/f/17/p/1927/8003.aspx#8003]
for the code check the thread published by dcostadimas
but no effect.
If we run the transaction and display the html source code, we can see the above script.
Any idea why it is not working ?
Thank you for your help
Best regards
ChristopheHello Christophe,
Have you checked SAP note 1491666?
Basically it contains similar recommendations as the other forum you have referred to.
Best regards,
Cristiano -
How to add function key to a menu exit in a standard transaction
Hi all,
I have a requirement to add a function key for a menu item in a standard transaction.
In Menu bar we have an option Extras->Other->Repricing . Now my requirement is if i click a function key (ex. F9) the code under the menu exit (Repricing) should trigger. For that i had a function exit EXIT_SAPLJHPA_011 and in this the menu exit SAPLJHPA +CU7 is defined.could anyone suggest me the procedure in detail to add a function key..
Thanks in advance,
Uday.Hi
for this u have to edit standard PF-status, that particular transaction is using. becarefull as the same pf-status may be used for many programs.
get the PF-status for that program. you can get the pf-status via se80, give the program name and u can get the the list of all the objects of that prigram, there you can edit the standard status and can add the function key to your menu item. -
How to highlight HTML source code in JEditorPane
I used JEditorPane to display the HTML source code. Now I want to highlight some part of the HTML code.
e.g. change the font or color of the second line in this piece of HTML code.
I tried to highlight the text in HTML way, e.g.
JEditorPane jep=new JEditorPane():
jet.setContentType("text/html");
jet .setText("<html><i>display styled text</i></html>");
but it didn't work at all. As the text I want to highlight is alreay a part of the HTML code.
I have to sort it out ASAP. as the deadline of my project is coming...
any advice is appreciated.
Thanks so much..:)"In order to display the original html source code (not the effect made by HTML code ) i n JEditorPane,
i can't use editorPane.setContentType("text/html"): As it will try to render the webpage with this piece of HTML code..
e.g. here is the piece of html code i want to display in JEditorPane:
<HTML><HEAD><TITLE>Department of Computer Science Home Page</TITLE>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2737.800" name=GENERATOR>
</HEAD>.........</HTML>
what i want to do is to highlight "Department of Computer Science Home Page" by setting it bold or italic."
Not really sure what you're saying here, but it sounds like you mean that you want the HTML itself to change. If that's it just:
<HTML>
<HEAD>
<TITLE>Department of Computer Science Home Page</TITLE>
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<META content="MSHTML 6.00.2737.800" name=GENERATOR>
</HEAD>
<BODY color='blue' bgcolor='white'>
<tr>
<td bgcolor=yellow>Department of Computer Science Home Page</td>
</tr>
</BODY>
</HTML>FWIW HTH, B4N
~Bill -
hi folks,
I have a question, I created a new function key called 'display' for the screen using the menu painter used that in the program and executed the program successfully in DEV environment. when I moved the changes (moved all) to QAS the function key 'display' did not show up. I checked to see that the function key item got moved using the menu painter in QAS. The item is there in QAS amd checked for the changes in the program using version management. no changes How come the function key is missing on the screen in QAS?
Am I missing anything here?
Thanks,
SKIf you activate your program after you've made your screen changes, sometimes you lose those screen changes. You may need to go back in to the screen and reactivate, then transport it. If necessary, make a small change (like adding a blank line somewhere in the flow logic of the screen) in order to get the screen changes into a transport. I hope this helps.
- April King -
After displaying result of report, my report goes back to source code edito
Hello experts,
I am currently having a big problem with my report. Here is the problem, after displaying the
result(write), when I press BACK button it is not going back to my selection-screen which is the
usual for reports. Now, what happens is that it goes back to the source code or worse, to the main menu of SAP.
What I want to do is that when I press BACK button it should go to either selection-screen 500 or
selection-screen 1500.
Here's a rough flow of what is happening in my report:
start report -> fetch records based on user input -> display results(not in ALV) ->
after displaying report, click 'BACK' button -> it goes back to source code
Now, here's what I want to do:
start report -> fetch records based on user input -> display results(not in ALV) ->
after displaying report, click 'BACK' button -> go back to either selection-screen 500 or 1500
or call again the transaction of my report.
Help would be greatly appreciated here.Hi guys,
Thanks again for the quick replies.Here is the source code:
REPORT zdealer_contacts NO STANDARD PAGE HEADING
LINE-COUNT 0
LINE-SIZE 255
MESSAGE-ID zz.
TYPE-POOLS: slis.
Data Dictionary Tables
TABLES: zts0001,
zsoemailid,
kna1,
zts_stpgeoloc.
Includes
*INCLUDE zun_globe_header. " Globe Telecom Report Header
Structures, internal tables and data declarations
TYPES: BEGIN OF t_upload,
kunnr LIKE zts0001-kunnr,
zaddress(100),
zcperson(30),
zcnumber(18),
END OF t_upload.
TYPES: BEGIN OF t_error,
kunnr LIKE zts0001-kunnr,
zaddress(100),
zcperson(30),
zcnumber(18),
END OF t_error.
TYPES: BEGIN OF t_kna1,
name1 LIKE kna1-name1,
END OF t_kna1.
TYPES: BEGIN OF t_zts0001,
kunnr LIKE zts0001-kunnr,
cdseq LIKE zts0001-cdseq,
zaddress LIKE zts0001-zaddress,
zcperson LIKE zts0001-zcperson,
zcnumber LIKE zts0001-zcnumber,
zactivated LIKE zts0001-zactivated,
name1 LIKE kna1-name1,
END OF t_zts0001.
DATA: it_upload TYPE STANDARD TABLE OF t_upload WITH HEADER LINE,
it_error TYPE STANDARD TABLE OF t_error WITH HEADER LINE,
it_kna1 TYPE STANDARD TABLE OF t_kna1 WITH HEADER LINE,
it_zts0001 TYPE STANDARD TABLE OF t_zts0001 WITH HEADER LINE.
DATA: it_ztstemp LIKE zts0001 OCCURS 100 WITH HEADER LINE,
it_ztstemp_gloc LIKE zts_stpgeoloc OCCURS 100 WITH HEADER LINE.
*AVH - start of insertion - 04/18/06
FIELD-SYMBOLS: <fs_zts0001> LIKE LINE OF it_zts0001.
**ALV Declarations
DATA: gt_fieldcat TYPE slis_t_fieldcat_alv,
g_repid LIKE sy-repid,
gs_layout TYPE slis_layout_alv,
gt_list_top_of_page TYPE slis_t_listheader,
gt_events TYPE slis_t_event WITH HEADER LINE,
gt_print TYPE slis_print_alv.
CONSTANTS: gc_top TYPE slis_formname VALUE 'TOP_OF_PAGE',
gc_topsum TYPE slis_formname VALUE 'TOP_OF_LIST',
gc_ucomm TYPE slis_formname VALUE 'USER_COMMAND'.
*AVH - end of insertion
Variables
DATA: v_kunnr LIKE zts0001-kunnr,
v_title(100) TYPE c,
gc_kunnr(06) TYPE c,
v_compflag(1) TYPE c,
v_flag(1).
Selection Screen
*AVH - start of modification - 06/27/06
*if user is controller, selection-screen 500 will be called else,
*selection-scren 1500 will be called.
*selection-screen for controllers
SELECTION-SCREEN BEGIN OF SCREEN 500.
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pr_upld RADIOBUTTON GROUP grp2 USER-COMMAND ucomm1.
SELECTION-SCREEN COMMENT 2(20) text-007 FOR FIELD pr_upld.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 03(15) text-a11 FOR FIELD p_flnme.
PARAMETERS: p_flnme LIKE rlgrap-filename DEFAULT 'C:\'.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pr_list1 RADIOBUTTON GROUP grp2.
SELECTION-SCREEN COMMENT 2(7) text-003 FOR FIELD pr_list1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN END OF SCREEN 500.
*selection-screen for non-controllers.
SELECTION-SCREEN BEGIN OF SCREEN 1500.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-001.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 1(22) text-002 FOR FIELD p_dcode.
PARAMETERS: p_dcode LIKE vbak-kunnr,
p_name1 LIKE kna1-name1.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pr_list2 RADIOBUTTON GROUP grp USER-COMMAND ucomm2.
SELECTION-SCREEN COMMENT 2(7) text-003 FOR FIELD pr_list2.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pr_add RADIOBUTTON GROUP grp.
SELECTION-SCREEN COMMENT 2(3) text-005 FOR FIELD pr_add.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
PARAMETERS: pr_edit RADIOBUTTON GROUP grp.
SELECTION-SCREEN COMMENT 2(4) text-006 FOR FIELD pr_edit.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN BEGIN OF LINE.
SELECTION-SCREEN COMMENT 03(20) text-a12 FOR FIELD p_code.
PARAMETERS: p_code LIKE zts0001-cdseq.
SELECTION-SCREEN END OF LINE.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN END OF SCREEN 1500.
INITIALIZATION.
SELECT SINGLE kunnr comp_flag INTO (gc_kunnr,v_compflag)
FROM zsoemailid
WHERE bname = sy-uname.
IF sy-subrc <> 0.
MESSAGE i000 WITH
'You are not authorised to use this transaction'.
LEAVE PROGRAM.
ENDIF.
IF v_compflag = 'X'.
CALL SCREEN 500.
ELSE.
CALL SCREEN 1500.
ENDIF.
*AVH - end of modification
AT SELECTION-SCREEN OUTPUT.
PERFORM authority_check.
added by derick 050125
**-changed by weng rulloda 06012005
*AVH - start of insertion - 05/22/06
*no need to get value of kunnr from global memory
*since gc_kunnr would be filled via the select statement below
GET PARAMETER ID 'KUN' FIELD gc_kunnr.
*AVH - end of insertion
p_dcode = gc_kunnr.
*AVH - start of insertion - 05/22/06
**fetch the respective description of dealer based from p_dcode
**and put in parameter p_name1
SELECT SINGLE name1 FROM kna1
INTO p_name1
WHERE kunnr = p_dcode.
*AVH - end of insertion
*AVH - start of insertion - 05/22/06
**selection-screen parameters is based if user is controller or not.
**created new selection-screen conditions based from orig. code
v_kunnr = gc_kunnr.
LOOP AT SCREEN.
IF screen-name = 'P_DCODE'.
screen-input = '0'.
screen-output = '1'.
MODIFY SCREEN.
ELSEIF screen-name = 'P_NAME1'.
screen-input = '0'.
screen-output = '1'.
MODIFY SCREEN.
ELSEIF screen-name = 'P_CODE'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
IF pr_list2 = 'X' OR pr_add = 'X'.
LOOP AT SCREEN.
IF screen-name = 'P_CODE'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ELSEIF pr_edit = 'X'.
LOOP AT SCREEN.
IF screen-name = 'P_CODE'.
screen-input = '1'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
IF pr_list1 = 'X'.
LOOP AT SCREEN.
IF screen-name = 'P_FLNME'.
screen-input = '0'.
MODIFY SCREEN.
ENDIF.
ENDLOOP.
ENDIF.
*AVH - end of modification
AT SELECTION-SCREEN.
CHECK sy-ucomm = 'UCOMM1' OR sy-ucomm = 'UCOMM2'.
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_flnme.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_flnme.
CALL FUNCTION 'WS_FILENAME_GET'
EXPORTING
mask = ',.,..'
mode = 'O'
title = 'File Selection'
IMPORTING
filename = p_flnme
EXCEPTIONS
inv_winsys = 1
no_batch = 2
selection_cancel = 3
selection_error = 4
OTHERS = 5.
*AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_code.
AT SELECTION-SCREEN ON VALUE-REQUEST FOR p_code.
DATA : BEGIN OF itab_list OCCURS 0,
kunnr LIKE zts0001-kunnr,
cdseq LIKE zts0001-cdseq,
zaddress LIKE zts0001-zaddress,
zcperson LIKE zts0001-zcperson,
zcnumber LIKE zts0001-zcnumber,
END OF itab_list.
DATA: tab_fields LIKE dfies OCCURS 0 WITH HEADER LINE,
tab_valuetab(100) TYPE c OCCURS 0 WITH HEADER LINE.
DATA: tab_dynnr TYPE sy-dynnr.
DATA: BEGIN OF tab_return_tab OCCURS 0.
INCLUDE STRUCTURE ddshretval.
DATA: END OF tab_return_tab.
DATA: progname LIKE sy-repid.
CLEAR: tab_valuetab[], tab_fields[].
SELECT kunnr cdseq zaddress zcperson zcnumber
INTO CORRESPONDING FIELDS OF TABLE itab_list
FROM zts0001
WHERE kunnr = v_kunnr.
tab_dynnr = sy-dynnr.
tab_fields-tabname = 'ZTS0001'.
tab_fields-fieldname = 'KUNNR'.
APPEND tab_fields.
tab_dynnr = sy-dynnr.
tab_fields-tabname = 'ZTS0001'.
tab_fields-fieldname = 'CDSEQ'.
APPEND tab_fields.
tab_fields-tabname = 'ZTS0001'.
tab_fields-fieldname = 'ZADDRESS'.
APPEND tab_fields.
tab_fields-tabname = 'ZTS0001'.
tab_fields-fieldname = 'ZCPERSON'.
APPEND tab_fields.
tab_fields-tabname = 'ZTS0001'.
tab_fields-fieldname = 'ZCNUMBER'.
APPEND tab_fields.
LOOP AT itab_list.
tab_valuetab = itab_list-kunnr.
APPEND tab_valuetab.
tab_valuetab = itab_list-cdseq.
APPEND tab_valuetab.
tab_valuetab = itab_list-zaddress.
APPEND tab_valuetab.
tab_valuetab = itab_list-zcperson.
APPEND tab_valuetab.
tab_valuetab = itab_list-zcnumber.
APPEND tab_valuetab.
ENDLOOP.
progname = sy-repid.
CALL FUNCTION 'F4IF_INT_TABLE_VALUE_REQUEST'
EXPORTING
retfield = 'CDSEQ'
dynpprog = progname
dynpnr = '1000'
dynprofield = 'P_CODE'
TABLES
value_tab = tab_valuetab
field_tab = tab_fields
return_tab = tab_return_tab
EXCEPTIONS
OTHERS = 0.
START-OF-SELECTION.
IF pr_edit = 'X' AND p_code IS INITIAL.
MESSAGE i008 WITH 'Please specify a ship-to code.'.
LEAVE TO TRANSACTION 'ZDCONTACT'.
ENDIF.
PERFORM get_data.
IF pr_upld = 'X'.
PERFORM upload_file.
ELSEIF pr_add = 'X'.
PERFORM add_record.
ELSEIF pr_edit = 'X'.
PERFORM edit_record.
ELSEIF pr_list1 = 'X' OR pr_list2 = 'X'.
PERFORM display_alv.
ENDIF.
END-OF-SELECTION.
based from ALV PF-STATUS
IF sy-ucomm = '&F03'. "BACK
LEAVE TO TRANSACTION 'ZDCONTACT'.
ELSEIF sy-ucomm = '&F15'. "EXIT
LEAVE TO TRANSACTION 'ZDCONTACT'.
ELSEIF sy-ucomm = '&F12'. "CANCEL
LEAVE TO TRANSACTION 'ZDCONTACT'.
ENDIF.
*& Form authority_check
FORM authority_check.
CALL FUNCTION 'AUTHORITY_CHECK'
EXPORTING
field1 = 'TCD' "MDM
object = 'S_TCODE'
user = sy-uname
value1 = 'ZMEN'
VALUE3 = '01' MDM
EXCEPTIONS
user_dont_exist = 1
user_is_authorized = 2
user_not_authorized = 3
user_is_locked = 4
OTHERS = 5.
IF sy-subrc NE 2.
**-added by weng 04/28/2006
**-if user is not authorized to use dealer portal check if he is
**- authorized to use the tcode ZDCONTACT
CALL FUNCTION 'AUTHORITY_CHECK'
EXPORTING
field1 = 'TCD' "MDM
object = 'S_TCODE'
user = sy-uname
value1 = 'ZDCONTACT'
VALUE3 = '01' MDM
EXCEPTIONS
user_dont_exist = 1
user_is_authorized = 2
user_not_authorized = 3
user_is_locked = 4
OTHERS = 5.
**-weng
IF sy-subrc NE 2.
MESSAGE i000 WITH
'You are not authorised to use this transaction'.
LEAVE PROGRAM.
ENDIF.
ENDIF.
ENDFORM. " AUTHORITY_CHECK
*& Form get_data
FORM get_data.
*AVH - start of insertion - 04/19/06
**records selected from table zts0001 that has been marked as
**activated will be fetched otherwise, ignore.
IF v_kunnr IS INITIAL.
SELECT * INTO CORRESPONDING FIELDS OF TABLE it_zts0001
FROM zts0001.
ELSEIF v_compflag = 'X'.
SELECT * INTO CORRESPONDING FIELDS OF TABLE it_zts0001
FROM zts0001.
ELSE.
SELECT * INTO CORRESPONDING FIELDS OF TABLE it_zts0001
FROM zts0001
WHERE kunnr = v_kunnr.
ENDIF.
*AVH - start of insertion - 05/24/06
**fetch name based from kunnr and put in itab
LOOP AT it_zts0001 ASSIGNING <fs_zts0001>.
SELECT SINGLE name1 FROM kna1
INTO <fs_zts0001>-name1
WHERE kunnr = <fs_zts0001>-kunnr.
ENDLOOP.
*AVH - end of insertion
ENDFORM. " get_data
*& Form Upload_file
FORM upload_file.
DATA: lv_seq(5) TYPE n,
lv_ctr(5) TYPE c,
lv_kunnr LIKE it_upload-kunnr.
v_title = 'Upload from File'.
CALL FUNCTION 'WS_UPLOAD'
EXPORTING
filename = p_flnme
filetype = 'DAT'
TABLES
data_tab = it_upload
EXCEPTIONS
OTHERS = 1.
IF sy-subrc <> 0.
MESSAGE i008 WITH 'File does not exist.'.
IF v_compflag IS INITIAL.
LEAVE TO TRANSACTION 'ZDCONTACT'.
ELSE.
LEAVE TO TRANSACTION 'ZDCONTACT'.
ENDIF.
ENDIF.
CHECK sy-subrc EQ 0.
DELETE it_upload
WHERE zaddress EQ space
AND zcperson EQ space
AND zcnumber EQ space.
SORT it_zts0001 BY kunnr ASCENDING cdseq DESCENDING.
SORT it_upload BY kunnr ASCENDING.
LOOP AT it_upload.
lv_kunnr = it_upload-kunnr.
AT NEW kunnr.
AVH - start of insertion - 06/30/06
SELECT SINGLE kunnr FROM zsoemailid
INTO lv_kunnr
WHERE kunnr = it_upload-kunnr.
if it_upload-kunnr is not found in table ZSOEMAILID, it will
not be included in the upload.
IF sy-subrc <> 0.
DELETE it_upload.
CLEAR it_upload.
CONTINUE.
ENDIF.
AVH - end of insertion
READ TABLE it_zts0001 WITH KEY kunnr = lv_kunnr.
IF sy-subrc EQ 0.
lv_seq = it_zts0001-cdseq.
ELSE.
CLEAR lv_seq.
ENDIF.
ENDAT.
IF it_upload-zaddress IS INITIAL.
MOVE-CORRESPONDING it_upload TO it_error.
APPEND it_error.
CLEAR it_error.
ELSE.
REPLACE '"' WITH '' INTO it_upload-zaddress.
REPLACE '"' WITH '' INTO it_upload-zaddress.
REPLACE '"' WITH '' INTO it_upload-zcperson.
REPLACE '"' WITH '' INTO it_upload-zcperson.
CONDENSE it_upload-zaddress.
CONDENSE it_upload-zcperson
ADD 1 TO lv_seq.
MOVE: it_upload-kunnr TO it_ztstemp-kunnr,
lv_seq TO it_ztstemp-cdseq,
it_upload-zaddress TO it_ztstemp-zaddress,
it_upload-zcperson TO it_ztstemp-zcperson,
it_upload-zcnumber TO it_ztstemp-zcnumber,
'X' TO it_ztstemp-zactivated,
sy-uname TO it_ztstemp-zcreated_by,
sy-datum TO it_ztstemp-zchanged_date.
MOVE-CORRESPONDING it_ztstemp TO it_ztstemp_gloc.
APPEND: it_ztstemp, it_ztstemp_gloc.
CLEAR: it_ztstemp, it_ztstemp_gloc.
ENDIF.
ENDLOOP.
IF NOT it_ztstemp[] IS INITIAL.
INSERT zts0001 FROM TABLE it_ztstemp.
INSERT zts_stpgeoloc FROM TABLE it_ztstemp_gloc.
WRITE:/ 'List of Records Uploaded.' COLOR 1 INTENSIFIED ON.
FORMAT COLOR 1 INTENSIFIED OFF.
WRITE:/(020) 'Dealer Code' CENTERED,
(007) 'Code' CENTERED,
(100) 'Address',
(030) 'Contact Person' CENTERED,
(018) 'Contact Number' CENTERED.
FORMAT COLOR OFF.
WRITE:/(179) sy-uline.
DESCRIBE TABLE it_ztstemp LINES lv_ctr.
SORT it_ztstemp BY kunnr cdseq.
LOOP AT it_ztstemp.
WRITE:/(020) it_ztstemp-kunnr,
(007) it_ztstemp-cdseq,
(100) it_ztstemp-zaddress,
(030) it_ztstemp-zcperson,
(018) it_ztstemp-zcnumber.
ENDLOOP.
SKIP 1.
WRITE:/ 'TOTAL :', lv_ctr.
ENDIF.
IF NOT it_error[] IS INITIAL.
SKIP 2.
FORMAT COLOR 1 INTENSIFIED OFF.
WRITE:/(020) 'Dealer Code' CENTERED,
(030) 'Contact Person' CENTERED,
(018) 'Contact Number' CENTERED.
FORMAT COLOR OFF.
WRITE:/(070) sy-uline.
DESCRIBE TABLE it_error LINES lv_ctr.
SORT it_error BY kunnr zcperson.
LOOP AT it_error.
WRITE:/ 'With No Address.' COLOR 6 INTENSIFIED ON.
WRITE:/(020) it_error-kunnr,
(030) it_error-zcperson,
(018) it_error-zcnumber.
ENDLOOP.
SKIP 1.
WRITE:/ 'TOTAL :', lv_ctr.
ENDIF.
ENDFORM. " Upload_file
*& Form add_record
FORM add_record.
v_title = ''.
IF NOT v_kunnr IS INITIAL.
SUBMIT zdealer_contacts_add_edit AND RETURN
WITH p_kunnr = v_kunnr
WITH p_name1 = p_name1 "AVH
WITH p_cdseq = space
WITH p_flag = 'A'
WITH p_addr = it_zts0001-zaddress
WITH p_pers = it_zts0001-zcperson
WITH p_numb = it_zts0001-zcnumber
VIA SELECTION-SCREEN.
ENDIF.
LEAVE TO TRANSACTION 'ZDCONTACT'.
ENDFORM. " add_record
*& Form edit_record
FORM edit_record.
v_title = ''.
READ TABLE it_zts0001 WITH KEY kunnr = v_kunnr
cdseq = p_code.
IF sy-subrc EQ 0.
SUBMIT zdealer_contacts_add_edit AND RETURN
WITH p_kunnr = v_kunnr
WITH p_name1 = p_name1 "AVH
WITH p_cdseq = p_code
WITH p_flag = 'E'
WITH p_addr = it_zts0001-zaddress
WITH p_pers = it_zts0001-zcperson
WITH p_numb = it_zts0001-zcnumber
WITH v_controller = v_compflag
VIA SELECTION-SCREEN.
ELSE.
MESSAGE i008 WITH 'No record found.'.
CALL TRANSACTION 'ZDCONTACT'.
ENDIF.
LEAVE TO TRANSACTION 'ZDCONTACT'.
ENDFORM. " edit_record
*& Form display_records
*FORM display_records.
IF NOT it_zts0001[] IS INITIAL.
v_title = 'List of Dealer Contacts'.
FORMAT COLOR 1 INTENSIFIED OFF.
WRITE:/(020) 'Customer Number' CENTERED,
(007) 'Code' CENTERED,
(100) 'Address',
(030) 'Contact Person' CENTERED,
(018) 'Contact Number' CENTERED.
FORMAT COLOR OFF.
WRITE:/(179) sy-uline.
SORT it_zts0001 BY kunnr cdseq.
LOOP AT it_zts0001.
WRITE:/(020) it_zts0001-kunnr,
(007) it_zts0001-cdseq,
(100) it_zts0001-zaddress,
(030) it_zts0001-zcperson,
(018) it_zts0001-zcnumber.
ENDLOOP.
ELSE.
MESSAGE i008 WITH 'No records to display.'.
ENDIF.
*ENDFORM. " display_records
*& Form display_alv
FORM display_alv.
SORT it_zts0001 BY kunnr cdseq.
PERFORM f_build_layout USING gs_layout.
PERFORM f_init_fieldcat USING gt_fieldcat[].
PERFORM f_init_events USING 'BACK' gt_events[].
g_repid = sy-repid.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
i_callback_program = g_repid
i_callback_top_of_page = 'TOP_OF_PAGE'
i_callback_user_command = 'USER_COMMAND'
is_layout = gs_layout
it_fieldcat = gt_fieldcat[]
it_events = gt_events[]
i_save = 'X'
it_sort = gt_sort
TABLES
t_outtab = it_zts0001[]
EXCEPTIONS
program_error = 1
OTHERS = 2.
IF sy-subrc <> 0.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " DISPLAY_ALV
FORM top_of_page *
FORM top_of_page.
*ALV Header declarations
DATA: t_header TYPE slis_t_listheader,
wa_header TYPE slis_listheader,
t_line LIKE wa_header-info,
lv_title(60),
lv_user(60),
lv_date(10),
lv_time(10),
lv_time_n_date(30),
lv_dcode_n_name(150),
lv_dlr_n_desc(100),
ld_lines TYPE i,
ld_linesc(10) TYPE c.
Title
CLEAR: lv_title, wa_header.
MOVE sy-title TO lv_title.
wa_header-typ = 'H'.
wa_header-info = lv_title.
APPEND wa_header TO t_header.
CLEAR wa_header.
User
CLEAR: lv_user, wa_header.
CONCATENATE: 'Generated by:' sy-uname
INTO lv_user SEPARATED BY space.
wa_header-typ = 'A'.
wa_header-info = lv_user.
APPEND wa_header TO t_header.
CLEAR wa_header.
*Date and time
CLEAR: lv_date, lv_time.
WRITE: sy-datum TO lv_date MM/DD/YYYY,
sy-uzeit TO lv_time USING EDIT MASK '__:__:__'.
CONCATENATE: 'Generated on:' lv_date lv_time
INTO lv_time_n_date SEPARATED BY space.
wa_header-typ = 'A'.
wa_header-info = lv_time_n_date.
APPEND wa_header TO t_header.
CLEAR wa_header.
IF NOT v_kunnr IS INITIAL AND v_compflag IS INITIAL.
*Dealer code and name
CONCATENATE: 'Dealer:' p_dcode p_name1
INTO lv_dcode_n_name SEPARATED BY space.
wa_header-typ = 'A'.
wa_header-info = lv_dcode_n_name.
APPEND wa_header TO t_header.
CLEAR wa_header.
ENDIF.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
it_list_commentary = t_header.
ENDFORM. " TOP_OF_PAGE
FORM f_build_layout *
--> %LAYOUT *
FORM f_build_layout USING %layout TYPE slis_layout_alv.
%layout-zebra = 'X'.
%layout-colwidth_optimize = 'X'.
ENDFORM. " F_BUILD_LAYOUT
FORM f_init_fieldcat *
--> %FIELDCAT *
FORM f_init_fieldcat USING %fieldcat TYPE slis_t_fieldcat_alv.
DATA: lc_fieldcat TYPE slis_fieldcat_alv.
CLEAR lc_fieldcat.
DEFINE m_field.
add 1 to lc_fieldcat-col_pos.
lc_fieldcat-fieldname = &1.
lc_fieldcat-outputlen = &2.
lc_fieldcat-seltext_l = &3.
lc_fieldcat-do_sum = &4.
lc_fieldcat-inttype = &5.
lc_fieldcat-hotspot = &6.
lc_fieldcat-fix_column = &7.
lc_fieldcat-ddictxt = 'L'.
lc_fieldcat-no_zero = 'X'.
append lc_fieldcat to %fieldcat.
END-OF-DEFINITION.
IF v_kunnr IS INITIAL.
m_field 'KUNNR' '5' 'Dealer Code' '' '' '' ''.
ENDIF.
IF v_compflag = 'X'.
m_field 'KUNNR' '5' 'Dealer Code' '' '' '' ''.
ENDIF.
IF v_compflag = 'X'.
m_field 'NAME1' '40' 'Dealer Name' '' '' '' ''.
ENDIF.
m_field 'CDSEQ' '05' 'Ship-To Code' '' '' '' ''.
m_field 'ZADDRESS' '100' 'Address' '' '' '' ''.
m_field 'ZCPERSON' '30' 'Contact Person' '' '' '' ''.
m_field 'ZCNUMBER' '18' 'Contact Number' '' '' '' ''.
IF v_kunnr IS INITIAL.
m_field 'NAME1' '40' 'Dealer Name' '' '' '' ''.
ENDIF.
m_field 'ZACTIVATED' '1' 'Activated' '' '' '' ''.
ENDFORM. " f_init_fieldcat
FORM f_init_events *
--> P_TYPE *
--> %EVENTS *
FORM f_init_events USING p_type CHANGING %events TYPE slis_t_event.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
EXPORTING
i_list_type = 0
IMPORTING
et_events = %events
EXCEPTIONS
list_type_wrong = 1
OTHERS = 2.
IF sy-subrc = 0.
PERFORM f_build_events USING: slis_ev_user_command.
IF p_type = 'TOP'.
PERFORM f_build_events USING: gc_top.
ELSEIF p_type = 'SUM'.
PERFORM f_build_events_sum USING: gc_topsum.
ENDIF.
ELSE.
MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno
WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4.
ENDIF.
ENDFORM. " F_INIT_EVENTS
FORM user_command *
--> P_UCOMM *
--> P_SELFIELD *
FORM user_command USING p_ucomm LIKE sy-ucomm
p_selfield TYPE slis_selfield.
CASE p_ucomm.
WHEN 'E'.
CALL SELECTION-SCREEN 500.
ENDCASE.
ENDFORM.
FORM f_build_events *
--> %EVENT *
FORM f_build_events USING %event.
READ TABLE gt_events WITH KEY name = %event.
IF sy-subrc = 0.
MOVE: %event TO gt_events-form.
MOVE 'USER_COMMAND' TO gt_events-form.
MODIFY gt_events INDEX sy-tabix.
ENDIF.
ENDFORM. " F_BUILD_EVENTS -
View source code of UDF's and Standard Functions
Hi Friends,
Is it possible to view the source code written in the UDF's and Standard Functions.
If possible please enlighten me.
Thanks,
Swapna.Hi,
I dont think u can view the src code for Standard function but try this.
While holding down "ctrl" + "shift" + "0" key click on the standard function.See if u can export it and check for some src
code
Regards,
Shabari -
Safari Displays Source Code by Default
I've set file:///Users/MyName/Sites/1/index.php as my home page on all my browsers. It works fine in Firefox and Opera, but in Safari it displays the source code. Can someone tell me what's going on and how to fix it?
Thanks.Here's the head section and beginning body section. (I just discovered I have
two instances of <style type='text/css'> though I wouldn't think that would nix the page display.):
<html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns="http://www.w3.org/TR/REC-html40">
<head>
<title></title>
<style type="text/css">
body { margin: 0; padding: 5px 15px 25px; background: #fff; font-family: Arial, Verdana, Helvetica, sans-serif;
font-size: 90%; font-weight: normal; color: #000 }
p { text-align: left; text-indent: 0px }
/* HYPERLINKS */
a:link { color: #0000ff; text-decoration: none }
a:visited { color: #0000ff; text-decoration: none }
a:hover { color: #ff0000; background-color: #ffff00; text-decoration: none }
div { padding: 5px; }
div#toplinks { border-bottom: 1px solid #000; }
div#geobop { background: #cff; }
div#rep5 { background: #fcc; }
div#media { background: #ff9; }
div#ref { background: #eee; }
div#computers { background: #cff; }
div#allies { border-bottom: 1px solid #000; }
.hilite { padding: 0px 5px 0px; background: #ff0; }
.yellow { padding: 0px 5px 0px; background: #ff0; }
.aqua { padding: 0px 5px 0px; background: #0ff; }
.lime { padding: 0px 5px 0px; background: #0f0; }
.green { padding: 0px 5px 0px; background: #cfc; }
.red { padding: 0px 5px 0px; background: #ffc; }
.blue { padding: 0px 5px 0px; background: #cff; }
.gray { padding: 0px 5px 0px; background: #eee; }
</style>
<style type='text/css'>
body {
margin:0; padding:0;
color:#000; background:#fff;
font-family:verdana,arial,sans-serif;
h3, h4 { margin: 0px; padding: 0px; }
#page {
margin:0% 10%;
background:#fff;
#header {
margin:10px; padding:5px;
border:1px dotted #333;
#title { padding: 0px;
.menu {
background:#ff9;
#content {
margin:1em; padding:1em;
border:1px dotted #333;
#footer {
margin:1em; padding:1em;
text-align:center;
border:1px dotted #333;
.app {
margin:1em; padding:.2em;
background:#eee;
border:1px dotted #333;
.app p {
margin:0; padding:0;
.fltL3 {
float:left;
width:28%;
padding:1em;
.fltL4 {
float:left;
width:20%;
padding:.5em;
.fltL5 {
float:left;
width:15%;
padding:.5em;
.clrBoth {
clear:both;
</style>
<script type='text/javascript'>
// if js is disabled we want app elements to be visible
// so they are visible by default in the CSS
document.write("<" + "style type='text/css'>.app{display:none;}<" + "/" + "style>");
window.onload = function()
dsds_onload();
function dsds_onload()
var ln=1, // lnk number
lo=1; // lnk object
for (; lo; ++ln) {
lo = document.getElementById('lnk' + ln);
if (lo) {
lo.appId = 'app' + ln;
lo.onclick = dsds_onclick;
window.currentAppId = null; // global
// assumes app elements have display:none initially
function dsds_onclick()
var e;
if (currentAppId && currentAppId != this.appId) {
e = document.getElementById(currentAppId);
e.style.display = 'none';
e = document.getElementById(this.appId);
if (e.style.display == 'block') {
e.style.display = 'none';
currentAppId = null;
else {
e.style.display = 'block';
currentAppId = this.appId;
return false;
</script>
</head>
<body>
Basics
<!-- Menu 1 -->
Popular |
Biz |
Search/Rank |
MyComputer |
Personal |
Medical |
Jobs |
Calendar |
Notes |
Misc
<!-- end Menu --> -
How can you scan the Source Code of a bunch of function modules
We are in a 46C system. I need to be able to scan the soruce code of a bunch of function modules. I was unable to use the RPR_ABAP_SOURCE_SCAN and return the lines with the string I was searching for.
Thanks
HariHi,
Read the main program that is the funtion pool into an internal table with statement.
READ REPORT
Use the key-word
SCAN ABAP-SOURCE
You can use the addition with includes as the function pool contains only include programs the with includes addition will read the source code present in the include.
Like this you can achieve it
" Example
DATA:
itab TYPE TABLE OF char255,
itab1 TYPE TABLE OF stoken,
itab2 TYPE TABLE OF sstmnt.
READ REPORT 'SAPLSFES' INTO itab.
SCAN ABAP-SOURCE itab TOKENS INTO itab1
STATEMENTS INTO itab2
WITH INCLUDES.
after this you can search the string in the internal table with lots of additions available in the SCAN ABAP_SOURCE
regards
sarves -
How to avoid "Cannot display source code at this location"?
This debugger message really annoys me. It seems to me that
sometimes when my program fails the debugger returns nice friendly
messages telling me exactly what line numebr an object is
undefined. This is great. But half the time I get message of this
nature.
at main_fla::MainTimeline/ot()
at main_fla::MainTimeline/buttMouseEvent()
Cannot display source code at this location.
Why does the debugger refuse to show the line number of the
code sometimes?
Is there acoding practice that one should use to avoid these
unhelpful debug messages?
It is very annoying when you have a 200 line function that
tells you that somehting is undefined SOMEWHERE in the function
without giving you a line number. Granted at least AS3 does
actually warn you....(unlike AS2) but I am constantly plagues by
these "Cannot display source code at this location" messages.
An anyone offer any explanation to why these messages dont
display line numebrs or how to code in a way that avoids them?
thanksJLundan,
I want to thank you for responding to the thread I started on the forum at java.sun.com. Your solution to my problem of needing to print the code of the html pages that the file I included generates was just what I was looking for. However, I have some further questions to ask, if you don't mind. To clarify my task I should say that your rephrasing of the problem is accurate: "You wan't to display the contents of the HTML file that the web server produces in response of client's request?"
Yes, this is what I need to do, but also it needs to display the source code of that html file that the server produces in response to the client's request. Also, in this case, I am the client requesting that the server return some html file, and I'm not sure where the server is. But the webserver.java file that I shared on the forum is on my local machine. I was wondering if I could modify this webserver.java file at my home so that any html file the server returns to me would automatically display the source code. This is a school project of mine and I am stuck on this one thing here.
Further, where would I put the "foo.html" file so it can be written to?
FileOuputStream fos = new FileOutputStream("foo.html");
fos.write(bytes);
fos.close();
Thanks so much for your help. I look forward to your response, at your convenience.
Regards -
Is it possible to display the standard function keys in screen painter
Hi ,
I design a screen in se51 where I use push buttons and input/output buttons and so on in the layout, here in the layout or in my final output screen(when i assign this screen to a transaction) I would like to display other standard keys, ie the function keys and application toolbar items. I would like to know whether there is a possibility to do this , if yes then how?
In a menu painter there is a possibility where I can customize the keys or I can use the standard keys by going to se41 extras->adjust template. Is there similar possibilities in the screen painter.Ok I see. I should use &var.
Edited by: xerosaburu on Aug 18, 2009 11:37 AM -
How can I display the failure caption with click box when using function keys to navigate a sim?
I am using the keyboard function keys to navigate a simulation using Click Boxes. For instance, F7 advances the simulation to the next screen, but if the learner selects F5, a failure caption displays. I have tried deleting and re-entering the click box, placing the click box at the top of the timeline levels, starting the click box at 0 and 0.5, making the click box visible and invisible, and make the click box the entire size of the screen.
Well, I guess that's that. Thanks for replying, I do appreciate it or else I would have been trying for days, wasting all sorts of time.
Until we meet again,
James
Maybe you are looking for
-
Can I have more than one ipod with more than music library on one computer
I was just wondering if i could have 2 different ipods (one a 5th generation and the other ipod touch) with 2 different music libraries on the same computer and itunes? because right now im using my parents computer and my fiance is using my laptop a
-
How do I select main input tray to print photo over ePrint and not photo tray?
when I send a picture from my Iphone the printer always wants to take paper from the photo tray ,despite that it's set up to take paper from the main tray.
-
I'm sure that I have done something terribly stupid, so here goes: I decided to decrypt my vault file (hoping to save memory), which took about an hour. The computer asked for my Mac OSX sign in. I inserted the short form of my administrator's name a
-
I have a iphone4 and just got my wife a 3gs, can i just plug it in to sync it on my account?
-
Are there any Oracle OLAP ODI Knowledge Modules for Oracle Olap 11g ?
Hi guys, wasnt sure where to post this so I put it here and the ODI forum Does anybody know when Oracle OLAP Knowledge Modules, will be available for Oracle Olap 11g. It appears that the knowledge modules released with Oracle Data Integrator 10.1.3.5