Dynamic adding & setText JCheckBox in table

I try to populate my data in table with Jcheckbox. when I add the data i also want to set the checkbox text.
anyone can help?

Read the Swing tutorial on [url http://java.sun.com/docs/books/tutorial/uiswing/components/table.html]How to Use Tables for a working example of using checkboxes.
To change the state of a checkbox you simply update the TableModel:
table.setValueAt(new Boolean(true), row, column);

Similar Messages

Reading the Data from dynamically added rows of a table...

Hi,
              I am using adobe interactive form (WD ABAP) in which i am adding the table rows dynamically (using Jscript code). I have to fech these data into an internal table. But I can read only the first row data..
              Also While adding rows dynamically the same data is repeating for the consecutive rows..
              I have found many similar posts in sdn, but i cannot get the solution. They have mentioned about adding in WDDOINIT method. Can anyone explain me what should be done,..?
1) How to solve repeatative data while adding rows..?
2) How to read dynamically added row data during runtime into internal table..?
Thanks,
Surya.

Discussed @ SDN lot of time before. Have a look at any of below threads:-
Dynamic table in interactive form...
Make dynamic tables in Adobe Interactive forms
Adding Rows dynamically upon clicking the button
How to get values to WebDynpro ABAP from dynamic table?
Chintan

Add null rows in WDDOINIT for fetching data from dynamically added rows..

Hi,,
I have to fetch data from a dynamically added rows of a table.
I have followed / gone through many forums but they ddnot mention how to add null rows in the initialization method..
I am using WD Abap..
Can anyone help how to bind null rows in WDDOINIT method..?
Thanks,
Surya

Discussed @ SDN lot of time before. Have a look at any of below threads:-
Dynamic table in interactive form...
Make dynamic tables in Adobe Interactive forms
Adding Rows dynamically upon clicking the button
How to get values to WebDynpro ABAP from dynamic table?
Chintan

