---

Hallo,
erst seit kurzen nutzen wir aktiv das drafting. Hab mich bisher nur kurz beschäftigt.... und komme noch nicht so recht weiter.

Und zwar möchte ich folgendes machen. Einen neuen Button erstellen. Beim draufklicken soll sich dann eine Webseite (Intranet) öffnen. Wie schaut das das Makro dazu aus???

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

---

Ich mach' das mit einem vbs-Script und Parameterübergabe für unser PPS-System:

Code:

---

DEFINE psisuche
LOCAL testa
LOCAL testb
LOCAL topname
EDIT_PART TOP
INQ_ENV(7)
LET testa (SUBSTR (INQ 301) 1 1)
LET testb (SUBSTR (INQ 301) LEN (INQ 301) 1)
IF ((testa = '#') and (testb='#'))
  EDIT_PART TOP
  LET topname (SUBSTR (INQ 301) 2 (LEN (INQ 301)-5))
  LET topname ('\\lx-file-1\Daten\me10\psi.vbs ' + topname)
  RUN topname
END_IF
END_DEFINE

---

Code:

---

Dim suche, zeichnung
zeichnung = Wscript.Arguments(0)
suche = "psiip:///find?prod=pen&obj=part&field(FV_PART_ZEICHDINNR)=" & zeichnung & "&field(FB_PART_ZEICHDINNR)=" & zeichnung
Set wshshell = CreateObject("WScript.Shell")
wshshell.Run suche
Set wshshell = Nothing

---

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