Reports- MODIFIYING DATABASE TABLE

HI ALL,
I have a requiremnt in which i have to add data into the database table ZSTOCK1 which dosent contain any data . I have one report in which there are two radio buttons 1. YARN 2. CHEMICAL . the output internal table is it_totstk1 i.e total stock. if i execute report taking one materail and the stock of total one month from 1.04.2006 to 30.04.2006 selecting one radio button( ex: yarn) the output is showing but the stock of yarn only some fields doesnt have data which are related to chemical are shown zero. llly if i select CHEMICAL it displays data related to chemical and all the yarn related fields shows as zero.
now i have requiement to update the Data base table ZSTOCK1 based on the condition the values are coming in the internal table and also if i select YARN (radio button) the fields related to chemical should be updated as blank only yarn related data should be inserted in the database all the CHEMICAL related data should be inserted as blank vice-versa.
The data in the internal table is taken from P_file and the output of the internal table should be inserted in the database table. please tell me the logic how to do it for the 2 cases for radiobuttons 1. yarn and 2.chemical.
Useful answers will be rewared.
Thanx & Regards,
K.Sunil Kumar.

Hi Hemanth,
I am not sure of the exact table name where the program source code are stored.
But you can get the code by using the READ REPORT statement.
Try the below code:
DATA prog TYPE c LENGTH 30.
DATA itab TYPE TABLE OF string.
prog = 'YGBTEST06'. "Put in your program name
READ REPORT prog INTO itab.
Reward points if helpful.
Thanks,
Balaji

Similar Messages

No data in Portal Database tables for Activity Report

Hi experts,
I've developed an Activity Report application in SAP Portal 7.0, which went live but the report shows no data.
We are pulling data from 2 portal database tables: WCR_WEBCONTENTSTAT and WCR_USERPAGEUSAGE
In non production environment there is data in the report but there is no data in the production environment.
The Activity Report service is already activated/started and set to true.
What could have caused this? And what should we check now?
What other configurations/setup should be done?
Regards,
Greg

Hi Greg,
Those are the aggregated tables. If they are not filled with data although the Portal Activity Report is activated, you should check whether the aggregation finished successfully.
In the older SPs there were some problems that were fixed in later SPs of 7.0.
In order to have the latest version of Portal Activity report, you can check SAP note 1084379 - Portal Activity Report - Latest Version (SDA file).
You can compare the SP via the MANIFAST file, as it contains the version and SP number.
In order to troubleshoot problems in Activity Report, you can follow SAP note: 1690023 - Portal Activity Report - Component-specific Note
Some basic checks that you can do:
Run query on the raw data tables to check since when there is data in those tables:
select min(timestamphour) from SAP<SystemID>DB.WCR_WEBCNODESTAT;
If there is too much data from long time ago, then you should delete the old data, and leave only the new data (there is anyways retention time for the data to be kept).
If there is no data, then it means that the Portal Activity Report does not collect data, and not really activated (usually this is not the case).
The aggregation runs every top of the hour, so you can check in the default traces for an error during that time.
In most of the cases something went wrong while aggregating the data.
As a result the aggregation is not finished, so the transaction is not being committed, and the aggregated tables stay empty.
If there is a DuplicateKeyException in the trace, you can follow SAP note 1054145 - Duplicate Key Exception.
If you have any more questions, please don't hesitate to ask.
I hope this information helps,
Thanks & regards,
Michal Zilcha-Lang

I have a column where I have implemented writeback, its working fine. On top of this I need to show 0 as No and 1 as yes in our report, that is also done. Now I want to enter Yes in a column where it was no and I want database table to get update with 1.

I have a column where I have implemented writeback, its working fine. On top of this I need to show 0 as No and 1 as yes in our report, that is also done. Now I want to enter Yes in a column where it was no and I want database table to get update with 1. I am not sure how to do it. SOmeone please help me out.

Hi ,
In your write back XML try the below query insert
INSERT INTO TABLE_XYZ (attribute1) values (SELECT CASE WHEN @{C1}=’Yes’ then 1 when @{C1}=’No’ then 0 else null end from dual)
Regards
Rajagopal

Scheduling Report output to a Database Table

Hi,
Scenario:
I have a RPT - loaded on the BO server (BO XI R2) - (which uses a stored procedure and a formula to populate the report) which generates the data in a tabular format.
Requirement:
I would like to insert the resultant rows generated in the report to a database.
Is there a possibility to schedule a report output to a database table?

