Fiskaluebersicht

VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb

@@ -7,8 +7,18 @@ Public Class cFiskalkunden
     Property FK_Kdnr As Object = Nothing
     Property FK_Datum As Object = Nothing
     Property FK_Art As Object = Nothing
-
     Property FK_locked As Object = Nothing
+    Property FK_Homepage As Object = Nothing
+    Property FK_Bonitaet As Object = Nothing
+    Property FK_Vollmacht As Object = Nothing
+    Property FK_UID As Object = Nothing
+    Property FK_EORI As Object = Nothing
+    Property FK_Homepage_URL As Object = Nothing
+    Property FK_Homepage_PDF As Object = Nothing
+    Property FK_DatenarchivId As Object = Nothing
+    Property FK_MaId As Object = Nothing
+    Property FK_Abschlussdatum As Object = Nothing
+    Property FK_Anmerkung As Object = Nothing
 
     Public hasEntry = False
 
@@ -29,6 +39,18 @@ Public Class cFiskalkunden
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Kdnr", FK_Kdnr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Datum", FK_Datum))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Art", FK_Art))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_locked", FK_locked))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Homepage", FK_Homepage))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Bonitaet", FK_Bonitaet))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Vollmacht", FK_Vollmacht))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_UID", FK_UID))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_EORI", FK_EORI))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Homepage_URL", FK_Homepage_URL))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Homepage_PDF", FK_Homepage_PDF))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_DatenarchivId", FK_DatenarchivId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Anmerkung", FK_Anmerkung))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Abschlussdatum", FK_Abschlussdatum))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_MaId", FK_MaId))
 
         Return list
     End Function
@@ -51,7 +73,7 @@ Public Class cFiskalkunden
         Try
             hasEntry = False
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
-                Using cmd As New SqlCommand("SELECT * FROM tblTABLE WHERE FK_Id=@FK_Id  ", conn)
+                Using cmd As New SqlCommand("SELECT * FROM tblFiskalkunden WHERE FK_Id=@FK_Id  ", conn)
                     cmd.Parameters.AddWithValue("@FK_Id", FK_Id)
                     Dim dr = cmd.ExecuteReader()
                     If dr.Read Then
@@ -117,6 +139,24 @@ Public Class cFiskalkunden
         Return ""
     End Function
 
+    Public Function deleteEntry(ByVal FK_Id As Integer) As Boolean
+
+        Dim sql = "DELETE FROM tblFiskalkunden WHERE FK_Id=@FK_Id"
+
+        Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
+            Using cmd As New SqlCommand(sql, conn)
+                cmd.Parameters.AddWithValue("@FK_Id", FK_Id)
+                Try
+                    cmd.ExecuteNonQuery()
+                    Return True
+                Catch ex As SqlException
+                    MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen")
+                End Try
+            End Using
+        End Using
+        Return False
+    End Function
+
 End Class