---

Moin!

Auf besonderen Wunsch eines einzelnen Herrn, der aber nun mal meine Lieblingskundschaft wesentlich darstellt und vertritt,  bitte ich hiermit um Beiträge mit Berichten von vorhandenen Lösungen oder Erfahrungen oder auch nur Hinweisen zum Thema:

Stücklistenexport aus Inventor (hier Version 2010) in Lexware.

Lexware (welche Version oder Variante das hier ist, wurde mir leider noch nicht mitgeteilt  ) soll anhand dieser Informationen dann zu jedem Hauptartikel (es handelt sich dabei um nicht all zu umfangreiche optische Messgeräte, von denen es inzwischen die verschiedensten Ausführungen, Varianten und Konfigurationen gibt) die nötigen Bestandteile hersuchen und mit dem Lagerbestand abgleichen können und bei Bedarf auch die dazu gehörigen Fertigungsunterlagen wie Zeichnungen(pdf), Konturen(dxf), 3D-Modelle(stp) ziehen, die in einem stets aktuell gehaltenen Datenpool bereit stehen.

Eine direkte Anbindung an die Inventordateien ist aus guten Gründen NICHT erwünscht (Firewallprinzip).

Es soll auch kein Konfigurator oder so was werden. Jede Konfiguration oder Variante wird zuerst im CAD aufgebaut und gecheckt, dann bekommt sie ihre eigene Nummer und Baugruppenzeichnung, die zugehörigen Fertigungsdokumente gehen in den Datenpool und die zugehörige(n) Stückliste(n) ins Lexware, und ab kann's gehen, ohne dass wir in der Konstruktion noch was damit zu tun kriegen.

Wegen des Firewallprinzips wird zwingend mit einer Transferdatei gearbeitet werden, die wir z.B. mit der iam-Stückliste erzeugen können. Es soll NICHT ein Programm direkt die Inventordateien lesen und Lexware direkt damit füttern, denn die Daten (hier CAD, da Warenwirtschaft) liegen auf völlig verschiedenen Servern (nämlich in zwei verschiedenen Firmen, hier meine, da seine) und sollen aus strategischen Gründen auch getrennt bleiben (z.B. damit man in Ruhe im CAD herummachen, ändern und entwickeln kann, ohne dass das WWS gleich einen Pfefferminzschlag kriegt, wenn mal für gewisse Zeit im CAD nicht alles zusammenpasst.)

------------------
Roli  
www.Das-Entwicklungsbuero.de

[Diese Nachricht wurde höchstwahrscheinlich nach ihrer Erstellung von Doc Snyder noch ein Mal editiert.]

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

---

Hi Roland
anbei vielleicht etwas was dir die Vorgehensweise erleichtert.
Dieses Makro erstellt im Ordner der Baugruppe einen Unterordner (BOM_XLS).
Dort werden 2 Exceldateien erstellt einmal Struktur einmal nur Teile.
Diese haben den Namen der
Baugruppe + BOM-StructuredAllLevels.xls 
&
Baugruppe + "BOM-PartsOnly.xls"
Dies auf einen Knopf als User Tool und du hast schon mal einen sauberen Ansatz.
Kann man natürlich auch als Ilogic Regel beim Speichern laufen lassen 
*****************************************
Public Sub BOMExport2file()
    ' Set a reference to the assembly document.
    ' This assumes an assembly document is active.
    Dim oDoc As AssemblyDocument
    Set oDoc = ThisApplication.ActiveDocument
    'Get filename
    Dim ftempname As String
    ftempname = Filename(oDoc.fullFilename)
    Dim ftempdir As String
    ftempdir = FilePath(oDoc.fullFilename) & "\BOM_XLS\"
  Dim resname As String
  resname = ftempdir & ftempname

'check dir & kill old file
On Error Resume Next
    MkDir (ftempdir)
    Kill resname