It seems that what you want to do is some kind of ETL, you should consider a right tool for doing this. For example, BusinessObjects Data Integrator. By BODI, you can directly transform the source data to what you need to the destination.
If you still need the report for presentation, rather than purely using it as a transformation tool, I suggest you do this. Implement a Java program (.NET is also possible) to implement the Program interface, so that you Java program can be added to BusinessObjects Enterprise as a program object. In this Java program, what you do is: first, schedule the report, and then open the report, read the row sets and insert them to the destination table. This process involves the Business Objects Enterprise SDK and the Report Application Server SDK.
Finally, you can in turn schedule this program objects, so that it will periodically run the report and output to the destination table.

Crytsal Reports 11 cannot connect to Visual Foxpro Database table

I hope someone can help me here. I have read through the other posts here, but can't seem to fiind the answer I need.
We use Crystal Reports to pull information from our Sage databases to create and distribute reports. Currently this is working fine on the original server. However, we decided to move the installation of Crystal Reports from one server to another.
In setting up the new server, I keep getting the message "The database table (table name) cannot be found. Proceed to remove this table from the report?" It displays this message for all the different tables in which data is trying to be accessed. Once I click No to all of these notifications, the correct info is poplulated in the report just fine. I need to get this corrected. It does not do this on the original installation.
Also if I open Database Expert and single click too expand the "Current Connections" folder, I get a message that pops up saying "Database Connector Error: 'HY010:[Microsoft][ODBC Visual Foxpro Driver] Function sequence error'". When I click OK to that, I get another similar error that reads "Database Connector Error: 'IM001:[Microsoft][ODBC Driver Manager] Driver does not support this function'"
Please let me know of any ideas that you may have as to what may be causing this issue. I have tried reinstalling the ODBC drivers, Runtime files, and Crystal. I appreciate any help.

I tried what you mentioned but it did not work. I believe it has to do with a "SQLNumResultCols" in SQL. The reason I say this is because I did a trace on both the server that is working and the server that is not and this is the first key that displayed an error in the SQL.LOG file. Here is this section of the SQL.LOG file for the server that isnt working...
dde             2e94-28b0     EXIT SQLNumResultCols with return code -1 (SQL_ERROR)
          HSTMT               03442998
          SWORD *             0x0012F3F4
          DIAG [HY010] [Microsoft][ODBC Visual FoxPro Driver]Function sequence error (0)
And here is this section of the SQL.LOG file for the server that is working...
dde             eb8-c94     EXIT SQLNumResultCols with return code 0 (SQL_SUCCESS)
          HSTMT               03542508
          SWORD *             0x0012F3F4 (5)
I believe if I can figure out what is causing this, I will be able to resolve this issue, but I am not a programmer and I am having a very hard time with this. Any help is appreciated.

Delete L.H.S spaces from field in database table but not for Report

Dear Experts
I m facing a problem...actaually i have replaced 999 by blank in a field of database table record.
Like :     999 abcde
             999999 hjklmn
             9999 klplmj
             99999 hjsfhh
I have replaced 9 by blank. and using CONDENSE statement i have avoid the left hand side spaces of 9 in the database table.
Means the data is updated in database table following below using Condense.
Like:     abcde
            hjklmn
            klplmj
            hjsfhh
Now, the problem is that these spaces is showing in the Report. The left hand side spaces is not deleting from the Report. But these spaces is not showing in the databse table.
Plz tell me wat is the reason and wat is the solution to avoid these space from the Report.
Note: That field is Character Field.   KNA1-STRAS
Thanks and Regards,
Swapnika

Hello
Try to use
SHIFT c LEFT DELETING LEADING SPACE.
instead of
CONDENSE...

Creating BAM report using data of two database tables. Say "EmployeeTable" and "DepartmentTable

I want to populate data from two database tables into a BAM report. I have created two data objects for the tables and want to create 3rd data object so that it can take the data from the other data objects automatically. Is there any such facility within BAM?

Hi
1. I am not sure if you have option to combine multiple DataObjects like that.
2. For your scenario, on Database side itself, I would recommend Create a VIEW that joins these 2 Tables and pull the required Columns and add required conditions. Verify the VIEW has all the rows expected.
3. Then create DataObject for this View. Once you have DataObject, create the Report.
Thanks
Ravi Jegga

Write OBIEE report results in database table

Hi everyone,
I need to implement a process that executes an OBIEE report and writes the result rows to a database table.
How can this be done?
Thanks,
Alex

You can do it with delivers/scheduler and a script.
Delviers give the content to the script and you can do what with it.
Check this document :
http://www.oracle.com/technology/products/bi/files/advanced%20delivery%20with%20bi%20publisher%20delivery%20manager%20api.doc

Hello! Want to programatically alter the Report.Database.Tables info