Dynamic adding of components (doesn't work when programmatically)

Hi, I don't understand, why this doesn't work. I'll explain it on this example:
import java.util.concurrent.ScheduledThreadPoolExecutor;
import java.util.concurrent.TimeUnit;
import javafx.application.Application;
import javafx.event.ActionEvent;
import javafx.event.EventHandler;
import javafx.scene.Group;
import javafx.scene.Scene;
import javafx.scene.control.Button;
import javafx.scene.paint.Color;
import javafx.stage.Stage;
public class NewFXMain extends Application {
    Group root;
    public static void main(String[] args) {
        Application.launch(NewFXMain.class, args);
    @Override
    public void start(Stage primaryStage) {
        primaryStage.setTitle("Hello World");
        root = new Group();
        Scene scene = new Scene(root, 300, 250, Color.LIGHTGREEN);
        Button btn = new Button();
        btn.setLayoutX(100);
        btn.setLayoutY(80);
        btn.setText("Add button now");
        btn.setOnAction(new EventHandler<ActionEvent>() {
            public void handle(ActionEvent event) {
                addButton();
        root.getChildren().add(btn);
        primaryStage.setScene(scene);
        primaryStage.setVisible(true);
        System.err.println("Number of buttons before: "+root.getChildren().size());
        ScheduledThreadPoolExecutor executor = new ScheduledThreadPoolExecutor(1);
        executor.schedule(new MyTask(), 5, TimeUnit.SECONDS);
    private void addButton() {
        System.err.println("Button adding");
        root.getChildren().add(new Button("YEAH"));
        System.err.println("Number of buttons after: "+root.getChildren().size());
    class MyTask implements Runnable {
        public void run() {
            addButton();
}There are two ways how a new button can be added. Either by clicking on existing button or programmatically by the program itself after 5 seconds.
If you add it by button, there is no problem. The error print is:
Number of buttons before: 1
Button adding
Number of buttons after: 2
But if you just wait, then the error print is:
Number of buttons before: 1
Button adding
and no button is added. In fact, the error printing after the adding isn't performed either.
I'd like to ask if there is some solution for this because I'd love to do some changes by schedulers. Thx
Edited by: 876949 on 14.8.2011 9:09
Edited by: 876949 on 14.8.2011 9:11

No, these are not error messages, they are just for purpose of example. Here it doesn't matter whether err or out... (yes, 'out' would be better ;)
But thanx, it's working. By the way, I am creating scheduler for task lists. They are supposed to be printed dynamically in specific time (or periodically). For example: at 5 o'clock I need to print 5 items of some list and every 3 hours I need to print 3 items of another list etc. - so it's quite dynamic with regard to component adding (No, I don't want to use some sort of ListView, I want interactive printing: one item on screen at a moment). I'll try to work your solution into my code.
Edit: So either it's not possible to use this for the purpose of my app or it will be really cumbersome. Maybe it would be easier to draw some rectangles with mouse listeners...
Edit: So I finally got around it. In the end, I won't use dynamic adding as intended. It's working and that's important.
Edited by: 876949 on 14.8.2011 12:48
Edited by: 876949 on 15.8.2011 5:21

Dynamically adding more attributes to cube dimension in SSAS 2008 R2

I need to dynamically add more attributes to cube dimension in SSAS 2008 R2 because the dimension table the cube is based on is updated using dynamic pivoting and there is need to update the cube dimension attributes as more columns are added to the dimension
table without making the changes through BIDS. Is there a way to dynamically adding more attributes to cube dimension in SSAS 2008 R2?
Thanks
BI Developer

Definitely. You can use AMO to add dimension attributes on the server. I have definitely done this a few times for different clients of mine. Here is a generic AMO sample:
http://msftasprodsamples.codeplex.com/wikipage?title=SS2008%21Readme_AMOAdventureWorks&referringTitle=Home
Notice the parts which add attributes to a dimension.
http://artisconsulting.com/Blogs/GregGalloway

Dynamically adding a column to a jtable - simple & urgent

I am new to using JTables.
I have read the tutorial and looked at several examples, but I am still confused as to how to add/remove columns and how to add rows to the table.
I want to have a totally dynamic table which will allow me to add/remove columns and to add rows.
The table gets the data to be displayed (and the column header values) from an outside object. I thought about writing my own table model.
Here is the code for my simple table model:
import javax.swing.table.*;
import java.util.Vector;
public class MyTableModel extends AbstractTableModel{
   private Vector columnHeaders;
   private Vector data;
   // simple constructor
   public MyTableModel() {
      columnHeaders = new Vector();
      data = new Vector(); // data is a vector of vectors
   public int getColumnCount() {
      return columnHeaders.size();
   public int getRowCount() {
      if (data.size() == 0) {
          return 0;
      Vector columnData = (Vector)data.elementAt(0);
      return columnData.size();
   public Object getValueAt(int row, int column) {
      Vector columnData = (Vector)data.elementAt(column);
      return columnData.elementAt(row);
   // the method I call for dynamically adding a new empty column
   public void addNewEmptyColumn(String value) {
       columnHeaders.add(value);
       fireTableStructureChanged();
}Here is how I use the table model with my table
import javax.swing.*;
public class Demo extends JFrame{
    private JTable table;
    public Demo() {
        super("test");
        table = new JTable(new MyTableModel());
        getContentPane().add(table);
        pack();
        show();
    public void addColumn(String value) {
        MyTableModel model = (MyTableModel)table.getModel();
        model.addNewEmptyColumn(value);
    public static void main(String[] args) {
        Demo demo = new Demo();
        // here I am trying to add columns...
        demo.addColumn("one");
        demo.addColumn("two");
}I try to add columns, but nothing happens!!!
What am I doing wrong?
I would appreciate if someone who take himself/herslef to be a JTable expert could give me his/her e-mail and this way I won't bother the rest of the world with my stupid JTable questions...
Sincerely
Nir

I have another question.
What if I want to render the table headers in a certain way.
I would like to use:
TableColumn's setHeaderRenderer(TableCellRenderer headerRenderer).
But in order to do it, I need to get a TableColumn.
How do I get it from the model?
I thought about subclassing JTable and overriding:
public void tableChanged(TableModelEvent e)that function is called everytime I invoke fireTableStructureChanged().
In that function, I am assuming that a column has been added, however, when I query for JTable's getColumnCount(), I keep getting 0!

How to add af:inputFile dynamically within each row of table?

I need to add af:inputfile dynamically within each row of af:table, when the user hits a commandlink at the bottom of each row.
I have tried wrapping af:inputfile with af:foreach:
<af:table value="Bean.rows" var="row">
<af:column>
<af:forEach step="1" begin="1"
end="#{Bean.filecount}">
<af:inputFile label="Please upload a file"
id="1"
valueChangeListener="#{Bean.onClickUpload}"/>
</af:forEach>
<af:commandLink text="Add more file" id="cl3" actionListener="#{Bean.onAddFile}"/>
</af:column>
</af:table>
in Bean.onAddFile, I have:
public void onAddFile(ActionEvent event){
filecount++;
It works but there's no independent control of each row. When I click one commandlink, All rows now have 2,3,.... af:inputFile. The change affects all rows.
The requirement should be that when I click one commandlink in a row, only that row shows additional af:inputFile.
So why not leverage the row variable of the table, right? That's what I did, I changed the end attribute of foreach to the following:
<af:forEach step="1" begin="1"
end="#{row.fileRowCount}">
the backing bean method changed to the following:
public void onAddFile(ActionEvent event){
int filerowcount = (Integer)JsfUtil.resolveExpression("#{row.fileRowCount}");
Integer newcount = filerowcount+1;
JsfUtil.setExpressionValue("#{row.fileRowCount}", newcount.toString());
Note that "row" refers to an object that has a int field called "filerowcount". And the initial value is "1".
Just for testing, I also added <af:outputText value="row.filerowcount"/>, to see if the count is what I expected it to be.
I didn't see the any af:inputfile this time, but the outtext is showing the filerowcount properly. When I click the commandlink, the number changed to 2,3,..... Also in the backing bean newcount and filerowcount is incrementing correctly.
I know the begin, end attribute means the index of a for loop. So I changed begin="0", it now shows one row of af:inputfile, but when I click the commandlink, no additional rows are shown. (Although the outputtext of filerowcount keeps incrementing as expected.
So to sum up, the END attribute of af:foreach row CAN pick up the value from the backing bean and render af:inputfile dynamically, but it CANNOT pick up the value from the the field in VAR object of a table.
Is is a known issue? Or I did something by mistake.
Is there any other way to add af:inputFile dynamically within each row of table?
Any advice/comment is appreciated.

Hi,
here is how it goes:
- add an af:inputFile to the column and set its rendered property to point to a managed bean property. The managed bean property has a default value of "false" and the bean should be in viewScope
- create another variable that holds the row number that should show the inputFile component. This is updated by the command link and evaluated by the get method of the managed bean property controlling the inputFile visibility
- Define a property name for the table varStatus property
- For the command link, define a attribute f:attribute with the name rowNumber and set its value to #{varStatusPropertyName.index}
- define an action listener for the command link
public void showInputFile(ActionEvent actionEvent){
int rowNumber = ((RichCommandLink) actionEvent.getSource()).getAttributes().get("varStatusPropertyName");
//set the value on the internal variable
- In the getter of the property that defines the render value of the inputFile, use code like this
public boolean get<whatever name you use>(){
//access the following EL from Java #{varStatusPropertyName.index}
int currentRenderedRow = <EL result here>;
// compare the current row index with the one set by the command link, which is stored in the variable of the managed bean
if true return true
else return false
- Set the PartialTriggers property of the table to point to the commandLink ID so the table is repainted when the command link is pressed
This should then render the fileInput component for a single row (the one you clicked the command link in)
Frank

Achieve the tab order for dynamically added section

Hi friends,
I'm facing the issue with tab order.
How to achieve the tab order for dynamically added sections?
Could you Plaese suggest me in this.
Thanks,
Susila S

Hi,
Thanks for your reply.
Ya. I'm adding rows in a table dynamically which is grouped in a subform which is flowable and the buttons are placed in the same subform. At the end of the row I'm having the hidden fields.
So what I want is without focusing the tab on hidden field I want to traverse the first field of the next dynamic row. For that I have used the access property as protected on hidden field, but its not working properly.
Please help me on this ASAP.

How to reference a dynamically added field

I'm trying to set the value of a field that was dynamically added as part of a table section and I can't figure out how.
The table section is added by clicking on a button and that works just fine. I can access any field value in the table section that has the instance '0'. But I can't seem to figure out how to access field values from any other instances of this table section.
Here's the hierarchy of one of the fields:
TopmostSubform.Page4.DeveloperIdSubform.DeveloperIdentityTbl.MemberSection.Row8.dteFormedD ateDevMem
Where 'MemberSection' is the section of rows the button will add an instance of. Now, I can access the value of the date field for the first instance of 'MemberSection' with the following:
DeveloperIdentityTbl.MemberSection.Row8.dteFormedDateDevMem.rawValue
If I want to do the same thing say for the 3rd instance of the 'MemberSection', how would I do that?
Thanks for the help!!
Marc

Hi,
WhyIsThisMe is correct. You must reference the instance of the repeating 'MemberSection' by its index. Otherwise (as you have found) it defaults to the 1st instance. Sounds easy, right? Well...
Truth be told, this will depend on the scripting language you have chosen. The actual refernce syntax used for formCalc and javaScript is considerably different.
WhyIsThisMe's reference:
     TopmostSubform.Page4.DeveloperIdSubform.DeveloperIdentityTbl.MemberSection[2].Row8.dteFor medDateDevMem
should work for formCalc, but it won't for javaScript. For that you would need to use resolveNode()
var indx = 2; // you probably will be selecting a differnt row under different circumstances, right? So, assign the index value to a variable
or instead
var indx = 0;
if(condition){indx= 2;}
else if(condition){indx= 3;} //you get the idea
//then you would do the assigning the value using resolveNode() by building the string that goes inside the ():
xfa.resolveNode("TopmostSubform.Page4.DeveloperIdSubform.DeveloperIdentityTbl.MemberSectio n[" + indx + "].Row8.dteFormedDateDevMem").rawValue
//you're building a string in javaScript, so the + is used. There are 3 parts to the final string for the resolveNode().   finalString = "part1" + indx + "part3"
//////////////////////////////////////////// Still with me? I usually opt for formCalc when referencing instances, since it is generally more forgiving
// In formCalc, 1st assign an index value to variable.
var indx = 0;
if(condition)then
     indx= 2
elseif(condition)then
     indx= 3   //you get the idea
endif
// then, use that variable to reference the instance of 'MemberSection' //resolveNode() not needed in formCalc
TopmostSubform.Page4.DeveloperIdSubform.DeveloperIdentityTbl.MemberSection[indx].Row8.dteF ormedDateDevMem
Good luck!
Stephen

Dynamically adding listeners

Hi,
I have a problem with defining some dynamic buttons in my Swing application. I could have posted it on the Swing forum, but it's actually an 'inner class' scoping problem, so I figured I'd best post it here:
I want to do something like this:
String[] buttons = getButtonNames(); // array of buttons
for (int i=0; i<buttons.length; i++)
JButton jButton = new JButton();
// give each dynamically added button its own actionlistener
jButton.addActionListener(new ActionListener()
public void actionPerformed(ActionEvent e)
performAction(buttons);
jButton.setText(buttons[i]);
buttonPanel.add(jButton, null);
This won't work. ('must be declared final blabla'..)
But I can't declare both buttons and i final, since i will be modified in the loop. So I guess using buttons[i] like this is not possible.
How can I accomplish this?
(If you think this should've been posted in the Swing forum, regardless of my reason for posting it here, please say so, and I'll repost it there.)
Greetings,
Ivo

Well,
it's actually a multitier application, and the client does not know anything about the buttons other than the name. It needs to call some function on the middle tier and pass what button was clicked. I'd rather not to it statically by predefining the listeners, since that would require a change and a rebuild of my client when I add a new buttontype to the middle tier.
Anyone know how to do it dynamically?
Greetings,
Ivo

Why data are not getting poulated in dynamically added tab in a tab navigator???

Hi All,
I am facing a very strange problem and need you expert opinion on this. Ok so the problem goes like this:
In my application i have a tab navigator where i have 2 fixed tabs say tab A and tab B. In tab B I have a data grid where All the user name are getting populated. Once the user clicks on any datagrid row i am dynamically adding a new tab based on username , so if in my datagrid u1,u2 and u3 are getting displayed then once you clik on u1 a new tab called u1 is getting displayed. Code for this goes like this:
var vbox1: VBox= new VBox();
box1.label=mydatagrid.selectedItem.uName;
var sde:* = new searchDetails();
vbox1.addChild(sde);
myTabnavigator.addChild(vBox1);
Application.application.searchdetails.displayall();
I have created a component called searchDetails where i have designed the page wit various fields for this tab.This also has a method called displayall() which is populating the data in all fields using php an my sql where i have designed the page wit various fields for this tab.
New tab is getting displayed perfectly. My problem is once the tab is getting displayed fields are not getting populated with data.
Please let me know what wrong i am doing. I am really struggling

Hmm.. you have to assign text to the labelfields on creation complete not before that, the fllow will be like this
var vbox1: VBox= new VBox();
var sde:* = new searchDetails();
vbox1.addEventListener(creationcompleteevent,function);
vbox1.addChild(sde);
myTabnavigator.addChild(vBox1);
function(e:event):void{
box1.label = "text";

Adding data to multiple tables using one form in Access 2010?

Hi All,
I have a access database with two tables and I want to create a single form to enter data into that tables.
How to adding data to multiple tables using one form in Access 2010?
I don't have to much knowledge of access database?
Please help me
Thanks
Balaji

You really don't enter identical data into 2 tables. You enter dat into one single table, and then you have an unique identifier that maps to another table (you have a unique relationship between two tables).
Maybe you need to read this.
http://office.microsoft.com/en-001/access-help/database-design-basics-HA001224247.aspx
Think about it this way... What is you update data in 2 tables, and then the data in one of those tables changes, but the data in the other table does NOT change. WHOOPS!! Now, you've got a BIG problem. For instance, you have a customer
named Bill Gates. In one Table you update Bill's address to 1835 73rd Ave NE, Medina, WA 98039 and in the other table you accidentally update Bill's address to 183 73rd Ave NE, Medina, WA 98039. Now you have 2 addresses for Bill. Why would
you want that??? Which is right? No one knows. If you have one address, you just have to update one address and if there is a mistake, you just have to update one address, but you don't have to waste time trying to figure out which is right
and which is wong...and then update the one that is wrong.
Post back with specific questions.
Knowledge is the only thing that I can give you, and still retain, and we are both better off for it.

How to see Added Row in a table

Hi
i have taken atable with visible row count 5 and ihave taken a button to add new row for that i have written code in action of that button,when ever a new row is added that added row below the 5th row, to see that added row ishould click on UP button of table,*what i want i as soon as new row added 1st row of table should go up and remaing 5 rows should appear(2,3,4,5,6 rows) ,suppose if i click on add row 2nd row should go up and remaingrows should appear(3,4,5,6 rows).please help me out of this problem
Thanks
Kishore

Hi Kishore,
Try this.
public void onActionAddRow(com.sap.tc.webdynpro.progmodel.api.IWDCustomEvent wdEvent )
    //@@begin onActionAddRow(ServerEvent)
    int row = wdContext.nodeCustomer().size();
    IPrivateTestCompView.ICustomerElement custElm = wdContext.createCustomerElement();
     custElm.setCname("");
     custElm.setCno("");
     custElm.setCsal("");
     wdContext.nodeCustomer().addElement(custElm);
     //for swap the rows
     for(int i=1;i<=row;i++)
          wdContext.nodeCustomer().swapElements( 0, i );
    //@@end
Regards,
Mithu

Dynamic value help for a table field to fill two fields, how to?

Hi all gurus,
In SRM 7 I defined a dynamic value help for a single field (ZZ_PROLE_R3) of my header custom table.
That's the code from WDDOMODIFYVIEW in the webdynpro /SAPSRM/WDC_DODC_CT, view V_DODC_CT:
DATA: lo_tabnode        TYPE REF TO IF_WD_CONTEXT_NODE.
      DATA: lo_tabnode_info   TYPE REF TO IF_WD_CONTEXT_NODE_INFO.
      DATA: tab_value         TYPE WDR_CONTEXT_ATTR_VALUE_LIST,
            wa_value          TYPE WDR_CONTEXT_ATTR_VALUE.
      lo_tabnode = wd_context->GET_CHILD_NODE( name = 'THCUS' ). "the custom table node
      lo_tabnode_info = lo_tabnode->get_node_info( ).
      wd_this->GET_VALHELP_ZZ_PROLE_R3( EXPORTING iv_guid = lv_guid
                                        IMPORTING ZZ_PROLE_R3_VALHELP = tab_value ). "this method returns the dyn value table
      lo_tabnode_info->set_attribute_value_set( name = 'ZZ_PROLE_R3'
                                                 value_set = tab_value ).
The method GET_VALHELP_ZZ_PROLE_R3 dynamically builds the value help table tab_value; such table is made up by two fields:
value : contains the value of the field
text   : contains a description of the value
The above solution works; now I'd like to enhance it. The custom table THCUS contains also a field called ZZ_PROLE_R3_DESC, which represents the description of ZZ_PROLE_R3. It is, exactly, the TEXT field in tab_value.
So I'd like to do as follows:
- the user clicks on the search help for ZZ_PROLE_R3 field of the table;
- the above described value help appears;
- after the selection, both ZZ_PROLE_R3 and ZZ_PROLE_R3_DESC are filled with the selected couple value - text chosen from the value help.
Could anyone help me achieving such a behaviour?
Again, a little request... when I open the above value help dialog box, the window itself has a label "Floorplan Manager application for OIF.." that obviously I'd like to redefine (e.g. "Role selection value help"). Is there any way to do that?
Thanks in advance

Chris Paine wrote:
It seems to me - given that your code is in wddomodifyview that you are trying to have different dropdowns per row
- I'm not sure where you are populating lv_guid - but I'd guess it is an attribute of the row selected? If it isn't then I can't see any reason that you would do this code in wddomodifyview and not wddoinit.
Hi Chris and thanks for your help,
lv_guid is the GUID of the document's header; I need to pass it to the method that populates my value help table because the values in it are derived from some fields on the document. (the situation actually is more complex; there's an RFC call on the backend for which the document is intended for to retrieve the data that populate the value help...).
I'm quite unexperienced on webdynpro and terminology; if dropdown menus are fixed selection option that appears on a field, I guess this is not my case. I did a pair of screenshot to provide an idea of what the solution by now is, and what "I would like to have":
[Pre-selection (F4 icon on the field in table)|http://imagebin.ca/view/npIsaqF.html]
[Value Help popup for the field ZZ_PROLE_R3|http://imagebin.ca/view/8fZUh3T.html]
[Result by now |http://imagebin.ca/view/3PaqdvE.html]
[Result I'd like to have.|http://imagebin.ca/view/dExR0J.html]
Chris Paine wrote:
However - by your comment on the "value help dialog box" I am guessing you are using an input field? If this is the case then I would strongly suggest that you change/enhance the structure of the context node THCUS (btw, better coding practise to refer to it as wd_this->wdctx_thcus when using the get child node construct) so that you refer to an actual SAP ddic search help, if you then associate in the structure the value and text fields then populating the text field should happen automatically. Also you'd have the nice side effect that your value help dialog would be named after the associated ddic search help.
Thanks for the code suggestion, I'll apply that. For what concerns the context node THCUS... It is, by standard, a node which I can't explictly find in the context for the view V_DODC_CT. The problem is that ZZ_PROLE_R3 and the corresponding description field ZZ_PROLE_R3_DESC of the table must be filled with data retrieved dynamically @ runtime from the backend. So I guess I can't populate a val help referring to a dictionary table/field; I'd rather do as follows:
- retrieve what's the target backend for the document (to do so, I have to process the document .. that's why the header guid passed to my method);
- RFC call to a custom method that extracts possible values for the specific backend;
- bind the ammissible values to the value help.
Chris Paine wrote:
I realise that this is rather a lot - so if you have any specific question please do respond - hopefully I or someone else will be able to clarify.
Thanks again for your help; additional info as well as code examples would be highly appreciated

How to dynamic field insert into intenal table?

hi friends
this is my urgent requirements .... how to dynamic field insert into internal table if it possible please tell me
thanks & regards
pauldharma

Hi,
Go through this
REPORT yusmm_text1 NO STANDARD PAGE HEADING
                     LINE-SIZE 199.
T A B L E S
TABLES: MARA,
        MAKT,
        THEAD.
GLOBAL TYPE-POOLS
TYPE-POOLS : SLIS.
   GLOBAL TYPES
TYPES : BEGIN OF TP_FINAL,
       MATNR TYPE MARA-MATNR,
       BEGRU TYPE MARA-BEGRU,
       MTART TYPE MARA-MTART,
       MAKTX TYPE MAKT-MAKTX,
       SPRAS TYPE MAKT-SPRAS,
       LTXT(2000) TYPE C ,
       SRNO TYPE N ,
      END OF TP_FINAL.
TYPES : BEGIN OF TP_T002,
        SPRAS TYPE T002-SPRAS,
        LAISO TYPE T002-LAISO,
        SRNO TYPE N ,
        END OF TP_T002.
TYPES : BEGIN OF TP_MARA_MAKT,
        MATNR TYPE MARA-MATNR,
        BEGRU TYPE MARA-BEGRU,
        MTART TYPE MARA-MTART,
        SPRAS TYPE MAKT-SPRAS,
        MAKTX TYPE MAKT-MAKTX,
       END OF TP_MARA_MAKT.
Types: BEGIN OF tp_matnr,
       matnr TYPE mara-matnr,
       END OF tp_matnr.
   GLOBAL ELEMENTARY VARIABLES
DATA : gv_date TYPE sy-datum.
DATA : gv_repid TYPE sy-repid.
DATA : g_var1(10) TYPE C.
DATA : gv_index TYPE sy-tabix.
DATA: gv_strg TYPE string,
      gv_strg1(2000) TYPE C.
DATA : gv_lang TYPE sy-langu.
DATA : g_v(3) TYPE N .
DATA : gv_lines(3) TYPE N .
DATA : gv_var(3) TYPE N .
DATA : gv_var1(3) TYPE N.
DATA: gv_str TYPE STRING.
DATA: gv_str1 TYPE STRING.
DATA : gv_li TYPE I,
       gv_lit TYPE I,
       gv_lin TYPE I.
DATA: g_var11(3) TYPE N,
      gv_li1(3) TYPE N,
      g_var2(3) TYPE N.
DATA : gv_i1 TYPE I.
DATA : gv_i TYPE I.
DATA: gl_lenght TYPE I.
   GLOBAL STRUCTURES
DATA:   T_NEWTABLE TYPE REF TO DATA,
        T_NEWLINE TYPE REF TO DATA,
        T_FLDCAT1   TYPE SLIS_T_FIELDCAT_ALV,
        T_FLDCAT   TYPE LVC_T_FCAT,
        WA_IT_FLDCAT TYPE LVC_S_FCAT,
        WA_IT_FLDCAT1 TYPE SLIS_FIELDCAT_ALV,
        WA_COLNO(2) TYPE N,
        WA_FLNAME(5) TYPE C,
        L_LT TYPE SLIS_LAYOUT_ALV.
   GLOBAL INTERNAL TABLES (WITH INCLUDE STRUCTURE)
DATA : IG_MARA_MAKT TYPE STANDARD TABLE OF TP_MARA_MAKT,
       WG_MARA_MAKT TYPE TP_MARA_MAKT.
DATA : IG_T002 TYPE STANDARD TABLE OF TP_T002,
       WG_T002 TYPE TP_T002.
DATA : IG_FINAL TYPE STANDARD TABLE OF TP_FINAL,
       WG_FINAL TYPE TP_FINAL.
data : IG_MATNR TYPE STANDARD TABLE OF TP_MATNR WITH HEADER LINE,
       WG_MATNR TYPE TP_MATNR.
DATA:BEGIN OF IG_THEAD OCCURS 0.
        INCLUDE STRUCTURE THEAD .
DATA: END OF IG_THEAD.
DATA:BEGIN OF IG_TLINE OCCURS 0.
        INCLUDE STRUCTURE TLINE .
DATA:END OF IG_TLINE.
FIELD-SYMBOLS
FIELD-SYMBOLS: <T_DYNTABLE> TYPE STANDARD TABLE,"Dynamic internal
                                                        "tablename
               <FS_DYNTABLE>, "Field symbol to create work area
              <FS_FLDVAL> TYPE ANY.   " Field symbol to assign values
COMPULSORY
FIELD-SYMBOLS: <FS_DATA> TYPE REF TO DATA,
               <FS_DATA1> TYPE REF TO DATA,
               <FS_2>    TYPE STANDARD TABLE,
               <FS_22>   TYPE STANDARD TABLE,
               <FS_1>,
               <FS_11>,
               <F>,
               <FA>,
               <LWA_LINE_WA>,
               <LWA_LINE_WA1>.
------- Create Dyn Table From FC
DATA: LT_DATA        TYPE   REF TO DATA,
      LT_DATA1        TYPE   REF TO DATA,
      LWA_LINE       TYPE   REF TO DATA,
      LWA_LINE1       TYPE   REF TO DATA,
      LI_FIELD_CAT   TYPE   LVC_T_FCAT,
      LWA_FIELD_CAT TYPE   LVC_S_FCAT.
   PARAMETERS & SELECT-OPTIONS
SELECTION-SCREEN : BEGIN OF BLOCK B1 WITH FRAME TITLE TEXT-001.
SELECT-OPTIONS : S_SPRAS FOR MAKT-SPRAS NO INTERVALS DEFAULT 'EN'
                                                        OBLIGATORY ,
                 S_MATNR FOR MARA-MATNR,
                 S_MTART FOR MARA-MTART.
PARAMETERS: GP_SIZE TYPE I DEFAULT '200'.
SELECTION-SCREEN : END OF BLOCK B1.
   INITIALIZATION
INITIALIZATION.
gv_repid = sy-repid.
gv_date = sy-datum.
AT SELECTION-SCREEN
AT SELECTION-SCREEN.
IF GP_SIZE < 0.
   MESSAGE E002(00).
ENDIF.
IF GP_SIZE > 50000.
   MESSAGE W130(26) WITH TEXT-004.
    SET CURSOR FIELD 'gp_size'.
ENDIF.
START-OF-SELECTION
START-OF-SELECTION.
PERFORM FIELDCAT.
PERFORM LAYOUT.
PERFORM DATA_FETCH.
PERFORM READ_DATA_TO_FINAL.
SORT ig_final BY matnr spras.
gv_lin = gv_li.
gv_li = gv_li - 2.
LOOP AT ig_final INTO wg_final.
    ASSIGN COMPONENT 1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
    <FA> = 'Material Number'.
    ASSIGN COMPONENT 2 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
    <FA> = 'Authorization Group'.
    g_VAR11 = wg_final-srno + 2.
    gv_li1 = gv_li1 + 2.
    MOVE : g_var11 TO gv_i1.
    ASSIGN COMPONENT g_var11 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
    <FA> = 'MatDesc'.
    g_var2 = g_var11 + gv_lines.
    ASSIGN COMPONENT g_var2 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
    <FA> = 'BasicData'.
    APPEND <LWA_LINE_WA1> TO <FS_22>.
    EXIT.
   ENDLOOP.
LOOP AT ig_final INTO wg_final.
    AT NEW matnr.
      gv_index = sy-tabix.
      ASSIGN COMPONENT 1 OF STRUCTURE <LWA_LINE_WA> TO <F>.
      <F> = wg_final-matnr.
      ENDAT.
    AT NEW MATNR.
    GV_INDEX = SY-TABIX.
    ASSIGN COMPONENT 1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
    <FA> = wg_final-matnr.
     ENDAT.
    ASSIGN COMPONENT 2 OF STRUCTURE <LWA_LINE_WA> TO <F>.
    <F> = wg_final-begru.
    ASSIGN COMPONENT 2 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
    <FA> = wg_final-begru.
    gv_var = wg_final-srno + 2.
    gv_li = gv_li + 2.
    MOVE : gv_var TO gv_i.
    ASSIGN COMPONENT gv_var OF STRUCTURE <LWA_LINE_WA> TO <F>.
    <F> = wg_final-maktx.
    ASSIGN COMPONENT gv_var OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
    <FA> = wg_final-maktx.
    gv_var1 = gv_var + gv_lines .
    ASSIGN COMPONENT gv_var1 OF STRUCTURE <LWA_LINE_WA> TO <F>.
   <F> = wg_final-ltxt.
    ASSIGN COMPONENT gv_var1 OF STRUCTURE <LWA_LINE_WA1> TO <FA>.
    <FA> = wg_final-ltxt.
    AT END OF matnr.
      APPEND <LWA_LINE_WA> TO <FS_2>.
      CLEAR <LWA_LINE_WA>.
    ENDAT.
    AT END OF matnr.
     APPEND <LWA_LINE_WA1> TO <FS_22>.
     CLEAR <LWA_LINE_WA1>.
    ENDAT.
ENDLOOP.
PERFORM display..
*&      Form data_fetch
      text
--> p1        text
<-- p2        text
FORM DATA_FETCH .
SELECT matnr
          from mara up to gp_size rows
         appending corresponding fields of table ig_matnr
         where matnr in s_matnr
         and mtart in s_mtart.
loop at ig_matnr.
SELECT MARA~MATNR
          MARA~BEGRU
          MARA~MTART
          MAKT~SPRAS
          MAKT~MAKTX FROM MARA INNER JOIN MAKT
    ON MARAMATNR = MAKTMATNR
   appending corresponding fields of TABLE ig_mara_makt UP TO GP_SIZE
ROWS
    WHERE makt~spras IN s_spras
    AND   mara~matnr IN s_matnr
    AND   mara~mtart IN s_mtart
    AND   mara~matnr EQ ig_matnr-matnr.
    endloop.
IF sy-subrc = 0.
    SORT ig_mara_makt.
ENDIF.
ENDFORM.                    " data_fetch
*&      Form read_data_to_final
      text
--> p1        text
<-- p2        text
FORM READ_DATA_TO_FINAL .
LOOP AT ig_mara_makt INTO wg_mara_makt .
    wg_final-MATNR = wg_mara_makt-MATNR.
    wg_final-BEGRU = wg_mara_makt-BEGRU.
    wg_final-MTART = wg_mara_makt-MTART.
    wg_final-SPRAS = wg_mara_makt-SPRAS.
    wg_final-MAKTX = wg_mara_makt-MAKTX.
    READ TABLE ig_t002 INTO wg_t002 WITH KEY spras = wg_final-spras.
    IF sy-subrc = 0.
      wg_final-srno = wg_t002-srno.
    ENDIF.
    CLEAR ig_thead[].
    ig_thead-TDOBJECT = 'MATERIAL'.
    ig_thead-TDNAME   = wg_final-matnr.
    ig_thead-TDID     = 'GRUN'.
    ig_thead-TDSPRAS = wg_final-spras.
    CALL FUNCTION 'TEXT_READ'
      EXPORTING
        I_HEADER   = IG_THEAD
        I_READONLY = 'X'
      IMPORTING
        E_HEADER   = IG_THEAD
      TABLES
        T_LINES    = IG_TLINE[]
      EXCEPTIONS
        NOTFOUND   = 1.
    IF sy-subrc EQ 0.
      LOOP AT ig_tline.
        gv_strg = ig_tline-tdline.
        IF gv_strg1 <> ' '.
          CONCATENATE gv_strg1 ';' gv_strg INTO gv_strg1.
        ELSE.
          gv_strg1 = gv_strg.
        ENDIF.
      ENDLOOP.
      wg_final-ltxt = gv_strg1.
      APPEND wg_final TO ig_final.
      CLEAR wg_final.
      gv_strg1 = ' '.
    ELSE.
      APPEND wg_final TO ig_final.
    ENDIF.
ENDLOOP.
ENDFORM.                    " read_data_to_final
" read_data_to_final
*&      Form layout
      text
--> p1        text
<-- p2        text
FORM LAYOUT .
CLEAR L_LT.
L_LT-ZEBRA = 'X'.
L_LT-COLWIDTH_OPTIMIZE = 'X'.
L_LT-WINDOW_TITLEBAR = 'MATERIAL DETAILS'.
ENDFORM.                    " layout
*&      Form fieldcat
      text
--> p1        text
<-- p2        text
FORM FIELDCAT .
SELECT SPRAS
           LAISO FROM t002 INTO CORRESPONDING FIELDS OF TABLE ig_t002
      WHERE spras IN s_spras.
DESCRIBE TABLE ig_t002 LINES gv_lines.
LOOP AT ig_t002 INTO wg_t002.
    g_v = g_v + 1.
    Wg_t002-srno = g_v.
    MODIFY ig_t002 FROM wg_t002 TRANSPORTING SRNO.
ENDLOOP.
LOOP AT ig_t002 INTO wg_t002.
    CLEAR WA_IT_FLDCAT.
    MOVE SY-INDEX TO WA_COLNO.
    CONCATENATE 'MD-' wg_t002-LAISO
                      WA_COLNO
                     INTO WA_FLNAME.
    WA_IT_FLDCAT-FIELDNAME = WA_FLNAME.
    WA_IT_FLDCAT-DATATYPE = 'CHAR'.
    WA_IT_FLDCAT-SELTEXT = WA_FLNAME.
    WA_IT_FLDCAT-INTLEN = 250.
    WA_IT_FLDCAT-TABNAME = '<FS_2>'.
    APPEND WA_IT_FLDCAT TO T_FLDCAT.
    CLEAR wg_t002.
    ENDLOOP.
LOOP AT ig_t002 INTO wg_t002.
    CLEAR WA_IT_FLDCAT.
    MOVE SY-INDEX TO WA_COLNO.
    CONCATENATE 'BD-' wg_t002-LAISO
                       WA_COLNO
                    INTO WA_FLNAME.
    WA_IT_FLDCAT-FIELDNAME = WA_FLNAME.
    WA_IT_FLDCAT-DATATYPE = 'CHAR'.
    WA_IT_FLDCAT-SELTEXT = WA_FLNAME.
    WA_IT_FLDCAT-INTLEN = 250.
    WA_IT_FLDCAT-TABNAME = '<FS_2>'.
    APPEND WA_IT_FLDCAT TO T_FLDCAT.
    CLEAR wg_t002.
    ENDLOOP.
MOVE 'MATNR' TO WA_FLNAME.
WA_IT_FLDCAT-FIELDNAME = WA_FLNAME.
WA_IT_FLDCAT-DATATYPE = 'CHAR'.
WA_IT_FLDCAT-SELTEXT = 'Material No'.
WA_IT_FLDCAT-INTLEN = 18.
WA_IT_FLDCAT-TABNAME = '<FS_2>'.
INSERT WA_IT_FLDCAT INTO T_FLDCAT INDEX 1.
MOVE 'BEGRU' TO WA_FLNAME.
WA_IT_FLDCAT-FIELDNAME = WA_FLNAME.
WA_IT_FLDCAT-DATATYPE = 'CHAR'.
WA_IT_FLDCAT-SELTEXT = 'Authorization Group'.
WA_IT_FLDCAT-INTLEN = 4.
WA_IT_FLDCAT-TABNAME = '<FS_2>'.
INSERT WA_IT_FLDCAT INTO T_FLDCAT INDEX 2.
DESCRIBE TABLE T_FLDCAT LINES gv_li.
ASSIGN LT_DATA TO <FS_DATA>.
Creating the Dynamic Internal Table
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG           = T_FLDCAT         " Fieldcatalogue
    IMPORTING
      EP_TABLE                  = <FS_DATA>   " Dynamic Internal Table
    EXCEPTIONS
      GENERATE_SUBPOOL_DIR_FULL = 1
      OTHERS                    = 2.
Assign Dyn Table To Field Sumbol
ASSIGN <FS_DATA>->* TO <FS_1>.
Assigning the Internal Table TYPE ANY to Standard internal Table
ASSIGN <FS_1> TO <FS_2>.
Creating a Workarea
CREATE DATA LWA_LINE LIKE LINE OF <FS_2> .
Assigning the Content to the workares as a Pointer
ASSIGN LWA_LINE->* TO <LWA_LINE_WA>.
LOOP AT T_FLDCAT INTO WA_IT_FLDCAT.
    WA_IT_FLDCAT1-FIELDNAME = WA_IT_FLDCAT-FIELDNAME.
    WA_IT_FLDCAT1-TABNAME = WA_IT_FLDCAT-TABNAME.
    WA_IT_FLDCAT1-SELTEXT_L = WA_IT_FLDCAT-SELTEXT.
   WA_IT_FLDCAT1-REF_TABNAME = 'MARC'.
    APPEND WA_IT_FLDCAT1 TO T_FLDCAT1.
    CLEAR : WA_IT_FLDCAT,WA_IT_FLDCAT1.
ENDLOOP.
ASSIGN LT_DATA1 TO <FS_DATA1>.
CALL METHOD CL_ALV_TABLE_CREATE=>CREATE_DYNAMIC_TABLE
    EXPORTING
      IT_FIELDCATALOG           = T_FLDCAT         " Fieldcatalogue
    IMPORTING
      EP_TABLE                  = <FS_DATA1> " Dynamic Internal table
    EXCEPTIONS
      GENERATE_SUBPOOL_DIR_FULL = 1
      OTHERS                    = 2.
Assign Dyn Table To Field Sumbol
ASSIGN <FS_DATA1>->* TO <FS_11>.
Assigning the Internal Table TYPE ANY to Standard internal Table
ASSIGN <FS_11> TO <FS_22>.
Creating a Workarea
CREATE DATA LWA_LINE1 LIKE LINE OF <FS_22> .
Assigning the Content to the workares as a Pointer
ASSIGN LWA_LINE1->* TO <LWA_LINE_WA1>.
ENDFORM.                    " fieldcat
*&      Form show
      text
--> p1        text
<-- p2        text
FORM Display .
CALL FUNCTION 'REUSE_ALV_GRID_DISPLAY'
   EXPORTING
   I_INTERFACE_CHECK                 = ' '
   I_BYPASSING_BUFFER                = ' '
   I_BUFFER_ACTIVE                   = ' '
     I_CALLBACK_PROGRAM                = GV_REPID
    I_CALLBACK_PF_STATUS_SET          = 'PF_STATUS_SET'
    I_CALLBACK_USER_COMMAND           = 'USER_COMMAND'
   I_CALLBACK_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_GRID_SETTINGS                   =
    IS_LAYOUT                         = L_LT
     IT_FIELDCAT                       = T_FLDCAT1[]
   IT_EXCLUDING                      =
   IT_SPECIAL_GROUPS                 =
   IT_SORT                           =
   IT_FILTER                         =
   IS_SEL_HIDE                       =
   I_DEFAULT                         = 'X'
   I_SAVE                            = ' '
   IS_VARIANT                        =
   IT_EVENTS                         =
   IT_EVENT_EXIT                     =
   IS_PRINT                          =
   IS_REPREP_ID                      =
   I_SCREEN_START_COLUMN             = 0
   I_SCREEN_START_LINE               = 0
   I_SCREEN_END_COLUMN               = 0
   I_SCREEN_END_LINE                 = 0
   I_HTML_HEIGHT_TOP                 = 0
   I_HTML_HEIGHT_END                 = 0
   IT_ALV_GRAPHICS                   =
   IT_HYPERLINK                      =
   IT_ADD_FIELDCAT                   =
   IT_EXCEPT_QINFO                   =
   IR_SALV_FULLSCREEN_ADAPTER        =
IMPORTING
   E_EXIT_CAUSED_BY_CALLER           =
   ES_EXIT_CAUSED_BY_USER            =
    TABLES
      T_OUTTAB                          = <FS_2>
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
FORM PF_STATUS_SET USING RS_EXTAB TYPE SLIS_T_EXTAB.
SET PF-STATUS 'DISPLAY' .
ENDFORM. "PF_STATUS_SET
*& Form Name: user_command *
*& Form Desc: For Handling USER_COMMAND *
FORM USER_COMMAND USING IF_UCOMM TYPE SY-UCOMM
                     IS_SELFIELD TYPE SLIS_SELFIELD.
CASE IF_UCOMM.
    WHEN 'DOWNLOAD'.
      CALL FUNCTION 'POPUP_TO_CONFIRM'
        EXPORTING
TITLEBAR                    = ' '
DIAGNOSE_OBJECT             = ' '
          TEXT_QUESTION               = 'Data download to excel'
TEXT_BUTTON_1               = 'Ja'(001)
ICON_BUTTON_1               = ' '
TEXT_BUTTON_2               = 'Nein'(002)
ICON_BUTTON_2               = ' '
DEFAULT_BUTTON              = '1'
DISPLAY_CANCEL_BUTTON       = 'X'
USERDEFINED_F1_HELP         = ' '
START_COLUMN                = 25
START_ROW                   = 6
POPUP_TYPE                  =
IMPORTING
ANSWER                      =
TABLES
PARAMETER                   =
EXCEPTIONS
TEXT_NOT_FOUND              = 1
OTHERS                      = 2
      IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      CALL FUNCTION 'GUI_DOWNLOAD'
        EXPORTING
    BIN_FILESIZE                  =
          FILENAME                     = 'C:\Material-Text.xls'
         FILETYPE                      = 'ASC'
    APPEND                        = ' '
     WRITE_FIELD_SEPARATOR         = 'X'
    HEADER                        = '00'
     TRUNC_TRAILING_BLANKS         = 'X'
    WRITE_LF                      = 'X'
    COL_SELECT                    = ' '
    COL_SELECT_MASK               = ' '
     DAT_MODE                      = 'X'
   IMPORTING
     FILELENGTH                    = GL_LENGHT
        TABLES
          DATA_TAB                      = <FS_22>
EXCEPTIONS
    FILE_WRITE_ERROR              = 1
    NO_BATCH                      = 2
    GUI_REFUSE_FILETRANSFER       = 3
    INVALID_TYPE                  = 4
    NO_AUTHORITY                  = 5
    UNKNOWN_ERROR                 = 6
    HEADER_NOT_ALLOWED            = 7
    SEPARATOR_NOT_ALLOWED         = 8
    FILESIZE_NOT_ALLOWED          = 9
    HEADER_TOO_LONG               = 10
    DP_ERROR_CREATE               = 11
    DP_ERROR_SEND                 = 12
    DP_ERROR_WRITE                = 13
    UNKNOWN_DP_ERROR              = 14
    ACCESS_DENIED                 = 15
    DP_OUT_OF_MEMORY              = 16
    DISK_FULL                     = 17
    DP_TIMEOUT                    = 18
    FILE_NOT_FOUND                = 19
    DATAPROVIDER_EXCEPTION        = 20
    CONTROL_FLUSH_ERROR           = 21
    OTHERS                        = 22
      IF SY-SUBRC <> 0.
MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
        WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
      ENDIF.
      IF GL_LENGHT NE 0.
        MESSAGE S398(00) WITH 'DATA downloaded to EXCEL'.
      ENDIF.
Thanks
ENDCASE.
ENDFORM.                    "user_command

Dynamic adding & setText JCheckBox in table

Similar Messages

Maybe you are looking for