Coresuite Customize : Adding Tabsheet

Hello,

can somebody give me a general example of adding a tabsheet on the item master form ?
(ie after the tabsheet with the inventory values, a new tabsheet named 'Special Values'.

thanks,

Mario

Michael Egloff

Hi Mario,

please have a look at
Forum » coresuite customize » coresuite customize function (Samples)

There is an example described adding a new folder on the sales order. On the item master data it's quite similar.

Hello,

thanks for the feedback. It works.
I managed to add an empty tabsheet, but is it also possible to add new items to that tabsheet ?
Which pane should i use then ?

Mario

Michael Egloff

Hello Mario,

if you used the example:

you can set the panelevel by yourself (e.g. eventVal.Form.PaneLevel=99)
all items with fromPane=99 and toPane=99 will be displayed on this tabsheet.
Do not use PaneLevels which are already used by SAP. If you are not sure which PaneLevel you should use take a big 2-digit-number (>50)

Hello Michael,

i have used the code, i have put the query in comments,
but when i click on that tabsheet, nothing happens.
Is there a way to get an empty tabsheet and that i can move udf-fields to that pane 99 ?

thanks,

Mario

Mario Höfer

Hello,

i changed the sample a little bit and used this code:

SwissAddonFramework.UI.Components.Folder f1 = SwissAddonFramework.UI.Components.Folder.CreateNew("COR_F1");
f1.Top=10;f1.Width=140;f1.Left=500;f1.Height=14;
f1.Value = "Test tab";
f1.AffectsFormMode = false;

pVal.Form.AddItem(f1);
pVal.Form.Update();

f1.AddHandler_Click(SwissAddonFramework.UI.Components.ModeComponent.FormModes.ALL, new SwissAddonFramework.UI.EventHandling.ItemEvents.ClickEventHandler(delegate(SwissAddonFramework.UI.EventHandling.ItemEvents.Click eventVal) {

pVal.Form.Freeze(true);

eventVal.Form.PaneLevel=99;

pVal.Form.Freeze(false);

}));
return true;

It worked for me. I got a empty tab with pane number 99 and i could move elements into it.

I hope this helps

Hello,

it worked but with a small chage on the code :

SwissAddonFramework.UI.Components.Folder f1 = SwissAddonFramework.UI.Components.Folder.CreateNew("COR_F1");
f1.Top=10;f1.Width=140;f1.Left=114;f1.Height=14;
f1.Value = "Test tab";
f1.AffectsFormMode = false;

pVal.Form.AddItem(f1);
pVal.Form.Update();
f1.GroupWith("138");


f1.AddHandler_Click(SwissAddonFramework.UI.Components.ModeComponent.FormModes.ALL, new SwissAddonFramework.UI.EventHandling.ItemEvents.ClickEventHandler(delegate(SwissAddonFramework.UI.EventHandling.ItemEvents.Click eventVal) {

pVal.Form.Freeze(true);

eventVal.Form.PaneLevel=99;

pVal.Form.Freeze(false);

}));


return true;

thanks,

Mario

Hello again,

now i want to add a second tabsheet on the item form.
It's the same code as before but with pane level 98 and another title.
When a run the form, i get a debug screen with :

The code that i see has automatically been added when i added teh tabsheet code for the sales orders.

What went wrong ?

Mario

Attachment
[url=http://www.coresystems.ch/wp-content/../wp-content/forum-file-uploads//invalid target.doc]invalid target.doc[/url]

Mario Höfer

Hi,

i tried this myself and added a second tab to the sales quotation.
I used this code:

SwissAddonFramework.UI.Components.Folder f1 = SwissAddonFramework.UI.Components.Folder.CreateNew("COR_F1");
f1.Top=10;f1.Width=140;f1.Left=300;f1.Height=14;
f1.Value = "Test tab1";
f1.AffectsFormMode = false;

pVal.Form.AddItem(f1);
pVal.Form.Update();
f1.GroupWith("138");

SwissAddonFramework.UI.Components.Folder f2 = SwissAddonFramework.UI.Components.Folder.CreateNew("COR_F2");
f2.Top=10;f2.Width=140;f2.Left=200;f2.Height=14;
f2.Value = "Test tab2";
f2.AffectsFormMode = false;

pVal.Form.AddItem(f2);
pVal.Form.Update();
f2.GroupWith("114");

f1.AddHandler_Click(SwissAddonFramework.UI.Components.ModeComponent.FormModes.ALL, new SwissAddonFramework.UI.EventHandling.ItemEvents.ClickEventHandler(delegate(SwissAddonFramework.UI.EventHandling.ItemEvents.Click eventVal) {

pVal.Form.Freeze(true);

eventVal.Form.PaneLevel=99;

pVal.Form.Freeze(false);

}));



f2.AddHandler_Click(SwissAddonFramework.UI.Components.ModeComponent.FormModes.ALL, new SwissAddonFramework.UI.EventHandling.ItemEvents.ClickEventHandler(delegate(SwissAddonFramework.UI.EventHandling.ItemEvents.Click eventVal) {

pVal.Form.Freeze(true);

eventVal.Form.PaneLevel=100;

pVal.Form.Freeze(false);

}));

return true;

Hello Mario,

this works,
but what's the meaning of GroupWith
It seems that 138 belongs to Sales Orders and
114 belongs to Sales Quotations.
What should i use for the item master form ?
Is there a list of these values, perhaps,

thanks,

Mario

Mario Höfer

Hi,

as far as I know, these numbers specify the ItemID of the left Tab.
You should see them after you activate View/System information.
In the lower left corner you can lookup the ID when you move your mouse over the corresponding element.
The two tabs in the Sales Quotation got ID 114 and 138.
You can try this with the ID Numbers from the item master.
I think they are: 163, 3, 4, 26, 27, 11 and 9.
I hope it works ;)

Thank you Mario, it works.
You can use anyone of the numbers 16, 3, ...

If you want to move the new tabsheet from left to right,
you have to change Left position

f3.Top=10;f3.Width=140;f3.Left=500;f3.Height=14;

thanks,

Mario