Post Author: RobotSlave
CA Forum: .NET
Crystal Reports 2008 CFK0Y-KVURM2M-00UFAFF-N43MCrystal Reports 2008 for Visual StudioMicrosoft Visual Studio 2005Version 8.0.50727.762 (SP.050727-7600)Microsoft .NET FrameworkVersion 2.0.50727
Installed Edition: Enterprise
Microsoft Visual C# 2005 77718-007-4000003-41954Microsoft Visual C# 2005
why? to save time thats why, I have a zillion reports that I have to point at a new database periodically, (and I have some time on my hands here at the ranch) so I decided to automate the process. I made a windows application with Visual Studio that opens the rpt files as objects using the crystaldicisions object object model thingy, pulls out the table logoninfo.connectioninfo stuff and sets it to a new location THEN when I try to set the report.database.tables back to my new modified version it says that the tables property is a readonly thingy. I can open and save, but I cant modify the part I want to... how can I alter the serverName and databaseName properties such that I can save the result?
thank you!
much love.

Post Author: RobotSlave
CA Forum: .NET
I was making a new copy of the database.tables and then editing it then trying to set the whole reportdocument.database.tables = to my modified version, it was readonly so it didnt work. when I just iterate through the tables and set the properties on each one, it works just fine.

Sample report for filling the database table with test data .

Hi ,
Can anyone provide me sample report for filling the database table with test data ?
Thanks ,
Abhi.

hi
the code
data : itab type table of Z6731_DEPTDETAIL,
wa type Z6731_DEPTDETAIL.
wa-DEPT_ID = 'z897hkjh'.
wa-DESCRIPTION = 'computer'.
append wa to itab.
wa-DEPT_ID = 'z897hkjhd'.
wa-DESCRIPTION = 'computer'.
append wa to itab.
loop at itab into wa.
insert z6731_DEPTDETAIL from wa.
endloop.
rewards if helpful

How to connect infosets & database tables

Hi,
   I have connected R/3 system through Crystral report, Now Server name is coming in the list. But am not seen any infosets instead of i found I & Q under my Server name,
Am now to configure this Crystall repport.
When I connect the server it asking the client, username & password. I given all the required inputs. My user ID have SAP_ALL authorization.
Can you explain in brief steps or give me any configuation document link.
Kindly help me.
Thanks
Jibin.

Hi,
It is possible to modify database table in bulk.
You can use the following syntax:
=====
Modify dbtab FROM wa    -
> To modifiy single record
Modify dbtab FROM TABLE itab -
> To modify bulk records.
Update dbtab FROM wa    -
> To modifiy single record
Update dbtab FROM TABLE itab -
> To modify bulk records.
=====
Remember that update command update existing records where as modify comand updates existing records and if the record does not exists, it inserts the record.
Regards,
Saurabh

Help needed in reading text file to database table

Hello experts,
i have to insert the values from the column of this text file and insert them in my database table.
I have done a few file to table insertions but i'm having some trouble with this one.
Any suggestions plz
thanks
liab_report      1.00                                                                                                                              Page: 1
CDC:00537 / Mon Jun-21-2010                           LIABILITY REPORT                               Mon Jun-21-2010 22:06:26
DRAW    1; SET    1; November 7, 2009
                     TOTAL       PAID ON         TOTAL    EXPIRED ON         TOTAL    FRAC   OUTSTANDING
                   WINNERS      06/21/10          PAID      06/21/10       EXPIRED   ROUND
DIVISION          AMOUNT        AMOUNT        AMOUNT        AMOUNT        AMOUNT AMOUNT        AMOUNT
    Div1              0.00          0.00          0.00          0.00          0.00    0.00          0.00
    Div2         701040.00          0.00     660146.00          0.00      40894.00    0.00          0.00
    Div3        1444128.00          0.00    1330056.00          0.00     114072.00    0.00          0.00
    Div4        4711900.00          0.00    3889700.00          0.00     822200.00    0.00          0.00
                6857068.00          0.00    5879902.00          0.00     977166.00    0.00          0.00
DRAW    2; SET    1; November 14, 2009
                     TOTAL       PAID ON         TOTAL    EXPIRED ON         TOTAL    FRAC   OUTSTANDING
                   WINNERS      06/21/10          PAID      06/21/10       EXPIRED   ROUND
DIVISION          AMOUNT        AMOUNT        AMOUNT        AMOUNT        AMOUNT AMOUNT        AMOUNT
    Div1              0.00          0.00          0.00          0.00          0.00    0.00          0.00
    Div2         817817.00          0.00     817817.00          0.00          0.00    0.00          0.00
    Div3        1687405.00          0.00    1611742.00          0.00      75663.00    0.00          0.00
    Div4        3402100.00          0.00    3034200.00          0.00     367900.00    0.00          0.00
                5907322.00          0.00    5463759.00          0.00     443563.00    0.00          0.00
DRAW    3; SET    1; November 21, 2009
                     TOTAL       PAID ON         TOTAL    EXPIRED ON         TOTAL    FRAC   OUTSTANDING
                   WINNERS      06/21/10          PAID      06/21/10       EXPIRED   ROUND
