edv/SDL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

new

Browse Source
This commit is contained in:
Andreas Luxbauer
2021-09-07 08:46:12 +02:00
parent f2f992547d
commit 619a8c26bf
126 changed files with 7156 additions and 2215 deletions
Download Patch File Download Diff File Expand all files Collapse all files

31
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -143,13 +143,13 @@ Public Class cDATENSERVER
Try
' My.Computer.FileSystem.RenameDirectory(oldDIR, newname)
For Each l In DATA_LIST.LIST
Dim newPfad = l.coll_pfad.Replace(oldDIR, newDIR)
For Each li In DATA_LIST.LIST
Dim newPfad = li.coll_pfad.Replace(oldDIR, newDIR)
If Not IO.Directory.Exists(newDIR) Then IO.Directory.CreateDirectory(newDIR)
My.Computer.FileSystem.CopyFile(l.coll_pfad, newPfad, True)
My.Computer.FileSystem.DeleteFile(l.coll_pfad)
l.coll_pfad = newPfad
If Not l.UPDATE() Then
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
@@ -420,9 +420,9 @@ Public Class cDATENSERVER
End Function
Public Function OPEN(coll_id As Integer, Optional openFile As Boolean = True, Optional useBezeichnung As Boolean = False) As String
For Each l In DATA_LIST.LIST
If l.coll_id = coll_id Then
Return l.OPEN(openFile, useBezeichnung)
For Each li In DATA_LIST.LIST
If li.coll_id = coll_id Then
Return li.OPEN(openFile, useBezeichnung)
End If
Next
Return ""
@@ -1654,10 +1654,10 @@ Public Class cDatenserverIDCollectionList
Function DELETE_ATPOS(coll_id) As Boolean
Try
For Each l In LIST
If l.coll_id = coll_id Then
If l.DELETE() Then
LIST.Remove(l)
For Each li In LIST
If li.coll_id = coll_id Then
If li.DELETE() Then
LIST.Remove(li)
Return True
Else
Return False
@@ -1676,13 +1676,16 @@ Public Class cDatenserverIDCollectionList
End Class
Public Class DATENVERVER_OPTIONS
Public Shared TMP_PATH = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\DatenTMP\"
' Public Shared TMP_PATH = Environment.GetFolderPath(Environment.SpecialFolder.Personal) & "\VERAG\DatenTMP\"
Public Shared TMP_PATH = "C:\VeragTMP\USER_" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & "\"
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
' If Not IO.Directory.Exists(TMP_PATH) Then IO.Directory.CreateDirectory(TMP_PATH)
Dim TMP_PATH2 = TMP_PATH & If(unterOrdner <> "", "\" & unterOrdner & "\", "")
TMP_PATH2 = TMP_PATH2.replace("\\", "\")
If Not My.Computer.FileSystem.DirectoryExists(TMP_PATH2) Then