Plz provide me the code for TreeExpensionListener mehod's

Hello all,
I am trying to write the code for TreeExpensionListener methods treeExpanded(TreeExpansionEvent evt) and treeCollapsed(TreeExpansionEvent event) i want whole code for when i open the window i ll get a perticular node would be expanded.
Waiting for replys,
brijesh

m_pmTableModel = new JTreeTableModel("root");
m_pmListTable = new JTreeTable(m_pmTableModel);
          m_pmListTable.getTree().addTreeSelectionListener(this);
          m_pmListTable.getTree().addTreeExpansionListener(this);
          JScrollPane scrollPane = new JScrollPane();
          scrollPane.getViewport().add(m_pmListTable);
This is the piece of code i am using there is a treetable, i just want like, whenver sommething got change on server site that table would be update, actallu its updating but...if node is open and any child of that node is get updat then that node is getting close, means again to see the changes i have to open that node, thats i dont want. With updating it should expend the node......
thanks for reply.....plz share the idea
brijesh

Similar Messages

Apple Configurator: The spreadsheet provided has redemption codes for "(null)."

I'm trying to import a spreadsheet of redemption codes into Apple Configurator. I download the spreadsheet directly from https://vpp.itunes.apple.com, but when I try to import it, I get the following message:
Apple Configurator: The spreadsheet provided has redemption codes for "(null)."
What can I do to import it?

I've got support from Apple Germany. It seems to be a problem of version 1.1.2 of Apple Configurator and Mountain Lion 10.8.2
As mentioned above I had the same problem using 10.7.4 and 10.7.5 and Configurator 1.1.2. Apple Germany sent me a different spreadsheet, where I've put my codes in and it worked. Strange but true.
Other story, I bought 50 redeem codes, after installing 22 iPads it stopped, telling me that there are no more redeem codes left ?
Good luck contacting Apple directly

How to customize the code for default scroll buttons provided in the table?

Hi Everyone,
I want to customize the code for default 'next page' navigation button provided in a table. If this is possible then how it can be done?
Thanks,
Swati

do you mean 'footer' of table, which used to scroll table contents?
Table footer button is not editable.
Instead you can try buttons in the table tool bar and can swap elements in the table.And also table footer can be set to showfootoer: false.
refer thread: [Table Element Swapping|Re: Table with special requirement]
nikhil

Can anyone plz tell me the steps for performance tuning.

hello friends
what is performance tuning?
can anyone plz tell me the steps for performance tuning.

Hi Kishore, this will help u.
Following are the different tools provided by SAP for performance analysis of an ABAP object
Run time analysis transaction SE30
This transaction gives all the analysis of an ABAP program with respect to the database and the non-database processing.
SQL Trace transaction ST05
The trace list has many lines that are not related to the SELECT statement in the ABAP program. This is because the execution of any ABAP program requires additional administrative SQL calls. To restrict the list output, use the filter introducing the trace list.
The trace list contains different SQL statements simultaneously related to the one SELECT statement in the ABAP program. This is because the R/3 Database Interface - a sophisticated component of the R/3 Application Server - maps every Open SQL statement to one or a series of physical database calls and brings it to execution. This mapping, crucial to R/3s performance, depends on the particular call and database system. For example, the SELECT-ENDSELECT loop on the SPFLI table in our test program is mapped to a sequence PREPARE-OPEN-FETCH of physical calls in an Oracle environment.
The WHERE clause in the trace list's SQL statement is different from the WHERE clause in the ABAP statement. This is because in an R/3 system, a client is a self-contained unit with separate master records and its own set of table data (in commercial, organizational, and technical terms). With ABAP, every Open SQL statement automatically executes within the correct client environment. For this reason, a condition with the actual client code is added to every WHERE clause if a client field is a component of the searched table.
To see a statement's execution plan, just position the cursor on the PREPARE statement and choose Explain SQL. A detailed explanation of the execution plan depends on the database system in use.
Need for performance tuning
In this world of SAP programming, ABAP is the universal language. In most of the projects, the focus is on getting a team of ABAP programmers as soon as possible, handing over the technical specifications to them and asking them to churn out the ABAP programs within the given deadlines.
Often due to this pressure of schedules and deliveries, the main focus of making a efficient program takes a back seat. An efficient ABAP program is one which delivers the required output to the user in a finite time as per the complexity of the program, rather than hearing the comment I put the program to run, have my lunch and come back to check the results.
Leaving aside the hyperbole, a performance optimized ABAP program saves the time of the end user, thus increasing the productivity of the user, and in turn keeping the user and the management happy.
This tutorial focuses on presenting various performance tuning tips and tricks to make the ABAP programs efficient in doing their work. This tutorial also assumes that the reader is well versed in all the concepts and syntax of ABAP programming.
Use of selection criteria
Instead of selecting all the data and doing the processing during the selection, it is advisable to restrict the data to the selection criteria itself, rather than filtering it out using the ABAP code.
Not recommended
Select * from zflight.
Check : zflight-airln = LF and zflight-fligh = BW222.
Endselect.
Recommended
Select * from zflight where airln = LF and fligh = 222.
Endselect.
One more point to be noted here is of the select *. Often this is a lazy coding practice. When a programmer gives select * even if one or two fields are to be selected, this can significantly slow the program and put unnecessary load on the entire system. When the application server sends this request to the database server, and the database server has to pass on the entire structure for each row back to the application server. This consumes both CPU and networking resources, especially for large structures.
Thus it is advisable to select only those fields that are needed, so that the database server passes only a small amount of data back.
Also it is advisable to avoid selecting the data fields into local variables as this also puts unnecessary load on the server. Instead attempt must be made to select the fields into an internal table.
Use of aggregate functions
Use the already provided aggregate functions, instead of finding out the minimum/maximum values using ABAP code.
Not recommended
Maxnu = 0.
Select * from zflight where airln = LF and cntry = IN.
Check zflight-fligh > maxnu.
Maxnu = zflight-fligh.
Endselect.
Recommended
Select max( fligh ) from zflight into maxnu where airln = LF and cntry = IN.
The other aggregate functions that can be used are min (to find the minimum value), avg (to find the average of a Data interval), sum (to add up a data interval) and count (counting the lines in a data selection).
Use of Views instead of base tables
Many times ABAP programmers deal with base tables and nested selects. Instead it is always advisable to see whether there is any view provided by SAP on those base tables, so that the data can be filtered out directly, rather than specially coding for it.
Not recommended
Select * from zcntry where cntry like IN%.
Select single * from zflight where cntry = zcntry-cntry and airln = LF.
Endselect.
Recommended
Select * from zcnfl where cntry like IN% and airln = LF.
Endselect.
Check this links
http://www.sapdevelopment.co.uk/perform/performhome.htm
https://www.sdn.sap.com/irj/sdn/go/portal/prtroot/docs/library/uuid/afbad390-0201-0010-daa4-9ef0168d41b6
kindly reward if found helpful.
cheers,
Hema.

