---

Guten Morgen zusammen,
folgendes Problem:
Wir haben ein Script geschrieben, mit dem wir die Artikeltabelle einer externen Datenbank über ODBC abfragen wollen. Hierzu brauchen wir das Feld Artikelnummer aus DBWorks.
Die Zeilen
  Set swApp = CreateObject ("SldWorks.Application")
  DBWInit(TRUE)
  ArtNr = DBWInput("ARTIKELNR")
  usw...
liefern leider keinen Wert für ArtNr. Was tun?

Es wäre toll wenn uns da jemand helfen könnte.

mfg Alexander

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

---

Hallo Alexander

ich denke, dass das nur über die Funktion
"DBWGetStringFieldData" funktioniert

müsste meiner Meinung nach so funktionieren
------------------------------------------------
DBWInit(TRUE)
call DBWShell( "CurrentDocument" )
if (okDBW = False) then exit sub
docUId = DBWResult( "@DOCUMENT_UNIQUE_ID" )
if DBWGetStringFieldData("DBWORKS" ,"DOKUMENT", "ARTIKELNR" , "EINDEUTIGE_NR", docUId , sResult)=true then
  msgbox sResult
else
  msgbox "nicht gefunden"
end if
------------------------------------------------

------------------
Grüße
Heinz

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

---

Danke soweit.
Aber ich bekomme dann die Fehlermeldung "Ungültige Versendung von Null: sResult".

Was tun?

Alexander

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

---

es muss natürlich heißen "Ungültige Verwendung...."
Sorry!

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

---

Hallo Alexander

anbei nochmals ein komplettes Script das bei mir funktioniert
mit dem einzigen Unterschied, dass ich die Zeichnungsnummer
das gerade gewählten Dokuments abfrage.
Versuch mal ein anderes Feld abzufragen. Ich hab die Erfahung gemacht,
dass es manchmal problematisch ist, wenn ein Feld den Wert NULL hat.
Welche DBWORKS Version verwendet ihr?
In welcher Tabelle der DBWORKS Datenbank ist das Feld ARTIKELNR enthalten?
Wenn es nicht in der DOKUMENT Tabelles ist, dann musst Du natürlich auch den Tabellennamen anpassen

sub main
  DBWInit(TRUE)

  call DBWShell( "CurrentDocument" )

  if (okDBW = False) then
    exit sub
  end if

  docUId = DBWResult( "@DOCUMENT_UNIQUE_ID" )

  if DBWGetStringFieldData("DBWORKS" ,"DOKUMENT", "Zeichnungsnummer" , "EINDEUTIGE_NR", docUId , sResult)=true then
    msgbox sResult
  else
    msgbox "nicht gefunden"
  end if
end sub

------------------
Grüße
Heinz

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

---

Hallo Alexander,

1. Wichtig wie wo wann benutzt ihr was als Skript.
Danach richtet sich der Befehl den Ihr Braucht.

Ist es eine .VBS die Ihr im LST Verzeichnis habt?
Ist es ein Skript .vbs in der Shortcutbar oder unter der Rechten maus von DBW....

entweder geht dann DBWInput("ARTIKELNUMMER")
oder DBWQUERYBYUID(UID,"ARTIKELNUMMER")

In der API Hilfe stehen die Befehle.
Hilfe unter DBWORKS\DBWCommandShell.chm

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