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

VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb

@@ -2140,7 +2140,6 @@ Public Class cVermerkeDAL
 
     Public Function SpeichernVermerkIDAufgehoben(VermerkID, VermerkIDAufgehoben) As Boolean
         Dim SQLstr As String = " UPDATE Vermerke SET VermerkIDAufgehoben = @VermerkIDAufgehoben WHERE VermerkID = @VermerkID"
-        'MsgBox("UPDATE Vermerke SET VermerkIDAufgehoben = " & VermerkIDAufgehoben & " WHERE VermerkID = " & VermerkID & "")
         Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
         Using cmd As New SqlCommand(SQLstr, conn)
             cmd.Parameters.AddWithValue("@VermerkID", VermerkID)
@@ -2157,6 +2156,21 @@ Public Class cVermerkeDAL
         Return False
     End Function
 
+    Public Sub togglegeloescht(ByVal hID As Integer)
+        Dim sql = String.Format("UPDATE Vermerke SET Geloescht=Geloescht-1 WHERE VermerkID = {0}", hID)
+
+        Dim conn As SqlConnection = cDatenbankAVISO.GetNewOpenConnection()
+        Using cmd As New SqlCommand(sql, conn)
+            Try
+                cmd.ExecuteNonQuery()
+            Catch ex As SqlException
+                MsgBox("Gelöscht kann nicht gesetzt werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen")
+            End Try
+        End Using
+        conn.Close()
+
+    End Sub
+
 
     Public Sub UpdateLKW(ByVal avisoID As Integer, ByVal LKW_fertig As Boolean)
 

VERAG_PROG_ALLGEMEIN/Classes/cAvisoAnhangsarten.vb

@@ -0,0 +1,164 @@
+Imports System.Data.SqlClient
+Imports System.Reflection
+
+
+
+Public Class cAvisoAnhangsarten_LIST
+    Public LIST As New List(Of cAvisoAnhangsarten)
+
+    Sub New()
+        LOAD_LIST()
+    End Sub
+    Public Sub LOAD_LIST()
+        Try
+            LIST.Clear()
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
+                Using cmd As New SqlCommand("SELECT * FROM [tblAvisoAnhangsArten] ", conn)
+
+                    '  cmd.Parameters.AddWithValue("@OffertenNr", OffertenNr)
+                    Dim dr = cmd.ExecuteReader()
+                    While dr.Read
+                        Dim l As New cAvisoAnhangsarten
+                        For Each i In l.getParameterList()
+                            Dim propInfo As PropertyInfo = l.GetType.GetProperty(i.Scalarvariable)
+                            If dr.Item(i.Text) Is DBNull.Value Then
+                                propInfo.SetValue(l, Nothing)
+                            Else
+                                propInfo.SetValue(l, dr.Item(i.Text))
+                            End If
+                        Next
+                        LIST.Add(l)
+
+                    End While
+                    dr.Close()
+                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)
+        End Try
+    End Sub
+End Class
+
+
+
+Public Class cAvisoAnhangsarten
+    Property aa_id As Integer
+    Property aa_name As Object = Nothing
+    Property aa_sort As Object = Nothing
+    Property aa_isBrexti As Object = Nothing
+    Property aa_aktiv As Object = Nothing
+    Property aa_bezeichnung As Object = Nothing
+    Property aa_firma As Object = Nothing
+
+    Public hasEntry = False
+
+    Dim SQL As New SQL
+
+
+    Sub New()
+
+    End Sub
+
+    Sub New(aa_id)
+        Me.aa_id = aa_id
+        LOAD()
+    End Sub
+    Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aa_id", aa_id,, True))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aa_name", aa_name))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aa_sort", aa_sort))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aa_isBrexti", aa_isBrexti))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aa_aktiv", aa_aktiv))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aa_bezeichnung", aa_bezeichnung))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("aa_firma", aa_firma))
+
+        Return list
+    End Function
+
+
+
+    Public Function SAVE() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblAvisoAnhangsArten]  WHERE aa_id=@aa_id) " &
+                       " BEGIN " & getUpdateCmd() & " END " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " END " &
+                       " commit tran "
+
+        Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
+    End Function
+
+    Public Sub LOAD()
+        Try
+            hasEntry = False
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
+                Using cmd As New SqlCommand("SELECT * FROM [tblAvisoAnhangsArten] WHERE aa_id=@aa_id  ", conn)
+                    cmd.Parameters.AddWithValue("@aa_id", aa_id)
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        For Each li In getParameterList()
+                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(li.Scalarvariable)
+
+                            If dr.Item(li.Text) Is DBNull.Value Then
+                                propInfo.SetValue(Me, Nothing)
+                            Else
+                                propInfo.SetValue(Me, dr.Item(li.Text))
+                            End If
+
+                        Next
+                        hasEntry = True
+                    End If
+                    dr.Close()
+                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)
+        End Try
+    End Sub
+
+
+
+    Public Function getUpdateCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+            Dim str As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            Return (" UPDATE [tblAvisoAnhangsArten] SET " & str & " WHERE aa_id=@aa_id ")
+
+        Catch ex As Exception
+                MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            End Try
+            Return ""
+        End Function
+
+
+        Public Function getInsertCmd() As String
+            Try
+                Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+                Dim str As String = ""
+                Dim values As String = ""
+                For Each i In list
+                    If Not i.isPrimaryParam Then
+                        str &= "[" & i.Text & "],"
+                        values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                    End If
+                Next
+                str = str.Substring(0, str.Length - 1) 'wg. ','
+                values = values.Substring(0, values.Length - 1) 'wg. ','
+            Return (" INSERT INTO [tblAvisoAnhangsArten]  (" & str & ") VALUES(" & values & ")  ")
+        Catch ex As Exception
+                MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+            End Try
+            Return ""
+        End Function
+
+    End Class
+