Problem in fetching the code for the line item

Hi,
I am working on a report in which to display the values corresponding to the line item of a PO.
For, ex, if there are 3 line items 10,140,150 and their condition values such zing,zgrd,zbrd are the condition types consist of different values depending on the line item i.e. 10,140,150.
My problem is when i execute the code the data of 1st line item is correctly fetched but the rest 2 line item data is pasted as it is. only the main pricre changes and the code for zing,zbrd,zgrd remains same as it is in the first line item 10.
plzz proivde me guide lines how to solve this problem.
Here's d code:-
DATA : vspl LIKE konv-kbetr.
DATA : vspl1 LIKE konv-kbetr.
DATA : vkwert LIKE konv-kwert.
DATA: VSPL2 LIKE KONV-kbetr. "ZING COST
DATA: VSPL3 LIKE KONV-kbetr. "ZGRD COST
DATA: VSPL4 LIKE KONV-kbetr. "ZBDL COST
LOOP AT item.
 SELECT kbetr FROM konv INTO item-rate WHERE knumv = header-knumv AND kposn = item-ebelp
 AND ( kschl = 'ZP00' OR kschl = 'P001' OR kschl = 'PBXX' OR kschl = 'P000' OR kschl = 'PB00' OR kschl = 'ZING' OR kschl = 'ZBRD' OR kschl = 'ZGRD').
 MODIFY item.
 ENDSELECT.
ENDLOOP.
LOOP AT item.
 SELECT kwert FROM konv INTO vkwert WHERE knumv = header-knumv AND kposn = item-ebelp
 AND ( kschl = 'ZP00' OR kschl = 'P001' OR kschl = 'PBXX' OR kschl = 'P000' OR kschl = 'PB00' OR kschl = 'ZING' OR kschl = 'ZBRD' OR kschl = 'ZGRD').
 ENDSELECT.
ENDLOOP.
CLEAR : vspl , vspl1 , vspl2 , vspl3 , vspl4.
LOOP AT item.
 SELECT kbetr FROM konv INTO vspl WHERE knumv = header-knumv AND kposn = item-ebelp
 AND kschl = 'ZCOM'.
 ENDSELECT.
 SELECT kbetr FROM konv INTO vspl1 WHERE knumv = header-knumv AND kposn = item-ebelp
 AND kschl = 'ZBR1'.
 ENDSELECT.
*******************Begin - new code added on 14.01.2009******************
 SELECT kbetr FROM konv INTO vspl2 WHERE knumv = header-knumv AND kposn = item-ebelp
 AND kschl = 'ZING'.
 ENDSELECT.
 SELECT kbetr FROM konv INTO vspl3 WHERE knumv = header-knumv AND kposn = item-ebelp
 AND kschl = 'ZGRD'.
 ENDSELECT.
 SELECT kbetr FROM konv INTO vspl4 WHERE knumv = header-knumv AND kposn = item-ebelp
 AND kschl = 'ZBRL'.
 ENDSELECT.
*******************End - new code added on 14.01.2009******************
ENDLOOP.
LOOP AT item.
 item-rate = item-rate + vspl + vspl1.
*******************Begin - new code added on 14.01.2009******************
 item-rate1 = item-rate1 + vspl2.
 item-rate2 = item-rate2 + vspl3.
 item-rate3 = item-rate3 + vspl4.
