Kundenuebersicht, etc.

VERAG_PROG_ALLGEMEIN/AVISO/cDatenbankAVISO.vb

@@ -1572,6 +1572,7 @@ Public Class cAvisoDAL
                     id = (Convert.ToInt32(cmd.ExecuteScalar()))
                     ' MsgBox(id)
                 Else
+                    Return id
                     cmd.ExecuteNonQuery()
                 End If
 

VERAG_PROG_ALLGEMEIN/Classes/cKundenErweitert.vb

@@ -96,6 +96,7 @@ Public Class cKundenErweitert
     Property kde_FR As Boolean = False
     Property kde_AnmerkungAntrag As Object = Nothing
     Property kde_Erstattungsart As Object = Nothing
+    Property kde_BezFIBU As Object = Nothing
 
 
 
@@ -196,6 +197,7 @@ Public Class cKundenErweitert
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_AnmerkungFR", kde_AnmerkungFR))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_FR", kde_FR))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_Erstattungsart", kde_Erstattungsart))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("kde_BezFIBU", kde_BezFIBU))
 
         Return list
     End Function