gesamtsicherheitsreferenzen auf cAufschubkonten geändert.

VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb

@@ -1,7 +1,7 @@
 
 
 Imports System.Data.SqlClient
-    Imports System.Reflection
+Imports System.Reflection
 
 Public Class cAufschubKonten
     Property brgakto_id As Integer
@@ -10,8 +10,12 @@ Public Class cAufschubKonten
     Property brgakto_ktonr As String
     Property brgakto_warn1 As Decimal
     Property brgakto_warn2 As Decimal
-
+    Property brgakto_gs_standort As Object = Nothing
-
+    Property brgakto_gs_zollsatz As Integer
+    Property brgakto_gs_ustEnabled As Boolean = False
+    Property brgakto_gs_ust As Object = Nothing
+    Property brgakto_gs_aktSaldo As Decimal
+    Property brgakto_gs_ATR As Boolean = False
 
     Public hasEntry = False
 
@@ -21,6 +25,12 @@ Public Class cAufschubKonten
         Me.brgakto_id = brgakto_id
         LOAD()
     End Sub
+
+    Sub New(brgakto_gs_standort As String)
+        Me.brgakto_gs_standort = brgakto_gs_standort
+        LOADStandort()
+    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("brgakto_id", brgakto_id,, True))
@@ -29,6 +39,13 @@ Public Class cAufschubKonten
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_ktonr", brgakto_ktonr))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_warn1", brgakto_warn1))
         list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_warn2", brgakto_warn2))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_gs_standort", brgakto_gs_standort))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_gs_zollsatz", brgakto_gs_zollsatz))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_gs_ustEnabled", brgakto_gs_ustEnabled))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_gs_ust", brgakto_gs_ust))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_gs_ATR", brgakto_gs_ATR))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("brgakto_gs_aktSaldo", brgakto_gs_aktSaldo))
+
 
         Return list
     End Function
@@ -76,6 +93,38 @@ Public Class cAufschubKonten
     End Sub
 
 
+    Public Sub LOADStandort()
+
+
+        Try
+            hasEntry = False
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionADMIN()
+
+
+                Using cmd As New SqlCommand("SELECT * FROM tblBrgAufschubKonten WHERE brgakto_gs_standort=@brgakto_gs_standort  ", conn)
+                    cmd.Parameters.AddWithValue("@brgakto_gs_standort", brgakto_gs_standort)
+                    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
@@ -117,4 +166,41 @@ Public Class cAufschubKonten
         Return ""
     End Function
 
+
+
+    Public Function updateSaldo()
+        Return SQL.doSQL("Update [tblBrgAufschubKonten] Set brgakto_gs_aktSaldo = CAST(REPLACE('" & brgakto_gs_aktSaldo & "' ,',','.')AS decimal(18,2)) WHERE brgakto_gs_standort = '" & brgakto_gs_standort & "'", "ADMIN")
+    End Function
+
+    Public Function CalcSaldo() As String
+        Dim SaldoString As String =
+            "select
+
+                (select SUM( 
+                    case 
+    	                when gs_art = 'Open' then (gs_sicherheitsbetrag * -1)
+    	                when gs_art = 'Close' then gs_sicherheitsbetrag
+                    end) 
+					
+					as SicherheitsSaldoGS from [tblGesamtsicherheit] Where gs_standort = '" & brgakto_gs_standort & "')+
+
+                    (select SUM( 
+                    case  
+    	                when gsp_art = 'Open' then (gsp_sicherheitsbetrag * -1)
+    	                when gsp_art = 'Close' then gsp_sicherheitsbetrag
+                    end) 
+					as SicherheitsSaldoPositionen from [tblGesamtsicherheitsPositionen] Where gsp_gsid IN (select gs_gsId from [tblGesamtsicherheit] where gs_standort = '" & brgakto_gs_standort & "' ))"
+
+        Dim dt As New DataTable
+        Dim mrn As Double = 0
+        dt = SQL.loadDgvBySql(SaldoString, "AVISO", 100, True)
+        If dt.Rows(0).Item(0).ToString.Length > 0 Then
+            mrn = dt.Rows(0).Item(0)
+        End If
+
+        brgakto_gs_aktSaldo = brgakto_betrag + mrn
+        updateSaldo()
+        Return brgakto_gs_aktSaldo
+    End Function
+
 End Class

VERAG_PROG_ALLGEMEIN/cGesamtsicherheitsReferenz.vb

@@ -56,37 +56,6 @@ Public Class cGesamtsicherheitsReferenz
         Return SQL.doSQLVarList(sqlstr, "AVISO", , list)
     End Function
 
-    'Public Sub LOAD()
-
-
-    '    Try
-    '        hasEntry = False
-    '        Using conn As SqlConnection = SQL.GetNewOpenConnectionAVISO()
-
-    '            Using cmd As New SqlCommand("SELECT * FROM [tblGesamtsicherheitReferenz] WHERE gsr_Id=@gsrID  ", conn)
-    '                cmd.Parameters.AddWithValue("@gsr_Id", gsrId)
-
-    '                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 Sub LOAD()
 
 
@@ -164,7 +133,6 @@ Public Class cGesamtsicherheitsReferenz
     End Function
 
 
-
     Public Function updateSaldo()
         Return SQL.doSQL("Update [tblGesamtsicherheitReferenz] Set gsr_aktSaldo = '" & gsr_saldo & "' WHERE gsr_Standort = '" & gsr_standort & "'", "AVISO")
     End Function