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