picture

VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb

@@ -392,7 +392,7 @@ Public Class cADMIN
             End Using
             dr.Close()
         Catch ex As Exception
-            MsgBox("Fehler mit der Datenbankverbindung.", "Datenbankfehler")
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR("Fehler mit der Datenbankverbindung. " & ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
             Return False
         End Try
 

VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyTextBox.vb

@@ -129,7 +129,7 @@ Public Class MyTextBox
         AddHandler pb.Click, AddressOf linkclicked
     End Sub
     Public Sub addNowBtnToDate2()
-        Dim tb = Me
+        Dim tb As MyTextBox = Me
         Dim pb As New MyLinkPicBoxVALUE
         tb.Parent.Controls.Add(pb)
         pb.Tag = "Heute"
@@ -223,7 +223,7 @@ Public Class MyTextBox
         End Try
     End Sub
     Public Sub addPicToGueltigBis()
-        Dim tb = Me
+        Dim tb As MyTextBox = Me
         Dim pb As New MyLinkPicBoxVALUE
         tb.Parent.Controls.Add(pb)
         pb.Tag = "Gültig Bis"

VERAG_PROG_ALLGEMEIN/Classes/cSendMailAttach.vb

@@ -249,7 +249,7 @@ Namespace Fsolutions.Fbase.Common.Mail
                     binaryWriter.Write(System.Text.Encoding.UTF8.GetBytes("X-Unsent: 1" & Environment.NewLine))
                 End If
 
-                Dim assembly = GetType(SmtpClient).Assembly
+                Dim assembly As Assembly = GetType(SmtpClient).Assembly
                 Dim mailWriterType = assembly.[GetType]("System.Net.Mail.MailWriter")
                 Dim mailWriterContructor = mailWriterType.GetConstructor(BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, {GetType(Stream)}, Nothing)
                 Dim mailWriter = mailWriterContructor.Invoke(New Object() {filestream})

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -854,7 +854,7 @@ Public Class cFormularManager
         Try
             Dim DS As New cDATENSERVER(da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_name)
             If Not DS.hasITEMS Then Return ""
-            Dim path_src = DS.OPEN_SINGLE(False)
+            Dim path_src As String = DS.OPEN_SINGLE(False)
             If path_src = "" Then Return ""
 
             Dim fi As New System.IO.DirectoryInfo(path_src)
@@ -978,7 +978,7 @@ Public Class cFormularManager
 
             Dim DS As New cDATENSERVER(da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_name)
             If Not DS.hasITEMS Then Return list
-            Dim path_src = DS.OPEN_SINGLE(False)
+            Dim path_src As String = DS.OPEN_SINGLE(False)
             If path_src = "" Then Return list
 
             Dim fi As New System.IO.DirectoryInfo(path_src)
@@ -1028,7 +1028,7 @@ Public Class cFormularManager
 
     Public Function fillPDF(da_kategorie As String, da_ordner As String, da_uOrdner1 As String, da_uOrdner2 As String, da_uOrdner3 As String, da_name As String, listToWrite As List(Of cPDFWriteValues), Optional editierbar As Boolean = True, Optional autoDruck As Boolean = False, Optional printerName As String = "", Optional genNewPath As Boolean = True, Optional vorhandenesLokalesPDF_Path As String = "", Optional barcode As List(Of barcodeToPdf) = Nothing) As String
         Try
-            Dim path_src = ""
+            Dim path_src As String = ""
             If vorhandenesLokalesPDF_Path = "" Then
                 Dim DS As New cDATENSERVER(da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_name)
                 If Not DS.hasITEMS Then Return ""
@@ -1395,7 +1395,7 @@ Public Class cFormularManager
 
             'If Not VERAG_PROG_ALLGEMEIN.cProgramFunctions.spireLoadLicense() Then MsgBox("Fehler beim Laden der SPIRE-Lizenz")
 
-            For Each pdfPath In PDFFile
+            For Each pdfPath As String In PDFFile
 
                 Dim doc As New Spire.Pdf.PdfDocument(pdfPath)
 

VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb

@@ -846,7 +846,7 @@ Public Class cATEZ_NCTS_IN
         VERAG_PROG_ALLGEMEIN.cATEZ_NCTS_Routen.LOAD_LIST_ByNCTS(Route_LIST, ncts.Id)
 
         Dim i As Integer = 0
-        For Each route In Route_LIST
+        For Each route As cATEZ_NCTS_Routen In Route_LIST
             success = jsonData.UpdateString("Route[" & i & "].Country", route.Route_Country)
             i = i + 1
         Next

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -38,7 +38,7 @@
     <GenerateSerializationAssemblies>Off</GenerateSerializationAssemblies>
   </PropertyGroup>
   <PropertyGroup>
-    <OptionExplicit>On</OptionExplicit>
+    <OptionExplicit>Off</OptionExplicit>
   </PropertyGroup>
   <PropertyGroup>
     <OptionCompare>Binary</OptionCompare>
@@ -47,7 +47,7 @@
     <OptionStrict>Off</OptionStrict>
   </PropertyGroup>
   <PropertyGroup>
-    <OptionInfer>On</OptionInfer>
+    <OptionInfer>Off</OptionInfer>
   </PropertyGroup>
   <PropertyGroup Condition="'$(Configuration)|$(Platform)' == 'Debug|x64'">
     <DebugSymbols>true</DebugSymbols>

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -246,7 +246,7 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
             wb.Worksheets(0).Tables.FirstOrDefault().ShowAutoFilter = ShowAutoFilter
 
             If rangeAsWaehrung IsNot Nothing Then
-                For Each r In rangeAsWaehrung
+                For Each r As IXLRangeAddress In rangeAsWaehrung
                     Try
                         wb.Worksheets(0).Range(r).Style.NumberFormat.SetFormat("###,###,##0.00 €")
                     Catch ex As Exception