external rules not found
- Mark as New
- Bookmark
- Subscribe
- Mute
- Subscribe to RSS Feed
- Permalink
- Report
Hello all,
Ive made a Ilogic rule with help from this forum (by searching/borrowing and asking), this rule works.
BUT, when we start fresh (or reboot the computers) the external rules listed in the Ilogic are not found. This results in a error, obviously:
Error on line 24 in rule: iLogic - REV - Goedkeuren, in document: 011-620066.ipt
RunExternalRule: Cannot find an external rule file named: "iLogic - generate thumbnail" (referenced in the document 011-620066.ipt).
When we run the external rule by hand, it's no problem. The original ilogic is then triggered again (manual) and it give the next external rule error. So the process is repeated, running the external rule by hand. until all external rules are once run manual. Then the original rule runs fine, the whole day.
Until we fire up the computer the next day.
We haven't had this problem with external rules before, and as far as i know we didn't change any settings.
Does anyone know what is happening here? And more important: how we can fix this once and for all?
Thanks in advance,
Bram Jessen
The code of the specified rule:
Try
If iProperties.Value("Project", "Part Number") = "" Then
iProperties.Value("Project", "Part Number") = InputBox("Artikel nummer", "Artikel nummer onbekend", "")
End If
Catch
End Try
'omdat de date creation box niet aangevinkt is geeft deze geen datum op de tekening, daarom onderstaande code om bij releasen deze aan te vinken (bram)
Dim oDoc As Document = ThisDoc.Document
oDoc.PropertySets.Item("Design Tracking Properties").Item("Creation Time").Value = DateTime.Now.ToString("d")
iLogicVb.RunExternalRule("iLogic - Auto - Tekening nummer")
'om een of andere domme reden is het niet mogelijk om de inhoud van deze ilogic op te roepen daarom is de logic maar gewoon hiergeplakt
Try
If Left(iProperties.Value("Project", "Part Number"), 3) = "011" Then
iProperties.Value("custom", "PosNr") = "T" & Right(iProperties.Value("Project", "Part Number"), 6)
Else
iProperties.Value("custom", "PosNr") = Right(iProperties.Value("Project", "Part Number"), 3)
End If
Catch
End Try
iLogicVb.RunExternalRule("iLogic - Auto - Update Materiaal omschrijving")
iLogicVb.RunExternalRule("iLogic - Excel - Mappen")
iLogicVb.RunExternalRule("iLogic - generate thumbnail")
Dim REV As String
Dim REVEDIT As String
Dim Export As String
Export ="JA"
REVEDIT = "Vrijgegeven"
REV = iProperties.Value("Project", "Revision Number")
Select Case REV
Case "-"
iProperties.Value("Project", "STATUS") = "Leverancier art."
Export = "NEE"
Case "*"
MessageBox.Show("Tekening is vervallen")
Export = "NEE"
Case ""
iProperties.Value("Project", "Revision Number")="0"
iProperties.Value("Project", "STATUS") = REVEDIT
case "0+"
iProperties.Value("Project", "Revision Number")="a"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "a+"
iProperties.Value("Project", "Revision Number")="b"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "b+"
iProperties.Value("Project", "Revision Number")="c"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "c+"
iProperties.Value("Project", "Revision Number")="d"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "d+"
iProperties.Value("Project", "Revision Number")="e"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "e+"
iProperties.Value("Project", "Revision Number")="f"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "f+"
iProperties.Value("Project", "Revision Number")="g"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "g+"
iProperties.Value("Project", "Revision Number")="h"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "h+"
iProperties.Value("Project", "Revision Number")="i"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "i+"
iProperties.Value("Project", "Revision Number")="j"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "j+"
iProperties.Value("Project", "Revision Number")="k"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "k+"
iProperties.Value("Project", "Revision Number")="l"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "l+"
iProperties.Value("Project", "Revision Number")="m"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "m+"
iProperties.Value("Project", "Revision Number")="n"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "n+"
iProperties.Value("Project", "Revision Number")="p"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "p+"
iProperties.Value("Project", "Revision Number")="q"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "q+"
iProperties.Value("Project", "Revision Number")="r"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "r+"
iProperties.Value("Project", "Revision Number")="s"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "s+"
iProperties.Value("Project", "Revision Number")="t"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "t+"
iProperties.Value("Project", "Revision Number")="u"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "u+"
iProperties.Value("Project", "Revision Number")="v"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "v+"
iProperties.Value("Project", "Revision Number")="w"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "w+"
iProperties.Value("Project", "Revision Number")="x"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "x+"
iProperties.Value("Project", "Revision Number")="y"
iProperties.Value("Project", "STATUS") = REVEDIT
Case "y+"
iProperties.Value("Project", "Revision Number")="z"
iProperties.Value("Project", "STATUS") = REVEDIT
Case Else
MessageBox.Show("Artikel is al vrijgegeven")
Export="NEE"
End Select
If Export = "JA" Then
iLogicVb.RunExternalRule("iLogic - make files")
End If(if need be i can also give the other rules)