Projektdateien hinzufügen.

UID/cBuchhaltung.vb

@@ -0,0 +1,97 @@
+Public Class cBuchhaltungRechnung
+    Property bhrg_id As Integer
+    Property bhrg_atrId As Integer
+
+    Property bhrg_code As String
+    Property bhrg_vermerk As String
+    Property bhrg_pfl As String
+    Property bhrg_frei As String
+    Property bhrg_option As String
+    Property bhrg_leistungIdDispo As Object = Nothing
+
+
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+    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("bhrg_id", bhrg_id, , True, True)) 'UPDATE INSERT ISPRIMARY!
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bhrg_atrId", bhrg_atrId))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bhrg_code", bhrg_code))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bhrg_vermerk", bhrg_vermerk))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bhrg_pfl", bhrg_pfl))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bhrg_frei", bhrg_frei))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bhrg_option", bhrg_option))
+        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("bhrg_leistungIdDispo", bhrg_leistungIdDispo))
+
+        Return list
+    End Function
+
+    Public Function SAVE() As Boolean
+        bhrg_id = SQL.doSQLVarListID(bhrg_id, getInsertCmd, "DISPO", , getParameterList)
+        Return bhrg_id > 0
+    End Function
+
+    Public Function getInsertCmd() As String
+        Try
+            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
+            Dim str As String = ""
+            Dim values As String = ""
+            For Each i In list
+                If Not i.isPrimaryParam Then
+                    str &= "[" & i.Text & "],"
+                    values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
+                End If
+            Next
+            str = str.Substring(0, str.Length - 1) 'wg. ','
+            values = values.Substring(0, values.Length - 1) 'wg. ','
+            Return (" INSERT INTO tblBhRechnungen  (" & 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
+Public Class cUnternKennz
+    Property bhut_id As String
+    Property bhut_unternKennz As String
+    Property bhut_bis As String
+    Property bhut_kosten As String
+End Class
+
+
+
+Public Class cBuchParams
+    Property spedBuchNr As String = "-1"
+    Property mon As String
+    Property posNr As String
+    Property auftrDatum As String
+    Property absender As String
+    Property abs_ladedat_datum As String
+    Property abs_ladedat_von As String
+    Property abs_ladedat_bis As String
+    Property abs_anspr As String
+    Property empfaenger As String
+    Property empf_ladedat_datum As String
+    Property empf_ladedat_von As String
+    Property empf_ladedat_bis As String
+    Property empf_anspr As String
+    Property auftraggeber As String
+    Property auftr_anspr As String
+    Property unterKennz1 As String
+    Property unterKennz_bis1 As String
+    Property unterKennz_kosten1 As String
+    Property unterKennz2 As String
+    Property unterKennz_bis2 As String
+    Property unterKennz_kosten2 As String
+    Property unterKennz3 As String
+    Property unterKennz_bis3 As String
+    Property unterKennz_kosten3 As String
+    Property unterKennz4 As String
+    Property unterKennz_bis4 As String
+    Property unterKennz_kosten4 As String
+    Property vermerke As String
+    Property cLadungen As List(Of cDispoLadungen)
+    Property bhRg As List(Of cBuchhaltungRechnung)
+    Property bhRg2 As List(Of cBuchhaltungRechnung)
+End Class