DIVISION          AMOUNT        AMOUNT        AMOUNT        AMOUNT        AMOUNT AMOUNT        AMOUNT
    Div1              0.00          0.00          0.00          0.00          0.00    0.00          0.00
    Div2         779933.00          0.00     769804.00          0.00      10129.00    0.00          0.00
    Div3        1605548.00          0.00    1525104.00          0.00      80444.00    0.00          0.00
    Div4        4891700.00          0.00    4256800.00          0.00     634000.00    0.00        900.00
                7277181.00          0.00    6551708.00          0.00     724573.00    0.00        900.00

Plz clarify whether u want to load text file as a file into database or value of this text file into database. If values are to be loaded from this text file, U can better format the text file and use SQL loader to load the file into database. By formatting the database, i mean remove the unnecessary headings and characters, kee only the values to be loaded idelimited by ' '(space) or ','(comma). Create a control file and load it into the target table.

Database Table cannot be found when Verify Database

Post Author: brentlaw
CA Forum: Other
I have been using CRW 7 for many years. I recently upgraded to XI (I have current version). I can open existing reports and create new reports fine. The problem is when I Verify Database I get an error message "The Database table <tablename here> cannot be found. Remove this table from the report".
This happens to all existing and new created reports. The data fills correctly when previewing. The problem only occurs when Verifying Database.
I thought it might be an ODBC driver problem so I upgraded my driver to v 3.525.1117. At least I think I upgraded it I did not check the version before I installed SQL 2005 SP2. After installing SP2 it seemed to be fine but a week later the problem came back. Mysterious eh?
I am trying to launch a report from VB6 using RDC and rpt file. I get logged in correctly but at .viewreport I get a generic error message. I am assuming the problem is related the the issue I raise in this forum post.

Post Author: brentlaw
CA Forum: Other
I fixed the problem. In CR XI Developer Designer window I opened up Database-SetDataSourceLocation. I noticed that in "Properties" the last item "Use DSN Default Properties": was set to True. I changed this value to False. Now this problem is solved.
I am Not using Windows Authentication I am using SQLServer authentication. In my code I was passing SQLServer Authentication credentials.
I opened up all of my CR 7 reports in CR XI and changed this setting on both the Main and the Subreort property in the SetDataSourceLocation dialog box and now all my reports work. I am a happy camper.
I don't know if this is a CR 7 conversion to CR XI only situation or not. Hope this information helps someone else.

Can't drop database table objects on a EJB Diagram.

JDeveloper 10.1.3 EA.
When I drop a database table object on a EJB Diagram the error below occurs. Also dropping components from the Component Palette doesn't work. A wizard opens, but after completing that, nothing is on the EJB Diagram.
However, after dropping a table and a restart of JDeveloper, there is an empty 'tablename EJB' on the EJB Diagram, but a click with the mouse on it generates the same error as the drop did.
Simular errors occur with JDeveloper 10.1.2, so writing this I realize that this might be a database version problem. I'm using 9i! I'll try 10g and see what happens.
Message
BME-99003: An error occurred, so processing could not continue.
Cause
The application has tried to de-reference an invalid pointer. This exception should have been dealt with programmatically. The current activity may fail and the system may have been left in an unstable state. The following is a stack trace.
java.lang.NullPointerException
 at oracle.jdevimpl.xml.DescriptorNode.getWhitespaceHandler(DescriptorNode.java:349)
 at oracle.jdevimpl.xml.DescriptorNodeDomIO.load(DescriptorNodeDomIO.java:164)
 at oracle.jdeveloper.xml.BindingIO.load(BindingIO.java:43)
 at oracle.jdevimpl.xml.DescriptorNode.getNewDescriptorImpl(DescriptorNode.java:506)
 at oracle.jdevimpl.xml.DescriptorNode.getDescriptor(DescriptorNode.java:140)
 at oracle.jdeveloper.xml.oc4j.ejb.OrionEjbJarNode.getOrionEjbJar(OrionEjbJarNode.java:145)
 at oracle.jdeveloper.ejb.BaseEjbModuleContainer.getOrionEjbJar(BaseEjbModuleContainer.java:476)
 at oracle.jdeveloper.ejb.modeler.diagram.dropHandler.TableDropEJB21Handler.isAvailable(Unknown Source)
 at oracle.bm.diagrammer.ui.DropChooserPanel.populateOptions(Unknown Source)
 at oracle.bm.diagrammer.ui.DropChooserPanel.createComponents(Unknown Source)
 at oracle.bm.diagrammer.ui.DropChooserPanel.<init>(Unknown Source)
 at oracle.bm.diagrammer.dropHandler.AbstractChooserDropHandler.createPanel(Unknown Source)
 at oracle.bm.diagrammer.dropHandler.AbstractChooserDropHandler.processObjects(Unknown Source)
 at oracle.bm.addinUtil.IDEAppContext$4.performAction(Unknown Source)
 at oracle.bm.diagrammer.LockMonitor.performLockedAction(Unknown Source)
 at oracle.bm.diagrammer.BaseDiagram.performDiagramLockedAction(Unknown Source)
 at oracle.bm.addinUtil.IDEAppContext.dropNavigatorNodeLater(Unknown Source)
 at oracle.bm.addinUtil.IDEAppContext$5.run(Unknown Source)
 at java.awt.event.InvocationEvent.dispatch(InvocationEvent.java:209)
 at java.awt.EventQueue.dispatchEvent(EventQueue.java:461)
 at java.awt.EventDispatchThread.pumpOneEventForHierarchy(EventDispatchThread.java:242)
 at java.awt.EventDispatchThread.pumpEventsForHierarchy(EventDispatchThread.java:163)
 at java.awt.EventDispatchThread.pumpEvents(EventDispatchThread.java:157)
 at java.awt.EventDispatchThread.pumpEvents(EventDispatchThread.java:149)
 at java.awt.EventDispatchThread.run(EventDispatchThread.java:110)
