Imports System.Data.SqlClient
Imports System.Reflection

Public Class cCMR
    Property CMR_ID As Integer = -1
    Property CMR_Suchbegriff As Object = Nothing
    Property CMR_Absender_1 As Object = Nothing
    Property CMR_Absender_2 As Object = Nothing
    Property CMR_Absender_3 As Object = Nothing
    Property CMR_Absender_4 As Object = Nothing
    Property CMR_Absender_5 As Object = Nothing
    Property CMR_Empfänger_1 As Object = Nothing
    Property CMR_Empfänger_2 As Object = Nothing
    Property CMR_Empfänger_3 As Object = Nothing
    Property CMR_Empfänger_4 As Object = Nothing
    Property CMR_Empfänger_5 As Object = Nothing
    Property CMR_Auslieferung_Ort As Object = Nothing
    Property CMR_Auslieferung_Land As Object = Nothing
    Property CMR_Auslieferung As Object = Nothing
    Property CMR_Übernahme_Ort As Object = Nothing
    Property CMR_Übernahme_Land As Object = Nothing
    Property CMR_Übernahme_Datum As Object = Nothing
    Property CMR_Dokumente_1 As Object = Nothing
    Property CMR_Dokumente_2 As Object = Nothing
    Property CMR_Dokumente_3 As Object = Nothing

    Property CMR_zeichen_1 As Object = Nothing
    Property CMR_zeichen_2 As Object = Nothing
    Property CMR_zeichen_3 As Object = Nothing
    Property CMR_zeichen_4 As Object = Nothing
    Property CMR_zeichen_5 As Object = Nothing
    Property CMR_zeichen_6 As Object = Nothing
    Property CMR_zeichen_7 As Object = Nothing
    Property CMR_zeichen_8 As Object = Nothing
    Property CMR_zeichen_9 As Object = Nothing
    Property CMR_anzahl_1 As Object = Nothing
    Property CMR_anzahl_2 As Object = Nothing
    Property CMR_anzahl_3 As Object = Nothing
    Property CMR_anzahl_4 As Object = Nothing
    Property CMR_anzahl_5 As Object = Nothing
    Property CMR_anzahl_6 As Object = Nothing
    Property CMR_anzahl_7 As Object = Nothing
    Property CMR_anzahl_8 As Object = Nothing
    Property CMR_anzahl_9 As Object = Nothing
    Property CMR_pkArt_1 As Object = Nothing
    Property CMR_pkArt_2 As Object = Nothing
    Property CMR_pkArt_3 As Object = Nothing
    Property CMR_pkArt_4 As Object = Nothing
    Property CMR_pkArt_5 As Object = Nothing
    Property CMR_pkArt_6 As Object = Nothing
    Property CMR_pkArt_7 As Object = Nothing
    Property CMR_pkArt_8 As Object = Nothing
    Property CMR_pkArt_9 As Object = Nothing
    Property CMR_TblLangKurz As Object = "K"

    Property CMR_Ware_1 As Object = Nothing
    Property CMR_Statistiknr_1 As Object = Nothing
    Property CMR_Bruttogewicht_1 As Object = Nothing
    Property CMR_Umfang_1 As Object = Nothing
    Property CMR_Ware_2 As Object = Nothing
    Property CMR_Statistiknr_2 As Object = Nothing
    Property CMR_Bruttogewicht_2 As Object = Nothing
    Property CMR_Umfang_2 As Object = Nothing
    Property CMR_Ware_3 As Object = Nothing
    Property CMR_Statistiknr_3 As Object = Nothing
    Property CMR_Bruttogewicht_3 As Object = Nothing
    Property CMR_Umfang_3 As Object = Nothing
    Property CMR_Ware_4 As Object = Nothing
    Property CMR_Statistiknr_4 As Object = Nothing
    Property CMR_Bruttogewicht_4 As Object = Nothing
    Property CMR_Umfang_4 As Object = Nothing
    Property CMR_Ware_5 As Object = Nothing
    Property CMR_Statistiknr_5 As Object = Nothing
    Property CMR_Bruttogewicht_5 As Object = Nothing
    Property CMR_Umfang_5 As Object = Nothing
    Property CMR_Ware_6 As Object = Nothing
    Property CMR_Statistiknr_6 As Object = Nothing
    Property CMR_Bruttogewicht_6 As Object = Nothing
    Property CMR_Umfang_6 As Object = Nothing
    Property CMR_Ware_7 As Object = Nothing
    Property CMR_Statistiknr_7 As Object = Nothing
    Property CMR_Bruttogewicht_7 As Object = Nothing
    Property CMR_Umfang_7 As Object = Nothing
    Property CMR_Ware_8 As Object = Nothing
    Property CMR_Statistiknr_8 As Object = Nothing
    Property CMR_Bruttogewicht_8 As Object = Nothing
    Property CMR_Umfang_8 As Object = Nothing
    Property CMR_Klasse As Object = Nothing
    Property CMR_Ziffer As Object = Nothing
    Property CMR_Buchstabe As Object = Nothing
    Property CMR_ADR As Object = Nothing
    Property CMR_Ware_9 As Object = Nothing
    Property CMR_Statistiknr_9 As Object = Nothing
    Property CMR_Bruttogewicht_9 As Object = Nothing
    Property CMR_Umfang_9 As Object = Nothing
    Property CMR_Anweisungen_1 As Object = Nothing
    Property CMR_Anweisungen_2 As Object = Nothing
    Property CMR_Anweisungen_3 As Object = Nothing
    Property CMR_Anweisungen_4 As Object = Nothing
    Property CMR_Anweisungen_5 As Object = Nothing
    Property CMR_Anweisungen_6 As Object = Nothing
    Property CMR_Anweisungen_7 As Object = Nothing
    Property CMR_Rückerstattung As Object = Nothing
    Property CMR_Frachtzahlungsanweisung_Frei As Object = Nothing
    Property CMR_Frachtzahlungsanweisung_Unfrei As Object = Nothing
    Property CMR_Frachtführer_1 As Object = Nothing
    Property CMR_Frachtführer_2 As Object = Nothing
    Property CMR_Frachtführer_3 As Object = Nothing
    Property CMR_Frachtführer_4 As Object = Nothing
    Property CMR_Frachtführer_5 As Object = Nothing
    Property CMR_Nachf_Frachtführer_1 As Object = Nothing
    Property CMR_Nachf_Frachtführer_2 As Object = Nothing
    Property CMR_Nachf_Frachtführer_3 As Object = Nothing
    Property CMR_Nachf_Frachtführer_4 As Object = Nothing
    Property CMR_Nachf_Frachtführer_5 As Object = Nothing
    Property CMR_Bemerkungen_1 As Object = Nothing
    Property CMR_Bemerkungen_2 As Object = Nothing
    Property CMR_Bemerkungen_3 As Object = Nothing
    Property CMR_Bemerkungen_4 As Object = Nothing
    Property CMR_Bemerkungen_5 As Object = Nothing
    Property CMR_Vereinbarungen_1 As Object = Nothing
    Property CMR_Vereinbarungen_2 As Object = Nothing
    Property CMR_Ausgefertigt_in As Object = Nothing
    Property CMR_Ausgefertigt_am As Object = Nothing
    Property CMR_Ausgefertigt As Object = Nothing
    Property CMR_Stempel_Absender_1 As Object = Nothing
    Property CMR_Stempel_Absender_2 As Object = Nothing
    Property CMR_Stempel_Frachtführer_1 As Object = Nothing
    Property CMR_Stempel_Frachtführer_2 As Object = Nothing
    Property CMR_Empfangsbestätigung_Datum As Object = Nothing
    Property CMR_Stempel_Empfänger_1 As Object = Nothing
    Property CMR_Stempel_Empfänger_2 As Object = Nothing
    Property CMR_Tarifentfernung_von_1 As Object = Nothing
    Property CMR_Tarifentfernung_bis_1 As Object = Nothing
    Property CMR_Tarifentfernung_km_1 As Object = Nothing
    Property CMR_Tarifentfernung_von_2 As Object = Nothing
    Property CMR_Tarifentfernung_bis_2 As Object = Nothing
    Property CMR_Tarifentfernung_km_2 As Object = Nothing
    Property CMR_Tarifentfernung_von_3 As Object = Nothing
    Property CMR_Tarifentfernung_bis_3 As Object = Nothing
    Property CMR_Tarifentfernung_km_3 As Object = Nothing
    Property CMR_Tarifentfernung_von_4 As Object = Nothing
    Property CMR_Tarifentfernung_bis_4 As Object = Nothing
    Property CMR_Tarifentfernung_km_4 As Object = Nothing
    Property CMR_Tarifentfernung_von_5 As Object = Nothing
    Property CMR_Tarifentfernung_bis_5 As Object = Nothing
    Property CMR_Tarifentfernung_km_5 As Object = Nothing
    Property CMR_Kennzeichen_Kfz As Object = Nothing
    Property CMR_Nutzlast_Kfz As Object = Nothing
    Property CMR_Kennzeichen_Anhänger As Object = Nothing
    Property CMR_Nutzlast_Anhänger As Object = Nothing
    Property CMR_Erstellt_Datum As Object = Nothing
    Property CMR_Erstellt_Sachbearbeiter As Object = Nothing
    Property CMR_Geändert_Datum As Object = Nothing
    Property CMR_Geändert_Sachbearbeiter As Object = Nothing
    Property CMR_Gedruckt_Datum As Object = Nothing
    Property CMR_Gedruckt_Sachbearbeiter As Object = Nothing
    Property CMR_Firma As Object = Nothing
    Property EPBes_ID As Object = Nothing


    Property CMRPos As New List(Of cCMRPos)

    Public _kurz As Boolean = True
    Dim SQL As New SQL


    Sub New()
    End Sub

    Sub New(CMR_ID As Integer)
        Me.CMR_ID = CMR_ID
        LOAD()
    End Sub

    Function getMaxId() As Integer
        CMR_ID = SQL.getValueTxtBySql("SELECT ISNULL(MAX(CMR_ID),0)+1 FROM CMR", "FMZOLL")
        Return CMR_ID
    End Function

    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("CMR_ID", CMR_ID, , True))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Suchbegriff", CMR_Suchbegriff))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Absender_1", CMR_Absender_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Absender_2", CMR_Absender_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Absender_3", CMR_Absender_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Absender_4", CMR_Absender_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Absender_5", CMR_Absender_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Empfänger_1", CMR_Empfänger_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Empfänger_2", CMR_Empfänger_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Empfänger_3", CMR_Empfänger_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Empfänger_4", CMR_Empfänger_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Empfänger_5", CMR_Empfänger_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Auslieferung_Ort", CMR_Auslieferung_Ort))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Auslieferung_Land", CMR_Auslieferung_Land))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Auslieferung", CMR_Auslieferung))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Übernahme_Ort", CMR_Übernahme_Ort))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Übernahme_Land", CMR_Übernahme_Land))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Übernahme_Datum", CMR_Übernahme_Datum))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Dokumente_1", CMR_Dokumente_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Dokumente_2", CMR_Dokumente_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Dokumente_3", CMR_Dokumente_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_1", CMR_Ware_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_1", CMR_Statistiknr_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_1", CMR_Bruttogewicht_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_1", CMR_Umfang_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_2", CMR_Ware_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_2", CMR_Statistiknr_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_2", CMR_Bruttogewicht_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_2", CMR_Umfang_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_3", CMR_Ware_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_3", CMR_Statistiknr_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_3", CMR_Bruttogewicht_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_3", CMR_Umfang_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_4", CMR_Ware_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_4", CMR_Statistiknr_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_4", CMR_Bruttogewicht_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_4", CMR_Umfang_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_5", CMR_Ware_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_5", CMR_Statistiknr_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_5", CMR_Bruttogewicht_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_5", CMR_Umfang_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_6", CMR_Ware_6))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_6", CMR_Statistiknr_6))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_6", CMR_Bruttogewicht_6))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_6", CMR_Umfang_6))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_7", CMR_Ware_7))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_7", CMR_Statistiknr_7))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_7", CMR_Bruttogewicht_7))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_7", CMR_Umfang_7))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_8", CMR_Ware_8))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_8", CMR_Statistiknr_8))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_8", CMR_Bruttogewicht_8))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_8", CMR_Umfang_8))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Klasse", CMR_Klasse))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ziffer", CMR_Ziffer))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Buchstabe", CMR_Buchstabe))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_ADR", CMR_ADR))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ware_9", CMR_Ware_9))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Statistiknr_9", CMR_Statistiknr_9))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bruttogewicht_9", CMR_Bruttogewicht_9))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Umfang_9", CMR_Umfang_9))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_1", CMR_Anweisungen_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_2", CMR_Anweisungen_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_3", CMR_Anweisungen_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_4", CMR_Anweisungen_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_5", CMR_Anweisungen_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_6", CMR_Anweisungen_6))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Anweisungen_7", CMR_Anweisungen_7))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Rückerstattung", CMR_Rückerstattung))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtzahlungsanweisung_Frei", CMR_Frachtzahlungsanweisung_Frei))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtzahlungsanweisung_Unfrei", CMR_Frachtzahlungsanweisung_Unfrei))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtführer_1", CMR_Frachtführer_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtführer_2", CMR_Frachtführer_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtführer_3", CMR_Frachtführer_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtführer_4", CMR_Frachtführer_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Frachtführer_5", CMR_Frachtführer_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nachf_Frachtführer_1", CMR_Nachf_Frachtführer_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nachf_Frachtführer_2", CMR_Nachf_Frachtführer_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nachf_Frachtführer_3", CMR_Nachf_Frachtführer_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nachf_Frachtführer_4", CMR_Nachf_Frachtführer_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nachf_Frachtführer_5", CMR_Nachf_Frachtführer_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bemerkungen_1", CMR_Bemerkungen_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bemerkungen_2", CMR_Bemerkungen_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bemerkungen_3", CMR_Bemerkungen_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bemerkungen_4", CMR_Bemerkungen_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Bemerkungen_5", CMR_Bemerkungen_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Vereinbarungen_1", CMR_Vereinbarungen_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Vereinbarungen_2", CMR_Vereinbarungen_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ausgefertigt_in", CMR_Ausgefertigt_in))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ausgefertigt_am", CMR_Ausgefertigt_am))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Ausgefertigt", CMR_Ausgefertigt))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Stempel_Absender_1", CMR_Stempel_Absender_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Stempel_Absender_2", CMR_Stempel_Absender_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Stempel_Frachtführer_1", CMR_Stempel_Frachtführer_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Stempel_Frachtführer_2", CMR_Stempel_Frachtführer_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Empfangsbestätigung_Datum", CMR_Empfangsbestätigung_Datum))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Stempel_Empfänger_1", CMR_Stempel_Empfänger_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Stempel_Empfänger_2", CMR_Stempel_Empfänger_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_von_1", CMR_Tarifentfernung_von_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_bis_1", CMR_Tarifentfernung_bis_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_km_1", CMR_Tarifentfernung_km_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_von_2", CMR_Tarifentfernung_von_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_bis_2", CMR_Tarifentfernung_bis_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_km_2", CMR_Tarifentfernung_km_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_von_3", CMR_Tarifentfernung_von_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_bis_3", CMR_Tarifentfernung_bis_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_km_3", CMR_Tarifentfernung_km_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_von_4", CMR_Tarifentfernung_von_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_bis_4", CMR_Tarifentfernung_bis_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_km_4", CMR_Tarifentfernung_km_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_von_5", CMR_Tarifentfernung_von_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_bis_5", CMR_Tarifentfernung_bis_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Tarifentfernung_km_5", CMR_Tarifentfernung_km_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Kennzeichen_Kfz", CMR_Kennzeichen_Kfz))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nutzlast_Kfz", CMR_Nutzlast_Kfz))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Kennzeichen_Anhänger", CMR_Kennzeichen_Anhänger))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Nutzlast_Anhänger", CMR_Nutzlast_Anhänger))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Erstellt_Datum", CMR_Erstellt_Datum))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Erstellt_Sachbearbeiter", CMR_Erstellt_Sachbearbeiter))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Geändert_Datum", CMR_Geändert_Datum))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Geändert_Sachbearbeiter", CMR_Geändert_Sachbearbeiter))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Gedruckt_Datum", CMR_Gedruckt_Datum))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Gedruckt_Sachbearbeiter", CMR_Gedruckt_Sachbearbeiter))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_Firma", CMR_Firma))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("EPBes_ID", EPBes_ID))


        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_1", CMR_zeichen_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_2", CMR_zeichen_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_3", CMR_zeichen_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_4", CMR_zeichen_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_5", CMR_zeichen_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_6", CMR_zeichen_6))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_7", CMR_zeichen_7))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_8", CMR_zeichen_8))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_zeichen_9", CMR_zeichen_9))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_1", CMR_anzahl_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_2", CMR_anzahl_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_3", CMR_anzahl_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_4", CMR_anzahl_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_5", CMR_anzahl_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_6", CMR_anzahl_6))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_7", CMR_anzahl_7))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_8", CMR_anzahl_8))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_anzahl_9", CMR_anzahl_9))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_1", CMR_pkArt_1))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_2", CMR_pkArt_2))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_3", CMR_pkArt_3))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_4", CMR_pkArt_4))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_5", CMR_pkArt_5))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_6", CMR_pkArt_6))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_7", CMR_pkArt_7))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_8", CMR_pkArt_8))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_pkArt_9", CMR_pkArt_9))
        list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("CMR_TblLangKurz", CMR_TblLangKurz))

        Return list
    End Function

    Public Sub LOAD()
        Try
            Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionFMZOLL()
                Using cmd As New SqlCommand("SELECT * FROM CMR WHERE CMR_ID=@CMR_ID ", conn)
                    cmd.Parameters.AddWithValue("@CMR_ID", Me.CMR_ID)
                    Dim dr = cmd.ExecuteReader()
                    If dr.Read Then
                        For Each i In Me.getParameterList()
                            Dim propInfo As PropertyInfo = Me.GetType.GetProperty(i.Scalarvariable)
                            If dr.Item(i.Text) Is DBNull.Value Then
                                propInfo.SetValue(Me, Nothing)
                            Else
                                propInfo.SetValue(Me, dr.Item(i.Text))
                            End If
                        Next
                        loadValuesInList()
                    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


    Sub loadValuesInList()
        CMRPos.Clear()

        Dim POS As New cCMRPos()
        POS.Bezeichnung = CMR_Ware_1
        POS.StatistikNr = CMR_Statistiknr_1
        POS.Bruttogewicht = CMR_Bruttogewicht_1
        POS.Umfang = CMR_Umfang_1
        POS.Zeichen = CMR_zeichen_1
        POS.Art = CMR_pkArt_1
        POS.Anzahl = CMR_anzahl_1
        CMRPos.Add(POS)

        POS = New cCMRPos()
        POS.Bezeichnung = CMR_Ware_2
        POS.StatistikNr = CMR_Statistiknr_2
        POS.Bruttogewicht = CMR_Bruttogewicht_2
        POS.Umfang = CMR_Umfang_2
        POS.Zeichen = CMR_zeichen_2
        POS.Art = CMR_pkArt_2
        POS.Anzahl = CMR_anzahl_2
        CMRPos.Add(POS)

        POS = New cCMRPos()
        POS.Bezeichnung = CMR_Ware_3
        POS.StatistikNr = CMR_Statistiknr_3
        POS.Bruttogewicht = CMR_Bruttogewicht_3
        POS.Umfang = CMR_Umfang_3
        POS.Zeichen = CMR_zeichen_3
        POS.Art = CMR_pkArt_3
        POS.Anzahl = CMR_anzahl_3
        CMRPos.Add(POS)

        POS = New cCMRPos()
        POS.Bezeichnung = CMR_Ware_4
        POS.StatistikNr = CMR_Statistiknr_4
        POS.Bruttogewicht = CMR_Bruttogewicht_4
        POS.Umfang = CMR_Umfang_4
        POS.Zeichen = CMR_zeichen_4
        POS.Art = CMR_pkArt_4
        POS.Anzahl = CMR_anzahl_4
        CMRPos.Add(POS)

        POS = New cCMRPos()
        POS.Bezeichnung = CMR_Ware_5
        POS.StatistikNr = CMR_Statistiknr_5
        POS.Bruttogewicht = CMR_Bruttogewicht_5
        POS.Umfang = CMR_Umfang_5
        POS.Zeichen = CMR_zeichen_5
        POS.Art = CMR_pkArt_5
        POS.Anzahl = CMR_anzahl_5
        CMRPos.Add(POS)

        POS = New cCMRPos()
        POS.Bezeichnung = CMR_Ware_6
        POS.StatistikNr = CMR_Statistiknr_6
        POS.Bruttogewicht = CMR_Bruttogewicht_6
        POS.Umfang = CMR_Umfang_6
        POS.Zeichen = CMR_zeichen_6
        POS.Art = CMR_pkArt_6
        POS.Anzahl = CMR_anzahl_6
        CMRPos.Add(POS)

        POS = New cCMRPos()
        POS.Bezeichnung = CMR_Ware_7
        POS.StatistikNr = CMR_Statistiknr_7
        POS.Bruttogewicht = CMR_Bruttogewicht_7
        POS.Umfang = CMR_Umfang_7
        POS.Zeichen = CMR_zeichen_7
        POS.Art = CMR_pkArt_7
        POS.Anzahl = CMR_anzahl_7
        CMRPos.Add(POS)

        POS = New cCMRPos()
        POS.Bezeichnung = CMR_Ware_8
        POS.StatistikNr = CMR_Statistiknr_8
        POS.Bruttogewicht = CMR_Bruttogewicht_8
        POS.Umfang = CMR_Umfang_8
        POS.Zeichen = CMR_zeichen_8
        POS.Art = CMR_pkArt_8
        POS.Anzahl = CMR_anzahl_8
        CMRPos.Add(POS)

        POS = New cCMRPos()
        POS.Bezeichnung = CMR_Ware_9
        POS.StatistikNr = CMR_Statistiknr_9
        POS.Bruttogewicht = CMR_Bruttogewicht_9
        POS.Umfang = CMR_Umfang_9
        POS.Zeichen = CMR_zeichen_9
        POS.Art = CMR_pkArt_9
        POS.Anzahl = CMR_anzahl_9
        CMRPos.Add(POS)

    End Sub

    Public Function INSERT() As Boolean
        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
        Return SQL.doSQLVarList(getInsertCmd, "FMZOLL", , list)
    End Function

    Function ilN(o As Object) As Object
        If Not o Is Nothing Then
            If o.ToString <> "" Then
                Return o
            End If
        End If
        Return Nothing
    End Function

    Public Function SAVE() As Boolean

        If CMRPos.Count > 0 Then
            CMR_Ware_1 = ilN(CMRPos(0).Bezeichnung)
            CMR_Statistiknr_1 = ilN(CMRPos(0).StatistikNr)
            CMR_Bruttogewicht_1 = ilN(CMRPos(0).Bruttogewicht)
            CMR_Umfang_1 = ilN(CMRPos(0).Umfang)
            CMR_zeichen_1 = ilN(CMRPos(0).Zeichen)
            CMR_pkArt_1 = ilN(CMRPos(0).Art)
            CMR_anzahl_1 = ilN(CMRPos(0).Anzahl)
        End If
        If CMRPos.Count > 1 Then
            CMR_Ware_2 = ilN(CMRPos(1).Bezeichnung)
            CMR_Statistiknr_2 = ilN(CMRPos(1).StatistikNr)
            CMR_Bruttogewicht_2 = ilN(CMRPos(1).Bruttogewicht)
            CMR_Umfang_2 = ilN(CMRPos(1).Umfang)
            CMR_zeichen_2 = ilN(CMRPos(1).Zeichen)
            CMR_pkArt_2 = ilN(CMRPos(1).Art)
            CMR_anzahl_2 = ilN(CMRPos(1).Anzahl)
        End If
        If CMRPos.Count > 2 Then
            CMR_Ware_3 = ilN(CMRPos(2).Bezeichnung)
            CMR_Statistiknr_3 = ilN(CMRPos(2).StatistikNr)
            CMR_Bruttogewicht_3 = ilN(CMRPos(2).Bruttogewicht)
            CMR_Umfang_3 = ilN(CMRPos(2).Umfang)
            CMR_zeichen_3 = ilN(CMRPos(2).Zeichen)
            CMR_pkArt_3 = ilN(CMRPos(2).Art)
            CMR_anzahl_3 = ilN(CMRPos(2).Anzahl)
        End If
        If CMRPos.Count > 3 Then
            CMR_Ware_4 = ilN(CMRPos(3).Bezeichnung)
            CMR_Statistiknr_4 = ilN(CMRPos(3).StatistikNr)
            CMR_Bruttogewicht_4 = ilN(CMRPos(3).Bruttogewicht)
            CMR_Umfang_4 = ilN(CMRPos(3).Umfang)
            CMR_zeichen_4 = ilN(CMRPos(3).Zeichen)
            CMR_pkArt_4 = ilN(CMRPos(3).Art)
            CMR_anzahl_4 = ilN(CMRPos(3).Anzahl)
        End If
        If CMRPos.Count > 4 Then
            CMR_Ware_5 = ilN(CMRPos(4).Bezeichnung)
            CMR_Statistiknr_5 = ilN(CMRPos(4).StatistikNr)
            CMR_Bruttogewicht_5 = ilN(CMRPos(4).Bruttogewicht)
            CMR_Umfang_5 = ilN(CMRPos(4).Umfang)
            CMR_zeichen_5 = ilN(CMRPos(4).Zeichen)
            CMR_pkArt_5 = ilN(CMRPos(4).Art)
            CMR_anzahl_5 = ilN(CMRPos(4).Anzahl)
        End If
        If CMRPos.Count > 5 Then
            CMR_Ware_6 = ilN(CMRPos(5).Bezeichnung)
            CMR_Statistiknr_6 = ilN(CMRPos(5).StatistikNr)
            CMR_Bruttogewicht_6 = ilN(CMRPos(5).Bruttogewicht)
            CMR_Umfang_6 = ilN(CMRPos(5).Umfang)
            CMR_zeichen_6 = ilN(CMRPos(5).Zeichen)
            CMR_pkArt_6 = ilN(CMRPos(5).Art)
            CMR_anzahl_6 = ilN(CMRPos(5).Anzahl)
        End If
        If CMRPos.Count > 6 Then
            CMR_Ware_7 = ilN(CMRPos(6).Bezeichnung)
            CMR_Statistiknr_7 = ilN(CMRPos(6).StatistikNr)
            CMR_Bruttogewicht_7 = ilN(CMRPos(6).Bruttogewicht)
            CMR_Umfang_7 = ilN(CMRPos(6).Umfang)
            CMR_zeichen_7 = ilN(CMRPos(6).Zeichen)
            CMR_pkArt_7 = ilN(CMRPos(6).Art)
            CMR_anzahl_7 = ilN(CMRPos(6).Anzahl)
        End If
        If CMRPos.Count > 7 Then
            CMR_Ware_8 = ilN(CMRPos(7).Bezeichnung)
            CMR_Statistiknr_8 = ilN(CMRPos(7).StatistikNr)
            CMR_Bruttogewicht_8 = ilN(CMRPos(7).Bruttogewicht)
            CMR_Umfang_8 = ilN(CMRPos(7).Umfang)
            CMR_zeichen_8 = ilN(CMRPos(7).Zeichen)
            CMR_pkArt_8 = ilN(CMRPos(7).Art)
            CMR_anzahl_8 = ilN(CMRPos(7).Anzahl)
        End If
        If CMRPos.Count > 8 Then
            CMR_Ware_9 = ilN(CMRPos(8).Bezeichnung)
            CMR_Statistiknr_9 = ilN(CMRPos(8).StatistikNr)
            CMR_Bruttogewicht_9 = ilN(CMRPos(8).Bruttogewicht)
            CMR_Umfang_9 = ilN(CMRPos(8).Umfang)
            CMR_zeichen_9 = ilN(CMRPos(8).Zeichen)
            CMR_pkArt_9 = ilN(CMRPos(8).Art)
            CMR_anzahl_9 = ilN(CMRPos(8).Anzahl)
        End If


        Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM CMR WITH(updlock,serializable) WHERE CMR_ID=@CMR_ID) " &
                       " BEGIN " & getUpdateCmd() & " END " &
                       " Else " &
                       " BEGIN " & getInsertCmd() & " END " &
                       " commit tran "
        Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()
        Me.CMR_ID = SQL.doSQLVarListID(Me.CMR_ID, sqlstr, "FMZOLL", True, list)
        Return CBool(Me.CMR_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 CMR  (" & 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

 Public Function DELETE() As Boolean 'obj As Object, tablename As String, where As String) As Boolean
        Dim sqlstr = " DELETE FROM [CMR] WITH(updlock,serializable) WHERE CMR_ID=" & Me.CMR_ID
        Return SQL.doSQL(sqlstr, "FMZOLL")
    End Function


    Public Function getUpdateCmd() As String
        Try
            Dim list As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable) = getParameterList()

            Dim str As String = ""
            For Each i In list
                If Not i.isPrimaryParam Then
                    str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
                End If
            Next
            str = str.Substring(0, str.Length - 1) 'wg. ','
            Return (" UPDATE [CMR] SET " & str & " WHERE CMR_ID=@CMR_ID ")

        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 cCMRPos
    Property Zeichen As String = ""
    Property Anzahl As String = ""
    Property Art As String = ""
    Property Bezeichnung As String = ""
    Property StatistikNr As String = ""
    Property Bruttogewicht As String = ""
    Property Umfang As String = ""
End Class