********************End - new code added on 14.01.2009*******************
 MODIFY item INDEX sy-tabix TRANSPORTING rate.
*******************Begin -11`` new code added on 14.01.2009******************
 MODIFY item INDEX sy-tabix TRANSPORTING rate1.
 MODIFY item INDEX sy-tabix TRANSPORTING rate2.
 MODIFY item INDEX sy-tabix TRANSPORTING rate3.
*********************End - new code added on 14.01.2009******************
ENDLOOP.
PLZ PROIVDE ME GUIDLINES HOW TO SOLVE THIS PROBLEM .
Edited by: ricx .s on Jan 19, 2009 10:16 AM
Edited by: Vijay Babu Dudla on Jan 19, 2009 5:22 AM

Hello,
Why are you looping at the same internal table so many times, you could probably perform everything within one loop instead.
DATA : vspl LIKE konv-kbetr.
DATA : vspl1 LIKE konv-kbetr.
DATA : vkwert LIKE konv-kwert.
DATA: VSPL2 LIKE KONV-kbetr. "ZING COST
DATA: VSPL3 LIKE KONV-kbetr. "ZGRD COST
DATA: VSPL4 LIKE KONV-kbetr. "ZBDL COST
field-symbols <fs>.
LOOP AT item assigning <fs>.
SELECT kbetr FROM konv INTO <fs>-rate WHERE knumv = header-knumv AND kposn = item-ebelp
AND ( kschl = 'ZP00' OR kschl = 'P001' OR kschl = 'PBXX' OR kschl = 'P000' OR kschl = 'PB00' OR kschl = 'ZING' OR kschl = 'ZBRD' OR kschl = 'ZGRD').
MODIFY item.
ENDSELECT.
SELECT kwert FROM konv INTO vkwert WHERE knumv = header-knumv AND kposn = item-ebelp
AND ( kschl = 'ZP00' OR kschl = 'P001' OR kschl = 'PBXX' OR kschl = 'P000' OR kschl = 'PB00' OR kschl = 'ZING' OR kschl = 'ZBRD' OR kschl = 'ZGRD').
ENDSELECT.
ENDLOOP.
CLEAR : vspl , vspl1 , vspl2 , vspl3 , vspl4.
SELECT kbetr FROM konv INTO vspl WHERE knumv = header-knumv AND kposn = item-ebelp
AND kschl = 'ZCOM'.
ENDSELECT.
SELECT kbetr FROM konv INTO vspl1 WHERE knumv = header-knumv AND kposn = item-ebelp
AND kschl = 'ZBR1'.
ENDSELECT.
*******************Begin - new code added on 14.01.2009******************
SELECT kbetr FROM konv INTO vspl2 WHERE knumv = header-knumv AND kposn = item-ebelp
AND kschl = 'ZING'.
ENDSELECT.
SELECT kbetr FROM konv INTO vspl3 WHERE knumv = header-knumv AND kposn = item-ebelp
AND kschl = 'ZGRD'.
ENDSELECT.
SELECT kbetr FROM konv INTO vspl4 WHERE knumv = header-knumv AND kposn = item-ebelp
AND kschl = 'ZBRL'.
ENDSELECT.
*******************End - new code added on 14.01.2009******************
<fs>-rate = <fs>-rate + vspl + vspl1.
*******************Begin - new code added on 14.01.2009******************
<fs>-rate1 = item-rate1 + vspl2.
<fs>-rate2 = item-rate2 + vspl3.
<fs>-rate3 = item-rate3 + vspl4.
ENDLOOP.
Also, use field-symbols and use loop at itab assigning addition so that you can directly change the contents of the table without using modify statment.
regards,
Advait

Problem in triggering the code for CO02 User Exit

Hi,
I am using the code for the Tcode CO02 (User Exit) and i am facing a problem that when i am using the code as a normal program it is executing fine and displaying the pop up window and showing the data in it.
But when i am using that code in the USER EXIT code it is not trigerring that pop up window.
I am using the enhancement:-
*PPCO0007 * - Exit when saving production order
And the include in which i am writing the code is :-
INCLUDE ZXCO1U06
plzz provide me guidelines for solving this problem.

hi ,
i am using the following: -
Enhancement No. -> PPCO0007 (Exit when saving production order)
When i click on the enhancement the following is displayed:-
Function exit -> *EXIT_SAPLCOZV_001 *
When i double click the function exit the code i had written in the following include:-
INCLUDE ZXCO1U06
plzz tell me whether i am doing it right or worng?

Plz send me the code of interctive ALV report

Hi
plz send me the code of interctive ALV report
thanks in advance
rachu

Hi
For More alv report examples check these Tcodes LIBS, BIBSHere u can find more number of examples on alv reports of different kinds
Check this sample code
TYPE-POOLS: SLIS.
*type declaration for values from ekko
TYPES: BEGIN OF I_EKKO,
 EBELN LIKE EKKO-EBELN,
 AEDAT LIKE EKKO-AEDAT,
 BUKRS LIKE EKKO-BUKRS,
 BSART LIKE EKKO-BSART,
 LIFNR LIKE EKKO-LIFNR,
 END OF I_EKKO.