Action
If further errors occur, you should restart the application.
Also, report the problem on the JDeveloper forum on otn.oracle.com, or contact Oracle support, giving the information from this message.
________________________________________________________________________________

Hi lisa, you've said that the problem does not occur in the 10.1.3 build but I have almost the same problem with the BME-99003 error message.
I used the same workaround "changing the regional settings from BE to US" and the BME-99003 problem disappears :-)
Here is the error message that I receive while I add a table into the EJBDiagram. I'm using
windows XP SP2
ADF Business Components 10.1.3.34.12
Java Platform 1.5.0_04
Oracle IDE 10.1.3.34.12
Struts Modeler Version 10.1.3.34.12
UML Modelers Version 10.1.3.34.12
Versioning Support 10.1.3.34.12
Abdelkrim BOUJRAF
Message
BME-99003: An error occurred, so processing could not continue.
Cause
The application has tried to de-reference an invalid pointer. This exception should have been dealt with programmatically. The current activity may fail and the system may have been left in an unstable state. The following is a stack trace.
java.lang.NullPointerException
at oracle.jdevimpl.xml.DescriptorNode.getWhitespaceHandler(DescriptorNode.java:349)
at oracle.jdevimpl.xml.DescriptorNodeDomIO.load(DescriptorNodeDomIO.java:164)
at oracle.jdeveloper.xml.BindingIO.load(BindingIO.java:43)
at oracle.jdevimpl.xml.DescriptorNode.getNewDescriptorImpl(DescriptorNode.java:506)
at oracle.jdevimpl.xml.DescriptorNode.getDescriptor(DescriptorNode.java:140)
at oracle.jdeveloper.xml.oc4j.ejb.OrionEjbJarNode.getOrionEjbJar(OrionEjbJarNode.java:145)
at oracle.jdeveloper.xml.oc4j.ejb.OrionEjbJarHelper.findOrionEjbJar(OrionEjbJarHelper.java:82)
at oracle.jdeveloper.xml.oc4j.ejb.OrionEjbJarHelper.findOrCreateOrionEjbJar(OrionEjbJarHelper.java:73)
at oracle.jdeveloper.ejb.modeler.diagram.dropHandler.TableDropEJBCommonHandler.processTableNodes(Unknown Source)
at oracle.jdeveloper.ejb.modeler.diagram.dropHandler.TableDropEJB21Handler.processTableNodes(Unknown Source)
at oracle.bm.typemodel.dropHandler.TableDropSubHandler.processDBObjectNodes(Unknown Source)
at oracle.bm.typemodel.dropHandler.DBObjectDropSubHandler.processObjects(Unknown Source)
at oracle.bm.diagrammer.dropHandler.AbstractChooserDropHandler.processObjectsImpl(Unknown Source)
at oracle.bm.diagrammer.dropHandler.AbstractChooserDropHandler.processObjects(Unknown Source)
at oracle.bm.addinUtil.IDEAppContext$4.performAction(Unknown Source)
at oracle.bm.diagrammer.LockMonitor.performLockedAction(Unknown Source)
at oracle.bm.diagrammer.BaseDiagram.performDiagramLockedAction(Unknown Source)
at oracle.bm.addinUtil.IDEAppContext.dropNavigatorNodeLater(Unknown Source)
at oracle.bm.addinUtil.IDEAppContext$5.run(Unknown Source)
at java.awt.event.InvocationEvent.dispatch(InvocationEvent.java:209)
at java.awt.EventQueue.dispatchEvent(EventQueue.java:461)
at java.awt.EventDispatchThread.pumpOneEventForHierarchy(EventDispatchThread.java:242)
at java.awt.EventDispatchThread.pumpEventsForHierarchy(EventDispatchThread.java:163)
at java.awt.EventDispatchThread.pumpEvents(EventDispatchThread.java:157)
at java.awt.EventDispatchThread.pumpEvents(EventDispatchThread.java:149)
at java.awt.EventDispatchThread.run(EventDispatchThread.java:110)
Action
If further errors occur, you should restart the application.
Also, report the problem on the JDeveloper forum on otn.oracle.com, or contact Oracle support, giving the information from this message.

