edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-06-04 22:19:41 +02:00
parent 083e666fbc
commit f4e823ec69
15 changed files with 526 additions and 93 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
SDL/kunden/Vorauskasse/frmVorauskasse.vb
View File

@@ -493,11 +493,18 @@
If WebBrowser.ReadyState = WebBrowserReadyState.Complete Then
Try
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG"
WebBrowser.Document.GetElementById("txtBenutzerkennung").SetAttribute("value", "260896385")
WebBrowser.Document.GetElementById("pwdPin").SetAttribute("value", "Frjuverag361224!")
WebBrowser.Document.GetElementById("txtBenutzerkennung").SetAttribute("value", "261016389")
WebBrowser.Document.GetElementById("pwdPin").SetAttribute("value", "Frontoffice2020")
WebBrowser.Document.GetElementById("xview-anmelden").InvokeMember("click")
Case "FRONTOFFICE"
WebBrowser.Document.GetElementById("txtBenutzerkennung").SetAttribute("value", "261016389")
WebBrowser.Document.GetElementById("pwdPin").SetAttribute("value", "Frontoffice2020")
WebBrowser.Document.GetElementById("xview-anmelden").InvokeMember("click")
WebBrowser.Document.GetElementById("xview-anmelden").InvokeMember("click")
End Select
Catch ex As Exception