neu

SDL/kunden/usrCntlKundenuebersicht.vb

@@ -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()