How to save data after clicking checkbox stored in database table

TYPE-pools: slis.
tables:mkpf,mseg,mard.
TYPES: BEGIN OF tp_data,
 mblnr LIKE mseg-mblnr,
 matnr LIKE mseg-matnr,
 werks LIKE mard-werks,
 lgort LIKE mard-lgort,
 lgpbe LIKE mard-lgpbe,
 charg LIKE mseg-charg,
 bwart LIKE mseg-bwart,
 budat LIKE mkpf-budat,
 menge LIKE mseg-menge,
 meins LIKE mseg-meins,
 kostl LIKE mseg-kostl,
 aufnr LIKE mseg-aufnr,
 rsnum LIKE mseg-rsnum,
 checkbox TYPE c,
__mark,
END OF tp_data,
tp_tbl_data TYPE STANDARD TABLE OF tp_data.
Constants
Data objects (variable declarations and definitions)
Report data to be shown.
DATA: it_data TYPE STANDARD TABLE OF tp_data.
Heading of the report.
DATA: t_heading TYPE slis_t_listheader.
========================== Selection Screen ==========================
SELECTION-SCREEN BEGIN OF BLOCK b1 WITH FRAME TITLE text-001.
SELECT-OPTIONS:smblnr FOR mseg-mblnr MODIF ID m1,
 smatnr FOR mseg-matnr MODIF ID m2,
 swerks FOR mard-werks MODIF ID m3,
 slgort FOR mard-lgort MODIF ID m4,
 slgpbe FOR mard-lgpbe MODIF ID m5,
 scharg FOR mseg-charg MODIF ID m6,
 sbwart FOR mseg-bwart MODIF ID m7,
 skostl FOR mseg-kostl MODIF ID m8,
 saufnr FOR mseg-aufnr MODIF ID m9,
 srsnum FOR mseg-rsnum MODIF ID m10.
SELECTION-SCREEN END OF BLOCK b1.
SELECTION-SCREEN BEGIN OF BLOCK b2 WITH FRAME TITLE text-002.
PARAMETERS:pre RADIOBUTTON GROUP radi USER-COMMAND ucomm DEFAULT 'X',
 pse RADIOBUTTON GROUP radi,
 bps RADIOBUTTON GROUP radi.
SELECTION-SCREEN END OF BLOCK b2.
SELECTION-SCREEN BEGIN OF BLOCK b3 WITH FRAME TITLE text-003.
PARAMETER:layout TYPE i.
SELECTION-SCREEN END OF BLOCK b3.
=========================== Event Blocks =============================
AT selection-SCREEN.
start-OF-selection.
PERFORM get_data USING it_data.
END-OF-selection.
PERFORM build_alv USING it_data t_heading.
=========================== Subroutines ==============================
*& Form get_data
 Gets the information to be shown in the report.
FORM get_data USING t_data TYPE tp_tbl_data.
SELECT msegmblnr msegmatnr mardwerks mardlgort mardlgpbe msegcharg msegbwart mkpfbudat
 msegmenge msegmeins msegkostl msegaufnr mseg~rsnum
INTO CORRESPONDING FIELDS OF TABLE t_data
FROM mseg
JOIN mard ON mardmatnr EQ msegmatnr
 JOIN mkpf ON msegmblnr EQ mkpfmblnr
 WHERE mseg~matnr IN smatnr.
ENDFORM. " get_data
*& Form build_alv
 Builds and display the ALV Grid.
FORM build_alv USING t_data TYPE tp_tbl_data
 t_heading TYPE slis_t_listheader.
ALV required data objects.
DATA: w_title TYPE lvc_title,
 w_comm TYPE slis_formname,
 w_status TYPE slis_formname,
 x_layout TYPE slis_layout_alv,
 t_event TYPE slis_t_event,
 t_fieldcat TYPE slis_t_fieldcat_alv,
 t_sort TYPE slis_t_sortinfo_alv.