DATA: IT_EKKO TYPE STANDARD TABLE OF I_EKKO INITIAL SIZE 0,
 WA_EKKO TYPE I_EKKO.
*type declaration for values from ekpo
TYPES: BEGIN OF I_EKPO,
 EBELN LIKE EKPO-EBELN,
 EBELP LIKE EKPO-EBELP,
 MATNR LIKE EKPO-MATNR,
 MENGE LIKE EKPO-MENGE,
 MEINS LIKE EKPO-MEINS,
 NETPR LIKE EKPO-NETPR,
 END OF I_EKPO.
DATA: IT_EKPO TYPE STANDARD TABLE OF I_EKPO INITIAL SIZE 0,
 WA_EKPO TYPE I_EKPO .
*variable for Report ID
DATA: V_REPID LIKE SY-REPID .
*declaration for fieldcatalog
DATA: I_FIELDCAT TYPE SLIS_T_FIELDCAT_ALV,
 WA_FIELDCAT TYPE SLIS_FIELDCAT_ALV.
DATA: IT_LISTHEADER TYPE SLIS_T_LISTHEADER.
* declaration for events table where user comand or set PF status will
* be defined
DATA: V_EVENTS TYPE SLIS_T_EVENT,
 WA_EVENT TYPE SLIS_ALV_EVENT.
* declartion for layout
DATA: ALV_LAYOUT TYPE SLIS_LAYOUT_ALV.
* declaration for variant(type of display we want)
DATA: I_VARIANT TYPE DISVARIANT,
 I_VARIANT1 TYPE DISVARIANT,
 I_SAVE(1) TYPE C.
*PARAMETERS : p_var TYPE disvariant-variant.
*Title displayed when the alv list is displayed
DATA: I_TITLE_EKKO TYPE LVC_TITLE VALUE 'FIRST LIST DISPLAYED'.
DATA: I_TITLE_EKPO TYPE LVC_TITLE VALUE 'SECONDRY LIST DISPLAYED'.
INITIALIZATION.
V_REPID = SY-REPID.
PERFORM BUILD_FIELDCATLOG.
PERFORM EVENT_CALL.
PERFORM POPULATE_EVENT.
START-OF-SELECTION.
PERFORM DATA_RETRIEVAL.
PERFORM BUILD_LISTHEADER USING IT_LISTHEADER.
PERFORM DISPLAY_ALV_REPORT.
*& Form BUILD_FIELDCATLOG
* Fieldcatalog has all the field details from ekko
FORM BUILD_FIELDCATLOG.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'EBELN'.
WA_FIELDCAT-SELTEXT_M = 'PO NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'AEDAT'.
WA_FIELDCAT-SELTEXT_M = 'DATE.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'BUKRS'.
WA_FIELDCAT-SELTEXT_M = 'COMPANY CODE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'BUKRS'.
WA_FIELDCAT-SELTEXT_M = 'DOCMENT TYPE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKKO'.
WA_FIELDCAT-FIELDNAME = 'LIFNR'.
WA_FIELDCAT-NO_OUT = 'X'.
WA_FIELDCAT-SELTEXT_M = 'VENDOR CODE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM. "BUILD_FIELDCATLOG
*& Form EVENT_CALL
* we get all events - TOP OF PAGE or USER COMMAND in table v_events
FORM EVENT_CALL.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = V_EVENTS
* EXCEPTIONS
* LIST_TYPE_WRONG = 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. "EVENT_CALL
*& Form POPULATE_EVENT
* Events populated for TOP OF PAGE & USER COMAND
FORM POPULATE_EVENT.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC EQ 0.
 WA_EVENT-FORM = 'TOP_OF_PAGE'.
 MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-FORM.
ENDIF.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'USER_COMMAND'.
IF SY-SUBRC EQ 0.
 WA_EVENT-FORM = 'USER_COMMAND'.
 MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-NAME.
ENDIF.
ENDFORM. "POPULATE_EVENT
*& Form data_retrieval
* retreiving values from the database table ekko
FORM DATA_RETRIEVAL.
SELECT EBELN AEDAT BUKRS BSART LIFNR FROM EKKO INTO TABLE IT_EKKO.
ENDFORM. "data_retrieval
*& Form bUild_listheader
* text
* -->I_LISTHEADEtext
FORM BUILD_LISTHEADER USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA HLINE TYPE SLIS_LISTHEADER.
HLINE-INFO = 'this is my first alv pgm'.
HLINE-TYP = 'H'.
ENDFORM. "build_listheader
*& Form display_alv_report
* text
FORM DISPLAY_ALV_REPORT.
V_REPID = SY-REPID.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
 EXPORTING
 I_CALLBACK_PROGRAM = V_REPID
* I_CALLBACK_PF_STATUS_SET = ' '
 I_CALLBACK_USER_COMMAND = 'USER_COMMAND'
 I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
 I_GRID_TITLE = I_TITLE_EKKO
* I_GRID_SETTINGS =
* IS_LAYOUT = ALV_LAYOUT
 IT_FIELDCAT = I_FIELDCAT[]
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* i_default = 'ZLAY1'
 I_SAVE = 'A'
