Hallo,
also die Regel die du mir geschickt hast klappt wunderbar.
Habe sie leicht angepasst. (Anstatt der Bestandsnummer = "" habe ich "0" eingetragen.)
So sah die Regel dann aus:
Stocknumber = iProperties.Value("Project", "Stock Number")
If Stocknumber = "0" Then
Stocknumber = InputBox("Bitte Bestelnummer eingeben", "iProperties Eingabe", Description)
iProperties.Value ("Project", "Stock Number") = Stocknumber
End If
Dim oAsmCompDef As AssemblyComponentDefinition
oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition
Dim name As String
For i=1 To oAsmCompDef.Occurrences.Count
name=oAsmCompDef.Occurrences.Item(i).Name
Stocknumber = iProperties.Value(name,"Project", "Stock Number")
If Stocknumber = "0" Then
Stocknumber = "keine Bestellnummer"
iProperties.Value (name,"Project", "Stock Number") = Stocknumber
End If
Next i
Die klappt wie gewünscht!
Habe dann die ILogic in der ipt um einige Iproerties erweitert:
Stocknumber = iProperties.Value("Project", "Stock Number")
If Stocknumber = "0" Then
Stocknumber = InputBox("Bitte Bestellnummer eingeben", "iProperties Eingabe", Description)
iProperties.Value ("Project", "Stock Number") = Stocknumber
Bezeichnung_de = iProperties.Value("Custom", "Bezeichnung_de")
Bezeichnung_de = InputBox("Bitte die deutsche Bezeichnung eingeben", "iProperties Eingabe", Description)
iProperties.Value ("Custom", "Bezeichnung_de") = Bezeichnung_de
Description = iProperties.Value("Project", "Description")
Description = InputBox("Bitte englische Bezeichnung eingeben", "iProperties Eingabe", Description)
iProperties.Value ("Project", "Description") = Description
Vendor = iProperties.Value("Project", "Vendor")
Vendor = InputBox("Bitte den Zulieferer eingeben", "iProperties Eingabe", Description)
iProperties.Value ("Project", "Vendor") = Vendor
End If
Das klappt auch einwandfrei beim IPT. Dann wollte ich die IAM auch um diese Iproerties
nachrüsten, was dann so aussieht:
Stocknumber = iProperties.Value("Project", "Stock Number")
If Stocknumber = "0" Then
Stocknumber = InputBox("Bitte Bestelnummer eingeben", "iProperties Eingabe", Description)
iProperties.Value ("Project", "Stock Number") = Stocknumber
Bezeichnung_de = iProperties.Value("Custom", "Bezeichnung_de")
Bezeichnung_de = InputBox("Bitte die deutsche Bezeichnung eingeben", "iProperties Eingabe", Description)
iProperties.Value ("Custom", "Bezeichnung_de") = Bezeichnung_de
Description = iProperties.Value("Project", "Description")
Description = InputBox("Bitte englische Bezeichnung eingeben", "iProperties Eingabe", Description)
iProperties.Value ("Project", "Description") = Description
Vendor = iProperties.Value("Project", "Vendor")
Vendor = InputBox("Bitte den Zulieferer eingeben", "iProperties Eingabe", Description)
iProperties.Value ("Project", "Vendor") = Vendor
End If
Dim oAsmCompDef As AssemblyComponentDefinition
oAsmCompDef = ThisApplication.ActiveDocument.ComponentDefinition
Dim name As String
For i=1 To oAsmCompDef.Occurrences.Count
name=oAsmCompDef.Occurrences.Item(i).Name
Stocknumber = iProperties.Value(name,"Project", "Stock Number")
If Stocknumber = "0" Then
Stocknumber = "keine Bestellnummer"
iProperties.Value (name,"Project", "Stock Number") = Stocknumber
End If
Next i
Wie gesagt bei dem IPT klappt alles gut. Bei der IAM allerdings
werden wieder alle Iproperties der IPTs und IAM ausgefüllt.
Gewünscht war ja das nur die Iprops. der IAM ausgefült werden.
------------------
Gruß Georg
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP