How to find and delete inconsistent DocObjs by scripts?

Hi there,

Does anyone know scripts for finding and deleting inconsistent DocObjs?

Thanks,

Kittichai

@Moderator, please help me delete this (intermediate) post.

Just to be sure, are you aware of this button in the 'All document tools' query?

@Moderator, please help me delete this (intermediate) post.

Wouter den Haan

Just to be sure, are you aware of this button in the 'All document tools' query?

Hi,

Exactly!

When I select more than one document and click on the buttons, COMOS freezes and/or quites.

I'm looking for a way to work around.

Hi,

Thank you for your reply but it's not quite the script that I'm looking for.

There is nothing on my report and from the script you'd see that there are only "DefaultLine" and "DefaultText".

When I check the document, COMOS returns 0 report objects and 6 DocObjs which are inconsistent.

I'm looking for a solution to find the inconsistent DocObj by script.

AutoGen_3796202

Hi

Validate it before use:

Set objRep= a.Report.ReportDocument

int_DICount = objRep.ItemCount

For i = 1 To int_DICount

'Get object using:

'objRep.item(i-1)

'Get IsIllegal using- be careful ; please check if it fetches inconsistents

'objRep.item(i-1).isillegalitem- Boolean

Next

Shami Gupta

@Moderator, please help me delete this (intermediate) post.

Thank you. The script works but it is only a half way, unfortunately.

I found that the docobjs will become inconsistent when there is no reference or no report object.

Maybe there are more cases that cause the inconsistencies, I don't know.

Now, I'm up to the point that if I find a relation from the docobj to the report object, I'll have what I need.

From the docobj, I can use DocObj.X and DocObj.Y to get the Coord on the report and find if there is a report object or not but I don't think that this is a good solution.

If I could get something unique like the "LID" of a report object from the DocObj that would be nice.

AutoGen_3796202

Does the below give you all inconsistencies: at least should  docobjs without reference-

For  i= 1 To a.Docobjs.count

If Not a.Docobjs.item(i).Reference Is Nothing Then

'      Output a.Docobjs.item(i).Reference.invalid

Else

Output a.Docobjs.item(i).Name

End If

Next

@Moderator, please help me delete this (intermediate) post.

Hi,

No, there are no "True" results.