REFRESH t_fieldcat.
REFRESH t_event.
REFRESH t_sort.
CLEAR x_layout.
CLEAR w_title.
Field Catalog
PERFORM set_fieldcat2 USING:
 1 'MBLNR' 'MBLNR' 'MSEG' space space space space space space space space space space space space t_fieldcat ,
 2 'MATNR' 'MATNR' 'MSEG' space space space space space space space space space space space space t_fieldcat ,
 3 'WERKS' 'WERKS' 'MARD' space space space space space space space space space space space space t_fieldcat,
 4 'LGORT' 'LGORT' 'MARD' space space space space space space space space space space space space t_fieldcat ,
 5 'LGPBE' 'LGPBE' 'MARD' space space space space space space space space space space space space t_fieldcat ,
 6 'CHARG' 'CHARG' 'MSEG' space space space space space space space space space space space space t_fieldcat ,
 7 'BWART' 'BWART' 'MSEG' space space space space space space space space space space space space t_fieldcat,
 8 'BUDAT' 'BUDAT' 'MKPF' space space space space space space space space space space space space t_fieldcat,
 9 'MENGE' 'MENGE' 'MSEG' space space space space space space space space space space space space t_fieldcat,
 10 'MEINS' 'MEINS' 'MSEG' space space space space space space space space space space space space t_fieldcat,
 11 'KOSTL' 'KOSTL' 'MSEG' space space space space space space space space space space space space t_fieldcat,
 12 'AUFNR' 'AUFNR' 'MSEG' space space space space space space space space space space space space t_fieldcat,
 13 'RSNUM' 'RSNUM' 'MSEG' space space space space space space space space space space space space t_fieldcat,
 14 '__MARK' 'XFELD' space space space 'Select' 'Select this row' 'Sel' 'Select this row' space space space 'X' 'X' space t_fieldcat.
Layout
x_layout-zebra = 'X'.
Top of page heading
PERFORM set_top_page_heading USING t_heading t_event.
Events
PERFORM set_events USING t_event.
GUI Status
w_status = ''.
User commands
w_comm = 'USER_COMMAND'.
Order
Example
PERFORM set_order USING '<field>' 'IT_DATA' 'X' space space t_sort.
PERFORM set_order USING 'LIFNR' 'IT_DATA' 'X' space 'X' t_sort.
PERFORM set_order USING 'EBELN' 'IT_DATA' 'X' space 'X' t_sort.
PERFORM set_order USING 'EBELP' 'IT_DATA' 'X' space space t_sort.
Displays the ALV grid
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
EXPORTING
 i_callback_program = sy-repid
 it_fieldcat = t_fieldcat
 is_layout = x_layout
 it_sort = t_sort
 i_callback_pf_status_set = w_status
 i_callback_user_command = w_comm
 i_save = 'X'
 it_events = t_event
 i_grid_title = w_title
TABLES
 t_outtab = t_data
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. " build_alv.
*& Form set_top_page_heading
 Creates the report headings.
FORM set_top_page_heading USING t_heading TYPE slis_t_listheader
 t_events TYPE slis_t_event.
DATA: x_heading TYPE slis_listheader,
 x_event TYPE LINE OF slis_t_event.
Report title
CLEAR t_heading[].
CLEAR x_heading.
x_heading-typ = 'H'.
x_heading-info = 'Reporte Prueba'(001).
APPEND x_heading TO t_heading.
Program name
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-KEY = 'Program: '.
x_heading-info = sy-repid.
APPEND x_heading TO t_heading.
User who is running the report
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-KEY = 'User: '.
x_heading-info = sy-uname.
APPEND x_heading TO t_heading.
Date of execution
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-KEY = 'Date: '.
WRITE sy-datum TO x_heading-info.
APPEND x_heading TO t_heading.
Time of execution
CLEAR x_heading.
x_heading-typ = 'S'.
x_heading-KEY = 'Time: '.
WRITE sy-uzeit TO x_heading-info.
APPEND x_heading TO t_heading.
Top of page event
x_event-name = slis_ev_top_of_page.
x_event-FORM = 'TOP_OF_PAGE'.
APPEND x_event TO t_events.
ENDFORM.
*& Form set_events
 Sets the events for ALV.
 The TOP_OF_PAGE event is alredy being registered in
 the set_top_page_heading subroutine.
FORM set_events USING t_events TYPE slis_t_event.
DATA: x_event TYPE LINE OF slis_t_event.
Example
clear x_event.
x_event-name = .
x_event-form = .
append x_event to t_event.
ENDFORM.
*& Form set_order
 Adds an entry to the order table.
FORM set_order USING p_fieldname p_tabname p_up p_down p_subtot
 t_sort TYPE slis_t_sortinfo_alv.
DATA: x_sort TYPE slis_sortinfo_alv.
CLEAR x_sort.
x_sort-fieldname = p_fieldname.
x_sort-tabname = p_tabname.
x_sort-UP = p_up.
x_sort-down = p_down.
x_sort-subtot = p_subtot.
APPEND x_sort TO t_sort.
ENDFORM. "set_order
*& Form set_fieldcat2
 Adds an entry to the field catalog.
