631 lines
33 KiB
VB.net
631 lines
33 KiB
VB.net
|
|
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
|