---

Guten Morgen an allem! 
Ich bitte um eine Hilfe von ilogic Experten. 
Ich habe mit Mühe und Fleiß eine ilogic Regel gebastelt, der das tut, was ich möchte. Aber nur in einem ipt. 
Ich möchte dieser ilogic Regel in einem iam verwenden, für alle ipt’s und für die ipt’s der iam’s der in diesem iam vorhanden ist. Da in diesem iam den ich meine ilogic Regel verwenden möchte, auch andere iam’s mit ipt’s vorhanden ist. 

Kann jemand mir bitte dabei behilflich sein?
Vielen Dank im Voraus.

Mit freundlichen Grüßen!

------------------
Zeige dich, wie du bist oder sei, wie du dich zeigst.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

So zum Beispiel:

Code:

---

Sub Main
    If ThisDoc.Document.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
        Dim oAssDoc As AssemblyDocument = ThisDoc.Document
        Dim oDoc As Document

        For Each oDoc In oAssDoc.AllReferencedDocuments
            If oDoc.DocumentType=DocumentTypeEnum.kPartDocumentObject Then
                PartCode(oDoc)
            End If
        Next
    End If
End Sub

Sub PartCode(ByVal oPartDoc As PartDocument)
    'Remember, do not use ThisDoc here. Your PartDocument object is oPartDoc!!!
    '...insert your code...
End Sub

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Entschuldige Bitte,
ich bin mir sicher dein Code wird funktionieren aber ich glaube, ich muss an meine Regel etwas verbessern.
Ich kriege irgendwie nicht die gleiche Ergebnis.

Hier ist mein Regel

'iLogic_Bezeichnungen_uebersetzen
strSprch = InputBox("Bitte geben Sie gewünschte Sprache", "Datenangabe")
i = GoExcel.FindRow("ExcelPfad", "Stueckliste", "Bestandnummer", "=", iProperties.Value("Custom", "Sachnummer"))
If strSprch = "Deutsch" Then
  strDescDE = GoExcel.CurrentRowValue("Deutsch")
  iProperties.Value("Project", "Description") = strDescDE
  ElseIf strSprch = "Englisch" Then
  strDescEN = GoExcel.CurrentRowValue("Englisch")
  iProperties.Value("Project", "Description") = strDescEN
  ElseIf strSprch = "Französisch" Then
  strDescFR = GoExcel.CurrentRowValue("Französich")
  iProperties.Value("Project", "Description") = strDescFR
  ElseIf strSprch = "Spanisch" Then
  strDescES = GoExcel.CurrentRowValue("Spanisch")
  iProperties.Value("Project", "Description") = strDescES
End If

Vielen Dank

------------------
Zeige dich, wie du bist oder sei, wie du dich zeigst.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo

Das kann nicht funktionieren.

Code:

---

iProperties.Value(....

---

bezieht sich auf das Dokument in dem die Regel ausgeführt wird. In deinem Fall jetzt die Baugruppe. Wenn man stattdessen ein Bauteil der Baugruppe benutzen will, muss das den Dateinamen mit angeben. Ich kann es nicht testen, aber versuch es mal so:

Code:

---

Sub Main

If ThisDoc.Document.DocumentType = DocumentTypeEnum.kAssemblyDocumentObject Then
Dim oAssDoc As AssemblyDocument = ThisDoc.Document
Dim oDoc As Document

For Each oDoc In oAssDoc.AllReferencedDocuments
If oDoc.DocumentType=DocumentTypeEnum.kPartDocumentObject Then
PartCode(oDoc)
End If
Next
End If

End Sub

Sub PartCode(ByVal oPartDoc As PartDocument)

Dim sFilename As String = System.IO.Path.GetFileName(oPartDoc.FullDocumentName)

'Remember, do not use ThisDoc here. Your PartDocument object is oDoc!!!
'...insert your code...
'iLogic_Bezeichnungen_uebersetzen
strSprch = InputBox("Bitte geben Sie gewünschte Sprache", "Datenangabe")
i = GoExcel.FindRow("ExcelPfad", "Stueckliste", "Bestandnummer", "=", iProperties.Value(sFilename,"Custom", "Sachnummer"))
If strSprch = "Deutsch" Then
  strDescDE = GoExcel.CurrentRowValue("Deutsch")
  iProperties.Value(sFilename,"Project", "Description") = strDescDE
  ElseIf strSprch = "Englisch" Then
  strDescEN = GoExcel.CurrentRowValue("Englisch")
  iProperties.Value(sFilename,"Project", "Description") = strDescEN
  ElseIf strSprch = "Französisch" Then
  strDescFR = GoExcel.CurrentRowValue("Französich")
  iProperties.Value(sFilename,"Project", "Description") = strDescFR
  ElseIf strSprch = "Spanisch" Then
  strDescES = GoExcel.CurrentRowValue("Spanisch")
  iProperties.Value(sFilename,"Project", "Description") = strDescES
End If
End Sub

---

------------------
MfG
Ralf

RKW Solutions GmbH
www.RKW-Solutions.com

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo!

Entschuldige bitte dass, ich mich etwas spät zurückmelde.

Ich habe es in verschiedene Baugruppen ausprobiert. Es funktioniert. Herzlichen Dank!
Es gab welche Fehlermeldungen, aber ich konnte den Grund finden und sie beheben. 

Ich hätte trotzt dem eine Bitte. 

Ich muss die Sprachauswahl für die Übersetzung für jeden Bauteil einzeln eingeben.
Es müsste eine Möglichkeit geben, dass man es für alle Bauteile nur ein einziges Mal eingibt. 

Es wäre fantastisch, wenn ich es noch ändern könnte.

Vielen, vielen Dank!

Mit freundlichen Grüßen! 

------------------
Zeige dich, wie du bist oder sei, wie du dich zeigst.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP