Imports System.Data Imports System.Data.OleDb Imports System.IO Imports System.Data.SqlClient Public Class cSqlDb Public Shared Function GetNewOpenConnection() As SqlConnection Dim cn As New SqlConnection() If frmLogin.testsystem Then cn.ConnectionString = My.Resources.connStringDISPO_TEST Else cn.ConnectionString = My.Resources.connStringDISPO End If cn.Open() Return cn End Function Public Shared Function GetNewOpenConnectionLogin() As SqlConnection Dim cn As New SqlConnection() cn.ConnectionString = My.Resources.connStringDispoAdmin cn.Open() Return cn End Function End Class Public Class cEntry Property kd_id As String = "" Property kd_firma As String = "" Property kd_str As String = "" Property kd_strnr As String = "" Property kd_plz As String = "" Property kd_ort As String = "" Property kd_land As String = "" Property kd_anspr1_vn As String = "" Property kd_anspr1_nn As String = "" Property kd_anspr2_vn As String = "" Property kd_anspr2_nn As String = "" Property kd_tel As String = "" Property kd_fax As String = "" Property kd_email As String = "" Property kd_homepage As String = "" Property kd_TIMOCOM As String = "" Property kd_oez_id As String = "" Property kd_neutralisierung As String = "1" Property kd_aviso As String = "2" Property kd_isRefNr As String = "" Property kd_refNr As String = "" Property kd_info As String = "" Property kd_tarifInfo As String = "" Property kd_rolle As String = "" Property kd_AVISOfirma As String = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA Property kdoez As cOeffnungszeiten Property kd_FMZOLL_KdNr As Object = Nothing Public hasEntry = False Dim OP As New cOptionenDAL Sub New() End Sub Sub New(id) LOAD(id) End Sub Public Function LOAD(id) As Boolean 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim sql As String = "SELECT * FROM tblKunden WHERE kd_id = '" & CInt(id) & "'" ' Dim daten As cEntry = Nothing Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then dr.Read() 'daten = New cEntry() Try Me.kd_id = dr.Item("kd_id") Me.kd_firma = dr.Item("kd_firma") Me.kd_str = dr.Item("kd_str") Me.kd_strnr = dr.Item("kd_strnr") Me.kd_plz = dr.Item("kd_plz") Me.kd_ort = dr.Item("kd_ort") Me.kd_land = dr.Item("kd_land") Me.kd_anspr1_vn = dr.Item("kd_anspr1_vn") Me.kd_anspr1_nn = dr.Item("kd_anspr1_nn") Me.kd_anspr2_vn = dr.Item("kd_anspr2_vn") Me.kd_anspr2_nn = dr.Item("kd_anspr2_nn") Me.kd_tel = dr.Item("kd_tel") Me.kd_fax = dr.Item("kd_fax") Me.kd_email = dr.Item("kd_email") Me.kd_homepage = dr.Item("kd_homepage") Me.kd_TIMOCOM = cMeineFunktionen.VarToStr(dr.Item("kd_TIMOCOM")) Me.kd_oez_id = dr.Item("kd_oez_id") Me.kd_neutralisierung = dr.Item("kd_neutralisierung") Me.kd_aviso = dr.Item("kd_aviso") Me.kd_isRefNr = dr.Item("kd_isRefNr") If Not dr.Item("kd_refNr") Is DBNull.Value Then Me.kd_refNr = dr.Item("kd_refNr") Me.kd_info = dr.Item("kd_info") Me.kd_AVISOfirma = dr.Item("kd_AVISOfirma") If Not dr.Item("kd_tarifInfo") Is Nothing And Not dr.Item("kd_tarifInfo") Is DBNull.Value Then Me.kd_tarifInfo = dr.Item("kd_tarifInfo") Else Me.kd_tarifInfo = "" If Not dr.Item("kd_rolle") = vbNullString Then Me.kd_rolle = dr.Item("kd_rolle") Else Me.kd_rolle = 0 If dr.Item("kd_FMZOLL_KdNr") IsNot DBNull.Value Then Me.kd_FMZOLL_KdNr = dr.Item("kd_FMZOLL_KdNr") Else Me.kd_FMZOLL_KdNr = Nothing hasEntry = True Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Kunden-Datenbank:" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) End Try LOAD = True Else Return False End If dr.Close() End Using End Using Me.kdoez = OP.getOeffungszeiten(Me.kd_oez_id) Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Kunden-Datenbank:" & vbCrLf & vbCrLf & ex.Message & sql, vbExclamation, "Datenbankfehler") ' MsgBox(">" & id & "<") LOAD = False End Try End Function End Class Public Class cOeffnungszeiten Property oz_id As Integer Property oz_montag_von1 As String = "" Property oz_montag_bis1 As String = "" Property oz_montag_von2 As String = "" Property oz_montag_bis2 As String = "" Property oz_dienstag_von1 As String = "" Property oz_dienstag_bis1 As String = "" Property oz_dienstag_von2 As String = "" Property oz_dienstag_bis2 As String = "" Property oz_mittwoch_von1 As String = "" Property oz_mittwoch_bis1 As String = "" Property oz_mittwoch_von2 As String = "" Property oz_mittwoch_bis2 As String = "" Property oz_donnerstag_von1 As String = "" Property oz_donnerstag_bis1 As String = "" Property oz_donnerstag_von2 As String = "" Property oz_donnerstag_bis2 As String = "" Property oz_freitag_von1 As String = "" Property oz_freitag_bis1 As String = "" Property oz_freitag_von2 As String = "" Property oz_freitag_bis2 As String = "" Property oz_samstag_von1 As String = "" Property oz_samstag_bis1 As String = "" Property oz_samstag_von2 As String = "" Property oz_samstag_bis2 As String = "" Property oz_sonntag_von1 As String = "" Property oz_sonntag_bis1 As String = "" Property oz_sonntag_von2 As String = "" Property oz_sonntag_bis2 As String = "" Property oz_montag_closed As Boolean = False Property oz_dienstag_closed As Boolean = False Property oz_mittoch_closed As Boolean = False Property oz_donnerstag_closed As Boolean = False Property oz_freitag_closed As Boolean = False Property oz_samstag_closed As Boolean = True Property oz_sonntag_closed As Boolean = True End Class Public Class cOptionenDAL Public USERBER As Integer Public USRNAME As String Public atr_id_insert As Integer = -1 Public Function getAktuelleVersion() As String Dim sql As String = "SELECT prog_aktuelleVersion FROM tblProgramme WHERE prog_codename=@codename" Dim dr As SqlDataReader Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionLogin() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@codename", "DISPO") dr = cmd.ExecuteReader() Try If dr.Read Then Return CStr(dr.Item("prog_aktuelleVersion")) Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Finally dr.Close() End Try End Using End Using Return "0" End Function Public Function getMaxPosNrIncrement(FilialeNr As Integer, year As Integer) As Integer Dim newMaxwert = CInt(year.ToString.Substring(2, 2) & "000000") '16000000 Dim conn As SqlConnection = cSqlDb.GetNewOpenConnectionLogin() Dim sql As String = " begin tran" & " if exists (select * from tblPosNr with (updlock,serializable) WHERE FilialeNr = @FilialeNr AND Jahr = @Jahr) " & " begin " & " UPDATE tblPosNr " & " SET wert=(select MAX(wert) FROM tblPosNr WHERE FilialeNr = @FilialeNr AND Jahr = @Jahr)+1 " & " WHERE FilialeNr = @FilialeNr AND Jahr = @Jahr " & " End " & " Else " & " begin " & " INSERT INTO tblPosNr " & " (wert,FilialeNr,Jahr) " & " VALUES(@newMaxwert, @FilialeNr,@Jahr) " & " End " & " commit tran " & " SELECT isnull(wert,-1) FROM tblPosNr WHERE FilialeNr = @FilialeNr AND Jahr = @Jahr" Dim dr As SqlDataReader Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@FilialeNr", FilialeNr) cmd.Parameters.AddWithValue("@Jahr", year) cmd.Parameters.AddWithValue("@newMaxwert", newMaxwert) Try dr = cmd.ExecuteReader() If dr.Read Then Return CInt(dr.Item(0)) Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Finally dr.Close() End Try End Using ' conn.Close() Return -1 End Function Public Function loadDgvBySql(ByVal sql As String, Optional conn_art As String = "DISPO") As DataTable Try Dim myTable = New DataTable() Dim conn As New SqlConnection Select Case conn_art Case "DISPO" : conn = cSqlDb.GetNewOpenConnection() End Select ' Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() myTable.Load(dr) dr.Close() End Using conn.Close() ' End Using Return myTable 'While Schleife wird hier verlassen Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) End Try Return Nothing End Function Public Function loadCboBySqlWithListItem(ByVal sql As String, Optional showValueInText As Boolean = True, Optional conn_art As String = "DISPO") As List(Of MyListItem) Dim o As New List(Of MyListItem) Try Dim conn As New SqlConnection Select Case conn_art Case "DISPO" : conn = cSqlDb.GetNewOpenConnection() End Select Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() While dr.Read If showValueInText Then o.Add(New MyListItem(dr.Item(0) & vbTab & " - " & dr.Item(1), dr.Item(0))) Else Try o.Add(New MyListItem(dr.Item(1), dr.Item(0))) Catch ex As Exception o.Add(New MyListItem(dr.Item(0), dr.Item(0))) End Try End If End While dr.Close() End Using conn.Close() Return o 'While Schleife wird hier verlassen Catch ex As Exception MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message) End Try Return Nothing End Function 'WHERE Year (Txn_Date) = 1998; Public Function newAuftrag() As Integer Dim sql = "INSERT INTO tblAuftraege " & "(atr_frachtpos,atr_datum,bh_mon,cmr_uebergabe_datum) VALUES" & "(@atr_frachtpos,@atr_datum,@bh_mon,@cmr_uebergabe_datum) " ' datTA.Value = Now ' txtbhMon.Text = Now.ToString("MM") ' "(atr_frachtpos, atr_datum, atr_speditionsbuchNr, atr_frachtf_id, atr_ladest_id, atr_entladest_id, atr_auftr_id, atr_frachtf_firma, atr_frachtf_str, atr_frachtf_strnr, atr_frachtf_land, atr_frachtf_plz, atr_frachtf_ort, atr_frachtf_anspr, atr_ladest_firma, atr_ladest_str, atr_ladest_strnr, atr_ladest_land, atr_ladest_plz, atr_ladest_ort, atr_ladest_anspr, atr_ladest_terminDat, atr_ladest_terminVon, atr_ladest_terminBis, atr_entladest_firma, atr_entladest_str, atr_entladest_strnr, atr_entladest_land, atr_entladest_plz, atr_entladest_ort, atr_entladest_anspr, atr_entladest_terminDat, atr_entladest_terminVon, atr_entladest_terminBis,atr_auftr_firma, atr_auftr_str, atr_auftr_strnr, atr_auftr_land, atr_auftr_plz, atr_auftr_ort, atr_auftr_anspr, atr_trans_firma, atr_trans_str, atr_trans_strnr, atr_trans_land, atr_trans_plz, atr_trans_ort, atr_trans_anspr, atr_lkwKz, atr_lkwArt, atr_lkwNutzlast,atr_anhKz, atr_anhNutzlast, atr_bemerkung, atr_frachtkosten, atr_gefahrengut,atr_frachtIsTrans,atr_abliefernachweis,cmr_ausl_land, cmr_ausl_ort, cmr_beigefDok, cmr_anwAbs, cmr_rueckerst, cmr_frZahlanwFrei, cmr_frZahlanwUnfrei, cmr_besVereinb, cmr_ausgefIn,cmr_uebergabe_land, cmr_uebergabe_ort, cmr_uebergabe_datum, cmr_vorbehFrachtf,bh_mon, bh_unterKennz_1, bh_unterKennz_bis_1, bh_unterKennz_kosten_1, bh_unterKennz_2, bh_unterKennz_bis_2, bh_unterKennz_kosten_2, bh_unterKennz_3, bh_unterKennz_bis_3, bh_unterKennz_kosten_3, bh_unterKennz_4, bh_unterKennz_bis_4, bh_unterKennz_kosten_4,bh_vermerke) VALUES " & ' "( @atr_frachtpos, @atr_datum, @atr_speditionsbuchNr, @atr_frachtf_id, @atr_ladest_id, @atr_entladest_id, @atr_auftr_id, @atr_frachtf_firma, @atr_frachtf_str, @atr_frachtf_strnr, @atr_frachtf_land, @atr_frachtf_plz, @atr_frachtf_ort, @ atr_frachtf_anspr, @atr_ladest_firma, @atr_ladest_str, @atr_ladest_strnr, @atr_ladest_land, @atr_ladest_plz, @atr_ladest_ort, @atr_ladest_anspr, @atr_ladest_terminDat, @atr_ladest_terminVon, @atr_ladest_terminBis, @atr_entladest_firma, @atr_entladest_str, @atr_entladest_strnr, @atr_entladest_land, @atr_entladest_plz, @atr_entladest_ort, @atr_entladest_anspr, @atr_entladest_terminDat, @atr_entladest_terminVon, @atr_entladest_terminBis, @atr_auftr_firma, @atr_auftr_str, @atr_auftr_strnr, @atr_auftr_land, @atr_auftr_plz, @atr_auftr_ort, @atr_auftr_anspr, @atr_trans_firma, @atr_trans_str, @atr_trans_strnr, @atr_trans_land, @atr_trans_plz, @atr_trans_ort, @atr_trans_anspr, @atr_lkwKz, @atr_lkwArt, @atr_lkwNutzlast, @atr_anhKz, @atr_anhNutzlast, @atr_bemerkung, @atr_frachtkosten, @atr_gefahrengut, @atr_frachtIsTrans, @atr_abliefernachweis, @cmr_ausl_land, @cmr_ausl_ort, @cmr_beigefDok, @cmr_anwAbs, @cmr_rueckerst, @cmr_frZahlanwFrei, @cmr_frZahlanwUnfrei, @cmr_besVereinb, @cmr_ausgefIn, @cmr_uebergabe_land, @cmr_uebergabe_ort, @cmr_uebergabe_datum, @cmr_vorbehFrachtf, @bh_mon, @bh_unterKennz_1, @bh_unterKennz_bis_1, @bh_unterKennz_kosten_1, @bh_unterKennz_2, @bh_unterKennz_bis_2, @bh_unterKennz_kosten_2, @bh_unterKennz_3, @bh_unterKennz_bis_3, @bh_unterKennz_kosten_3, @bh_unterKennz_4, @bh_unterKennz_bis_4, @bh_unterKennz_kosten_4, @bh_vermerke)" Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@atr_frachtpos", "") cmd.Parameters.AddWithValue("@atr_datum", Now) cmd.Parameters.AddWithValue("@bh_mon", Now.ToString("MM")) cmd.Parameters.AddWithValue("@cmr_uebergabe_datum", Now.ToShortDateString) Try cmd.ExecuteNonQuery() Dim newcmd As New SqlCommand("SELECT @@IDENTITY", conn) Return newcmd.ExecuteScalar Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") End Try End Using End Using Return -1 End Function Public Function getFrachtpos() As Integer 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim sql As String = "SELECT top 1 opt_wert FROM tblOptions WHERE opt_name = 'frachtpos' " Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then dr.Read() Return CInt(dr.Item("opt_wert")) + 1 End If dr.Close() End Using End Using Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der FrachtposNr.:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") End Try Return Nothing End Function Public Function setFrachtpos(ByVal f As Integer) As Boolean Dim sql = "UPDATE tblOptions SET opt_wert=@opt_wert WHERE opt_name = 'frachtpos' " Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@opt_wert", f) Try cmd.ExecuteNonQuery() Return True Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") End Try End Using End Using Return False End Function Public Function insertNurAuftrag(ByVal d As cAuftraege) As Integer Dim sql = "INSERT INTO tblAuftraege " & "(atr_frachtpos, atr_datum, atr_speditionsbuchNr, atr_frachtf_id, atr_ladest_id, atr_entladest_id, atr_auftr_id, atr_frachtf_firma, atr_frachtf_str, atr_frachtf_strnr, atr_frachtf_land, atr_frachtf_plz, atr_frachtf_ort, atr_frachtf_anspr, atr_ladest_firma, atr_ladest_str, atr_ladest_strnr, atr_ladest_land, atr_ladest_plz, atr_ladest_ort, atr_ladest_anspr, atr_ladest_termin, atr_ladest_terminDat, atr_ladest_terminVon,atr_ladest_terminBis, atr_ladest_refNr, atr_ladest_isRefNr, atr_entladest_firma, atr_entladest_str, atr_entladest_strnr, atr_entladest_land, atr_entladest_plz, atr_entladest_ort, atr_entladest_anspr, atr_entladest_termin,atr_entladest_terminDat, atr_entladest_terminVon,atr_entladest_terminBis, atr_auftr_firma, atr_auftr_str, atr_auftr_strnr, atr_auftr_land, atr_auftr_plz, atr_auftr_ort,atr_auftr_anspr, atr_trans_firma, atr_trans_str, atr_trans_strnr, atr_trans_land, atr_trans_plz, atr_trans_ort,atr_trans_anspr, atr_lkwKz, atr_lkwArt,atr_lkwNutzlast,atr_anhKz,atr_anhNutzlast, atr_bemerkung, atr_frachtkosten, atr_gefahrengut,atr_frachtIsTrans, atr_abliefernachweis,cmr_ausl_land, cmr_ausl_ort, cmr_beigefDok, cmr_anwAbs, cmr_rueckerst, cmr_frZahlanwFrei, cmr_frZahlanwUnfrei, cmr_besVereinb, cmr_ausgefIn, cmr_uebergabe_land,cmr_uebergabe_ort,cmr_uebergabe_datum,cmr_vorbehFrachtf, bh_mon, bh_vermerke,atr_notes,atr_altladest_id, atr_altladest_firma, atr_altladest_str, atr_altladest_strnr, atr_altladest_land, atr_altladest_plz, atr_altladest_ort, atr_altladest_anspr,atr_hasaltladest,atr_verzollungsadresse) VALUES" & "(@atr_frachtpos, @atr_datum, @atr_speditionsbuchNr, @atr_frachtf_id, @atr_ladest_id, @atr_entladest_id, @atr_auftr_id, @atr_frachtf_firma, @atr_frachtf_str, @atr_frachtf_strnr, @atr_frachtf_land, @atr_frachtf_plz, @atr_frachtf_ort, @atr_frachtf_anspr, @atr_ladest_firma, @atr_ladest_str, @atr_ladest_strnr, @atr_ladest_land, @atr_ladest_plz, @atr_ladest_ort, @atr_ladest_anspr, @atr_ladest_termin, @atr_ladest_terminDat, @atr_ladest_terminVon, @atr_ladest_terminBis, @atr_ladest_refNr, @atr_ladest_isRefNr, @atr_entladest_firma, @atr_entladest_str, @atr_entladest_strnr, @atr_entladest_land, @atr_entladest_plz, @atr_entladest_ort, @atr_entladest_anspr, @atr_entladest_termin, @atr_entladest_terminDat, @atr_entladest_terminVon, @atr_entladest_terminBis, @atr_auftr_firma, @atr_auftr_str, @atr_auftr_strnr, @atr_auftr_land, @atr_auftr_plz, @atr_auftr_ort, @atr_auftr_anspr, @atr_trans_firma, @atr_trans_str, @atr_trans_strnr, @atr_trans_land, @atr_trans_plz, @atr_trans_ort, @atr_trans_anspr, @atr_lkwKz, @atr_lkwArt, @atr_lkwNutzlast, @atr_anhKz, @atr_anhNutzlast, @atr_bemerkung, @atr_frachtkosten, @atr_gefahrengut, @atr_frachtIsTrans, @atr_abliefernachweis, @cmr_ausl_land, @cmr_ausl_ort, @cmr_beigefDok, @cmr_anwAbs, @cmr_rueckerst, @cmr_frZahlanwFrei, @cmr_frZahlanwUnfrei, @cmr_besVereinb, @cmr_ausgefIn, @cmr_uebergabe_land, @cmr_uebergabe_ort, @cmr_uebergabe_datum, @cmr_vorbehFrachtf, @bh_mon, @bh_vermerke,@atr_notes,@atr_altladest_id, @atr_altladest_firma, @atr_altladest_str, @atr_altladest_strnr, @atr_altladest_land, @atr_altladest_plz, @atr_altladest_ort, @atr_altladest_anspr,@atr_hasaltladest,@atr_verzollungsadresse) " ' "(atr_frachtpos, atr_datum, atr_speditionsbuchNr, atr_frachtf_id, atr_ladest_id, atr_entladest_id, atr_auftr_id, atr_frachtf_firma, atr_frachtf_str, atr_frachtf_strnr, atr_frachtf_land, atr_frachtf_plz, atr_frachtf_ort, atr_frachtf_anspr, atr_ladest_firma, atr_ladest_str, atr_ladest_strnr, atr_ladest_land, atr_ladest_plz, atr_ladest_ort, atr_ladest_anspr, atr_ladest_terminDat, atr_ladest_terminVon, atr_ladest_terminBis, atr_entladest_firma, atr_entladest_str, atr_entladest_strnr, atr_entladest_land, atr_entladest_plz, atr_entladest_ort, atr_entladest_anspr, atr_entladest_terminDat, atr_entladest_terminVon, atr_entladest_terminBis,atr_auftr_firma, atr_auftr_str, atr_auftr_strnr, atr_auftr_land, atr_auftr_plz, atr_auftr_ort, atr_auftr_anspr, atr_trans_firma, atr_trans_str, atr_trans_strnr, atr_trans_land, atr_trans_plz, atr_trans_ort, atr_trans_anspr, atr_lkwKz, atr_lkwArt, atr_lkwNutzlast,atr_anhKz, atr_anhNutzlast, atr_bemerkung, atr_frachtkosten, atr_gefahrengut,atr_frachtIsTrans,atr_abliefernachweis,cmr_ausl_land, cmr_ausl_ort, cmr_beigefDok, cmr_anwAbs, cmr_rueckerst, cmr_frZahlanwFrei, cmr_frZahlanwUnfrei, cmr_besVereinb, cmr_ausgefIn,cmr_uebergabe_land, cmr_uebergabe_ort, cmr_uebergabe_datum, cmr_vorbehFrachtf,bh_mon, bh_unterKennz_1, bh_unterKennz_bis_1, bh_unterKennz_kosten_1, bh_unterKennz_2, bh_unterKennz_bis_2, bh_unterKennz_kosten_2, bh_unterKennz_3, bh_unterKennz_bis_3, bh_unterKennz_kosten_3, bh_unterKennz_4, bh_unterKennz_bis_4, bh_unterKennz_kosten_4,bh_vermerke) VALUES " & ' "( @atr_frachtpos, @atr_datum, @atr_speditionsbuchNr, @atr_frachtf_id, @atr_ladest_id, @atr_entladest_id, @atr_auftr_id, @atr_frachtf_firma, @atr_frachtf_str, @atr_frachtf_strnr, @atr_frachtf_land, @atr_frachtf_plz, @atr_frachtf_ort, @ atr_frachtf_anspr, @atr_ladest_firma, @atr_ladest_str, @atr_ladest_strnr, @atr_ladest_land, @atr_ladest_plz, @atr_ladest_ort, @atr_ladest_anspr, @atr_ladest_terminDat, @atr_ladest_terminVon, @atr_ladest_terminBis, @atr_entladest_firma, @atr_entladest_str, @atr_entladest_strnr, @atr_entladest_land, @atr_entladest_plz, @atr_entladest_ort, @atr_entladest_anspr, @atr_entladest_terminDat, @atr_entladest_terminVon, @atr_entladest_terminBis, @atr_auftr_firma, @atr_auftr_str, @atr_auftr_strnr, @atr_auftr_land, @atr_auftr_plz, @atr_auftr_ort, @atr_auftr_anspr, @atr_trans_firma, @atr_trans_str, @atr_trans_strnr, @atr_trans_land, @atr_trans_plz, @atr_trans_ort, @atr_trans_anspr, @atr_lkwKz, @atr_lkwArt, @atr_lkwNutzlast, @atr_anhKz, @atr_anhNutzlast, @atr_bemerkung, @atr_frachtkosten, @atr_gefahrengut, @atr_frachtIsTrans, @atr_abliefernachweis, @cmr_ausl_land, @cmr_ausl_ort, @cmr_beigefDok, @cmr_anwAbs, @cmr_rueckerst, @cmr_frZahlanwFrei, @cmr_frZahlanwUnfrei, @cmr_besVereinb, @cmr_ausgefIn, @cmr_uebergabe_land, @cmr_uebergabe_ort, @cmr_uebergabe_datum, @cmr_vorbehFrachtf, @bh_mon, @bh_unterKennz_1, @bh_unterKennz_bis_1, @bh_unterKennz_kosten_1, @bh_unterKennz_2, @bh_unterKennz_bis_2, @bh_unterKennz_kosten_2, @bh_unterKennz_3, @bh_unterKennz_bis_3, @bh_unterKennz_kosten_3, @bh_unterKennz_4, @bh_unterKennz_bis_4, @bh_unterKennz_kosten_4, @bh_vermerke)" Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@atr_frachtpos", d.atr_frachtpos) cmd.Parameters.AddWithValue("@atr_datum", d.atr_datum) cmd.Parameters.AddWithValue("@atr_speditionsbuchNr", d.atr_speditionsbuchNr) cmd.Parameters.AddWithValue("@atr_frachtf_id", d.atr_frachtf_id) cmd.Parameters.AddWithValue("@atr_ladest_id", d.atr_ladest_id) cmd.Parameters.AddWithValue("@atr_entladest_id", d.atr_entladest_id) cmd.Parameters.AddWithValue("@atr_auftr_id", d.atr_auftr_id) cmd.Parameters.AddWithValue("@atr_frachtf_firma", d.atr_frachtf_firma) cmd.Parameters.AddWithValue("@atr_frachtf_str", d.atr_frachtf_str) cmd.Parameters.AddWithValue("@atr_frachtf_strnr", d.atr_frachtf_strnr) cmd.Parameters.AddWithValue("@atr_frachtf_land", d.atr_frachtf_land) cmd.Parameters.AddWithValue("@atr_frachtf_plz", d.atr_frachtf_plz) cmd.Parameters.AddWithValue("@atr_frachtf_ort", d.atr_frachtf_ort) cmd.Parameters.AddWithValue("@atr_frachtf_anspr", d.atr_frachtf_anspr) cmd.Parameters.AddWithValue("@atr_ladest_firma", d.atr_ladest_firma) cmd.Parameters.AddWithValue("@atr_ladest_str", d.atr_ladest_str) cmd.Parameters.AddWithValue("@atr_ladest_strnr", d.atr_ladest_strnr) cmd.Parameters.AddWithValue("@atr_ladest_land", d.atr_ladest_land) cmd.Parameters.AddWithValue("@atr_ladest_plz", d.atr_ladest_plz) cmd.Parameters.AddWithValue("@atr_ladest_ort", d.atr_ladest_ort) cmd.Parameters.AddWithValue("@atr_ladest_anspr", d.atr_ladest_anspr) cmd.Parameters.AddWithValue("@atr_ladest_termin", d.atr_ladest_termin) cmd.Parameters.AddWithValue("@atr_ladest_terminDat", d.atr_ladest_terminDat) cmd.Parameters.AddWithValue("@atr_ladest_terminVon", d.atr_ladest_terminVon) cmd.Parameters.AddWithValue("@atr_ladest_terminBis", d.atr_ladest_terminBis) cmd.Parameters.AddWithValue("@atr_ladest_refNr", d.atr_ladest_refNr) cmd.Parameters.AddWithValue("@atr_ladest_isRefNr", d.atr_ladest_isRefNr) cmd.Parameters.AddWithValue("@atr_hasaltladest", d.atr_hasaltladest) cmd.Parameters.AddWithValue("@atr_altladest_id", d.atr_altladest_id) cmd.Parameters.AddWithValue("@atr_altladest_firma", d.atr_altladest_firma) cmd.Parameters.AddWithValue("@atr_altladest_str", d.atr_altladest_str) cmd.Parameters.AddWithValue("@atr_altladest_strnr", d.atr_altladest_strnr) cmd.Parameters.AddWithValue("@atr_altladest_land", d.atr_altladest_land) cmd.Parameters.AddWithValue("@atr_altladest_plz", d.atr_altladest_plz) cmd.Parameters.AddWithValue("@atr_altladest_ort", d.atr_altladest_ort) cmd.Parameters.AddWithValue("@atr_altladest_anspr", d.atr_altladest_anspr) cmd.Parameters.AddWithValue("@atr_entladest_firma", d.atr_entladest_firma) cmd.Parameters.AddWithValue("@atr_entladest_str", d.atr_entladest_str) cmd.Parameters.AddWithValue("@atr_entladest_strnr", d.atr_entladest_strnr) cmd.Parameters.AddWithValue("@atr_entladest_land", d.atr_entladest_land) cmd.Parameters.AddWithValue("@atr_entladest_plz", d.atr_entladest_plz) cmd.Parameters.AddWithValue("@atr_entladest_ort", d.atr_entladest_ort) cmd.Parameters.AddWithValue("@atr_entladest_anspr", d.atr_entladest_anspr) cmd.Parameters.AddWithValue("@atr_entladest_termin", d.atr_entladest_termin) cmd.Parameters.AddWithValue("@atr_entladest_terminDat", d.atr_entladest_terminDat) cmd.Parameters.AddWithValue("@atr_entladest_terminVon", d.atr_entladest_terminVon) cmd.Parameters.AddWithValue("@atr_entladest_terminBis", d.atr_entladest_terminBis) cmd.Parameters.AddWithValue("@atr_auftr_firma", d.atr_auftr_firma) cmd.Parameters.AddWithValue("@atr_auftr_str", d.atr_auftr_str) cmd.Parameters.AddWithValue("@atr_auftr_strnr", d.atr_auftr_strnr) cmd.Parameters.AddWithValue("@atr_auftr_land", d.atr_auftr_land) cmd.Parameters.AddWithValue("@atr_auftr_plz", d.atr_auftr_plz) cmd.Parameters.AddWithValue("@atr_auftr_ort", d.atr_auftr_ort) cmd.Parameters.AddWithValue("@atr_auftr_anspr", d.atr_auftr_anspr) cmd.Parameters.AddWithValue("@atr_trans_firma", d.atr_trans_firma) cmd.Parameters.AddWithValue("@atr_trans_str", d.atr_trans_str) cmd.Parameters.AddWithValue("@atr_trans_strnr", d.atr_trans_strnr) cmd.Parameters.AddWithValue("@atr_trans_land", d.atr_trans_land) cmd.Parameters.AddWithValue("@atr_trans_plz", d.atr_trans_plz) cmd.Parameters.AddWithValue("@atr_trans_ort", d.atr_trans_ort) cmd.Parameters.AddWithValue("@atr_trans_anspr", d.atr_trans_anspr) cmd.Parameters.AddWithValue("@atr_lkwKz", d.atr_lkwKz) cmd.Parameters.AddWithValue("@atr_lkwArt", d.atr_lkwArt) cmd.Parameters.AddWithValue("@atr_lkwNutzlast", d.atr_lkwNutzlast) cmd.Parameters.AddWithValue("@atr_anhKz", d.atr_anhKz) cmd.Parameters.AddWithValue("@atr_anhNutzlast", d.atr_anhNutzlast) cmd.Parameters.AddWithValue("@atr_bemerkung", d.atr_bemerkung) cmd.Parameters.AddWithValue("@atr_frachtkosten", d.atr_frachtkosten) cmd.Parameters.AddWithValue("@atr_gefahrengut", d.atr_gefahrengut) cmd.Parameters.AddWithValue("@atr_verzollungsadresse", d.atr_verzollungsadresse) cmd.Parameters.AddWithValue("@atr_frachtIsTrans", d.atr_frachtIsTrans) cmd.Parameters.AddWithValue("@atr_abliefernachweis", d.atr_abliefernachweis) cmd.Parameters.AddWithValue("@cmr_ausl_land", d.cmr_ausl_land) cmd.Parameters.AddWithValue("@cmr_ausl_ort", d.cmr_ausl_ort) cmd.Parameters.AddWithValue("@cmr_beigefDok", d.cmr_beigefDok) cmd.Parameters.AddWithValue("@cmr_anwAbs", d.cmr_anwAbs) cmd.Parameters.AddWithValue("@cmr_rueckerst", d.cmr_rueckerst) cmd.Parameters.AddWithValue("@cmr_frZahlanwFrei", d.cmr_frZahlanwFrei) cmd.Parameters.AddWithValue("@cmr_frZahlanwUnfrei", d.cmr_frZahlanwUnfrei) cmd.Parameters.AddWithValue("@cmr_besVereinb", d.cmr_besVereinb) cmd.Parameters.AddWithValue("@cmr_ausgefIn", d.cmr_ausgefIn) cmd.Parameters.AddWithValue("@cmr_uebergabe_land", d.cmr_uebergabe_land) cmd.Parameters.AddWithValue("@cmr_uebergabe_ort", d.cmr_uebergabe_ort) cmd.Parameters.AddWithValue("@cmr_uebergabe_datum", d.cmr_uebergabe_datum) cmd.Parameters.AddWithValue("@cmr_vorbehFrachtf", d.cmr_vorbehFrachtf) cmd.Parameters.AddWithValue("@bh_mon", d.bh_mon) ' cmd.Parameters.AddWithValue("@bh_unterKennz_1", d.bh_unterKennz_1) 'cmd.Parameters.AddWithValue("@bh_unterKennz_bis_1", d.bh_unterKennz_bis_1) 'cmd.Parameters.AddWithValue("@bh_unterKennz_kosten_1", d.bh_unterKennz_kosten_1) 'cmd.Parameters.AddWithValue("@bh_unterKennz_2", d.bh_unterKennz_2) 'cmd.Parameters.AddWithValue("@bh_unterKennz_bis_2", d.bh_unterKennz_bis_2) 'cmd.Parameters.AddWithValue("@bh_unterKennz_kosten_2", d.bh_unterKennz_kosten_2) 'cmd.Parameters.AddWithValue("@bh_unterKennz_3", d.bh_unterKennz_3) 'cmd.Parameters.AddWithValue("@bh_unterKennz_bis_3", d.bh_unterKennz_bis_3) 'cmd.Parameters.AddWithValue("@bh_unterKennz_kosten_3", d.bh_unterKennz_kosten_3) 'cmd.Parameters.AddWithValue("@bh_unterKennz_4", d.bh_unterKennz_4) 'cmd.Parameters.AddWithValue("@bh_unterKennz_bis_4", d.bh_unterKennz_bis_4) 'cmd.Parameters.AddWithValue("@bh_unterKennz_kosten_4", d.bh_unterKennz_kosten_4) cmd.Parameters.AddWithValue("@bh_vermerke", d.bh_vermerke) cmd.Parameters.AddWithValue("@atr_notes", d.atr_notes) Try cmd.ExecuteNonQuery() Dim newcmd As New SqlCommand("SELECT @@IDENTITY", conn) Return newcmd.ExecuteScalar Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") End Try End Using End Using Return -1 End Function Public Function updateAuftragUndLadung(ByVal cAuftraege As cAuftraege) As Boolean If Not updateNurAuftrag(cAuftraege) Then Return False ' Aufträge updaten If Not delLadungenByAufrtId(cAuftraege.atr_id) Then Return False 'alle vorhandenen Einträge aus LAndungen löschen If Not insertLadungen(cAuftraege.atr_id, cAuftraege.atr_ladungen) Then Return False If Not delBhRechnungenByAufrtId(cAuftraege.atr_id) Then Return False 'alle vorhandenen Einträge aus LAndungen löschen If Not insertRechnungen(cAuftraege.atr_id, cAuftraege.bh_rechnungen) Then Return False Return True End Function Public Function updateNurAuftrag(ByVal d As cAuftraege) As Boolean Dim sql = "UPDATE tblAuftraege " & "SET atr_frachtpos=@atr_frachtpos, atr_datum=@atr_datum, atr_speditionsbuchNr=@atr_speditionsbuchNr,atr_frachtf_id=@atr_frachtf_id, atr_ladest_id=@atr_ladest_id, atr_entladest_id=@atr_entladest_id, atr_auftr_id=@atr_auftr_id, atr_frachtf_firma=@atr_frachtf_firma, atr_frachtf_str=@atr_frachtf_str, atr_frachtf_strnr=@atr_frachtf_strnr, atr_frachtf_land=@atr_frachtf_land, atr_frachtf_plz=@atr_frachtf_plz, atr_frachtf_ort=@atr_frachtf_ort, atr_frachtf_anspr=@atr_frachtf_anspr, atr_ladest_firma=@atr_ladest_firma, atr_ladest_str=@atr_ladest_str, atr_ladest_strnr=@atr_ladest_strnr, atr_ladest_land=@atr_ladest_land, atr_ladest_plz=@atr_ladest_plz, atr_ladest_ort=@atr_ladest_ort, atr_ladest_anspr=@atr_ladest_anspr, atr_ladest_termin=@atr_ladest_termin, atr_ladest_terminDat=@atr_ladest_terminDat, atr_ladest_terminVon=@atr_ladest_terminVon,atr_ladest_terminBis=@atr_ladest_terminBis, atr_ladest_refNr=@atr_ladest_refNr, atr_ladest_isRefNr=@atr_ladest_isRefNr, atr_entladest_firma=@atr_entladest_firma, atr_entladest_str=@atr_entladest_str, atr_entladest_strnr=@atr_entladest_strnr, atr_entladest_land=@atr_entladest_land, atr_entladest_plz=@atr_entladest_plz, atr_entladest_ort=@atr_entladest_ort, atr_entladest_anspr=@atr_entladest_anspr, atr_entladest_termin=@atr_entladest_termin, atr_entladest_terminDat=@atr_entladest_terminDat, atr_entladest_terminVon=@atr_entladest_terminVon,atr_entladest_terminBis=@atr_entladest_terminBis, atr_auftr_firma=@atr_auftr_firma, atr_auftr_str=@atr_auftr_str, atr_auftr_strnr=@atr_auftr_strnr, atr_auftr_land=@atr_auftr_land, atr_auftr_plz=@atr_auftr_plz, atr_auftr_ort=@atr_auftr_ort,atr_auftr_anspr=@atr_auftr_anspr, atr_trans_firma=@atr_trans_firma, atr_trans_str=@atr_trans_str, atr_trans_strnr=@atr_trans_strnr, atr_trans_land=@atr_trans_land, atr_trans_plz=@atr_trans_plz, atr_trans_ort=@atr_trans_ort,atr_trans_anspr=@atr_trans_anspr, atr_lkwKz=@atr_lkwKz, atr_lkwArt=@atr_lkwArt,atr_lkwNutzlast=@atr_lkwNutzlast,atr_anhKz=@atr_anhKz,atr_anhNutzlast=@atr_anhNutzlast, atr_bemerkung=@atr_bemerkung, atr_frachtkosten=@atr_frachtkosten, atr_gefahrengut=@atr_gefahrengut,atr_frachtIsTrans=@atr_frachtIsTrans, atr_abliefernachweis=@atr_abliefernachweis ,cmr_ausl_land=@cmr_ausl_land, cmr_ausl_ort=@cmr_ausl_ort, cmr_beigefDok=@cmr_beigefDok, cmr_anwAbs=@cmr_anwAbs, cmr_rueckerst=@cmr_rueckerst, cmr_frZahlanwFrei=@cmr_frZahlanwFrei, cmr_frZahlanwUnfrei=@cmr_frZahlanwUnfrei, cmr_besVereinb=@cmr_besVereinb, cmr_ausgefIn=@cmr_ausgefIn, cmr_uebergabe_land=@cmr_uebergabe_land,cmr_uebergabe_ort=@cmr_uebergabe_ort,cmr_uebergabe_datum=@cmr_uebergabe_datum,cmr_vorbehFrachtf=@cmr_vorbehFrachtf, bh_mon=@bh_mon, bh_unterKennz_1=@bh_unterKennz_1, bh_unterKennz_bis_1=@bh_unterKennz_bis_1, bh_unterKennz_kosten_1=@bh_unterKennz_kosten_1, bh_unterKennz_2=@bh_unterKennz_2, bh_unterKennz_bis_2=@bh_unterKennz_bis_2, bh_unterKennz_kosten_2=@bh_unterKennz_kosten_2, bh_unterKennz_3=@bh_unterKennz_3, bh_unterKennz_bis_3=@bh_unterKennz_bis_3, bh_unterKennz_kosten_3=@bh_unterKennz_kosten_3, bh_unterKennz_4=@bh_unterKennz_4, bh_unterKennz_bis_4=@bh_unterKennz_bis_4, bh_unterKennz_kosten_4=@bh_unterKennz_kosten_4,bh_vermerke=@bh_vermerke,atr_notes=@atr_notes, " & " atr_altladest_id=@atr_altladest_id, atr_altladest_firma=@atr_altladest_firma, atr_altladest_str=@atr_altladest_str, atr_altladest_strnr=@atr_altladest_strnr, atr_altladest_land=@atr_altladest_land, atr_altladest_plz=@atr_altladest_plz, atr_altladest_ort=@atr_altladest_ort, atr_altladest_anspr=@atr_altladest_anspr,atr_hasaltladest=@atr_hasaltladest,atr_verzollungsadresse=@atr_verzollungsadresse " & "WHERE atr_id=@atr_id " Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@atr_frachtpos", d.atr_frachtpos) cmd.Parameters.AddWithValue("@atr_datum", d.atr_datum) cmd.Parameters.AddWithValue("@atr_speditionsbuchNr", d.atr_speditionsbuchNr) cmd.Parameters.AddWithValue("@atr_frachtf_id", d.atr_frachtf_id) cmd.Parameters.AddWithValue("@atr_ladest_id", d.atr_ladest_id) cmd.Parameters.AddWithValue("@atr_entladest_id", d.atr_entladest_id) cmd.Parameters.AddWithValue("@atr_auftr_id", d.atr_auftr_id) cmd.Parameters.AddWithValue("@atr_frachtf_firma", d.atr_frachtf_firma) cmd.Parameters.AddWithValue("@atr_frachtf_str", d.atr_frachtf_str) cmd.Parameters.AddWithValue("@atr_frachtf_strnr", d.atr_frachtf_strnr) cmd.Parameters.AddWithValue("@atr_frachtf_land", d.atr_frachtf_land) cmd.Parameters.AddWithValue("@atr_frachtf_plz", d.atr_frachtf_plz) cmd.Parameters.AddWithValue("@atr_frachtf_ort", d.atr_frachtf_ort) cmd.Parameters.AddWithValue("@atr_frachtf_anspr", d.atr_frachtf_anspr) cmd.Parameters.AddWithValue("@atr_ladest_firma", d.atr_ladest_firma) cmd.Parameters.AddWithValue("@atr_ladest_str", d.atr_ladest_str) cmd.Parameters.AddWithValue("@atr_ladest_strnr", d.atr_ladest_strnr) cmd.Parameters.AddWithValue("@atr_ladest_land", d.atr_ladest_land) cmd.Parameters.AddWithValue("@atr_ladest_plz", d.atr_ladest_plz) cmd.Parameters.AddWithValue("@atr_ladest_ort", d.atr_ladest_ort) cmd.Parameters.AddWithValue("@atr_ladest_anspr", d.atr_ladest_anspr) cmd.Parameters.AddWithValue("@atr_ladest_termin", d.atr_ladest_termin) cmd.Parameters.AddWithValue("@atr_ladest_terminDat", d.atr_ladest_terminDat) cmd.Parameters.AddWithValue("@atr_ladest_terminVon", d.atr_ladest_terminVon) cmd.Parameters.AddWithValue("@atr_ladest_terminBis", d.atr_ladest_terminBis) cmd.Parameters.AddWithValue("@atr_ladest_refNr", d.atr_ladest_refNr) cmd.Parameters.AddWithValue("@atr_ladest_isRefNr", d.atr_ladest_isRefNr) cmd.Parameters.AddWithValue("@atr_hasaltladest", d.atr_hasaltladest) cmd.Parameters.AddWithValue("@atr_altladest_id", d.atr_altladest_id) cmd.Parameters.AddWithValue("@atr_altladest_firma", d.atr_altladest_firma) cmd.Parameters.AddWithValue("@atr_altladest_str", d.atr_altladest_str) cmd.Parameters.AddWithValue("@atr_altladest_strnr", d.atr_altladest_strnr) cmd.Parameters.AddWithValue("@atr_altladest_land", d.atr_altladest_land) cmd.Parameters.AddWithValue("@atr_altladest_plz", d.atr_altladest_plz) cmd.Parameters.AddWithValue("@atr_altladest_ort", d.atr_altladest_ort) cmd.Parameters.AddWithValue("@atr_altladest_anspr", d.atr_altladest_anspr) cmd.Parameters.AddWithValue("@atr_entladest_firma", d.atr_entladest_firma) cmd.Parameters.AddWithValue("@atr_entladest_str", d.atr_entladest_str) cmd.Parameters.AddWithValue("@atr_entladest_strnr", d.atr_entladest_strnr) cmd.Parameters.AddWithValue("@atr_entladest_land", d.atr_entladest_land) cmd.Parameters.AddWithValue("@atr_entladest_plz", d.atr_entladest_plz) cmd.Parameters.AddWithValue("@atr_entladest_ort", d.atr_entladest_ort) cmd.Parameters.AddWithValue("@atr_entladest_anspr", d.atr_entladest_anspr) cmd.Parameters.AddWithValue("@atr_entladest_termin", d.atr_entladest_termin) cmd.Parameters.AddWithValue("@atr_entladest_terminDat", d.atr_entladest_terminDat) cmd.Parameters.AddWithValue("@atr_entladest_terminVon", d.atr_entladest_terminVon) cmd.Parameters.AddWithValue("@atr_entladest_terminBis", d.atr_entladest_terminBis) cmd.Parameters.AddWithValue("@atr_auftr_firma", d.atr_auftr_firma) cmd.Parameters.AddWithValue("@atr_auftr_str", d.atr_auftr_str) cmd.Parameters.AddWithValue("@atr_auftr_strnr", d.atr_auftr_strnr) cmd.Parameters.AddWithValue("@atr_auftr_land", d.atr_auftr_land) cmd.Parameters.AddWithValue("@atr_auftr_plz", d.atr_auftr_plz) cmd.Parameters.AddWithValue("@atr_auftr_ort", d.atr_auftr_ort) cmd.Parameters.AddWithValue("@atr_auftr_anspr", d.atr_auftr_anspr) cmd.Parameters.AddWithValue("@atr_trans_firma", d.atr_trans_firma) cmd.Parameters.AddWithValue("@atr_trans_str", d.atr_trans_str) cmd.Parameters.AddWithValue("@atr_trans_strnr", d.atr_trans_strnr) cmd.Parameters.AddWithValue("@atr_trans_land", d.atr_trans_land) cmd.Parameters.AddWithValue("@atr_trans_plz", d.atr_trans_plz) cmd.Parameters.AddWithValue("@atr_trans_ort", d.atr_trans_ort) cmd.Parameters.AddWithValue("@atr_trans_anspr", d.atr_trans_anspr) cmd.Parameters.AddWithValue("@atr_lkwKz", d.atr_lkwKz) cmd.Parameters.AddWithValue("@atr_lkwArt", d.atr_lkwArt) cmd.Parameters.AddWithValue("@atr_lkwNutzlast", d.atr_lkwNutzlast) cmd.Parameters.AddWithValue("@atr_anhKz", d.atr_anhKz) cmd.Parameters.AddWithValue("@atr_anhNutzlast", d.atr_anhNutzlast) cmd.Parameters.AddWithValue("@atr_bemerkung", d.atr_bemerkung) cmd.Parameters.AddWithValue("@atr_frachtkosten", d.atr_frachtkosten) cmd.Parameters.AddWithValue("@atr_gefahrengut", d.atr_gefahrengut) cmd.Parameters.AddWithValue("@atr_verzollungsadresse", d.atr_verzollungsadresse) cmd.Parameters.AddWithValue("@atr_frachtIsTrans", d.atr_frachtIsTrans) cmd.Parameters.AddWithValue("@atr_abliefernachweis", d.atr_abliefernachweis) cmd.Parameters.AddWithValue("@cmr_ausl_land", d.cmr_ausl_land) cmd.Parameters.AddWithValue("@cmr_ausl_ort", d.cmr_ausl_ort) cmd.Parameters.AddWithValue("@cmr_beigefDok", d.cmr_beigefDok) cmd.Parameters.AddWithValue("@cmr_anwAbs", d.cmr_anwAbs) cmd.Parameters.AddWithValue("@cmr_rueckerst", d.cmr_rueckerst) cmd.Parameters.AddWithValue("@cmr_frZahlanwFrei", d.cmr_frZahlanwFrei) cmd.Parameters.AddWithValue("@cmr_frZahlanwUnfrei", d.cmr_frZahlanwUnfrei) cmd.Parameters.AddWithValue("@cmr_besVereinb", d.cmr_besVereinb) cmd.Parameters.AddWithValue("@cmr_ausgefIn", d.cmr_ausgefIn) cmd.Parameters.AddWithValue("@cmr_uebergabe_land", d.cmr_uebergabe_land) cmd.Parameters.AddWithValue("@cmr_uebergabe_ort", d.cmr_uebergabe_ort) cmd.Parameters.AddWithValue("@cmr_uebergabe_datum", d.cmr_uebergabe_datum) cmd.Parameters.AddWithValue("@cmr_vorbehFrachtf", d.cmr_vorbehFrachtf) cmd.Parameters.AddWithValue("@bh_mon", d.bh_mon) 'cmd.Parameters.AddWithValue("@bh_unterKennz_1", d.bh_unterKennz_1) ' cmd.Parameters.AddWithValue("@bh_unterKennz_bis_1", d.bh_unterKennz_bis_1) ' cmd.Parameters.AddWithValue("@bh_unterKennz_kosten_1", d.bh_unterKennz_kosten_1) ' cmd.Parameters.AddWithValue("@bh_unterKennz_2", d.bh_unterKennz_2) ' cmd.Parameters.AddWithValue("@bh_unterKennz_bis_2", d.bh_unterKennz_bis_2) ' cmd.Parameters.AddWithValue("@bh_unterKennz_kosten_2", d.bh_unterKennz_kosten_2) ' cmd.Parameters.AddWithValue("@bh_unterKennz_3", d.bh_unterKennz_3) 'cmd.Parameters.AddWithValue("@bh_unterKennz_bis_3", d.bh_unterKennz_bis_3) 'cmd.Parameters.AddWithValue("@bh_unterKennz_kosten_3", d.bh_unterKennz_kosten_3) 'cmd.Parameters.AddWithValue("@bh_unterKennz_bis_4", d.bh_unterKennz_bis_4) 'cmd.Parameters.AddWithValue("@bh_unterKennz_kosten_4", d.bh_unterKennz_kosten_4) cmd.Parameters.AddWithValue("@bh_vermerke", d.bh_vermerke) cmd.Parameters.AddWithValue("@atr_notes", d.atr_notes) cmd.Parameters.AddWithValue("@atr_id", d.atr_id) cmd.ExecuteNonQuery() Return True End Using End Using Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") End Try Return False End Function Public Function getAuftragById(ByVal id As Integer) As cAuftraege 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim sql As String = "SELECT * FROM tblAuftraege WHERE atr_id = " & id & "" Dim daten As cAuftraege = Nothing Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then dr.Read() daten = New cAuftraege() Try daten.atr_id = dr.Item("atr_id") If Not dr.Item("atr_datum").ToString = vbNullString Then daten.atr_datum = dr.Item("atr_datum") If Not dr.Item("atr_speditionsbuchNr").ToString = vbNullString Then daten.atr_speditionsbuchNr = dr.Item("atr_speditionsbuchNr") Else daten.atr_speditionsbuchNr = -1 If Not dr.Item("atr_frachtf_id").ToString = vbNullString Then daten.atr_frachtf_id = dr.Item("atr_frachtf_id") Else daten.atr_frachtf_id = -1 If Not dr.Item("atr_ladest_id").ToString = vbNullString Then daten.atr_ladest_id = dr.Item("atr_ladest_id") Else daten.atr_ladest_id = -1 If Not dr.Item("atr_entladest_id").ToString = vbNullString Then daten.atr_entladest_id = dr.Item("atr_entladest_id") Else daten.atr_entladest_id = -1 If Not dr.Item("atr_auftr_id").ToString = vbNullString Then daten.atr_auftr_id = dr.Item("atr_auftr_id") Else daten.atr_auftr_id = -1 If Not dr.Item("atr_trans_id").ToString = vbNullString Then daten.atr_trans_id = dr.Item("atr_trans_id") Else daten.atr_trans_id = -1 If Not dr.Item("atr_frachtpos").ToString = vbNullString Then daten.atr_frachtpos = dr.Item("atr_frachtpos") daten.atr_frachtf_firma = dr.Item("atr_frachtf_firma") daten.atr_frachtf_str = dr.Item("atr_frachtf_str") daten.atr_frachtf_strnr = dr.Item("atr_frachtf_strnr") daten.atr_frachtf_land = dr.Item("atr_frachtf_land") daten.atr_frachtf_plz = dr.Item("atr_frachtf_plz") daten.atr_frachtf_ort = dr.Item("atr_frachtf_ort") daten.atr_frachtf_anspr = dr.Item("atr_frachtf_anspr") daten.atr_ladest_firma = dr.Item("atr_ladest_firma") daten.atr_ladest_str = dr.Item("atr_ladest_str") daten.atr_ladest_strnr = dr.Item("atr_ladest_strnr") daten.atr_ladest_land = dr.Item("atr_ladest_land") daten.atr_ladest_plz = dr.Item("atr_ladest_plz") daten.atr_ladest_ort = dr.Item("atr_ladest_ort") daten.atr_ladest_anspr = dr.Item("atr_ladest_anspr") If Not dr.Item("atr_ladest_termin").ToString = vbNullString Then daten.atr_ladest_termin = dr.Item("atr_ladest_termin") If Not dr.Item("atr_ladest_terminDat").ToString = vbNullString Then daten.atr_ladest_terminDat = dr.Item("atr_ladest_terminDat") Else daten.atr_ladest_terminDat = "" If Not dr.Item("atr_ladest_terminVon").ToString = vbNullString Then daten.atr_ladest_terminVon = dr.Item("atr_ladest_terminVon") Else daten.atr_ladest_terminVon = "" If Not dr.Item("atr_ladest_terminBis").ToString = vbNullString Then daten.atr_ladest_terminBis = dr.Item("atr_ladest_terminBis") Else daten.atr_ladest_terminBis = "" If Not dr.Item("atr_ladest_refNr").ToString = vbNullString Then daten.atr_ladest_refNr = dr.Item("atr_ladest_refNr") Else daten.atr_ladest_refNr = "" daten.atr_ladest_isRefNr = dr.Item("atr_ladest_isRefNr") If Not dr.Item("atr_altladest_id").ToString = vbNullString Then daten.atr_altladest_id = dr.Item("atr_altladest_id") daten.atr_hasaltladest = dr.Item("atr_hasaltladest") daten.atr_altladest_firma = dr.Item("atr_altladest_firma") daten.atr_altladest_str = dr.Item("atr_altladest_str") daten.atr_altladest_strnr = dr.Item("atr_altladest_strnr") daten.atr_altladest_land = dr.Item("atr_altladest_land") daten.atr_altladest_plz = dr.Item("atr_altladest_plz") daten.atr_altladest_ort = dr.Item("atr_altladest_ort") daten.atr_altladest_anspr = dr.Item("atr_altladest_anspr") daten.atr_entladest_firma = dr.Item("atr_entladest_firma") daten.atr_entladest_str = dr.Item("atr_entladest_str") daten.atr_entladest_strnr = dr.Item("atr_entladest_strnr") daten.atr_entladest_land = dr.Item("atr_entladest_land") daten.atr_entladest_plz = dr.Item("atr_entladest_plz") daten.atr_entladest_ort = dr.Item("atr_entladest_ort") daten.atr_entladest_anspr = dr.Item("atr_entladest_anspr") If Not dr.Item("atr_entladest_termin").ToString = vbNullString Then daten.atr_entladest_termin = dr.Item("atr_entladest_termin") If Not dr.Item("atr_entladest_terminDat").ToString = vbNullString Then daten.atr_entladest_terminDat = dr.Item("atr_entladest_terminDat") Else daten.atr_entladest_terminDat = "" If Not dr.Item("atr_entladest_terminVon").ToString = vbNullString Then daten.atr_entladest_terminVon = dr.Item("atr_entladest_terminVon") Else daten.atr_entladest_terminVon = "" If Not dr.Item("atr_entladest_terminBis").ToString = vbNullString Then daten.atr_entladest_terminBis = dr.Item("atr_entladest_terminBis") Else daten.atr_entladest_terminBis = "" daten.atr_trans_firma = dr.Item("atr_trans_firma") daten.atr_trans_str = dr.Item("atr_trans_str") daten.atr_trans_strnr = dr.Item("atr_trans_strnr") daten.atr_trans_land = dr.Item("atr_trans_land") daten.atr_trans_plz = dr.Item("atr_trans_plz") daten.atr_trans_ort = dr.Item("atr_trans_ort") daten.atr_trans_anspr = dr.Item("atr_trans_anspr") daten.atr_lkwKz = dr.Item("atr_lkwKz") daten.atr_lkwArt = dr.Item("atr_lkwArt") daten.atr_lkwNutzlast = dr.Item("atr_lkwNutzlast") daten.atr_anhKz = dr.Item("atr_anhKz") daten.atr_anhNutzlast = dr.Item("atr_anhNutzlast") daten.atr_auftr_firma = dr.Item("atr_auftr_firma") daten.atr_auftr_str = dr.Item("atr_auftr_str") daten.atr_auftr_strnr = dr.Item("atr_auftr_strnr") daten.atr_auftr_land = dr.Item("atr_auftr_land") daten.atr_auftr_plz = dr.Item("atr_auftr_plz") daten.atr_auftr_ort = dr.Item("atr_auftr_ort") daten.atr_auftr_anspr = dr.Item("atr_auftr_anspr") daten.atr_bemerkung = dr.Item("atr_bemerkung") daten.atr_frachtkosten = dr.Item("atr_frachtkosten") daten.atr_gefahrengut = dr.Item("atr_gefahrengut") If dr.Item("atr_verzollungsadresse") IsNot DBNull.Value Then daten.atr_verzollungsadresse = dr.Item("atr_verzollungsadresse") daten.atr_frachtIsTrans = dr.Item("atr_frachtIsTrans") daten.atr_abliefernachweis = dr.Item("atr_abliefernachweis") If Not dr.Item("cmr_ausl_land").ToString = vbNullString Then daten.cmr_ausl_land = dr.Item("cmr_ausl_land") If Not dr.Item("cmr_ausl_ort").ToString = vbNullString Then daten.cmr_ausl_ort = dr.Item("cmr_ausl_ort") If Not dr.Item("cmr_beigefDok").ToString = vbNullString Then daten.cmr_beigefDok = dr.Item("cmr_beigefDok") If Not dr.Item("cmr_anwAbs").ToString = vbNullString Then daten.cmr_anwAbs = dr.Item("cmr_anwAbs") If Not dr.Item("cmr_rueckerst").ToString = vbNullString Then daten.cmr_rueckerst = dr.Item("cmr_rueckerst") If Not dr.Item("cmr_frZahlanwFrei").ToString = vbNullString Then daten.cmr_frZahlanwFrei = dr.Item("cmr_frZahlanwFrei") If Not dr.Item("cmr_frZahlanwUnfrei").ToString = vbNullString Then daten.cmr_frZahlanwUnfrei = dr.Item("cmr_frZahlanwUnfrei") If Not dr.Item("cmr_besVereinb").ToString = vbNullString Then daten.cmr_besVereinb = dr.Item("cmr_besVereinb") If Not dr.Item("cmr_ausgefIn").ToString = vbNullString Then daten.cmr_ausgefIn = dr.Item("cmr_ausgefIn") If Not dr.Item("cmr_uebergabe_land").ToString = vbNullString Then daten.cmr_uebergabe_land = dr.Item("cmr_uebergabe_land") If Not dr.Item("cmr_uebergabe_ort").ToString = vbNullString Then daten.cmr_uebergabe_ort = dr.Item("cmr_uebergabe_ort") If Not dr.Item("cmr_uebergabe_datum").ToString = vbNullString Then daten.cmr_uebergabe_datum = dr.Item("cmr_uebergabe_datum") If Not dr.Item("cmr_vorbehFrachtf").ToString = vbNullString Then daten.cmr_vorbehFrachtf = dr.Item("cmr_vorbehFrachtf") If Not dr.Item("bh_mon").ToString = vbNullString Then daten.bh_mon = dr.Item("bh_mon") ' If Not dr.Item("bh_unterKennz_1").ToString = vbNullString Then daten.bh_unterKennz_1 = dr.Item("bh_unterKennz_1") ' If Not dr.Item("bh_unterKennz_bis_1").ToString = vbNullString Then daten.bh_unterKennz_bis_1 = dr.Item("bh_unterKennz_bis_1") ' If Not dr.Item("bh_unterKennz_kosten_1").ToString = vbNullString Then daten.bh_unterKennz_kosten_1 = dr.Item("bh_unterKennz_kosten_1") 'If Not dr.Item("bh_unterKennz_2").ToString = vbNullString Then daten.bh_unterKennz_2 = dr.Item("bh_unterKennz_2") 'If Not dr.Item("bh_unterKennz_bis_2").ToString = vbNullString Then daten.bh_unterKennz_bis_2 = dr.Item("bh_unterKennz_bis_2") 'If Not dr.Item("bh_unterKennz_kosten_2").ToString = vbNullString Then daten.bh_unterKennz_kosten_2 = dr.Item("bh_unterKennz_kosten_2") 'If Not dr.Item("bh_unterKennz_3").ToString = vbNullString Then daten.bh_unterKennz_3 = dr.Item("bh_unterKennz_3") 'If Not dr.Item("bh_unterKennz_bis_3").ToString = vbNullString Then daten.bh_unterKennz_bis_3 = dr.Item("bh_unterKennz_bis_3") 'If Not dr.Item("bh_unterKennz_kosten_3").ToString = vbNullString Then daten.bh_unterKennz_kosten_3 = dr.Item("bh_unterKennz_kosten_3") 'If Not dr.Item("bh_unterKennz_4").ToString = vbNullString Then daten.bh_unterKennz_4 = dr.Item("bh_unterKennz_4") 'If Not dr.Item("bh_unterKennz_bis_4").ToString = vbNullString Then daten.bh_unterKennz_bis_4 = dr.Item("bh_unterKennz_bis_4") 'If Not dr.Item("bh_unterKennz_kosten_4").ToString = vbNullString Then daten.bh_unterKennz_kosten_4 = dr.Item("bh_unterKennz_kosten_4") If Not dr.Item("bh_vermerke").ToString = vbNullString Then daten.bh_vermerke = dr.Item("bh_vermerke") If Not dr.Item("atr_notes").ToString = vbNullString Then daten.atr_notes = dr.Item("atr_notes") Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Aufträge-Datenbank:" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) End Try End If dr.Close() End Using End Using daten.atr_ladungen = getLadungenById(daten.atr_id) daten.bh_rechnungen = getBhRechnungenById(daten.atr_id) Return daten Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Aufträge-Datenbank:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return Nothing End Try End Function Public Function setAbliefernachweis(ByVal id As Integer, ByVal val As Boolean) As Boolean Dim sql = "UPDATE tblAuftraege SET atr_abliefernachweis='" & val & "' WHERE atr_id = '" & id & "' " Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Try cmd.ExecuteNonQuery() Return True Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") End Try End Using End Using Return False End Function Public Function getLadungenById(ByVal id As Integer) As List(Of cLadungen) 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim sql As String = "SELECT * FROM tblLadungen WHERE lad_atrId = " & id & "" Dim daten As New List(Of cLadungen) Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then While dr.Read() Dim d As New cLadungen Try d.lad_id = dr.Item("lad_id") d.lad_ZeNr = dr.Item("lad_ZeNr") d.lad_Anzahl = dr.Item("lad_Anzahl") d.lad_Art = dr.Item("lad_Art") d.lad_Bezeichnung = dr.Item("lad_Bezeichnung") d.lad_StatNr = dr.Item("lad_StatNr") d.lad_BruttoKg = dr.Item("lad_BruttoKg") d.lad_Umfang = dr.Item("lad_Umfang") daten.Add(d) Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Ladungen-Datenbank:" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) End Try End While End If dr.Close() End Using End Using 'daten.kdoez = getOeffungszeiten(daten.kd_oez_id) Return daten Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Ladungen-Datenbank:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return Nothing End Try End Function Public Function getBhRechnungenById(ByVal id As Integer) As List(Of cBuchhaltungRechnung) 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim sql As String = "SELECT * FROM tblBhRechnungen WHERE bhrg_atrId = " & id & "" Dim daten As New List(Of cBuchhaltungRechnung) Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then While dr.Read() Dim d As New cBuchhaltungRechnung Try d.bhrg_id = dr.Item("bhrg_id") d.bhrg_code = dr.Item("bhrg_code") d.bhrg_vermerk = dr.Item("bhrg_vermerk") d.bhrg_pfl = dr.Item("bhrg_pfl") d.bhrg_frei = dr.Item("bhrg_frei") d.bhrg_option = dr.Item("bhrg_option") daten.Add(d) Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der BH-Rechnungen-Datenbank:" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) End Try End While End If dr.Close() End Using End Using 'daten.kdoez = getOeffungszeiten(daten.kd_oez_id) Return daten Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der BH-Rechnungen-Datenbank:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return Nothing End Try End Function Public Function insertAuftragUndLadung(ByVal d As cAuftraege) As Boolean Dim atr_id As Integer = insertNurAuftrag(d) If Not insertLadungen(atr_id, d.atr_ladungen) Then Return False If Not insertRechnungen(atr_id, d.bh_rechnungen) Then Return False atr_id_insert = atr_id Return True End Function Public Function insertLadungen(ByVal atr_id As Integer, ByVal lad As List(Of cLadungen)) As Boolean For Each l As cLadungen In lad Dim sql = "INSERT INTO tblLadungen " & "(lad_atrId,lad_ZeNr, lad_Anzahl, lad_Art, lad_Bezeichnung, lad_StatNr, lad_BruttoKg,lad_Umfang) VALUES " & "(@lad_atrId,@lad_ZeNr,@lad_Anzahl,@lad_Art,@lad_Bezeichnung,@lad_StatNr,@lad_BruttoKg,@lad_Umfang)" Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@lad_atrId", atr_id) cmd.Parameters.AddWithValue("@lad_ZeNr", l.lad_ZeNr) cmd.Parameters.AddWithValue("@lad_Anzahl", l.lad_Anzahl) cmd.Parameters.AddWithValue("@lad_Art", l.lad_Art) cmd.Parameters.AddWithValue("@lad_Bezeichnung", l.lad_Bezeichnung) cmd.Parameters.AddWithValue("@lad_StatNr", l.lad_StatNr) cmd.Parameters.AddWithValue("@lad_BruttoKg", l.lad_BruttoKg) cmd.Parameters.AddWithValue("@lad_Umfang", l.lad_Umfang) Try cmd.ExecuteNonQuery() 'kein return wg. for each Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") Return False End Try End Using End Using Next Return True End Function Public Function insertRechnungen(ByVal atr_id As Integer, ByVal lad As List(Of cBuchhaltungRechnung)) As Boolean For Each l As cBuchhaltungRechnung In lad Dim sql = "INSERT INTO tblBhRechnungen " & "(bhrg_atrId,bhrg_code,bhrg_vermerk, bhrg_pfl, bhrg_frei,bhrg_option) VALUES " & "(@bhrg_atrId,@bhrg_code,@bhrg_vermerk,@bhrg_pfl,@bhrg_frei,@bhrg_option)" Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@bhrg_atrId", atr_id) cmd.Parameters.AddWithValue("@bhrg_code", l.bhrg_code) cmd.Parameters.AddWithValue("@bhrg_vermerk", l.bhrg_vermerk) cmd.Parameters.AddWithValue("@bhrg_pfl", l.bhrg_pfl) cmd.Parameters.AddWithValue("@bhrg_frei", l.bhrg_frei) cmd.Parameters.AddWithValue("@bhrg_option", l.bhrg_option) Try cmd.ExecuteNonQuery() 'kein return wg. for each Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") Return False End Try End Using End Using Next Return True End Function Public Function TEST_insertAuftragUndLadung(ByVal ladungen As List(Of cLadungen)) As Boolean ' Dim atr_id As Integer = insertNurAuftrag(d) For Each l As cLadungen In ladungen Dim sql = "UPDATE tblLadungen " & "SET lad_ZeNr=@lad_ZeNr, lad_Anzahl=@lad_Anzahl, lad_Art=@lad_Art, lad_Bezeichnung=@lad_Bezeichnung, lad_StatNr=@lad_StatNr, lad_BruttoKg=@lad_BruttoKg,lad_Umfang=@lad_Umfang " & "WHERE lad_id=" & l.lad_id & "" Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@lad_ZeNr", l.lad_ZeNr) cmd.Parameters.AddWithValue("@lad_Anzahl", l.lad_Anzahl) cmd.Parameters.AddWithValue("@lad_Art", l.lad_Art) cmd.Parameters.AddWithValue("@lad_Bezeichnung", l.lad_Bezeichnung) cmd.Parameters.AddWithValue("@lad_StatNr", l.lad_StatNr) cmd.Parameters.AddWithValue("@lad_BruttoKg", l.lad_BruttoKg) cmd.Parameters.AddWithValue("@lad_Umfang", l.lad_Umfang) Try cmd.ExecuteNonQuery() Return True Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") End Try End Using End Using Next Return False End Function Public Function checkLogin(ByVal user As String, ByVal pwd As String) As Boolean 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen 'Dim sql As String = "SELECT mit_vname,mit_nname,mit_berechtigung FROM tblUser where mit_username=@mit_username COLLATE Latin1_General_CS_AS and mit_pwd=@mit_pwd COLLATE Latin1_General_CS_AS " Dim sql As String = "SELECT mit_vname,mit_nname,ber_sicherheitsstufe FROM tblMitarbeiter,tblBerProg,tblBerechtigungen where mit_username=@mit_username and mit_pwd=@mit_pwd COLLATE Latin1_General_CS_AS AND bepr_programm=@bepr_programm AND bepr_userId=mit_id AND ber_id=bepr_berId" Dim dr As SqlDataReader Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnectionLogin() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@mit_username", user) cmd.Parameters.AddWithValue("@mit_pwd", pwd) cmd.Parameters.AddWithValue("@bepr_programm", "DISPO") dr = cmd.ExecuteReader() If dr.Read Then USERBER = dr.Item("ber_sicherheitsstufe") : USRNAME = dr.Item("mit_vname") & " " & dr.Item("mit_nname") : Return True End Using End Using dr.Close() Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler mit der Datenbankverbindung:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return False End Try Return False End Function Public Function AnzeigeTabelle(hSQL As String) As DataTable While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() Try Dim myTable = New DataTable() Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(hSQL, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() myTable.Load(dr) dr.Close() End Using End Using Return myTable 'While Schleife wird hier verlassen Catch ex As Exception Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), "Problem in Function 'AnzeigeTabelle'") If antwort <> MsgBoxResult.Retry Then 'Programm wird beendet MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) Environment.Exit(0) End If End Try End While Return Nothing End Function Public Function existsKunde(ByVal id As Integer) As Boolean 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim sql As String = "SELECT kd_id FROM tblKunden WHERE kd_id = " & id & " " Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then Return True dr.Close() End Using End Using Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen :" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return Nothing End Try Return False End Function Public Function getKundendaten(ByVal id As Integer) As cEntry 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim sql As String = "SELECT * FROM tblKunden WHERE kd_id = " & id & "" Dim daten As cEntry = Nothing Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then dr.Read() daten = New cEntry() Try daten.kd_id = dr.Item("kd_id") daten.kd_firma = dr.Item("kd_firma") daten.kd_str = dr.Item("kd_str") daten.kd_strnr = dr.Item("kd_strnr") daten.kd_plz = dr.Item("kd_plz") daten.kd_ort = dr.Item("kd_ort") daten.kd_land = dr.Item("kd_land") daten.kd_anspr1_vn = dr.Item("kd_anspr1_vn") daten.kd_anspr1_nn = dr.Item("kd_anspr1_nn") daten.kd_anspr2_vn = dr.Item("kd_anspr2_vn") daten.kd_anspr2_nn = dr.Item("kd_anspr2_nn") daten.kd_tel = dr.Item("kd_tel") daten.kd_fax = dr.Item("kd_fax") daten.kd_email = dr.Item("kd_email") daten.kd_homepage = dr.Item("kd_homepage") daten.kd_TIMOCOM = cMeineFunktionen.VarToStr(dr.Item("kd_TIMOCOM")) daten.kd_oez_id = dr.Item("kd_oez_id") daten.kd_neutralisierung = dr.Item("kd_neutralisierung") daten.kd_aviso = dr.Item("kd_aviso") daten.kd_isRefNr = dr.Item("kd_isRefNr") If Not dr.Item("kd_refNr") Is DBNull.Value Then daten.kd_refNr = dr.Item("kd_refNr") daten.kd_info = dr.Item("kd_info") daten.kd_AVISOfirma = dr.Item("kd_AVISOfirma") If Not dr.Item("kd_tarifInfo") Is Nothing And Not dr.Item("kd_tarifInfo") Is DBNull.Value Then daten.kd_tarifInfo = dr.Item("kd_tarifInfo") Else daten.kd_tarifInfo = "" If Not dr.Item("kd_rolle") = vbNullString Then daten.kd_rolle = dr.Item("kd_rolle") Else daten.kd_rolle = 0 If dr.Item("kd_FMZOLL_KdNr") IsNot DBNull.Value Then daten.kd_FMZOLL_KdNr = dr.Item("kd_FMZOLL_KdNr") Else daten.kd_FMZOLL_KdNr = Nothing Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Kunden-Datenbank1:" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) End Try End If dr.Close() End Using End Using daten.kdoez = getOeffungszeiten(daten.kd_oez_id) Return daten Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Kunden-Datenbank1:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return Nothing End Try End Function Public Function getOeffnungszeitenByKdId(ByVal id As Integer) As cOeffnungszeiten 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim sql As String = "SELECT kd_oez_id from tblKunden WHERE kd_id='" & id & "' " Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then Try If dr.Read() Then Return getOeffungszeiten(dr.Item("kd_oez_id")) End If Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Kunden-Datenbank:" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) End Try End If dr.Close() End Using End Using 'daten.kdoez = getOeffungszeiten(daten.kd_oez_id) Return Nothing Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Kunden-DatenbankÖZ:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return Nothing End Try End Function Public Function getAvisoFromKundeByIds(ByVal id As Integer) As String() 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim sql As String = "SELECT kd_aviso,kd_tel,kd_email FROM tblKunden WHERE kd_id = " & id & "" Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then While dr.Read() Dim d As New cEntry Try Dim s(3) As String s(0) = dr.Item("kd_aviso") s(1) = dr.Item("kd_tel") s(2) = dr.Item("kd_email") Return s Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der AvisoKunden-Datenbank:" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) End Try End While End If dr.Close() End Using End Using 'daten.kdoez = getOeffungszeiten(daten.kd_oez_id) Return Nothing Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der AvisoKunden-Datenbank:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return Nothing End Try End Function Public Function getKundendatenByIds(ByVal idarr As List(Of Integer)) As List(Of cEntry) 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim sql As String = "SELECT * FROM tblKunden WHERE " Dim orstr As String = "" For Each id As Integer In idarr sql = sql & orstr & " kd_id = " & id & "" : orstr = "OR" Next Dim daten As New List(Of cEntry) Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then While dr.Read() Dim d As New cEntry Try d.kd_id = dr.Item("kd_id") d.kd_firma = dr.Item("kd_firma") d.kd_str = dr.Item("kd_str") d.kd_strnr = dr.Item("kd_strnr") d.kd_plz = dr.Item("kd_plz") d.kd_ort = dr.Item("kd_ort") d.kd_land = dr.Item("kd_land") d.kd_anspr1_vn = dr.Item("kd_anspr1_vn") d.kd_anspr1_nn = dr.Item("kd_anspr1_nn") d.kd_anspr2_vn = dr.Item("kd_anspr2_vn") d.kd_anspr2_nn = dr.Item("kd_anspr2_nn") d.kd_tel = dr.Item("kd_tel") d.kd_fax = dr.Item("kd_fax") d.kd_email = dr.Item("kd_email") daten.Add(d) Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Kunden-Datenbank:" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) End Try End While End If dr.Close() End Using End Using 'daten.kdoez = getOeffungszeiten(daten.kd_oez_id) Return daten Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Kunden-Datenbank by id:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return Nothing End Try End Function Public Function getOeffungszeiten(ByVal id As Integer) As cOeffnungszeiten Dim sql As String = "SELECT * FROM tblOeffnungszeiten WHERE oz_id = " & id & "" Dim daten As cOeffnungszeiten = Nothing Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then dr.Read() daten = New cOeffnungszeiten() Try daten.oz_id = dr.Item("oz_id") If Not dr.Item("oz_montag_von1") Is DBNull.Value Then daten.oz_montag_von1 = dr.Item("oz_montag_von1") If Not dr.Item("oz_montag_bis1") Is DBNull.Value Then daten.oz_montag_bis1 = dr.Item("oz_montag_bis1") If Not dr.Item("oz_montag_von2") Is DBNull.Value Then daten.oz_montag_von2 = dr.Item("oz_montag_von2") If Not dr.Item("oz_montag_bis2") Is DBNull.Value Then daten.oz_montag_bis2 = dr.Item("oz_montag_bis2") If Not dr.Item("oz_dienstag_von1") Is DBNull.Value Then daten.oz_dienstag_von1 = dr.Item("oz_dienstag_von1") If Not dr.Item("oz_dienstag_bis1") Is DBNull.Value Then daten.oz_dienstag_bis1 = dr.Item("oz_dienstag_bis1") If Not dr.Item("oz_dienstag_von2") Is DBNull.Value Then daten.oz_dienstag_von2 = dr.Item("oz_dienstag_von2") If Not dr.Item("oz_dienstag_bis2") Is DBNull.Value Then daten.oz_dienstag_bis2 = dr.Item("oz_dienstag_bis2") If Not dr.Item("oz_mittwoch_von1") Is DBNull.Value Then daten.oz_mittwoch_von1 = dr.Item("oz_mittwoch_von1") If Not dr.Item("oz_mittwoch_bis1") Is DBNull.Value Then daten.oz_mittwoch_bis1 = dr.Item("oz_mittwoch_bis1") If Not dr.Item("oz_mittwoch_von2") Is DBNull.Value Then daten.oz_mittwoch_von2 = dr.Item("oz_mittwoch_von2") If Not dr.Item("oz_mittwoch_bis2") Is DBNull.Value Then daten.oz_mittwoch_bis2 = dr.Item("oz_mittwoch_bis2") If Not dr.Item("oz_donnerstag_von1") Is DBNull.Value Then daten.oz_donnerstag_von1 = dr.Item("oz_donnerstag_von1") If Not dr.Item("oz_donnerstag_bis1") Is DBNull.Value Then daten.oz_donnerstag_bis1 = dr.Item("oz_donnerstag_bis1") If Not dr.Item("oz_donnerstag_von2") Is DBNull.Value Then daten.oz_donnerstag_von2 = dr.Item("oz_donnerstag_von2") If Not dr.Item("oz_donnerstag_bis2") Is DBNull.Value Then daten.oz_donnerstag_bis2 = dr.Item("oz_donnerstag_bis2") If Not dr.Item("oz_freitag_von1") Is DBNull.Value Then daten.oz_freitag_von1 = dr.Item("oz_freitag_von1") If Not dr.Item("oz_freitag_bis1") Is DBNull.Value Then daten.oz_freitag_bis1 = dr.Item("oz_freitag_bis1") If Not dr.Item("oz_freitag_von2") Is DBNull.Value Then daten.oz_freitag_von2 = dr.Item("oz_freitag_von2") If Not dr.Item("oz_freitag_bis2") Is DBNull.Value Then daten.oz_freitag_bis2 = dr.Item("oz_freitag_bis2") If Not dr.Item("oz_samstag_von1") Is DBNull.Value Then daten.oz_samstag_von1 = dr.Item("oz_samstag_von1") If Not dr.Item("oz_samstag_bis1") Is DBNull.Value Then daten.oz_samstag_bis1 = dr.Item("oz_samstag_bis1") If Not dr.Item("oz_samstag_von2") Is DBNull.Value Then daten.oz_samstag_von2 = dr.Item("oz_samstag_von2") If Not dr.Item("oz_samstag_bis2") Is DBNull.Value Then daten.oz_samstag_bis2 = dr.Item("oz_samstag_bis2") If Not dr.Item("oz_sonntag_von1") Is DBNull.Value Then daten.oz_sonntag_von1 = dr.Item("oz_sonntag_von1") If Not dr.Item("oz_sonntag_bis1") Is DBNull.Value Then daten.oz_sonntag_bis1 = dr.Item("oz_sonntag_bis1") If Not dr.Item("oz_sonntag_von2") Is DBNull.Value Then daten.oz_sonntag_von2 = dr.Item("oz_sonntag_von2") If Not dr.Item("oz_sonntag_bis2") Is DBNull.Value Then daten.oz_sonntag_bis2 = dr.Item("oz_sonntag_bis2") daten.oz_montag_closed = True daten.oz_dienstag_closed = True daten.oz_mittoch_closed = True daten.oz_donnerstag_closed = True daten.oz_freitag_closed = True daten.oz_samstag_closed = True daten.oz_sonntag_closed = True If Not dr.Item("oz_montag_closed") Is DBNull.Value Then daten.oz_montag_closed = dr.Item("oz_montag_closed") If Not dr.Item("oz_dienstag_closed") Is DBNull.Value Then daten.oz_dienstag_closed = dr.Item("oz_dienstag_closed") If Not dr.Item("oz_mittoch_closed") Is DBNull.Value Then daten.oz_mittoch_closed = dr.Item("oz_mittoch_closed") If Not dr.Item("oz_donnerstag_closed") Is DBNull.Value Then daten.oz_donnerstag_closed = dr.Item("oz_donnerstag_closed") If Not dr.Item("oz_freitag_closed") Is DBNull.Value Then daten.oz_freitag_closed = dr.Item("oz_freitag_closed") If Not dr.Item("oz_samstag_closed") Is DBNull.Value Then daten.oz_samstag_closed = dr.Item("oz_samstag_closed") If Not dr.Item("oz_sonntag_closed") Is DBNull.Value Then daten.oz_sonntag_closed = dr.Item("oz_sonntag_closed") Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Öffnungszeiten-Datenbank: " & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) End Try End If dr.Close() End Using End Using Return daten Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Öffnungszeiten-Datenbank:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return Nothing End Try End Function Public Function getDataBy() As IList(Of cEntry) 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim sql As String = "SELECT * FROM tblData " Dim daten As New List(Of cEntry) Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then While dr.Read 'daten = New cEntry() 'MsgBox(daten.Count) Try Dim d As New cEntry daten.Add(d) Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Optionen" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) End Try End While End If dr.Close() End Using End Using Return daten Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Optionen:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return Nothing End Try End Function Public Function getDataMitarb() As IList(Of cMitarb) 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim sql As String = "SELECT * FROM tblUser " Dim daten As New List(Of cMitarb) Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then While dr.Read 'daten = New cEntry() 'MsgBox(daten.Count) Try Dim d As New cMitarb d.mit_id = dr.Item("mit_id") d.mit_username = dr.Item("mit_username") d.mit_pwd = dr.Item("mit_pwd") d.mit_vname = dr.Item("mit_vname") d.mit_nname = dr.Item("mit_nname") d.mit_berechtigung = dr.Item("mit_berechtigung") d.mit_info = dr.Item("mit_info") d.mit_niederlassung = dr.Item("mit_niederlassung") daten.Add(d) Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Optionen" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) End Try End While End If dr.Close() End Using End Using Return daten Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Optionen:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return Nothing End Try End Function Public Function doSQL(ByVal hSQL As String) As Boolean 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(hSQL, conn) cmd.ExecuteNonQuery() End Using End Using Return True Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim SQL:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return False End Try End Function Public Function getDataBySQL(ByVal hSQL As String) As IList(Of cEntry) 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim daten As New List(Of cEntry) Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(hSQL, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then While dr.Read 'daten = New cEntry() 'MsgBox(daten.Count) Try Dim d As New cEntry daten.Add(d) Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Optionen" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) End Try End While End If dr.Close() End Using End Using Return daten Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Optionen:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return Nothing End Try End Function Public Function insertKunden(ByVal d As cEntry) As Integer Dim oez_id As Integer = insertOeffnungszeiten(d.kdoez) Dim sql = "INSERT INTO tblKunden " & "(kd_firma, kd_str, kd_strnr, kd_plz, kd_ort, kd_land,kd_anspr1_vn,kd_anspr1_nn,kd_anspr2_vn,kd_anspr2_nn,kd_tel,kd_fax,kd_email,kd_homepage,kd_TIMOCOM,kd_oez_id,kd_neutralisierung,kd_aviso,kd_isRefNr,kd_refNr,kd_info,kd_tarifInfo,kd_rolle,kd_FMZOLL_KdNr,kd_AVISOfirma) VALUES " & "(@kd_firma,@kd_str,@kd_strnr,@kd_plz,@kd_ort,@kd_land,@kd_anspr1_vn,@kd_anspr1_nn,@kd_anspr2_vn,@kd_anspr2_nn,@kd_tel,@kd_fax,@kd_email,@kd_homepage,@kd_TIMOCOM,@kd_oez_id,@kd_neutralisierung,@kd_aviso,@kd_isRefNr,@kd_refNr,@kd_info,@kd_tarifInfo,@kd_rolle,@kd_FMZOLL_KdNr,@kd_AVISOfirma)" Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@kd_firma", d.kd_firma) cmd.Parameters.AddWithValue("@kd_str", d.kd_str) cmd.Parameters.AddWithValue("@kd_strnr", d.kd_strnr) cmd.Parameters.AddWithValue("@kd_plz", d.kd_plz) cmd.Parameters.AddWithValue("@kd_ort", d.kd_ort) cmd.Parameters.AddWithValue("@kd_land", d.kd_land) cmd.Parameters.AddWithValue("@kd_anspr1_vn", d.kd_anspr1_vn) cmd.Parameters.AddWithValue("@kd_anspr1_nn", d.kd_anspr1_nn) cmd.Parameters.AddWithValue("@kd_anspr2_vn", d.kd_anspr2_vn) cmd.Parameters.AddWithValue("@kd_anspr2_nn", d.kd_anspr2_nn) cmd.Parameters.AddWithValue("@kd_tel", d.kd_tel) cmd.Parameters.AddWithValue("@kd_fax", d.kd_fax) cmd.Parameters.AddWithValue("@kd_email", d.kd_email) cmd.Parameters.AddWithValue("@kd_homepage", d.kd_homepage) cmd.Parameters.AddWithValue("@kd_TIMOCOM", d.kd_TIMOCOM) cmd.Parameters.AddWithValue("@kd_oez_id", oez_id) cmd.Parameters.AddWithValue("@kd_neutralisierung", d.kd_neutralisierung) cmd.Parameters.AddWithValue("@kd_aviso", d.kd_aviso) cmd.Parameters.AddWithValue("@kd_isRefNr", d.kd_isRefNr) cmd.Parameters.AddWithValue("@kd_refNr", d.kd_refNr) cmd.Parameters.AddWithValue("@kd_info", d.kd_info) cmd.Parameters.AddWithValue("@kd_AVISOfirma", VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA) cmd.Parameters.AddWithValue("@kd_tarifInfo", d.kd_tarifInfo) cmd.Parameters.AddWithValue("@kd_rolle", d.kd_rolle) cmd.Parameters.AddWithValue("@kd_FMZOLL_KdNr", If(d.kd_FMZOLL_KdNr, DBNull.Value)) Try cmd.ExecuteNonQuery() Dim newcmd As New SqlCommand("SELECT @@IDENTITY", conn) Return newcmd.ExecuteScalar Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") End Try End Using End Using Return -1 End Function Public Function insertOeffnungszeiten(ByVal d As cOeffnungszeiten) As Integer Dim sql = "INSERT INTO tblOeffnungszeiten " & "(oz_montag_von1, oz_montag_bis1, oz_montag_von2, oz_montag_bis2, oz_dienstag_von1, oz_dienstag_bis1, oz_dienstag_von2, oz_dienstag_bis2, oz_mittwoch_von1, oz_mittwoch_bis1, oz_mittwoch_von2, oz_mittwoch_bis2, oz_donnerstag_von1, oz_donnerstag_bis1, oz_donnerstag_von2, oz_donnerstag_bis2, oz_freitag_von1, oz_freitag_bis1, oz_freitag_von2, oz_freitag_bis2, oz_samstag_von1, oz_samstag_bis1, oz_samstag_von2, oz_samstag_bis2, oz_sonntag_von1, oz_sonntag_bis1, oz_sonntag_von2, oz_sonntag_bis2, oz_montag_closed, oz_dienstag_closed, oz_mittoch_closed, oz_donnerstag_closed, oz_freitag_closed, oz_samstag_closed, oz_sonntag_closed) VALUES " & "(@oz_montag_von1, @oz_montag_bis1, @oz_montag_von2, @oz_montag_bis2, @oz_dienstag_von1, @oz_dienstag_bis1, @oz_dienstag_von2, @oz_dienstag_bis2, @oz_mittwoch_von1, @oz_mittwoch_bis1, @oz_mittwoch_von2, @oz_mittwoch_bis2, @oz_donnerstag_von1, @oz_donnerstag_bis1, @oz_donnerstag_von2, @oz_donnerstag_bis2, @oz_freitag_von1, @oz_freitag_bis1, @oz_freitag_von2, @oz_freitag_bis2, @oz_samstag_von1, @oz_samstag_bis1, @oz_samstag_von2, @oz_samstag_bis2, @oz_sonntag_von1, @oz_sonntag_bis1, @oz_sonntag_von2, @oz_sonntag_bis2, @oz_montag_closed, @oz_dienstag_closed, @oz_mittoch_closed, @oz_donnerstag_closed, @oz_freitag_closed, @oz_samstag_closed, @oz_sonntag_closed)" Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@oz_montag_von1", d.oz_montag_von1) cmd.Parameters.AddWithValue("@oz_montag_bis1", d.oz_montag_bis1) cmd.Parameters.AddWithValue("@oz_montag_von2", d.oz_montag_von2) cmd.Parameters.AddWithValue("@oz_montag_bis2", d.oz_montag_bis2) cmd.Parameters.AddWithValue("@oz_dienstag_von1", d.oz_dienstag_von1) cmd.Parameters.AddWithValue("@oz_dienstag_bis1", d.oz_dienstag_bis1) cmd.Parameters.AddWithValue("@oz_dienstag_von2", d.oz_dienstag_von2) cmd.Parameters.AddWithValue("@oz_dienstag_bis2", d.oz_dienstag_bis2) cmd.Parameters.AddWithValue("@oz_mittwoch_von1", d.oz_mittwoch_von1) cmd.Parameters.AddWithValue("@oz_mittwoch_bis1", d.oz_mittwoch_bis1) cmd.Parameters.AddWithValue("@oz_mittwoch_von2", d.oz_mittwoch_von2) cmd.Parameters.AddWithValue("@oz_mittwoch_bis2", d.oz_mittwoch_bis2) cmd.Parameters.AddWithValue("@oz_donnerstag_von1", d.oz_donnerstag_von1) cmd.Parameters.AddWithValue("@oz_donnerstag_bis1", d.oz_donnerstag_bis1) cmd.Parameters.AddWithValue("@oz_donnerstag_von2", d.oz_donnerstag_von2) cmd.Parameters.AddWithValue("@oz_donnerstag_bis2", d.oz_donnerstag_bis2) cmd.Parameters.AddWithValue("@oz_freitag_von1", d.oz_freitag_von1) cmd.Parameters.AddWithValue("@oz_freitag_bis1", d.oz_freitag_bis1) cmd.Parameters.AddWithValue("@oz_freitag_von2", d.oz_freitag_von2) cmd.Parameters.AddWithValue("@oz_freitag_bis2", d.oz_freitag_bis2) cmd.Parameters.AddWithValue("@oz_samstag_von1", d.oz_samstag_von1) cmd.Parameters.AddWithValue("@oz_samstag_bis1", d.oz_samstag_bis1) cmd.Parameters.AddWithValue("@oz_samstag_von2", d.oz_samstag_von2) cmd.Parameters.AddWithValue("@oz_samstag_bis2", d.oz_samstag_bis2) cmd.Parameters.AddWithValue("@oz_sonntag_von1", d.oz_sonntag_von1) cmd.Parameters.AddWithValue("@oz_sonntag_bis1", d.oz_sonntag_bis1) cmd.Parameters.AddWithValue("@oz_sonntag_von2", d.oz_sonntag_von2) cmd.Parameters.AddWithValue("@oz_sonntag_bis2", d.oz_sonntag_bis2) cmd.Parameters.AddWithValue("@oz_montag_closed", d.oz_montag_closed) cmd.Parameters.AddWithValue("@oz_dienstag_closed", d.oz_dienstag_closed) cmd.Parameters.AddWithValue("@oz_mittoch_closed", d.oz_mittoch_closed) cmd.Parameters.AddWithValue("@oz_donnerstag_closed", d.oz_donnerstag_closed) cmd.Parameters.AddWithValue("@oz_freitag_closed", d.oz_freitag_closed) cmd.Parameters.AddWithValue("@oz_samstag_closed", d.oz_samstag_closed) cmd.Parameters.AddWithValue("@oz_sonntag_closed", d.oz_sonntag_closed) Try cmd.ExecuteNonQuery() Dim newcmd As New SqlCommand("SELECT @@IDENTITY", conn) Return newcmd.ExecuteScalar Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") End Try End Using End Using Return -1 End Function Public Function updateKunden(ByVal d As cEntry) As String Dim hAuswahl As String = "" 'Änderung Dim sql = "UPDATE tblKunden " & "SET kd_firma=@kd_firma, kd_str=@kd_str, kd_strnr=@kd_strnr, kd_plz=@kd_plz, kd_ort=@kd_ort, kd_land=@kd_land, kd_anspr1_vn=@kd_anspr1_vn, kd_anspr1_nn=@kd_anspr1_nn, kd_anspr2_vn=@kd_anspr2_vn, kd_anspr2_nn=@kd_anspr2_nn, kd_tel=@kd_tel, kd_fax=@kd_fax, kd_email=@kd_email, kd_homepage=@kd_homepage, kd_TIMOCOM=@kd_TIMOCOM, kd_neutralisierung=@kd_neutralisierung, kd_aviso=@kd_aviso, kd_isRefNr=@kd_isRefNr,kd_refNr=@kd_refNr,kd_info=@kd_info, kd_tarifInfo=@kd_tarifInfo ,kd_rolle=@kd_rolle, kd_FMZOLL_KdNr=@kd_FMZOLL_KdNr, kd_AVISOfirma=@kd_AVISOfirma " & " WHERE kd_id=@kd_id" Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@kd_firma", d.kd_firma) cmd.Parameters.AddWithValue("@kd_str", d.kd_str) cmd.Parameters.AddWithValue("@kd_strnr", d.kd_strnr) cmd.Parameters.AddWithValue("@kd_plz", d.kd_plz) cmd.Parameters.AddWithValue("@kd_ort", d.kd_ort) cmd.Parameters.AddWithValue("@kd_land", d.kd_land) cmd.Parameters.AddWithValue("@kd_anspr1_vn", d.kd_anspr1_vn) cmd.Parameters.AddWithValue("@kd_anspr1_nn", d.kd_anspr1_nn) cmd.Parameters.AddWithValue("@kd_anspr2_vn", d.kd_anspr2_vn) cmd.Parameters.AddWithValue("@kd_anspr2_nn", d.kd_anspr2_nn) cmd.Parameters.AddWithValue("@kd_tel", d.kd_tel) cmd.Parameters.AddWithValue("@kd_fax", d.kd_fax) cmd.Parameters.AddWithValue("@kd_email", d.kd_email) cmd.Parameters.AddWithValue("@kd_homepage", d.kd_homepage) cmd.Parameters.AddWithValue("@kd_TIMOCOM", d.kd_TIMOCOM) cmd.Parameters.AddWithValue("@kd_neutralisierung", d.kd_neutralisierung) cmd.Parameters.AddWithValue("@kd_aviso", d.kd_aviso) cmd.Parameters.AddWithValue("@kd_isRefNr", d.kd_isRefNr) cmd.Parameters.AddWithValue("@kd_refNr", d.kd_refNr) cmd.Parameters.AddWithValue("@kd_info", d.kd_info) cmd.Parameters.AddWithValue("@kd_AVISOfirma", d.kd_AVISOfirma) cmd.Parameters.AddWithValue("@kd_tarifInfo", d.kd_tarifInfo) cmd.Parameters.AddWithValue("@kd_rolle", d.kd_rolle) cmd.Parameters.AddWithValue("@kd_id", d.kd_id) cmd.Parameters.AddWithValue("@kd_FMZOLL_KdNr", If(d.kd_FMZOLL_KdNr, DBNull.Value)) Try cmd.ExecuteNonQuery() updateOeffnungszeiten(d.kdoez) Return True Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": tblKunden: Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") End Try End Using End Using Return False End Function Public Function updateKundenDaten(ByVal id As String, ByVal kd_firma As String, ByVal kd_str As String, ByVal kd_strnr As String, ByVal kd_plz As String, ByVal kd_ort As String, ByVal kd_land As String) As String Dim hAuswahl As String = "" 'Änderung Dim sql = "UPDATE tblKunden " & "SET kd_firma=@kd_firma, kd_str=@kd_str, kd_strnr=@kd_strnr, kd_plz=@kd_plz, kd_ort=@kd_ort, kd_land=@kd_land " & "WHERE kd_id=@kd_id" Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@kd_firma", kd_firma) cmd.Parameters.AddWithValue("@kd_str", kd_str) cmd.Parameters.AddWithValue("@kd_strnr", kd_strnr) cmd.Parameters.AddWithValue("@kd_plz", kd_plz) cmd.Parameters.AddWithValue("@kd_ort", kd_ort) cmd.Parameters.AddWithValue("@kd_land", kd_land) cmd.Parameters.AddWithValue("@kd_id", id) Try cmd.ExecuteNonQuery() Return True Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": tblKunden: Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") End Try End Using End Using Return False End Function Public Function updateOeffnungszeiten(ByVal d As cOeffnungszeiten) As String Dim hAuswahl As String = "" 'Änderung Dim sql = "UPDATE tblOeffnungszeiten " & "SET oz_montag_von1=@oz_montag_von1, oz_montag_bis1=@oz_montag_bis1, oz_montag_von2=@oz_montag_von2, oz_montag_bis2=@oz_montag_bis2, oz_dienstag_von1=@oz_dienstag_von1, oz_dienstag_bis1=@oz_dienstag_bis1, oz_dienstag_von2=@oz_dienstag_von2, oz_dienstag_bis2=@oz_dienstag_bis2, oz_mittwoch_von1=@oz_mittwoch_von1, oz_mittwoch_bis1=@oz_mittwoch_bis1, oz_mittwoch_von2=@oz_mittwoch_von2, oz_mittwoch_bis2=@oz_mittwoch_bis2, oz_donnerstag_von1=@oz_donnerstag_von1, oz_donnerstag_bis1=@oz_donnerstag_bis1, oz_donnerstag_von2=@oz_donnerstag_von2, oz_donnerstag_bis2=@oz_donnerstag_bis2, oz_freitag_von1=@oz_freitag_von1, oz_freitag_bis1=@oz_freitag_bis1, oz_freitag_von2=@oz_freitag_von2, oz_freitag_bis2=@oz_freitag_bis2, oz_samstag_von1=@oz_samstag_von1, oz_samstag_bis1=@oz_samstag_bis1, oz_samstag_von2=@oz_samstag_von2, oz_samstag_bis2=@oz_samstag_bis2, oz_sonntag_von1=@oz_sonntag_von1, oz_sonntag_bis1=@oz_sonntag_bis1, oz_sonntag_von2=@oz_sonntag_von2, oz_sonntag_bis2=@oz_sonntag_bis2, oz_montag_closed=@oz_montag_closed, oz_dienstag_closed=@oz_dienstag_closed, oz_mittoch_closed=@oz_mittoch_closed, oz_donnerstag_closed=@oz_donnerstag_closed, oz_freitag_closed=@oz_freitag_closed, oz_samstag_closed=@oz_samstag_closed, oz_sonntag_closed=@oz_sonntag_closed " & " WHERE oz_id=@oz_id" Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@oz_montag_von1", d.oz_montag_von1) cmd.Parameters.AddWithValue("@oz_montag_bis1", d.oz_montag_bis1) cmd.Parameters.AddWithValue("@oz_montag_von2", d.oz_montag_von2) cmd.Parameters.AddWithValue("@oz_montag_bis2", d.oz_montag_bis2) cmd.Parameters.AddWithValue("@oz_dienstag_von1", d.oz_dienstag_von1) cmd.Parameters.AddWithValue("@oz_dienstag_bis1", d.oz_dienstag_bis1) cmd.Parameters.AddWithValue("@oz_dienstag_von2", d.oz_dienstag_von2) cmd.Parameters.AddWithValue("@oz_dienstag_bis2", d.oz_dienstag_bis2) cmd.Parameters.AddWithValue("@oz_mittwoch_von1", d.oz_mittwoch_von1) cmd.Parameters.AddWithValue("@oz_mittwoch_bis1", d.oz_mittwoch_bis1) cmd.Parameters.AddWithValue("@oz_mittwoch_von2", d.oz_mittwoch_von2) cmd.Parameters.AddWithValue("@oz_mittwoch_bis2", d.oz_mittwoch_bis2) cmd.Parameters.AddWithValue("@oz_donnerstag_von1", d.oz_donnerstag_von1) cmd.Parameters.AddWithValue("@oz_donnerstag_bis1", d.oz_donnerstag_bis1) cmd.Parameters.AddWithValue("@oz_donnerstag_von2", d.oz_donnerstag_von2) cmd.Parameters.AddWithValue("@oz_donnerstag_bis2", d.oz_donnerstag_bis2) cmd.Parameters.AddWithValue("@oz_freitag_von1", d.oz_freitag_von1) cmd.Parameters.AddWithValue("@oz_freitag_bis1", d.oz_freitag_bis1) cmd.Parameters.AddWithValue("@oz_freitag_von2", d.oz_freitag_von2) cmd.Parameters.AddWithValue("@oz_freitag_bis2", d.oz_freitag_bis2) cmd.Parameters.AddWithValue("@oz_samstag_von1", d.oz_samstag_von1) cmd.Parameters.AddWithValue("@oz_samstag_bis1", d.oz_samstag_bis1) cmd.Parameters.AddWithValue("@oz_samstag_von2", d.oz_samstag_von2) cmd.Parameters.AddWithValue("@oz_samstag_bis2", d.oz_samstag_bis2) cmd.Parameters.AddWithValue("@oz_sonntag_von1", d.oz_sonntag_von1) cmd.Parameters.AddWithValue("@oz_sonntag_bis1", d.oz_sonntag_bis1) cmd.Parameters.AddWithValue("@oz_sonntag_von2", d.oz_sonntag_von2) cmd.Parameters.AddWithValue("@oz_sonntag_bis2", d.oz_sonntag_bis2) cmd.Parameters.AddWithValue("@oz_montag_closed", d.oz_montag_closed) cmd.Parameters.AddWithValue("@oz_dienstag_closed", d.oz_dienstag_closed) cmd.Parameters.AddWithValue("@oz_mittoch_closed", d.oz_mittoch_closed) cmd.Parameters.AddWithValue("@oz_donnerstag_closed", d.oz_donnerstag_closed) cmd.Parameters.AddWithValue("@oz_freitag_closed", d.oz_freitag_closed) cmd.Parameters.AddWithValue("@oz_samstag_closed", d.oz_samstag_closed) cmd.Parameters.AddWithValue("@oz_sonntag_closed", d.oz_sonntag_closed) cmd.Parameters.AddWithValue("@oz_id", d.oz_id) Try cmd.ExecuteNonQuery() Return True Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": tblOeffnungszeiten: Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") End Try End Using End Using Return False End Function Public Sub delData(ByVal hID As Integer) Dim sql As String = "DELETE FROM tblKunden WHERE kd_id = " & hID Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Try cmd.ExecuteNonQuery() Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") End Try End Using End Using End Sub Public Sub delOeffnungszeiten(ByVal hID As Integer) Dim sql As String = "DELETE FROM tblOeffnungszeiten WHERE oz_id = " & hID Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Try cmd.ExecuteNonQuery() Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") End Try End Using End Using End Sub Public Sub delAuftrag(ByVal hID As Integer) Dim sql As String = "DELETE FROM tblAuftraege WHERE atr_id = " & hID Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Try cmd.ExecuteNonQuery() Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") End Try End Using End Using End Sub Public Sub delFrachtkosten(ByVal hID As Integer) Dim sql As String = "DELETE FROM tblFrachtkosten WHERE frtkst_id = " & hID Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Try cmd.ExecuteNonQuery() Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") End Try End Using End Using End Sub Public Function delLadungenByAufrtId(ByVal lad_atrId As Integer) As Boolean Dim sql As String = "DELETE FROM tblLadungen WHERE lad_atrId = " & lad_atrId Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Try cmd.ExecuteNonQuery() Return True Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") End Try End Using End Using Return False End Function Public Function delBhRechnungenByAufrtId(ByVal atrId As Integer) As Boolean Dim sql As String = "DELETE FROM tblBhRechnungen WHERE bhrg_atrId = " & atrId Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Try cmd.ExecuteNonQuery() Return True Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") End Try End Using End Using Return False End Function End Class Public Class cMitarbeiter Public Function AnzeigeTabelle() As DataTable While True 'Endlosschleife; wird verlassen durch Return oder Application.Exit() Try Dim myTable = New DataTable() Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand("SELECT * FROM tblUser", conn) Dim dr As SqlDataReader = cmd.ExecuteReader() myTable.Load(dr) dr.Close() End Using End Using Return myTable 'While Schleife wird hier verlassen Catch ex As Exception Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), "Problem in Function 'AnzeigeTabelle'") If antwort <> MsgBoxResult.Retry Then 'Programm wird beendet MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation) Environment.Exit(0) End If End Try End While Return Nothing End Function Public Function getBerechtigungen() As IList(Of cBerechtigungen) 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim sql As String = "SELECT * FROM tblMitBerrechtigung" Dim daten As New List(Of cBerechtigungen) Dim i As Integer = 0 Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then While dr.Read Try Dim d = New cBerechtigungen d.id = dr.Item("mit_ber_id") d.Bezeichnung = dr.Item("mit_ber_bezeichnung") daten.Add(d) Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Optionen" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) End Try i = i + 1 End While End If dr.Close() End Using End Using Return daten Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Optionen:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return Nothing End Try End Function Public Function getMitarbeiterById(ByVal id As Integer) As cMitarb Dim sql As String = "SELECT * FROM tblUser WHERE mit_id = " & id & "" Dim daten As cMitarb = Nothing Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then dr.Read() daten = New cMitarb() Try daten.mit_id = dr.Item("mit_id") daten.mit_username = dr.Item("mit_username") daten.mit_pwd = dr.Item("mit_pwd") daten.mit_vname = dr.Item("mit_vname") daten.mit_nname = dr.Item("mit_nname") daten.mit_berechtigung = dr.Item("mit_berechtigung") daten.mit_info = dr.Item("mit_info") daten.mit_niederlassung = dr.Item("mit_niederlassung") Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Optionen" & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) End Try End If dr.Close() End Using End Using Return daten Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Optionen:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return Nothing End Try End Function Public Function insertMitarbeiter(ByVal m As cMitarb) As Boolean Dim hAuswahl As String = "" 'Änderung Dim sql = "INSERT INTO tblUser " & "(mit_username, mit_pwd, mit_vname, mit_nname, mit_berechtigung, mit_info,mit_niederlassung) VALUES " & "(@mit_username,@mit_pwd,@mit_vname,@mit_nname,@mit_berechtigung,@mit_info,@mit_niederlassung)" Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@mit_username", m.mit_username) cmd.Parameters.AddWithValue("@mit_pwd", m.mit_pwd) cmd.Parameters.AddWithValue("@mit_vname", m.mit_vname) cmd.Parameters.AddWithValue("@mit_nname", m.mit_nname) cmd.Parameters.AddWithValue("@mit_berechtigung", m.mit_berechtigung) cmd.Parameters.AddWithValue("@mit_info", m.mit_info) cmd.Parameters.AddWithValue("@mit_niederlassung", m.mit_niederlassung) Try cmd.ExecuteNonQuery() Return True Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") End Try End Using End Using Return False End Function Public Function updateMitarbeiter(ByVal m As cMitarb) As Boolean Dim hAuswahl As String = "" 'Änderung Dim sql = "UPDATE tblUser " & "SET mit_username=@mit_username, mit_pwd=@mit_pwd, mit_vname=@mit_vname, mit_nname=@mit_nname, mit_berechtigung=@mit_berechtigung, mit_info=@mit_info,mit_niederlassung=@mit_niederlassung " & "WHERE mit_id=@mit_id" Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@mit_username", m.mit_username) cmd.Parameters.AddWithValue("@mit_pwd", m.mit_pwd) cmd.Parameters.AddWithValue("@mit_vname", m.mit_vname) cmd.Parameters.AddWithValue("@mit_nname", m.mit_nname) cmd.Parameters.AddWithValue("@mit_berechtigung", m.mit_berechtigung) cmd.Parameters.AddWithValue("@mit_info", m.mit_info) cmd.Parameters.AddWithValue("@mit_niederlassung", m.mit_niederlassung) cmd.Parameters.AddWithValue("@mit_id", m.mit_id) Try cmd.ExecuteNonQuery() Return True Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") End Try End Using End Using Return False End Function Public Sub delData(ByVal hID As Integer) Dim sql As String = "DELETE FROM tblUser WHERE mit_id = " & hID Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Try cmd.ExecuteNonQuery() Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Löschen") End Try End Using End Using End Sub End Class Public Class cFrachtkostenSQL Public Function getFrachtkosten(firmaId As Integer) As cFrachtkosten 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim sql As String = "SELECT * FROM tblFrachtkosten WHERE frtkst_firmaId=" & firmaId Dim daten As New cFrachtkosten Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then dr.Read() Try daten.frtkst_id = dr.Item("frtkst_id") daten.frtkst_firmaId = dr.Item("frtkst_firmaId") daten.frtkst_preisM3 = dr.Item("frtkst_preisM3") daten.frtkst_preisLDM = dr.Item("frtkst_preisLDM") daten.frtkst_provision = dr.Item("frtkst_provision") Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Frachtkosten " & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) End Try End If dr.Close() Return daten End Using End Using Return daten Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Frachtkosten:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return Nothing End Try End Function Public Function setFrachtkosten(data As cFrachtkosten) As Boolean Dim sql As String = " begin tran" & " if exists (select * from tblFrachtkosten with (updlock,serializable) where frtkst_firmaId = @frtkst_firmaId) " & " begin " & " UPDATE tblFrachtkosten " & " SET frtkst_firmaId=@frtkst_firmaId, frtkst_preisM3=@frtkst_preisM3, frtkst_preisLDM=@frtkst_preisLDM, frtkst_provision=@frtkst_provision " & " WHERE frtkst_firmaId=@frtkst_firmaId " & " End " & " Else " & " begin " & " INSERT INTO tblFrachtkosten " & " ( frtkst_firmaId, frtkst_preisM3, frtkst_preisLDM, frtkst_provision) VALUES " & " ( @frtkst_firmaId, @frtkst_preisM3, @frtkst_preisLDM, @frtkst_provision) " & "End " & " commit tran " Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) cmd.Parameters.AddWithValue("@frtkst_firmaId", data.frtkst_firmaId) cmd.Parameters.AddWithValue("@frtkst_preisM3", data.frtkst_preisM3) cmd.Parameters.AddWithValue("@frtkst_preisLDM", data.frtkst_preisLDM) cmd.Parameters.AddWithValue("@frtkst_provision", data.frtkst_provision) Try cmd.ExecuteNonQuery() Return True Catch ex As SqlException MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data") End Try End Using End Using Return False End Function Public Function getFirmen() As List(Of cFrachtkostenFirmen) 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim sql As String = "SELECT kd_firma, kd_id FROM tblKunden, tblFrachtkosten WHERE frtkst_firmaId=kd_id " Dim daten As New List(Of cFrachtkostenFirmen) Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then While dr.Read() Try Dim d As New cFrachtkostenFirmen d.kd_firma = dr.Item("kd_firma") d.kd_id = dr.Item("kd_id") daten.Add(d) Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Frachtkosten " & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) End Try End While End If dr.Close() Return daten End Using End Using Return daten Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Frachtkosten:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return Nothing End Try End Function Public Function getAllFirmen() As List(Of cFrachtkostenFirmen) 'falls ID mitgegeben, dann diese laden, ansonsten den anderen Wert suchen Dim sql As String = "SELECT kd_firma, kd_id FROM tblKunden WHERE kd_AVISOfirma='" & VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA & "' " Dim daten As New List(Of cFrachtkostenFirmen) Try Using conn As SqlConnection = cSqlDb.GetNewOpenConnection() Using cmd As New SqlCommand(sql, conn) Dim dr As SqlDataReader = cmd.ExecuteReader() If dr.HasRows Then While dr.Read() Try Dim d As New cFrachtkostenFirmen d.kd_firma = dr.Item("kd_firma") d.kd_id = dr.Item("kd_id") daten.Add(d) Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Einlesen der Frachtkosten " & vbCrLf & vbCrLf & ex.Message, MsgBoxStyle.Exclamation) End Try End While End If dr.Close() Return daten End Using End Using Return daten Catch ex As Exception MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Fehler beim Lesen der Frachtkosten:" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Datenbankfehler") Return Nothing End Try End Function End Class