SDL Jetzt erst recht!

SDL/Classes/cGeschaeftsjahr.vb

@@ -0,0 +1,130 @@
+Imports System.Data.SqlClient
+
+Public Class cGeschaeftsjahr
+    Property Mandant As String = ""
+    Property Niederlassung As String = ""
+    Property Benutzer As Integer = -1
+    Property Geschäftsjahr As Integer = -1
+    Property LfdBelegNr As Integer = 0
+    Property LfdJournalNr As Integer = 0
+
+    Dim SQL As New SQL
+
+    Public Sub New(Mandant As String, Niederlassung As String, Benutzer As Integer, Geschäftsjahr As Integer)
+        Me.Mandant = Mandant
+        Me.Niederlassung = Niederlassung
+        Me.Benutzer = Benutzer
+        Me.Geschäftsjahr = Geschäftsjahr
+        LOAD(Mandant, Niederlassung, Benutzer, Geschäftsjahr)
+    End Sub
+  
+
+    Public Function INCREASE_BELEG() As Integer
+        If LfdBelegNr > 0 Then
+            LfdBelegNr += 1
+        Else
+            LfdBelegNr = 1
+        End If
+        SAVE()
+        Return LfdBelegNr
+    End Function
+    Public Function INCREASE_JOURNAL() As Integer
+        If LfdJournalNr > 0 Then
+            LfdJournalNr += 1
+        Else
+            LfdJournalNr = 1
+        End If
+        SAVE()
+        Return LfdJournalNr
+    End Function
+
+    Public Function SAVE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
+        Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
+
+        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM [tblGeschäftsjahr] WITH(updlock,serializable) WHERE [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr) " &
+                       " BEGIN " & getUpdateCmd() & " END " &
+                       " Else " &
+                       " BEGIN " & getInsertCmd() & " END " &
+                       " commit tran "
+        'MsgBox(sqlstr)
+        Return SQL.doSQL(sqlstr, "FMZOLL", , list)
+    End Function
+
+    Public Sub LOAD(Mandant As String, Niederlassung As String, Benutzer As Integer, Geschäftsjahr As Integer)
+        Try
+            Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
+                Using cmd As New SqlCommand("SELECT * FROM tblGeschäftsjahr WHERE  [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr ", conn)
+                    cmd.Parameters.AddWithValue("@Mandant", Mandant)
+                    cmd.Parameters.AddWithValue("@Niederlassung", Niederlassung)
+                    cmd.Parameters.AddWithValue("@Benutzer", Benutzer)
+                    cmd.Parameters.AddWithValue("@Geschäftsjahr", Geschäftsjahr)
+
+                    Dim dr = cmd.ExecuteReader()
+                    If dr.Read Then
+                        Me.Mandant = cSqlDb.checkNullStr(dr.Item("Mandant"))
+                        Me.Niederlassung = cSqlDb.checkNullStr(dr.Item("Niederlassung"))
+                        Me.Benutzer = cSqlDb.checkNullStr(dr.Item("Benutzer"))
+                        Me.Geschäftsjahr = cSqlDb.checkNullInteger(dr.Item("Geschäftsjahr"))
+                        Me.LfdBelegNr = cSqlDb.checkNullInteger(dr.Item("LfdBelegNr"))
+                        Me.LfdJournalNr = cSqlDb.checkNullInteger(dr.Item("LfdJournalNr"))
+                    End If
+                    dr.Close()
+                End Using
+            End Using
+            'Return Nothing
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        '  Return Nothing
+    End Sub
+
+
+    Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
+        Dim list As New List(Of VERAG_PROG_ALLGEMEIN.MyListItem2)
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Mandant", Mandant))
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Niederlassung", Niederlassung))
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Benutzer", Benutzer))
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("Geschäftsjahr", Geschäftsjahr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LfdBelegNr", LfdBelegNr))
+        list.Add(New VERAG_PROG_ALLGEMEIN.MyListItem2("LfdJournalNr", LfdJournalNr))
+        Return list
+    End Function
+
+    Public Function getUpdateCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
+
+            Dim str As String = ""
+            For Each i In list
+                str &= "[" & i.Text & "] = @" & i.Text.Replace("-", "").Replace(" ", "") & ","
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            Return (" UPDATE [tblGeschäftsjahr] SET " & str & " WHERE  [Mandant]=@Mandant AND Niederlassung=@Niederlassung AND Benutzer=@Benutzer AND Geschäftsjahr=@Geschäftsjahr ")
+
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return ""
+    End Function
+
+    Public Function getInsertCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.MyListItem2) = getParameterList()
+            Dim str As String = ""
+            Dim values As String = ""
+            For Each i In list
+                str &= "[" & i.Text & "],"
+                values &= "@" & i.Text.Replace("-", "").Replace(" ", "") & ","
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
+            Return (" INSERT INTO [tblGeschäftsjahr]  (" & str & ") VALUES(" & values & ")  ")
+        Catch ex As Exception
+            MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
+        End Try
+        Return ""
+    End Function
+
+
+
+End Class