* is_variant = i_variant
 IT_EVENTS = V_EVENTS
 TABLES
 T_OUTTAB = IT_EKKO
* 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_report
*& Form TOP_OF_PAGE
* text
FORM TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = IT_LISTHEADER
* i_logo =
* I_END_OF_LIST_GRID =
ENDFORM. "TOP_OF_PAGE
*& Form USER_COMMAND
* text
* -->R_UCOMM text
* -->, text
* -->RS_SLEFIELDtext
FORM USER_COMMAND USING R_UCOMM LIKE SY-UCOMM
RS_SELFIELD TYPE SLIS_SELFIELD.
CASE R_UCOMM.
 WHEN '&IC1'.
 READ TABLE IT_EKKO INTO WA_EKKO INDEX RS_SELFIELD-TABINDEX.
 PERFORM BUILD_FIELDCATLOG_EKPO.
 PERFORM EVENT_CALL_EKPO.
 PERFORM POPULATE_EVENT_EKPO.
 PERFORM DATA_RETRIEVAL_EKPO.
 PERFORM BUILD_LISTHEADER_EKPO USING IT_LISTHEADER.
 PERFORM DISPLAY_ALV_EKPO.
ENDCASE.
ENDFORM. "user_command
*& Form BUILD_FIELDCATLOG_EKPO
* text
FORM BUILD_FIELDCATLOG_EKPO.
WA_FIELDCAT-TABNAME = 'IT_EKPO'.
WA_FIELDCAT-FIELDNAME = 'EBELN'.
WA_FIELDCAT-SELTEXT_M = 'PO NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'IT_EKPO'.
WA_FIELDCAT-FIELDNAME = 'EBELP'.
WA_FIELDCAT-SELTEXT_M = 'LINE NO'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MATNR'.
WA_FIELDCAT-SELTEXT_M = 'MATERIAL NO.'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MENGE'.
WA_FIELDCAT-SELTEXT_M = 'QUANTITY'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'MEINS'.
WA_FIELDCAT-SELTEXT_M = 'UOM'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
WA_FIELDCAT-TABNAME = 'I_EKPO'.
WA_FIELDCAT-FIELDNAME = 'NETPR'.
WA_FIELDCAT-SELTEXT_M = 'PRICE'.
APPEND WA_FIELDCAT TO I_FIELDCAT.
CLEAR WA_FIELDCAT.
ENDFORM. "BUILD_FIELDCATLOG_EKPO
*& Form event_call_ekpo
* we get all events - TOP OF PAGE or USER COMMAND in table v_events
FORM EVENT_CALL_EKPO.
CALL FUNCTION 'REUSE_ALV_EVENTS_GET'
 EXPORTING
 I_LIST_TYPE = 0
 IMPORTING
 ET_EVENTS = V_EVENTS
* EXCEPTIONS
* LIST_TYPE_WRONG = 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. "event_call_ekpo
*& Form POPULATE_EVENT
* Events populated for TOP OF PAGE & USER COMAND
FORM POPULATE_EVENT_EKPO.
READ TABLE V_EVENTS INTO WA_EVENT WITH KEY NAME = 'TOP_OF_PAGE'.
IF SY-SUBRC EQ 0.
 WA_EVENT-FORM = 'TOP_OF_PAGE'.
 MODIFY V_EVENTS FROM WA_EVENT TRANSPORTING FORM WHERE NAME =
WA_EVENT-FORM.
ENDIF.
ENDFORM. "POPULATE_EVENT
*& Form TOP_OF_PAGE
* text
FORM F_TOP_OF_PAGE.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
 EXPORTING
 IT_LIST_COMMENTARY = IT_LISTHEADER
* i_logo =
* I_END_OF_LIST_GRID =
ENDFORM. "TOP_OF_PAGE
*& Form USER_COMMAND
* text
* -->R_UCOMM text
* -->, text
* -->RS_SLEFIELDtext
*retreiving values from the database table ekko
FORM DATA_RETRIEVAL_EKPO.
SELECT EBELN EBELP MATNR MENGE MEINS NETPR FROM EKPO INTO TABLE IT_EKPO.
ENDFORM.
FORM BUILD_LISTHEADER_EKPO USING I_LISTHEADER TYPE SLIS_T_LISTHEADER.
DATA: HLINE1 TYPE SLIS_LISTHEADER.
HLINE1-TYP = 'H'.
HLINE1-INFO = 'CHECKING PGM'.
ENDFORM.
FORM DISPLAY_ALV_EKPO.
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
* I_INTERFACE_CHECK = ' '
* I_BYPASSING_BUFFER = ' '
* I_BUFFER_ACTIVE = ' '
 I_CALLBACK_PROGRAM = V_REPID
* I_CALLBACK_PF_STATUS_SET = ' '
* I_CALLBACK_USER_COMMAND = 'F_USER_COMMAND'
 I_CALLBACK_TOP_OF_PAGE = 'TOP_OF_PAGE'
