DATENSERVER Datenarchivarchiv

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -27,6 +27,10 @@ Public Class cDATENSERVER
     Public Property DATA_LIST As New cDatenserverIDCollectionList
 
     Dim rootDir = ""
+    Dim rootDirARCHIVARCHIV = ""
+
+    Dim TopMax = 0
+
     Dim SQL As New SQL
     ' Public LAST_ID = -1
 
@@ -34,11 +38,19 @@ Public Class cDATENSERVER
     Sub New(da_id)
         Me.da_id = da_id
         Me.rootDir = DATENVERVER_OPTIONS.initRootDir()
+        Me.rootDirARCHIVARCHIV = DATENVERVER_OPTIONS.initRootDirArchivArchiv()
         LOADById()
     End Sub
 
 
-
+    Sub New(da_kategorie, da_ordner, Optional TopMax = 0)
+        Me.rootDir = DATENVERVER_OPTIONS.initRootDir()
+        Me.da_KundenNr = da_KundenNr
+        Me.da_vorlage = 0 '(da_KundenNr <= 0)
+        Me.da_kategorie = da_kategorie
+        Me.da_ordner = da_ordner
+        LOAD()
+    End Sub
 
     Sub New(da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_name, Optional da_KundenNr = 0)
         Me.rootDir = DATENVERVER_OPTIONS.initRootDir()
@@ -54,7 +66,7 @@ Public Class cDATENSERVER
     End Sub
 
 
-    Sub New(da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_name, da_KundenNr, da_multifiles)
+    Sub New(da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_name, da_KundenNr, da_multifiles, Optional TopMax = 0)
         Me.rootDir = DATENVERVER_OPTIONS.initRootDir()
         Me.da_KundenNr = da_KundenNr
         Me.da_vorlage = 0 '(da_KundenNr <= 0)
@@ -65,6 +77,8 @@ Public Class cDATENSERVER
         Me.da_uOrdner3 = replaceInvalidCahr(If(da_uOrdner3, ""))
         Me.da_name = da_name
         Me.da_multifiles = da_multifiles
+        Me.TopMax = TopMax
+
         LOAD()
     End Sub
 
@@ -104,8 +118,10 @@ Public Class cDATENSERVER
         Try
             DATA_LIST = New cDatenserverIDCollectionList
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+                Dim top = ""
+                If TopMax > 0 Then top = " TOP (" & TopMax & ") "
                 'MsgBox("SELECT * FROM tblDatenarchiv WHERE da_KundenNr =  '" & Me.da_KundenNr & "' And da_kategorie = '" & Me.da_kategorie & "' And da_ordner ='" & Me.da_ordner & "' AND da_uOrdner1= '" & Me.da_uOrdner1 & "' AND da_uOrdner2= '" & Me.da_uOrdner2 & "' AND da_uOrdner3= '" & Me.da_uOrdner3 & "' AND da_name='" & Me.da_name & "' ")
-                Using cmd As New SqlCommand("SELECT * FROM tblDatenarchiv WHERE da_KundenNr = @da_KundenNr  AND da_kategorie = @da_kategorie AND da_ordner=@da_ordner AND da_uOrdner1= @da_uOrdner1 AND da_uOrdner2= @da_uOrdner2 AND da_uOrdner3= @da_uOrdner3 AND da_name=@da_name ", conn)
+                Using cmd As New SqlCommand("SELECT " & TopMax & " * FROM tblDatenarchiv WHERE da_KundenNr = @da_KundenNr  AND da_kategorie = @da_kategorie AND da_ordner=@da_ordner AND da_uOrdner1= @da_uOrdner1 AND da_uOrdner2= @da_uOrdner2 AND da_uOrdner3= @da_uOrdner3 AND da_name=@da_name ", conn)
                     cmd.Parameters.AddWithValue("@da_KundenNr", Me.da_KundenNr)
                     ' cmd.Parameters.AddWithValue("@da_vorlage", Me.da_vorlage)
                     cmd.Parameters.AddWithValue("@da_kategorie", Me.da_kategorie)
@@ -162,6 +178,35 @@ Public Class cDATENSERVER
         Return False
     End Function
 
+    Function moveTo_ARCHIVARCHIV()
+        Dim oldDIR = DATENVERVER_OPTIONS.getDescPath(rootDir, da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_KundenNr, "", "", True)
+
+        Dim newDIR = DATENVERVER_OPTIONS.getDescPath(rootDirARCHIVARCHIV, da_kategorie, da_ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, da_KundenNr, "", "", True)
+
+        Try
+            ' My.Computer.FileSystem.RenameDirectory(oldDIR, newname)
+            For Each li In DATA_LIST.LIST
+
+                MsgBox(oldDIR)
+                MsgBox(newDIR)
+
+                Dim newPfad = li.coll_pfad.Replace(oldDIR, newDIR)
+                MsgBox(li.coll_pfad)
+                MsgBox(newPfad)
+                If Not IO.Directory.Exists(newDIR) Then IO.Directory.CreateDirectory(newDIR)
+                My.Computer.FileSystem.CopyFile(li.coll_pfad, newPfad, True)
+                My.Computer.FileSystem.DeleteFile(li.coll_pfad)
+                li.coll_pfad = newPfad
+                If Not li.UPDATE() Then
+                    Return False
+                End If
+            Next
+            Return UPDATE()
+        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)
+        End Try
+        Return False
+    End Function
 
     Function UPDATE() As Boolean
         Try
@@ -1857,6 +1902,9 @@ Public Class DATENVERVER_OPTIONS
         Return False
     End Function
 
+    Shared Function initRootDirArchivArchiv() As String
+        initRootDirArchivArchiv = getRootDirArchivArchiv()
+    End Function
     Shared Function initRootDir() As String
         initRootDir = getRootDir()
     End Function
@@ -1885,6 +1933,20 @@ Public Class DATENVERVER_OPTIONS
             End If
         End If
     End Function
+    Shared Function getRootDirArchivArchiv(Optional TESTSYSTEM = Nothing) As String
+
+
+        Dim TS = If(TESTSYSTEM IsNot Nothing, TESTSYSTEM, VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM)
+
+        If TS Then
+            ' getRootDir = "\\192.168.0.91\DATENARCHIV\DATENARCHIV_TESTSYSTEM\"
+            getRootDirArchivArchiv = "\\stor01.verag.ost.dmn\DATENARCHIVArchiv\DATENARCHIV_TESTSYSTEM\"
+        Else
+            ' getRootDir = "\\192.168.0.91\DATENARCHIV\"
+            getRootDirArchivArchiv = "\\stor01.verag.ost.dmn\DATENARCHIVArchiv\"
+        End If
+
+    End Function
 
 
     Shared Function getDescPath(rootDir, kategorie, ordner, da_uOrdner1, da_uOrdner2, da_uOrdner3, kdnr, bezeichnung, endung, Optional onlyordner = False) As String