Skip to Content

SiePortal

The integrated platform for your product selection, buying and support workflow - bringing together Industry Mall and Online Support.

SiePortalDeutsch

Search

Home
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menu temporary not available
- Menue temporary not available
- {{item.title}}

Products & Services
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Support Support
{{(apiData.Support | filter:{'rank':1}:true)[0].title}} Support
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
MySiePortal MySiePortal
{{(apiData.MySiePortal | filter:{'rank':1}:true)[0].title}} MySiePortal
- Menu temporary not available
- Menue temporary not available
- {{item.title}}
Cart ({{apiData.CartCount}})

Navigation

Indication of duplicate values

Created by: Sulkis at: 1/12/2021 10:21 AM (7 Replies)

Rating (0)

Thanks 0

8 Entries

1/12/2021 10:21 AM	Rate (0)
Sulkis Posts: 6 Rating: (1)	Hi, Is it able to highlight or somehow indicate if different objects in the query have same value in same attribute ? For example in this picture below I have listed some objects in query and they all have some values in this same attribute, how to get for example highlight indication if there are duplicate values ? Attachment query1.JPG (440 Downloads)
Sulkis Posts: 6 Rating: (1)	Last edited by: Sulkis at: 01/12/2021 15:17:01
Suggestion To thank Quote Answer

1/12/2021 2:30 PM	Rate (0)
Velek Jir Silver Expert Joined: 1/2/2017 Last visit: 12/15/2025 Posts: 211 Rating: (118)	Hello, Picture missing, but I suppose that you can use event GetBackColor on attributes. BackColor is used also for query cell if cell object is attribute. Jiri

Suggestion To thank Quote Answer

1/12/2021 3:21 PM	Rate (0)
Sulkis Posts: 6 Rating: (1)	Picture added,I meant that there are numbers in the query column, how do I find if there are duplicate values in this column?
Sulkis Posts: 6 Rating: (1)
Suggestion To thank Quote Answer

1/12/2021 5:54 PM	Rate (0)
Velek Jir Silver Expert Joined: 1/2/2017 Last visit: 12/15/2025 Posts: 211 Rating: (118)	Interesting topic. I was very curious if it can be solved via event GetBackColor, therefore I tried to solve it. Maybe someone knows better solution. I don't have time to think more about it so take it as one of possible solutions, probably not the best one. The first part is preparation of dictionary with values and colors in query script. Values are added to dictionary. First as INIT. When value is found second time, color is calculated and set to dict. It means that values which exist only one time won't have color. Probably you will need better algorithm for calculation of colors. You can prepare colors in standard table for example. Prepared dictionary with colors is set to global variable. Sub AfterGetOrigCollection(OrigCollection) Set dic_QueryColors = CreateObject("Scripting.Dictionary") int_OrigColCount = OrigCollection.Count int_ColorCounter = 0 For int_iOrigColItem = 1 To int_OrigColCount Set obj_OrigColItem = OrigCollection.Item(int_iOrigColItem) Set obj_Att = obj_OrigColItem.spec(SET_ATT_NESTEDNAME!!) If Not obj_Att Is Nothing Then str_Value = obj_Att.Value If Len(Trim(str_Value)) > 0 Then If Not dic_QueryColors.Exists(str_Value) Then dic_QueryColors.Add str_Value, "INIT" Else If dic_QueryColors.Item(str_Value) = "INIT" Then int_ColorCounter = int_ColorCounter + 1 dic_QueryColors.Item(str_Value) = 255 + (50000 * int_ColorCounter) End If End If End If End If Next Project.WorkSet.Globals.dic_QueryColors = dic_QueryColors End Sub Second script in event GetBackColor It checks if global dictionary exists. if YES, if current value exists there as key, if dict value is different from INIT, it takes color and sets it as GetBackColor Function GetBackColor() If Project.Workset.Globals.Exist("dic_QueryColors") Then If TypeName(Project.Workset.Globals.dic_QueryColors) = "Dictionary" Then If Project.Workset.Globals.dic_QueryColors.Exists(ThisObj.value) Then If Project.Workset.Globals.dic_QueryColors.Item(ThisObj.value) <> "INIT" Then GetBackColor = Project.Workset.Globals.dic_QueryColors.Item(ThisObj.value) End If End If End If End If End Function It works for me. Of course when values are changed you must start query again for recalculation of colors. Probably whole solution can be improved, this is max. what I can provide. Jiri

Suggestion To thank Quote Answer

1/13/2021 12:59 PM	Rate (0)
Sulkis Posts: 6 Rating: (1)	Thank you very much Jiri for your effort in this matter This is a good start and an interesting thing to explore more in future
Sulkis Posts: 6 Rating: (1)
Suggestion To thank Quote Answer

1/18/2021 8:35 AM	Rate (0)
SuperPippo Silver Expert Joined: 6/30/2014 Last visit: 1/14/2026 Posts: 476 Rating: (93)	Hello Sulkis, Would it be possible to export the query to Excel, than having Excel showing duplicates? All the best, SuperPippo

Suggestion To thank Quote Answer

1/19/2021 7:59 AM	Rate (0)
Sulkis Posts: 6 Rating: (1)	Yes of course but if the same thing can be done directly in Comos it's always a better solution
Sulkis Posts: 6 Rating: (1)
Suggestion To thank Quote Answer

1/19/2021 8:27 AM	Rate (0)
SuperPippo Silver Expert Joined: 6/30/2014 Last visit: 1/14/2026 Posts: 476 Rating: (93)	Dear Sulkis, I totally agree with you, so I would like to suggest the following plan: ~~~> you may open a ticket at the Support of Siemens, for COMOS, so that they check if there is a function in COMOS which allows you to get to your target, sorting, in that app itself; ~~~> If there is no chance/function yet, you may ask them to put it on the list as a development wish. All the best, SuperPippo

Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on