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

Gestellugnsgarantien und Certräge -> UsrCntl gebaut; Anhangsarten, Vermerke entgültig löschen

Browse Source
This commit is contained in:
d.breimaier
2023-04-18 13:15:15 +02:00
parent 96e3848aed
commit dae030a193
15 changed files with 1185 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb
View File

@@ -209,7 +209,7 @@ Public Class cDATENSERVER
Return s
End Function
Public Function uploadDataToDATENSERVER(srcPath, Optional bezeichnung = "", Optional endung = "", Optional allowMsg = True, Optional coll_archiv = False, Optional delteFromFileSystem = True) As Boolean
Public Function uploadDataToDATENSERVER(srcPath, Optional bezeichnung = "", Optional endung = "", Optional allowMsg = True, Optional coll_archiv = False, Optional delteFromFileSystem = True, Optional enableOverwritting = False) As Boolean
'LAST_ID = -1
If endung = "" Then Dim fi As New IO.DirectoryInfo(srcPath) : endung = fi.Extension
' If bezeichnung = "" Then bezeichnung = System.IO.Path.GetFileName(srcPath) : endung = ""
@@ -219,7 +219,7 @@ Public Class cDATENSERVER
genHEADER_DATA()
If Not da_multifiles Then
If allowMsg AndAlso DATA_LIST.LIST.Count > 0 Then
If allowMsg AndAlso (DATA_LIST.LIST.Count > 0 And Not enableOverwritting) Then
If Not vbYes = MsgBox("Die Datei existiert bereits. Soll die Datei ersetzt werden?", vbYesNoCancel) Then
Return False 'NICHT Passiert
End If