* I_CALLBACK_HTML_TOP_OF_PAGE = ' '
* I_CALLBACK_HTML_END_OF_LIST = ' '
* I_STRUCTURE_NAME =
* I_BACKGROUND_ID = ' '
 I_GRID_TITLE = I_TITLE_EKPO
* I_GRID_SETTINGS =
* IS_LAYOUT =
 IT_FIELDCAT = I_FIELDCAT[]
* IT_EXCLUDING =
* IT_SPECIAL_GROUPS =
* IT_SORT =
* IT_FILTER =
* IS_SEL_HIDE =
* I_DEFAULT =
 I_SAVE = 'A'
* IS_VARIANT =
 IT_EVENTS = V_EVENTS
TABLES
 T_OUTTAB = IT_EKPO
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.
Try this links...
http://www.****************/Tutorials/ALV/ALVMainPage.htm
Simple ALV report
http://www.sapgenie.com/abap/controls/alvgrid.htm
http://wiki.ittoolbox.com/index.php/Code:Ultimate_ALV_table_toolbox
ALV
1. Please give me general info on ALV.
http://www.sapfans.com/forums/viewtopic.php?t=58286
http://www.sapfans.com/forums/viewtopic.php?t=76490
http://www.sapfans.com/forums/viewtopic.php?t=20591
http://www.sapfans.com/forums/viewtopic.php?t=66305 - this one discusses which way should you use - ABAP Objects calls or simple function modules.
2. How do I program double click in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=11601
http://www.sapfans.com/forums/viewtopic.php?t=23010
3. How do I add subtotals (I have problem to add them)...
http://www.sapfans.com/forums/viewtopic.php?t=20386
http://www.sapfans.com/forums/viewtopic.php?t=85191
http://www.sapfans.com/forums/viewtopic.php?t=88401
http://www.sapfans.com/forums/viewtopic.php?t=17335
4. How to add list heading like top-of-page in ABAP lists?
http://www.sapfans.com/forums/viewtopic.php?t=58775
http://www.sapfans.com/forums/viewtopic.php?t=60550
http://www.sapfans.com/forums/viewtopic.php?t=16629
5. How to print page number / total number of pages X/XX in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=29597 (no direct solution)
6. ALV printing problems. The favourite is: The first page shows the number of records selected but I don't need this.
http://www.sapfans.com/forums/viewtopic.php?t=64320
http://www.sapfans.com/forums/viewtopic.php?t=44477
7. How can I set the cell color in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=52107
8. How do I print a logo/graphics in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=81149
http://www.sapfans.com/forums/viewtopic.php?t=35498
http://www.sapfans.com/forums/viewtopic.php?t=5013
9. How do I create and use input-enabled fields in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=84933
http://www.sapfans.com/forums/viewtopic.php?t=69878
10. How can I use ALV for reports that are going to be run in background?
http://www.sapfans.com/forums/viewtopic.php?t=83243
http://www.sapfans.com/forums/viewtopic.php?t=19224
11. How can I display an icon in ALV? (Common requirement is traffic light icon).
http://www.sapfans.com/forums/viewtopic.php?t=79424
http://www.sapfans.com/forums/viewtopic.php?t=24512
12. How can I display a checkbox in ALV?
http://www.sapfans.com/forums/viewtopic.php?t=88376
http://www.sapfans.com/forums/viewtopic.php?t=40968
http://www.sapfans.com/forums/viewtopic.php?t=6919
Reward all helpful answers
Regards
Pavan
Message was edited by:
 Pavan praveen

Plz help in the code

I want to increase the number reduce the number specified in the textbox2
Dim ip1 As Integer = TextBox1.Text
Dim ip2 As Integer = TextBox2.Text
'Dim ip3 As Integer = TextBox1.Text
'Dim ip4 As Integer = TextBox2.Text
For i = ip1 To ip2
ListBox1.Items.Add(i)
next

