Fiskalkübersicht

2023-05-24 17:18:23 +02:00
parent a88357d646
commit a508c89c3a
10 changed files with 1870 additions and 157 deletions
--- a/VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb
@@ -32,9 +32,6 @@ Public Class cFiskalkunden



-
-
-
    Public hasEntry = False

    Dim SQL As New SQL
@@ -61,8 +58,8 @@ Public Class cFiskalkunden
        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_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))
@@ -71,11 +68,11 @@ Public Class cFiskalkunden
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Zwischenhaendler", FK_Zwischenhaendler))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Waren", FK_Waren))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Gruendungsdatum", FK_Gruendungsdatum))
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_AnzahlMitarbeiter", FK_MaId))
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Geschaeftszweck", FK_Lieferanten))
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_KreditMax", FK_Empfaenger))
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Geschaeftsfuehrer", FK_Zwischenhaendler))
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Gesellschafter", FK_Waren))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_AnzahlMitarbeiter", FK_AnzahlMitarbeiter))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Geschaeftszweck", FK_Geschaeftszweck))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_KreditMax", FK_KreditMax))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Geschaeftsfuehrer", FK_Geschaeftsfuehrer))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("FK_Gesellschafter", FK_Gesellschafter))

        Return list
    End Function
--- a/VERAG_PROG_ALLGEMEIN/Classes/cFiskalkundenAnhaenge.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cFiskalkundenAnhaenge.vb
@@ -8,15 +8,15 @@ Public Class cFiskalkundenAnhaenge
    Property fka_fkId As Integer
    Property fka_Name As String
    Property fka_docId As Integer
-    Property fka_ArtId As Object = Nothing
+    Property fka_Art As Object = Nothing
    Property fka_Datum As Object = Nothing

    Public hasEntry As Boolean = False

-        Dim SQL As New SQL
+    Dim SQL As New SQL

-        Sub New()
-        End Sub
+    Sub New()
+    End Sub

    Sub New(fka_id As Integer)
        Me.fka_id = fka_id
@@ -24,46 +24,53 @@ Public Class cFiskalkundenAnhaenge

    End Sub

-    Sub New(fka_Name, anh_docId, anh_Art, anh_Typ)
+    Sub New(fka_Name, fka_docId, fka_Art)

        Me.fka_Name = fka_Name
        Me.fka_docId = fka_docId
-        Me.fka_ArtId = fka_ArtId
+        Me.fka_Art = fka_Art
+        LOAD()

    End Sub


    Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
-            Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_id", fka_id, , True, True))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_KdNr", fka_KdNr))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_Name", fka_Name))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_docId", fka_docId))
-        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_ArtId", fka_ArtId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_Art", fka_Art))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_Datum", fka_Datum))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("fka_fkId", fka_fkId))

        Return list
-        End Function
+    End Function


-    Shared Sub LOAD_LIST_ByKdNr(ByRef ANH_LIST As List(Of cFiskalkundenAnhaenge), fka_KdNr As Integer, fka_fkId As Integer)
-        If ANH_LIST Is Nothing Then ANH_LIST = New List(Of cFiskalkundenAnhaenge)
+    Shared Function LOAD_LIST_ByKdNr(fka_KdNr As Integer, fka_fkId As Integer, fka_Art As String) As List(Of cFiskalkundenAnhaenge)
+        Dim ANH_LIST = New List(Of cFiskalkundenAnhaenge)
        ANH_LIST.Clear()
        Dim SQL As New SQL
-        For Each r In SQL.loadDgvBySql("SELECT fka_id FROM [tblFiskalkundenAnhaenge] WHERE fka_KdNr=" & fka_KdNr & " And fka_fkId = " & fka_fkId & " ORDER BY fka_id, fka_ArtId", "AVISO").Rows
-            ANH_LIST.Add(New VERAG_PROG_ALLGEMEIN.cFiskalkundenAnhaenge(r("fka_id")))
-        Next
+        Dim dgv = SQL.loadDgvBySql("SELECT fka_id FROM [tblFiskalkundenAnhaenge] WHERE fka_KdNr=" & fka_KdNr & " And fka_fkId = " & fka_fkId & " And fka_Art = " & fka_Art & " ORDER BY fka_Datum desc", "AVISO")
+        If dgv IsNot Nothing Then
+            For Each r In dgv.Rows

-    End Sub
+                ANH_LIST.Add(New VERAG_PROG_ALLGEMEIN.cFiskalkundenAnhaenge(r("fka_id")))
+            Next
+        End If
+
+        Return ANH_LIST
+
+    End Function

    Public Function SAVE(Optional errHinweis = "") As Boolean
            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()

-        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblFiskalkundenAnhaenge] WITH(updlock,serializable) WHERE fka_id=@fka_id) " &
-                           " BEGIN " & getUpdateCmd() & " END " &
+        Dim sqlstr = " BEGIN TRAN If EXISTS(Select * FROM [tblFiskalkundenAnhaenge] With(updlock, serializable) WHERE fka_id=@fka_id) " &
+                           " BEGIN " & getUpdateCmd() & " End " &
                           " Else " &
-                           " BEGIN " & getInsertCmd() & " END " &
+                           " BEGIN " & getInsertCmd() & " End " &
                           " commit tran "

        fka_id = SQL.doSQLVarListID(fka_id, sqlstr, "AVISO", , list,, errHinweis)
@@ -73,8 +80,8 @@ Public Class cFiskalkundenAnhaenge
        Public Sub LOAD()
            Try
                Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
-                Using cmd As New SqlCommand("SELECT * FROM [tblFiskalkundenAnhaenge] WHERE fka_id=@fka_id  ", conn)
-                    cmd.Parameters.AddWithValue("@fka_id", fka_KdNr)
+                Using cmd As New SqlCommand("Select * FROM [tblFiskalkundenAnhaenge] WHERE fka_id=@fka_id  ", conn)
+                    cmd.Parameters.AddWithValue("@fka_id", fka_id)
                    Dim dr = cmd.ExecuteReader()
                    If dr.Read Then
                        For Each li In getParameterList()
@@ -93,7 +100,7 @@ Public Class cFiskalkundenAnhaenge
                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)
+                MsgBox("Fehler In der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
            End Try
        End Sub

@@ -137,9 +144,14 @@ Public Class cFiskalkundenAnhaenge
            Return ""
        End Function

-        Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
+    Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
        Dim sqlstr = " DELETE FROM [tblFiskalkundenAnhaenge] WITH(updlock,serializable) WHERE fka_id=" & Me.fka_id
        Return SQL.doSQL(sqlstr, "AVISO")
-        End Function
+    End Function
+
+    Public Function DELETEALL(fka_KdNr As Integer, fka_fkId As Integer) As Boolean
+        Dim sqlstr = " DELETE FROM [tblFiskalkundenAnhaenge] WITH(updlock,serializable) WHERE fka_KdNr=" & Me.fka_KdNr & " and fka_fkId=" & Me.fka_fkId
+        Return SQL.doSQL(sqlstr, "AVISO")
+    End Function

 End Class