Fiskaluebersicht, Faktu, etc.

VERAG_PROG_ALLGEMEIN/Classes/cFiskalkunden.vb

@@ -1,5 +1,6 @@
 Imports System.Data.SqlClient
 Imports System.Reflection
+Imports com.sun.security.auth
 
 
 Public Class cFiskalkunden
@@ -93,6 +94,21 @@ Public Class cFiskalkunden
         Return SQL.doSQLVarList(sqlstr, "FMZOLL", , list)
     End Function
 
+    Public Function SAVE_ID() As Integer
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblFiskalkunden]  WHERE FK_Id=@FK_Id) " &
+                       " BEGIN " & getUpdateCmd() & " END " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " END " &
+                       " commit tran "
+
+
+        Dim id = SQL.doSQLVarListID(FK_Id, sqlstr, "FMZOLL", , list)
+        Return id
+
+    End Function
+
     Public Sub LOAD()
         Try
             hasEntry = False

VERAG_PROG_ALLGEMEIN/Classes/cFiskalkundenAnhaenge.vb

@@ -64,6 +64,22 @@ Public Class cFiskalkundenAnhaenge
 
     End Function
 
+    Shared Function LOAD_LIST_ByKdNr(fka_KdNr As Integer, fka_fkId As Integer) As List(Of cFiskalkundenAnhaenge)
+        Dim ANH_LIST = New List(Of cFiskalkundenAnhaenge)
+        ANH_LIST.Clear()
+        Dim SQL As New SQL
+        Dim dgv = SQL.loadDgvBySql("SELECT fka_id FROM [tblFiskalkundenAnhaenge] WHERE fka_KdNr=" & fka_KdNr & " And fka_fkId = " & fka_fkId & " ORDER BY fka_Datum desc", "AVISO")
+        If dgv IsNot Nothing Then
+            For Each r In dgv.Rows
+
+                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()