Lotus Notes / Domino Sonstiges > Tipps und Tricks

Eine beliebige Adresse anzeigen lassen

<< < (2/2)

Driri:
Ich habe mir mal die Freiheit genommen und das Script erweitert, so daß man über eine Dialogbox eine Startadresse eingeben kann und dann die Routenberechnung zur im Dokument enthaltenen Adresse aufgerufen wird.

Dazu müssen in die Maske 5 Felder eingefügt werden, alle vom Typ Text, Bearbeitbar :

SStrasse, SPLZ, SOrt, Rtype, Desctype.

Dann muß eine Dialogmaske gebaut werden, die die Eingabe der Startadresse und zwei Optionen erlaubt, Feldnamen wie oben.

SStrasse, SPLZ, SOrt sind Text, Bearbeitbar
Rtype, Optionsfeld, Optionen = schnellste Route|fast, kürzeste Route|short
Desctype, Optionsfeld, Optionen = kompakte Beschreibung|standard, detaillierte Beschreibung|detailsmap

Zum Schluß einen Button in die Maske einfügen mit folgenden Scripten :

Declare Function GetDesktopWindow Lib "user32" () As Long
Declare Function ShellExecuteFile Lib "shell32.dll" Alias "ShellExecuteA" (Byval _
hwnd As Long, Byval lpOperation As String, Byval lpFile As String, Byval _
lpParameters As String, Byval lpDirectory As String, Byval nShowCmd As Long) As Long


Sub Click(Source As Button)
Dim ws As New NotesUIWorkspace
Dim docThis As NotesDocument
   
Set docThis = ws.CurrentDocument.Document   
   
flag% = ws.DialogBox_("Dlg_Route_Start",True,True,False,True,False,False,"Startort angeben",docThis)
   
If flag% Then
With docThis
Call CalcRouteMap24( .SStrasse(0) , .SPLZ(0) , .SOrt_(0) , .Firma_strasse(0) , .Firma_plz(0) , .Firma_ort(0) , .RType_(0) , .Desctype(0) )  
End With  
End If

End Sub


Sub CalcRouteMap24( sStreet As String , sZip As String , sCity As String , dStreet As String , dZip As String , dCity As String , rtype As String , desctype As String)

Dim strURL As String
Dim vValue As Variant
strURL = "http://www.map24.de/map24/routingform.php3?mid=MAP24&sstreet=" + sStreet
strURL = strURL + "&szip=" + sZip
strURL = strURL + "&scity=" + sCity
strURL = strURL + "&dstreet=" + dStreet
strURL = strURL + "&dzip=" + dZip
strURL = strURL +"&dcity=" + dCity
strURL = strURL + "&rtype=" + rtype
strURL = strURL + "&desctype=" + desctype + "&loadlimiter=&usecity=&maptype=JAVA&mid=MAP24&x=73&y=11"
ShellExecuteFile GetDesktopWindow(), "open", strURL, "", "", 1

End Sub


Einziges Manko, man muß immer noch den Button "Route berechnen" im Browser betätigen.

ata:
@Driri

... ich war gerade dabei die Routenplanung auseinanderzunehmen. So weit bin ich auch gekommen. Allerdings arbeite ich wieder direkt aus dem Personendokument, bzw. über einen Spiegel der Daten.

... ich suche gerade nach einem Weg ohne den abschließenden Button - also den direkten Weg. Wenn ich fündig werde gebe ich Bescheid - wird etwas aufwendiger...

ata

Driri:
Supi  :)

Das ist echt klasse, mein Chef ist schon total begeistert von der Funktionalität.

Allerdings hab ich mir gerade mal die Nutzungsbedingungen von Map24 angesehen und so wie ich das deute, ist das so nicht legal.

ata:
... daher auch meim Hinweis weiter oben - aber wenn die Funktionalitäät deinen Chef so begeistert - Map24 bietet diverse Dinste auch für kommerzielle Nutzungen an...

ata

Driri:
Jopp, ich hab meine Bedenken mal an meinen Cheffe weitergegeben. Soll er einfach entscheiden, ob wir das so einsetzen oder ob wir das evtl. lizensieren.

Achja, noch ne Anmerkung zu meinem Script oben wg. der Routenplanung.
Da sollte man noch ne Prüfung einbauen, damit die Werte für den Startort und die Optionen wirklich gefüllt sind. Setzt man z.B. eine Option nicht, wird im Browser zwar eine markierte Option geezeigt, es kommt aber eine Fehlermeldung.

Navigation

[0] Themen-Index

[*] Vorherige Sete