diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb b/VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb index 12a8c30a..4c3d3fa7 100644 --- a/VERAG_PROG_ALLGEMEIN/Classes/cAufschubKonten.vb +++ b/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 diff --git a/VERAG_PROG_ALLGEMEIN/cGesamtsicherheitsReferenz.vb b/VERAG_PROG_ALLGEMEIN/cGesamtsicherheitsReferenz.vb index ec6eb017..41358c34 100644 --- a/VERAG_PROG_ALLGEMEIN/cGesamtsicherheitsReferenz.vb +++ b/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