FORM set_fieldcat2 USING p_colpos p_fieldname p_ref_fieldname p_ref_tabname
 p_outputlen p_noout
 p_seltext_m p_seltext_l p_seltext_s p_reptext_ddic p_ddictxt
 p_hotspot p_showasicon p_checkbox p_edit
 p_dosum
 t_fieldcat TYPE slis_t_fieldcat_alv.
DATA: wa_fieldcat TYPE slis_fieldcat_alv.
CLEAR wa_fieldcat.
General settings
wa_fieldcat-fieldname = p_fieldname.
wa_fieldcat-col_pos = p_colpos.
wa_fieldcat-no_out = p_noout.
wa_fieldcat-HOTSPOT = p_hotspot.
wa_fieldcat-CHECKBOX = p_checkbox.
wa_fieldcat-ICON = p_showasicon.
wa_fieldcat-do_sum = p_dosum.
Set reference fieldname, tablenam and rollname.
If p_ref_tabname is not given, the ref_fieldname given is a data element.
If p_ref_tabname is given, the ref_fieldname given is a field of a table. In case ref_fieldname is not given, it is copied from the fieldname.
IF p_ref_tabname IS INITIAL.
 wa_fieldcat-rollname = p_ref_fieldname.
ELSE.
 wa_fieldcat-ref_tabname = p_ref_tabname.
 IF p_ref_fieldname EQ space.
 wa_fieldcat-ref_fieldname = wa_fieldcat-fieldname.
 ELSE.
 wa_fieldcat-ref_fieldname = p_ref_fieldname.
 ENDIF.
ENDIF.
Set output length.
IF NOT p_outputlen IS INITIAL.
 wa_fieldcat-outputlen = p_outputlen.
ENDIF.
Set text headers.
IF NOT p_seltext_m IS INITIAL.
 wa_fieldcat-seltext_m = p_seltext_m.
ENDIF.
IF NOT p_seltext_l IS INITIAL.
 wa_fieldcat-seltext_l = p_seltext_l.
ENDIF.
IF NOT p_seltext_s IS INITIAL.
 wa_fieldcat-seltext_s = p_seltext_s.
ENDIF.
IF NOT p_reptext_ddic IS INITIAL.
 wa_fieldcat-reptext_ddic = p_reptext_ddic.
ENDIF.
IF NOT p_ddictxt IS INITIAL.
 wa_fieldcat-ddictxt = p_ddictxt.
ENDIF.
Set as editable or not.
IF p_edit IS NOT INITIAL.
 wa_fieldcat-INPUT = 'X'.
 wa_fieldcat-EDIT = 'X'.
ENDIF.
APPEND wa_fieldcat TO t_fieldcat.
ENDFORM. "set_fieldcat2
=========================== Subroutines called by ALV ================
*& Form top_of_page
 Called on top_of_page ALV event.
 Prints the heading.
FORM top_of_page.
CALL FUNCTION 'REUSE_ALV_COMMENTARY_WRITE'
EXPORTING
 i_logo = 'XXXXX'
 it_list_commentary = t_heading.
ENDFORM. " alv_top_of_page
*& Form user_command
 Called on user_command ALV event.
 Executes custom commands.
FORM user_command USING r_ucomm LIKE sy-ucomm
 rs_selfield TYPE slis_selfield.
Example Code
Executes a command considering the sy-ucomm.
CASE r_ucomm.
 WHEN '&IC1'.
 Set your "double click action" response here.
 Example code: Create and display a status message.
 DATA: w_msg TYPE string,
 w_row(4) TYPE n.
 w_row = rs_selfield-tabindex.
 CONCATENATE 'You have clicked row' w_row
 'field' rs_s lfield-fieldname
 'with value' rs_selfield-value
 INTO w_msg SEPARATED BY space.
 MESSAGE w_msg TYPE 'S'.
ENDCASE.
End of example code.
LOOP AT T_DATA.
IF it_data-__MARK EQ 'X'.
insert ztable.
ENDIF.
ENDLOOP.
ENDFORM. "user_command
ur sending code loop is error ,plz check that one after checking send me

Hi,
After displaying ALV report output, if you want to update database table based on your selected record, then use the below logic in your User_command subroutine.
You will get the index of the selected record in rs_selfield-tabindex. using this index read the respective record from the internal table and move corresponding field to the table fields and then update.
data : wa_data like t_data.
read table t_data index rs_selfield-tabindex into wa_data.
if sy-subrc = 0.
 move-corresponding wa_data to ztable.
 insert ztable.
endif.
thanks,
sksingh

Reports- MODIFIYING DATABASE TABLE

Similar Messages

Maybe you are looking for