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

4
SDL/kunden/usrCntlKundenuebersicht.vb
View File

@@ -1366,7 +1366,7 @@ Public Class usrCntlKundenuebersicht
Dim tmprowindex As Integer = e.RowIndex
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
Case "VERAG"
Case "VERAG", "FRONTOFFICE"
If tmprowindex >= 0 Then
If dgvVollmachten.Columns(e.ColumnIndex).Name = "clmnTherefore" Then
If dgvVollmachten.Rows(e.RowIndex).Cells("kdvma_Id").Value Is DBNull.Value Then Exit Sub
@@ -1699,6 +1699,7 @@ Public Class usrCntlKundenuebersicht
Dim f As New frmInfo
f.Controls.Clear()
Dim WebBrowser As New VERAG_PROG_ALLGEMEIN.Kleinma.Controls.WebBrowserEx
WebBrowser.ScriptErrorsSuppressed = True
f.Controls.Add(WebBrowser)
f.Visible = False
f.WindowState = FormWindowState.Minimized
@@ -1726,6 +1727,7 @@ Public Class usrCntlKundenuebersicht
Sub printURL(url)
Dim WebBrowser As New VERAG_PROG_ALLGEMEIN.Kleinma.Controls.WebBrowserEx
WebBrowser.ScriptErrorsSuppressed = True
WebBrowser.Navigate(New Uri(url))
WebBrowser.AllowNavigation = True
'WebBrowser.Print()