Ich habe in der bisherigen OL einen Menüeintrag im Verkausbeleg über den eine Sendungsverfolgung aufgerufen werden kann.
Wie bekomme ich die in den App-Designer gebastelt?
Bisherige Scriptanweisung:
Dim sQry 'As String
Dim sNummer 'As String
Dim oDataReader 'As clsDataReader
sQry = "SELECT USER_HTKVersandPaketnummern FROM KHKVkBelege Where KHKVkBelege.BelID = [$Bag:Beleg:lBelID]"
Set oDataReader = goInfo.Datenverbindung.oOpenDataReader(CStr(sQry))
If oDataReader.Read then
sNummer = oDataReader.GetString("USER_HTKVersandPaketnummern")
MsgBox "Öffne Sendungsverfolgung zu Paketnummer " & snummer
goAccess.Run "gbShellOpen", "https://nolb.dhl.de/nolb-easylog/directsst.do?v_benutzer=ZT29997&v_passwort=nord10&v_ic=" & sNummer & "&v_spr=deu"
End If
oDataReader.Close
Wie bekomme ich die in den App-Designer gebastelt?
Bisherige Scriptanweisung:
Dim sQry 'As String
Dim sNummer 'As String
Dim oDataReader 'As clsDataReader
sQry = "SELECT USER_HTKVersandPaketnummern FROM KHKVkBelege Where KHKVkBelege.BelID = [$Bag:Beleg:lBelID]"
Set oDataReader = goInfo.Datenverbindung.oOpenDataReader(CStr(sQry))
If oDataReader.Read then
sNummer = oDataReader.GetString("USER_HTKVersandPaketnummern")
MsgBox "Öffne Sendungsverfolgung zu Paketnummer " & snummer
goAccess.Run "gbShellOpen", "https://nolb.dhl.de/nolb-easylog/directsst.do?v_benutzer=ZT29997&v_passwort=nord10&v_ic=" & sNummer & "&v_spr=deu"
End If
oDataReader.Close