1975 lines
130 KiB
VB.net
1975 lines
130 KiB
VB.net
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 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")
|
|
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")
|
|
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) 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)"
|
|
|
|
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_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 " &
|
|
" 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_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 "
|
|
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
|