I don't know what "scan ip range" means. Also I haven't worked with IP addresses in a long time.
So if you mean you want to get all IP addresses between 1.5.7.6 and 1.0.0.1 then do the match for that. Get the integer from 1.0.0.1 then get the integer for 1.5.7.6. Reduce the integer for 1.5.7.6 by one and get the IP address for that integer and so on
until that integer equals the integer for 1.0.0.1. Unless that is not what you mean. And whatever "ip range" you come up with may contain invalid IP addresses since broadcast and network addresses may be included in the mix for all I know.
La vida loca
I want an example bro
You want because that is simpler than learning through research.
Also I am not your Bro. And I live in the desert now so I no longer hang out at the beach or windsurf so the word bro is unecessary as most people do not use it unless you are around a certain crowd which talks like they're hip or something. So don't call
me bro.
Here is an example.
A ListBox can not apparently display all of the results without becoming unstable which I will not attempt to explain what occurs. You can try a ListBox if you want.
Although with the previous code I provided you should have had the willpower and thoughtfulness to research on your own on how to use it rather than saying you want anybody else (specifically bro) to write the code for you. Which by doing so shows no effort
on your part to learn. As if rather than writing code you are only capable of copying and pasting code and can not learn how code works in order to use it to perform what you want to do. So either you are attempting to program outside of your skillset range
meaning you need to increase your scope of knowledge in various areas or perhaps you don't have the capability to program if you are unwilling to increase your scope of knowledge to raise your skillset to where it needs to be for what you want to program for.
Also because of the time it takes this code to run for the two IP addresses you provided it would be a good idea to use threading to offload various code into a separate thread as this freezes the UI until the code ends after displaying the result.
I will not do this for you.
Option Strict On
Imports System.Net
Imports System.IO
Imports System.Text
Public Class Form1
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Me.Location = New Point(CInt((Screen.PrimaryScreen.WorkingArea.Width / 2) - (Me.Width / 2)), CInt((Screen.PrimaryScreen.WorkingArea.Height / 2) - (Me.Height / 2)))
Label1.Text = "Waiting"
Label2.Text = "Waiting"
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
If ParseIP(TextBox1.Text) = True Then
If ParseIP(TextBox1.Text) = True Then
Label1.Text = "Waiting"
Label2.Text = "Waiting"
Dim SB As New StringBuilder
Dim TBox1IPLong As Long = ConvertIPToLong(TextBox1.Text)
Dim TBox2IPLong As Long = ConvertIPToLong(TextBox2.Text)
If TBox1IPLong > TBox2IPLong Then
Label1.Text = "Nr IP Addresses is " & (TBox1IPLong - TBox2IPLong).ToString & "."
Label2.Text = "IP scan results for ip address" & _
vbCrLf & TextBox1.Text & " to " & TextBox2.Text & "."
TBox1IPLong -= 1
Do Until TBox1IPLong = TBox2IPLong
SB.Append(ConvertLongToIP(TBox1IPLong) & vbCrLf)
TBox1IPLong -= 1
Loop
Else
Label1.Text = "Nr IP Addresses is " & (TBox2IPLong - TBox1IPLong).ToString & "."
Label2.Text = "IP scan results for ip address" & _
vbCrLf & TextBox2.Text & " to " & TextBox1.Text & "."
TBox2IPLong -= 1
Do Until TBox2IPLong = TBox1IPLong
SB.Append(ConvertLongToIP(TBox2IPLong) & vbCrLf)
TBox2IPLong -= 1
Loop
End If
RichTextBox1.Text = SB.ToString
Else
MessageBox.Show("TextBox2 contains invalid IP address. Try again.")
Exit Sub
End If
Else
MessageBox.Show("TextBox1 contains invalid IP address. Try again.")
Exit Sub
End If
End Sub
Private Function ParseIP(Item As String) As Boolean
Dim TestIP As IPAddress
Dim Result As Boolean = IPAddress.TryParse(Item, TestIP)
Return Result
End Function
Private Function ConvertIPToLong(Item As String) As Long
Dim BinaryOctet As String = ""
Dim CompleteBinary As String = ""
Dim ItemSplit() As String = Item.Split("."c)
For i = 0 To ItemSplit.Count - 1
BinaryOctet = Convert.ToString(CLng(ItemSplit(i)), 2)
If BinaryOctet.Count < 8 Then
Do Until BinaryOctet.Count = 8
BinaryOctet = BinaryOctet.Insert(0, "0")
Loop
End If
CompleteBinary &= BinaryOctet
Next
Dim Result As Long = Convert.ToInt64(CompleteBinary, 2)
Return Result
End Function
Private Function ConvertLongToIP(Info As Long) As String
Dim Temp As String = Convert.ToString(Info, 2)
If Temp.Count <> 32 Then
Do Until Temp.Count = 32
Temp = Temp.Insert(0, "0")
Loop
End If
Dim Result As String = CStr(CInt(Convert.ToInt32(Temp.Substring(0, 8), 2))) & "." & _
CStr(CInt(Convert.ToInt32(Temp.Substring(8, 8), 2))) & "." & _
CStr(CInt(Convert.ToInt32(Temp.Substring(16, 8), 2))) & "." & _
CStr(CInt(Convert.ToInt32(Temp.Substring(24, 8), 2)))
Return Result
End Function
End Class
La vida loca

Communication b/n iviews --- Can we get the code for SAP's standard iviews?

hi All,
I have a requirement where I have to pass the user input data obtained in a standard iview(provided by sap) to a custom built iview and process it from there.
If I have to use the EPCF's client data bag for this purpose, I must be able to edit the code which produces the standard iview(provided by sap) which I think is not possible, as we cannot get the code for the standard iviews provided by sap.
Have anybody come across this kind of issue? If so, can you help me in solving this issue? Is there any workaround for this?
Any input in this regard will be of great help to me and will be suitably rewarded.
Thanks & best regds,
Alagammai.

hi George,
Tnx a lot.
But I have already tried importing par files into NWDS. I am not able to see any source code(like jsp or java)which can be edited. I am able to see only class files.
Does that mean that the class files are to be decompiled, edited, compiled and then uploaded to the portal?
best regds,
alagammai.

Where do I put the code for ePrint mobile?

I am currently signed in and can't find the area for ePrint mobile.

