---

Hallo SWX-Gemeinde,
insbesondere Prog-Profis,

ich würde ganz gerne in Analogie zur Berichte-Funktion in
PDM-Works, diese in VB/VBA-Programmen nutzen.
Ziel soll sein, eine Teilestatistik zu einer Baugruppe direkt
aus PDM-Works nach Excel auszulesen.
Scheiter derzeit aber an der API-Doku zu PDM-Works.
Das beste sind eigentlich immer Programmbeispiele,
diese sind dort aber dünn gesät.
Für eure Hilfe wäre ich dankbar.

Gruß Harald

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

---

Hallo Harald Stratmann,

es ist natürlich davon abhänig, was Ihr genau als Verwatungs'chen habt.

PDM Enterprise (mit SQL Server und > 100 Tabellen AAAHHHH)
oder
PDM Workgroup(Ohne Tabellen eigentlich nix)

Ich würde mir die BG schnappen und aus der Struktur die
Komponenteneigenschaften der Teile auslesen.

Also unabhängig von PDM.

Gruß

Bernd

[Diese Nachricht wurde von BerndB am 26. Apr. 2007 editiert.]

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

---

Hallo Bernd,

einfach PDM-Workgroup ( Zeichnungsverwaltung hat ja nu wenig
mit Datenbank zu tun)
Aber ich brauche auch nur eine einfache Statistik über eine
Baugruppe:
Anzahl Modelle
Anzahl Zeichnungen
Anzahl Unterbaugruppen
Ist alles aus PDM zu beziehen.
Brauche nur die Programmsyntax VB/VBA für einen Automatismus.

GRuß Harald

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

---

Hallo Bernd,
anbei nochmal ein Beispiel aus der Api-Hilfe.
Private Sub Test_2222()
Dim connection As PDMWConnection
Dim Options As PDMWorks.PDMWSearchOptions
Dim Criteria As PDMWorks.PDMWSearchCriteria
Dim Results As PDMWorks.PDMWSearchResults
Dim Result As PDMWorks.PDMWSearchResult
Dim i As Integer
Dim cnt As Integer

   

    Set connection = CreateObject("PDMWorks.PDMWConnection")
    connection.Login "Stratmann", "Harald", "CZC4170Z9C"
   
    Set Options = connection.GetSearchOptionsObject

        Options.IgnoreCase = True
        Options.IgnoreLinks = False
        Options.IncludeHiddenDocuments = True
        Options.SearchConfigSpecificProperties = False
        Options.SearchOnlyChildrenOf = "Zeichnungsordner"
        Options.SearchCriteria.AddCriteria pdmwOr, pdmwDocumentName, "", Contains, "sldprt"
        Options.SearchCriteria.AddCriteria pdmwAnd, PDMWConfiguration, "", Contains, "default"

        'Options.SearchCriteria.SaveToFile "c:\temp\cri_test.sqy"
        'Options.SearchCriteria.LoadFromFile "c:\temp\cri_test.sqy"

        Set Results = connection.Search(Options)

            cnt = Results.Count

End Sub

Ich hatte jetzt vermutet, das mir die Variable cnt die Anzahl
liefert. Tut sie aber nicht ist in dem Fall 0.
Hier komme ich nicht weiter.

Gruß Harald

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

---

Hallo Zurück,

einen Fehler sehe ich nicht.

Ist evtl. ein Fall für den SWX API Support.

Dafür gibts eine eigene Abteilung bei SWX.

Evtl. mal zusammen mit dem Reseller abschicken.

Die reagieren eigentlich sehr schnell.

Gruß

Bernd

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