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

Revision Marks (BackColor) in a List-type COMOS Document

Created by: EduCostaCOMOS_BR at: 10/26/2021 3:30 PM (4 Replies)

Rating (0)

Thanks 0

5 Entries

10/26/2021 3:30 PM	Rate (0)
EduCostaCOMOS_BR Member Joined: 10/26/2021 Last visit: 8/19/2025 Posts: 12 Rating: (0)	Hello Everyone, I need a solution to mark revision in a list type of standard COMOS document using queries Example: Equipment list (plant design), with 3 Report Templates: Equipment list, Equipment list header Equipment list row The COMOS has as default, the options: "Display in Italics" and "Enclose with revision rectangle". I need a different solution, that the cell in the list is painted yellow (BackColor). My solution is to write a script in "options" in the report template "Equipment list row" comparing the value of "MaxRevisionIndex" with the "label" of the last revision. Something like : 'The code below is wrong, it's just an idea of what I need: '************************************************************* 'Returns the label of the last revision revActual = ReportObject.Revisions.Item(ReportObject.Revisions.Count).Label 'Reads all line items in querie aux=split("Text3733821166,Text3733814537,Text3733770597,Text3759161238,Text3759163269,Text3759165009,Text5332449711,Text2877404064,Text2877404062",",") For i = 0 To ubound(aux) 'if the item has been revised, paint the entire background (Backcolor) of the line yellow If MaxRevisionIndexOf.ITEM(aux(i)).value = revActual Then MyColor = RGB(255,255,0) ITEM(aux(i)).transparent = false ITEM(aux(i)).backcolor = MyColor End If Next '********************************************************************

Suggestion To thank Quote Answer

10/27/2021 8:35 AM	Rate (0)
Velek Jir Silver Expert Joined: 1/2/2017 Last visit: 8/30/2025 Posts: 210 Rating: (118)	Hi, I think that you should use property TEXT instead of VALUE If MaxRevisionIndexOf.ITEM(aux(i)).TEXT = revActual Then Rest of code seems OK. Maybe it will work, but it will be very annoying to prepare list of text names Jiri

Suggestion To thank Quote Answer

10/29/2021 4:42 PM	Rate (0)
EduCostaCOMOS_BR Member Joined: 10/26/2021 Last visit: 8/19/2025 Posts: 12 Rating: (0)	Hi Jiri, Thanks for the reply, but this solution doesn't work for "MaxRevisionIndexOf" Support COMOS Brazil presented a simple solution that solved it (without using the "ITEM" and directly changing the text field of the type "Script" created in the report through the command "Generate revision index") *************************************** Text = MaxRevisionIndexOf ("Text3733821166,Text5429186976,Text3733770597,Text3759161238,Text3759163269,Text3759165009,Text5332449711,Text2877404064,Text2877404062") 'Returns the label of the last revision revActual = Document.Revisions.Item(Document.Revisions.Count).Label 'If the item has been revised, paint the entire background (Backcolor) of the line yellow If Text = revActual Then MyColor = RGB(255,255,0) transparent = false backcolor = MyColor End If ************************************* The problem now is that when printing to pdf the background color is shown in gray (the pdf printer does not recognize the background color of the COMOS)**

Suggestion To thank Quote Answer

10/29/2021 6:57 PM	Rate (0)
Velek Jir Silver Expert Joined: 1/2/2017 Last visit: 8/30/2025 Posts: 210 Rating: (118)	put this to report template script: PrintTextBackColor = TRUE

Suggestion To thank Quote Answer

11/10/2021 4:30 PM	Rate (0)
EduCostaCOMOS_BR Member Joined: 10/26/2021 Last visit: 8/19/2025 Posts: 12 Rating: (0)	Perfect !!! Thank you again @Velek Jir

Suggestion To thank Quote Answer

|

Share this page:

Share this page on...

Follow us on