Hi MalWill456,
Which code are you talking about?:
- The ePrint code that printed off when web services was enabled?
- The code for the HP ePrint Home and Biz app?
- The code or server for the HP ePrint Service app?
Depending on which code you need, you would obtain it different ways.
If I have solved your issue, please feel free to provide kudos and make sure you mark this thread as solution provided!
Although I work for HP, my posts and replies are my own opinion and not those of HP.

HT2729 I'm trying to download Ironman3 from digital copy plus. It say itunes is a provider, but the code doesnt work in the store. How do I download this movie?

I'm trying to download Ironman3 from digital copy plus. It say itunes is a provider, but the code doesnt work in the store. How do I download this movie?

Hello Jor_El,
Thanks for using Apple Support Communities.
For more information on this, take a look at:
Transferring or downloading an iTunes Digital Copy
http://support.apple.com/kb/HT1539
Open iTunes 9 or later.
On the left side of the iTunes, click iTunes Store.
In the upper-right corner of the iTunes Store window, click the Sign In button. If you are already signed in, skip to step 5.
Sign in to the iTunes Store using your Apple ID.
In the QUICK LINKS window in the right column of the iTunes Store, click Redeem.
In the resulting screen, enter the 12-digit code printed on the insert included with your DVD or Blu Ray disc. Then, click Redeem.
Best of luck,
Mario

Am i the only one who when trying to enter the code for creative cloud activation ?

I give up,i have been trying to activate a 3 month subscription for CS6 from Staples and every time i try the code it will not work. I have used the chat live and spent about 3 hours already going nowhere. I do not like talking on the phone to some help desk overseas and the only thing i think left to do is to return the junk.

I tried all that and even took a picture of the numbers and blew them up so a blind person could read them and had 3 others read them off. A simple way to fix the problem is get someone on Adobes staff to find a font that most people can read from whatever product the stick it to.
John McDonough
Date: Wed, 1 Aug 2012 18:33:58 -0600
From: [email protected]
To: [email protected]
Subject: Am i the only one who when trying to enter the code for creative cloud activation ?
    Re: Am i the only one who when trying to enter the code for creative cloud activation ?
    created by David__B in Adobe Creative Cloud - View the full discussion
Hey John,
Not sure if it helps or not, but I know sometimes with codes like that its really hard to tell certain characters apart, O - like in Oscar versus 0 - number and number 1 versus lowercase L like in Lima.
Might test entering it both ways if you have any suspect characters?
-Dave
     Replies to this message go to everyone subscribed to this thread, not directly to the person who posted the message. To post a reply, either reply to this email or visit the message page: http://forums.adobe.com/message/4592955#4592955
     To unsubscribe from this thread, please visit the message page at http://forums.adobe.com/message/4592955#4592955. In the Actions box on the right, click the Stop Email Notifications link.
     Start a new discussion in Adobe Creative Cloud by email or at Adobe Forums
For more information about maintaining your forum email notifications please go to http://forums.adobe.com/message/2936746#2936746.

Can not view the code for views, triggers or table definition

Hello Gurus,
I can not see the code for any of the triggers, views, tables etc. in sql developer. For instance a view code will be
"create or replace" and then nothing, I could see the code in the past.
When clicking on SQL tab for table I get following errors
1. Ora-00904 Invalid Column name
2. Ora-31600: invalid input value emit_schema for parameter name in function SET_TRANSFORM_PARAMORA-06512: at SYs.DBMS_SYS_ERROR............................
please advice.
Thanks

Sqldev was only certified starting from 9.0.2, so it's possible that's the culprit. The latest update in the certification document even omits 9i entirely.
Did it start happening after upgrading sqldev? What version are you on?
K.

I need the code for creating popup windows and code for open and close

I can write the code for creating popup window , i am getting problem while trying to open and closing that popup windows.
Can anybody help me in that pls ?
Regards
Sreeni.

Hi
For pop up window
IWDWindowInfo windowInfo = (IWDWindowInfo)wdComponentAPI.getComponentInfo().findInWindows("PopWin");
IWDWindow window = wdComponentAPI.getWindowManager().createModalWindow(windowInfo);
window.setWindowPosition (300, 150);
window.show();
wdContext.currentYourNodeElement().setPopupAttribute(window);
For closing window code
IWDWindow window = wdContext.currentYourNodeElement().getPopupAttribute();
window.hide();
window.destroyInstance();
For more infornation refer this link
http://www.sdn.sap.com/irj/scn/index?rid=/library/uuid/20d2def3-f0ec-2a10-6b80-877a71eccb68&overridelayout=true
This link is very useful for you.
Regards
Ruturaj
Edited by: Ruturaj Inamdar on Aug 13, 2009 9:10 AM

In BSP-HTMLB what is the code for auto refresh.?

Hi friends,
In BSP-HTMLB what is the code for auto refresh.?
Means i gave the input every 2 minutes once my output should get refresh.
So what is the code in bsp-htmpb?
Moosa

Hi Moosa,
Many threads on this topic...
[Auto Refresh - I|Auto refresh]
[Auto Refresh - II|Auto-Refresh for BSP page]
[Auto Refresh - III|Page refresh.....]
Search the forum for more information.
Regards,
Anubhav

Plz provide me the code for TreeExpensionListener mehod's

Similar Messages

Maybe you are looking for