VERAG_PROG_ALLGEMEIN/Classes/cGestellungsgarantien.vb

@@ -54,6 +54,19 @@ Public Class cGestellungsgarantien
         Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
     End Function
 
+    Public Function SAVEOBJECT() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM tblGestellungsgarantien With(updlock, serializable) WHERE gg_Id=@gg_Id) " &
+                       " BEGIN " & getUpdateCmd() & " End " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " End " &
+                       " commit tran "
+
+        gg_Id = SQL.doSQLVarListID(gg_Id, sqlstr, "FMZOLL", , list)
+        Return gg_Id
+    End Function
+
     Public Sub LOAD()
         Try
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()

VERAG_PROG_ALLGEMEIN/Classes/cKundenVertraege.vb

@@ -55,6 +55,19 @@ Public Class cKundenVertraege
         Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
     End Function
 
+    Public Function SAVEOBJECT() As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM tblKundenVertraege With(updlock, serializable) WHERE kv_Id=@kv_Id) " &
+                       " BEGIN " & getUpdateCmd() & " End " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " End " &
+                       " commit tran "
+
+        kv_Id = SQL.doSQLVarListID(kv_Id, sqlstr, "FMZOLL", , list)
+        Return kv_Id
+    End Function
+
     Public Sub LOAD()
         Try
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -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

VERAG_PROG_ALLGEMEIN/VERAG_PROG_ALLGEMEIN.vbproj

@@ -324,6 +324,7 @@
     <Compile Include="Classes\cAPI.vb" />
     <Compile Include="Classes\cAufschubKonten.vb" />
     <Compile Include="Classes\cAvisoAnhaenge.vb" />
+    <Compile Include="Classes\cAvisoAnhangsarten.vb" />
     <Compile Include="Classes\cAvisoBenachrichtigungen.vb" />
     <Compile Include="Classes\cBesuchsbericht.vb" />
     <Compile Include="Classes\cBonitaetsauskunft.vb" />