On Error GoTo 0
    ' Set a reference to the BOM
    Dim oBOM As Inventor.BOM
    Set oBOM = oDoc.ComponentDefinition.BOM
   
    ' Set the structured view to 'all levels'
    oBOM.StructuredViewFirstLevelOnly = False

    ' Make sure that the structured view is enabled.
    oBOM.StructuredViewEnabled = True

    ' Set a reference to the "Structured" BOMView
    Dim oStructuredBOMView As BOMView
    Set oStructuredBOMView = oBOM.BOMViews.Item("Structured")
   
    ' Export the BOM view to an Excel file
    oStructuredBOMView.Export (resname & "BOM-StructuredAllLevels.xls"), kMicrosoftExcelFormat
 
    ' Make sure that the parts only view is enabled.
    oBOM.PartsOnlyViewEnabled = True

    ' Set a reference to the "Parts Only" BOMView
    Dim oPartsOnlyBOMView As BOMView
    Set oPartsOnlyBOMView = oBOM.BOMViews.Item("Parts Only")

    ' Export the BOM view to an Excel file
    oPartsOnlyBOMView.Export (resname & "BOM-PartsOnly.xls"), kMicrosoftExcelFormat
End Sub

Public Function FilePath(ByVal fullFilename As String) As String
    ' Extract the path by getting everything up to and
    ' including the last backslash "\".
    FilePath = Left$(fullFilename, InStrRev(fullFilename, "\") - 1)
End Function
Public Function Filename(ByVal fullFilename As String) As String
    ' Extract the filename by getting everything to
    ' the right of the last backslash.
 
    Filename = Right$(fullFilename, Len(fullFilename) - InStrRev(fullFilename, "\"))
    'InStrRev(fullFilename, "\"))
             
End Function

------------------

"Das Motto des Tages"
Wir hatten nie 'ne Schulung in Inventor
Wir hatten nie 'ne Schulung in Methodik
Wir haben keinen Wartungsvertrag
Wir haben keinen Admin
Wir haben trotzdem Spaß!

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

---

Hi,

wir setzen ebenfalls Inventor und als ERP-System Lexware ein.
Eine direkte Schnittstelle zum Lexware gibt es nicht. Wir haben allerdings eine Fa. in München ausfindig gemacht die eine ODBC-Schnittstelle (z.B. VB.net) anbietet. Diese Schnittstelle hat es uns ermöglicht auf ALLE Lexware-Daten über Inventor zuzugreifen.
Wir benutzen dieses um den Lagerbestand, Preise und Lieferanten auslesen zu können, bzw. um Baugruppenpreise zu ermitteln.
Stücklisten (Struktur) kann auch übergeben werden.

Gruß
RoccoRalle

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

---

Zitat:

---

Original erstellt von RoccoRalle:
...auf ALLE Lexware-Daten über Inventor zuzugreifen.

---

D.h. Ihr arbeitet im selben Netzwerk und lest die Lexwaredaten?

Hier solll ja nur Lexware die Daten von Inventor bekommen, und es soll auch alles streng getrennt auf verschiedenen Systemen bleiben.

------------------
Roli  
www.Das-Entwicklungsbuero.de

[Diese Nachricht wurde höchstwahrscheinlich nach ihrer Erstellung von Doc Snyder noch ein Mal editiert.]

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

---

Hi,
die Schnittstelle ermöglicht eine Bidirektionale Komunikation.
Was man daraus macht und wie die Daten fließen sollen, muss selbst in VB.net geschrieben werden (z.B. AddIn für Inventor).

Wenn die Systeme nicht vernetzt sind, so kann über die Schnittstelle (Stand-Alone) eine Excel-Datei eingelesen werden welche die Information in die Lexwaredatenbank schreibt.

Bei uns erfolgt die Datenübertragung direkt vom CAD ins Lexware (Stückliste) über ein Inventor-AddIn.

[Diese Nachricht wurde von RoccoRalle am 27. Jul. 2011 editiert.]

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