neu

2020-06-22 13:33:07 +02:00
parent f4e823ec69
commit 9b52ab1b61
43 changed files with 1985 additions and 250 deletions
--- a/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
+++ b/VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
@@ -93,7 +93,7 @@ Public Class cDATENSERVER
            End Using
            Return True
        Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
        Return False
    End Function
@@ -126,7 +126,7 @@ Public Class cDATENSERVER
            End Using
            Return True
        Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
        Return False
    End Function
@@ -155,7 +155,7 @@ Public Class cDATENSERVER
            Next
            Return UPDATE()
        Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
        Return False
    End Function
@@ -185,7 +185,7 @@ Public Class cDATENSERVER
            End Using
            Return True
        Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(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
    End Function
@@ -214,6 +214,7 @@ Public Class cDATENSERVER

        Dim destpath = DATENVERVER_OPTIONS.getDescPath(rootDir, da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_KundenNr, replaceInvalidCahr(da_name), endung)
        genHEADER_DATA()
+
        If Not da_multifiles Then
            If allowMsg AndAlso DATA_LIST.LIST.Count > 0 Then
                If Not vbYes = MsgBox("Die Datei existiert bereits. Soll die Datei ersetzt werden?", vbYesNoCancel) Then
@@ -224,6 +225,8 @@ Public Class cDATENSERVER
        End If

        If DATA_LIST.ADD(srcPath, destpath, bezeichnung, "", coll_archiv) Then
+            Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+
            Return (destpath <> "")
        End If
        Return False
@@ -253,7 +256,7 @@ Public Class cDATENSERVER

    Public Function uploadDataToDATENSERVER_fromBytes(bytes, Optional bezeichnung = "", Optional endung = "", Optional allowMsg = True, Optional coll_archiv = False) As Boolean
        Try
-            Dim tmpPath = DATENVERVER_OPTIONS.getTMPPath(bezeichnung, endung, , False)
+            Dim tmpPath = DATENVERVER_OPTIONS.getTMPPath(bezeichnung, endung, , True) ', Now.ToString("TMP_ddMMyyyy_HHmmSS_fff")) 
            File.WriteAllBytes(tmpPath, bytes)
            Return uploadDataToDATENSERVER(tmpPath, bezeichnung, endung, allowMsg, coll_archiv)
        Catch ex As Exception
@@ -262,6 +265,15 @@ Public Class cDATENSERVER
    End Function


+    Public Function uploadDataToDATENSERVER_fromBase64String(base64String, Optional bezeichnung = "", Optional endung = "", Optional allowMsg = True, Optional coll_archiv = False) As Boolean
+        Try
+            Dim bytes As Byte() = Convert.FromBase64String(base64String)
+            Return uploadDataToDATENSERVER_fromBytes(bytes, bezeichnung, endung, allowMsg, coll_archiv)
+        Catch ex As Exception
+            Return False
+        End Try
+    End Function
+
    Public Function DELETE_LIST_POS(coll_id) As Boolean
        Return DATA_LIST.DELETE_ATPOS(coll_id)
    End Function
@@ -350,7 +362,7 @@ Public Class cDATENSERVER
                        " VALUES (@da_KundenNr, @da_vorlage, @da_kategorie, @da_ordner, @da_uOrdner1,@da_uOrdner2,@da_uOrdner3,@da_name,@da_info,@da_multifiles)" &
             " End " &
             " commit tran "
-    
+
        Try
            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
                Using cmd As New SqlCommand(sqlstr, conn)
@@ -426,6 +438,10 @@ Public Class cDATENSERVER
        Return DS.GET_TOP1_PATH(openFile)
    End Function

+    Public Shared Function GET_PDFPath_BY_DocID_onlyPATH(docId As Integer) As String
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Return SQL.getValueTxtBySql("SELECT TOP (1) [coll_pfad]  FROM [tblDatenarchiv_Collection] where coll_daId=" & docId & " ORDER BY coll_date DESC", "FMZOLL")
+    End Function



@@ -973,8 +989,8 @@ Public Class cFormularManager
        Dim gr_dest As Graphics = Graphics.FromImage(bm_dest)

        ' Copy the source image into the destination bitmap.
-        gr_dest.DrawImage(bm_source, 0, 0, _
-            bm_dest.Width + 1, _
+        gr_dest.DrawImage(bm_source, 0, 0,
+            bm_dest.Width + 1,
            bm_dest.Height + 1)

        ' Display the result.
@@ -991,8 +1007,8 @@ Public Class cFormularManager
        Dim gr_dest As Graphics = Graphics.FromImage(bm_dest)

        ' Copy the source image into the destination bitmap.
-        gr_dest.DrawImage(bm_source, 0, 0, _
-            bm_dest.Width + 1, _
+        gr_dest.DrawImage(bm_source, 0, 0,
+            bm_dest.Width + 1,
            bm_dest.Height + 1)

        ' Display the result.
@@ -1351,7 +1367,7 @@ Public Class cDatenarchiv_Collection
                End If
            End If
        Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
        Return False
    End Function
@@ -1399,7 +1415,7 @@ Public Class cDatenarchiv_Collection
            End Using
            Return True
        Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(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 -1
        End Try
    End Function
@@ -1423,7 +1439,7 @@ Public Class cDatenarchiv_Collection
            End Using
            Return True
        Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(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
    End Function
@@ -1489,11 +1505,11 @@ Public Class cDatenserverIDCollectionList
                End Using
            End Using
        Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Sub

-  
+

    Public Function getMaxId() As Integer
        getMaxId = -1
@@ -1508,7 +1524,7 @@ Public Class cDatenserverIDCollectionList
                End Using
            End Using
        Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Function

@@ -1527,12 +1543,13 @@ Public Class cDatenserverIDCollectionList
                    ' Wenn beim Kopieren ein Fehler aufgetreten ist, wird der DB_Eintrag gelöscht,
                    ' der Eintrag wird nicht in die Liste aufgenommen.
                    l.DELETE()
-                    MsgBox(errorMsg)
+                    VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(errorMsg, errorMsg, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+
                    Return False
                End If
            End If
        Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(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
        Return True
@@ -1548,7 +1565,7 @@ Public Class cDatenserverIDCollectionList
                lastID = l.coll_id
            End If
        Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(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
        Return True
@@ -1586,7 +1603,7 @@ Public Class cDatenserverIDCollectionList
            End If
            Return True
        Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(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
    End Function
@@ -1608,7 +1625,7 @@ Public Class cDatenserverIDCollectionList
            Next
            Return True
        Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(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
    End Function
@@ -1621,6 +1638,10 @@ Public Class DATENVERVER_OPTIONS
    Public Shared TMP_PATH = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\DatenTMP\"

    Shared Function getTMPPath(name As String, extension As String, Optional special As Boolean = False, Optional delete As Boolean = True, Optional unterOrdner As String = "") As String
+        If Environment.GetFolderPath(Environment.SpecialFolder.Personal) = "" Then ' WEB_SERV
+            TMP_PATH = Path.GetTempPath() & "\VERAG\DatenTMP\"
+        End If
+
        Dim TMP_PATH2 = TMP_PATH & If(unterOrdner <> "", "\" & unterOrdner & "\", "")
        TMP_PATH2 = TMP_PATH2.replace("\\", "\")
        If Not My.Computer.FileSystem.DirectoryExists(TMP_PATH2) Then
@@ -1728,7 +1749,7 @@ Public Class DATENVERVER_OPTIONS
            'MsgBox("Der Ordner existiert nicht!")
            ' End If
        Catch ex As Exception
-            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, "Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try

        Return False
@@ -1741,6 +1762,7 @@ Public Class DATENVERVER_OPTIONS

    Shared Function getRootDir(Optional TESTSYSTEM = Nothing) As String

+
        Dim TS = If(TESTSYSTEM IsNot Nothing, TESTSYSTEM, VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)

        If VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA = "UNISPED" Then
@@ -1764,20 +1786,21 @@ Public Class DATENVERVER_OPTIONS


    Shared Function getDescPath(rootDir, kategorie, ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, kdnr, bezeichnung, endung, Optional onlyordner = False) As String
-        If kdnr Is Nothing Then MsgBox("Keine Kundennummer angegeben!") : Return False
-        If ordner Is Nothing Then MsgBox("Kein Ordner angegeben!") : Return False
+        Try
+            If kdnr Is Nothing Then MsgBox("Keine Kundennummer angegeben!") : Return ""
+            If ordner Is Nothing Then MsgBox("Kein Ordner angegeben!") : Return ""
        Dim dateiName = ""
        If Not onlyordner Then
-            If bezeichnung Is Nothing Then MsgBox("Keine Bezeichnung angegeben!") : Return False
+            If bezeichnung Is Nothing Then MsgBox("Keine Bezeichnung angegeben!") : Return ""
            dateiName = Now.ToString("yyyyMMdd_HHmmss_") & bezeichnung
        End If

-        Dim kdnr_path = ""
+            Dim kdnr_path = ""
        If kdnr IsNot Nothing AndAlso IsNumeric(kdnr) AndAlso kdnr > 0 Then
            kdnr_path = kdnr
        End If

-        If kategorie <> "" Then
+            If kategorie <> "" Then
            Dim dir = ""
            dir &= rootDir
            dir &= kategorie & "\"
@@ -1787,23 +1810,31 @@ Public Class DATENVERVER_OPTIONS
            dir &= If(da_uOrdner2 IsNot Nothing AndAlso da_uOrdner2 <> "", da_uOrdner2 & "\", "")
            dir &= If(da_uOrdner3 IsNot Nothing AndAlso da_uOrdner3 <> "", da_uOrdner3 & "\", "")
            If Not onlyordner Then
-                If Not IO.Directory.Exists(dir) Then IO.Directory.CreateDirectory(dir)
+                    If Not IO.Directory.Exists(dir) Then
+                        IO.Directory.CreateDirectory(dir)
+                    End If

-                Dim zusatz = "" : Dim zusatzcnt = 1
-                While IO.File.Exists(dir & dateiName & zusatz & If(bezeichnung.ToString.EndsWith(endung), "", endung))
-                    zusatz = "_" & zusatzcnt
-                    zusatzcnt += 1
-                End While

-                dir &= dateiName & zusatz & If(bezeichnung.ToString.EndsWith(endung), "", endung)
-            End If
-            Return dir
+                    Dim zusatz = "" : Dim zusatzcnt = 1
+                        While IO.File.Exists(dir & dateiName & zusatz & If(bezeichnung.ToString.EndsWith(endung), "", endung))
+                            zusatz = "_" & zusatzcnt
+                            zusatzcnt += 1
+                        End While
+
+                    dir &= dateiName & zusatz & If(bezeichnung.ToString.EndsWith(endung), "", endung)
+                    End If
+
+                Return dir
        Else
            If Not onlyordner Then
                If Not IO.Directory.Exists(rootDir & "DOKUMENTE\KEINE_ZUORDNUNG\" & kdnr_path & "\") Then IO.Directory.CreateDirectory(rootDir & "DOKUMENTE\KEINE_ZUORDNUNG\" & kdnr_path & "\")
            End If
            Return rootDir & "DOKUMENTE\KEINE_ZUORDNUNG\" & kdnr_path & "\" & dateiName
        End If
+        Catch ex As Exception
+        VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(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 ""
+        End Try
    End Function

    Shared Function OPEN_PATH(path As String) As Boolean