Imports DISPO.cMeineFunktionen Imports DISPO.cOptionenDAL Imports System.ComponentModel Imports System.Data.SqlClient Public Class frmDetails Implements INotifyPropertyChanged Private newEntry As Boolean = False Private data As cEntry Private valueChanged As Boolean = False Private enterUpdate As Boolean = True ' Private Grid_aktiv As Boolean = False Private closeOK As Boolean = False Public rowId As String = -1 Private locZeilen As Integer = -1 Private DISPO As New cOptionenDAL Public mainForm As String Public WithEvents bindingDATA As New cBinding("DISPO") 'fürs Binding Public WithEvents bindingOeZ As New cBinding("DISPO") 'fürs Binding Private Sub frmDetails_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing If valueChanged = False Or closeOK Then If mainForm = "frmMain" Then frmMain.Enabled = True : frmMain.Tabelle_anzeigen() ElseIf mainForm = "frmSearch" Then frmSearch.Tabelle_anzeigen() End If Me.Dispose() 'Fenster wird geschlossen Else Select Case MsgBox("Wollen Sie die geänderten Daten verwerfen?", vbQuestion Or vbYesNo Or vbDefaultButton2, "Änderung verwerfen?") Case vbYes If mainForm = "frmMain" Then frmMain.Enabled = True : frmMain.Tabelle_anzeigen() ElseIf mainForm = "frmSearch" Then frmSearch.Tabelle_anzeigen() End If Me.Dispose() 'Fenster wird geschlossen Case vbNo e.Cancel = True 'Fenster wird nicht geschlossen End Select End If e.Cancel = True End Sub 'Läuft alle Elememte durch Private Sub initChangeEvent(ByVal oContainer As Object) If Not IsNothing(oContainer) Then ' alle Controls des Container-Objekts durchlaufen For Each oControl As Control In oContainer.Controls ' Falls es sich um ein Container-Control handelt und die ' TextBox-Controls ebenfalls zurückgesetzt werden sollen, muss ' die Funktion ResetTextBox rekursiv erneut aufgerufen werden If oControl.Controls.Count > 0 Then initChangeEvent(oControl) Else ' Sofern es sich um ein TextBox-Control handelt... If TypeOf oControl Is TextBox Or TypeOf oControl Is RichTextBox Then AddHandler oControl.TextChanged, AddressOf setChange End If If TypeOf oControl Is CheckBox Then AddHandler DirectCast(oControl, CheckBox).CheckedChanged, AddressOf setChange End If If TypeOf oControl Is DateTimePicker Then AddHandler DirectCast(oControl, DateTimePicker).ValueChanged, AddressOf setChange End If If TypeOf oControl Is ComboBox Then AddHandler DirectCast(oControl, ComboBox).SelectedIndexChanged, AddressOf setChange End If If TypeOf oControl Is RadioButton Then AddHandler DirectCast(oControl, RadioButton).CheckedChanged, AddressOf setChange End If End If Next End If End Sub Private Sub setChange() valueChanged = True closeOK = False End Sub Private Sub frmAuftragNEU_Shown(sender As Object, e As EventArgs) Handles Me.Shown dostuff() ' initChangeEvent(Me) ' AddHandler dgvAuftraege.CellValueChanged, AddressOf setChange End Sub Sub dostuff() ' atr_auftr_id._useAsBindingText = True ' atr_auftr_id.Visible = True If Not IsNumeric(rowId) Or rowId = -1 Then 'rowId = DISPO.newAuftrag() data = New cEntry Dim oe As New cOeffnungszeiten data.kdoez = oe rowId = DISPO.insertKunden(data) newEntry = True End If initDataBinding() End Sub Dim AvisBinding As Binding Dim NeutralisierungBinding As Binding Dim dataAdapterAuftraege As New SqlDataAdapter Dim dataBindingAuftraege As New BindingSource Sub initDataBinding() Me.Enabled = False Me.Cursor = Cursors.WaitCursor btnSave.Enabled = False Try bindingDATA.setARITHABORTOn() bindingDATA.initBinding(" SELECT TOP 1 * FROM tblKunden WHERE kd_id ='" & rowId & "'", "tblKunden") AddHandler bindingDATA.bindingdataTable.ColumnChanged, _ Sub(send As Object, evnt As EventArgs) btnSave.Enabled = True End Sub binddata(txtFirma, "Text", bindingDATA.bindingSource, "kd_firma") binddata(txtStr, "Text", bindingDATA.bindingSource, "kd_str") binddata(txtStrNr, "Text", bindingDATA.bindingSource, "kd_strnr") binddata(txtPlz, "Text", bindingDATA.bindingSource, "kd_plz") binddata(txtOrt, "Text", bindingDATA.bindingSource, "kd_ort") binddata(cbxLand, "Text", bindingDATA.bindingSource, "kd_land") binddata(txtAnspr1_vn, "Text", bindingDATA.bindingSource, "kd_anspr1_vn") binddata(txtAnspr1_nn, "Text", bindingDATA.bindingSource, "kd_anspr1_nn") binddata(txtAnspr2_vn, "Text", bindingDATA.bindingSource, "kd_anspr2_vn") binddata(txtAnspr2_nn, "Text", bindingDATA.bindingSource, "kd_anspr2_nn") binddata(txtTel, "Text", bindingDATA.bindingSource, "kd_tel") binddata(txtFax, "Text", bindingDATA.bindingSource, "kd_fax") binddata(txtEmail, "Text", bindingDATA.bindingSource, "kd_email") binddata(txtHomepage, "Text", bindingDATA.bindingSource, "kd_homepage") binddata(txtTIMOCOM, "Text", bindingDATA.bindingSource, "kd_TIMOCOM") Dim kdnr = (bindingDATA.bindingdataTable.Rows(0).Item("kd_FMZOLL_KdNr")) kdFirma.KdNr = If(kdnr Is DBNull.Value, -1, kdnr) ' setNeutrChecked(data.kd_neutralisierung) ' setAvisoChecked(data.kd_aviso) If Not AvisBinding Is Nothing Then Me.DataBindings.Remove(AvisBinding) If Not NeutralisierungBinding Is Nothing Then Me.DataBindings.Remove(NeutralisierungBinding) AvisBinding = New Binding("rbtnAAfb_Aviso", bindingDATA.bindingSource, "kd_aviso") NeutralisierungBinding = New Binding("rbtnAAfb_Neutralisierung", bindingDATA.bindingSource, "kd_neutralisierung") ' Me.DataBindings.Remove(AvisBinding) ' Me.DataBindings.Remove(NeutralisierungBinding) Me.DataBindings.Add(AvisBinding) Me.DataBindings.Add(NeutralisierungBinding) RemoveHandler rbnAviso_ja1.Click, AddressOf changeAviso RemoveHandler rbnAviso_ja2.Click, AddressOf changeAviso RemoveHandler rbnAviso_nein.Click, AddressOf changeAviso RemoveHandler rbnNeutr_ja.Click, AddressOf changeNeutralisierung RemoveHandler rbnNeutr_nein.Click, AddressOf changeNeutralisierung RemoveHandler rbnNeutr_sonder.Click, AddressOf changeNeutralisierung AddHandler rbnAviso_ja1.Click, AddressOf changeAviso AddHandler rbnAviso_ja2.Click, AddressOf changeAviso AddHandler rbnAviso_nein.Click, AddressOf changeAviso AddHandler rbnNeutr_ja.Click, AddressOf changeNeutralisierung AddHandler rbnNeutr_nein.Click, AddressOf changeNeutralisierung AddHandler rbnNeutr_sonder.Click, AddressOf changeNeutralisierung binddata(rbtnRefNrJA, "Checked", bindingDATA.bindingSource, "kd_isRefNr") rbtnRefNrNEIN.Checked = Not rbtnRefNrJA.Checked binddata(rtbInfo, "Text", bindingDATA.bindingSource, "kd_info") binddata(rtbTarife, "Text", bindingDATA.bindingSource, "kd_tarifInfo") '!!!!!!!!!!!!!!!!!! binddata(cboRolle, "SelectedIndex", bindingDATA.bindingSource, "kd_rolle") ' cboRolle.SelectedIndex = data.kd_rolle cboRolle.Items.Clear() cboRolle.Items.Add(New MyListItem("-", "0")) cboRolle.Items.Add(New MyListItem("Auftraggeber", "1")) cboRolle.Items.Add(New MyListItem("Ladestelle", "2")) cboRolle.Items.Add(New MyListItem("Entladestelle", "3")) cboRolle.Items.Add(New MyListItem("Frachtführer", "4")) cboRolle.Items.Add(New MyListItem("Transportunternehmen", "5")) binddata(cboRolle, "_value", bindingDATA.bindingSource, "kd_rolle") ' Dim o As cOeffnungszeiten = data.kdoez bindingOeZ.setARITHABORTOn() bindingOeZ.initBinding("SELECT * FROM tblOeffnungszeiten WHERE oz_id = " & bindingDATA.bindingdataTable.Rows(0).Item("kd_oez_id").ToString, "tblOeffnungszeiten") AddHandler bindingOeZ.bindingdataTable.ColumnChanged, Sub(send As Object, evnt As EventArgs) btnSave.Enabled = True End Sub binddata(txtMontagVon1, "Text", bindingOeZ.bindingSource, "oz_montag_von1") binddata(txtMontagBis1, "Text", bindingOeZ.bindingSource, "oz_montag_bis1") binddata(txtMontagVon2, "Text", bindingOeZ.bindingSource, "oz_montag_von2") binddata(txtMontagBis2, "Text", bindingOeZ.bindingSource, "oz_montag_bis2") binddata(txtDienstagVon1, "Text", bindingOeZ.bindingSource, "oz_dienstag_von1") binddata(txtDienstagBis1, "Text", bindingOeZ.bindingSource, "oz_dienstag_bis1") binddata(txtDienstagVon2, "Text", bindingOeZ.bindingSource, "oz_dienstag_von2") binddata(txtDienstagBis2, "Text", bindingOeZ.bindingSource, "oz_dienstag_bis2") binddata(txtMittwochVon1, "Text", bindingOeZ.bindingSource, "oz_mittwoch_von1") binddata(txtMittwochBis1, "Text", bindingOeZ.bindingSource, "oz_mittwoch_bis1") binddata(txtMittwochVon2, "Text", bindingOeZ.bindingSource, "oz_mittwoch_von2") binddata(txtMittwochBis2, "Text", bindingOeZ.bindingSource, "oz_mittwoch_bis2") binddata(txtDonnerstagVon1, "Text", bindingOeZ.bindingSource, "oz_donnerstag_von1") binddata(txtDonnerstagBis1, "Text", bindingOeZ.bindingSource, "oz_donnerstag_bis1") binddata(txtDonnerstagVon2, "Text", bindingOeZ.bindingSource, "oz_donnerstag_von2") binddata(txtDonnerstagBis2, "Text", bindingOeZ.bindingSource, "oz_donnerstag_bis2") binddata(txtFreitagVon1, "Text", bindingOeZ.bindingSource, "oz_freitag_von1") binddata(txtFreitagBis1, "Text", bindingOeZ.bindingSource, "oz_freitag_bis1") binddata(txtFreitagVon2, "Text", bindingOeZ.bindingSource, "oz_freitag_von2") binddata(txtFreitagBis2, "Text", bindingOeZ.bindingSource, "oz_freitag_bis2") binddata(txtSamstagVon1, "Text", bindingOeZ.bindingSource, "oz_samstag_von1") binddata(txtSamstagBis1, "Text", bindingOeZ.bindingSource, "oz_samstag_bis1") binddata(txtSamstagVon2, "Text", bindingOeZ.bindingSource, "oz_samstag_von2") binddata(txtSamstagBis2, "Text", bindingOeZ.bindingSource, "oz_samstag_bis2") binddata(txtSonntagVon1, "Text", bindingOeZ.bindingSource, "oz_sonntag_von1") binddata(txtSonntagBis1, "Text", bindingOeZ.bindingSource, "oz_sonntag_bis1") binddata(txtSonntagVon2, "Text", bindingOeZ.bindingSource, "oz_sonntag_von2") binddata(txtSonntagBis2, "Text", bindingOeZ.bindingSource, "oz_sonntag_bis2") binddata(cbxMontagClosed, "CheckState", bindingOeZ.bindingSource, "oz_montag_closed") binddata(cbxDienstagClosed, "CheckState", bindingOeZ.bindingSource, "oz_dienstag_closed") binddata(cbxMittwochClosed, "CheckState", bindingOeZ.bindingSource, "oz_mittoch_closed") binddata(cbxDonnerstagClosed, "CheckState", bindingOeZ.bindingSource, "oz_donnerstag_closed") binddata(cbxFreitagClosed, "CheckState", bindingOeZ.bindingSource, "oz_freitag_closed") binddata(cbxSamstagClosed, "CheckState", bindingOeZ.bindingSource, "oz_samstag_closed") binddata(cbxSonntagClosed, "CheckState", bindingOeZ.bindingSource, "oz_sonntag_closed") 'newEntry = False Dim start As Long = (DateTime.Now - New DateTime(1970, 1, 1)).TotalMilliseconds locZeilen = -1 With dgvAuftraege .Columns.Clear() .DataSource = Me.dataBindingAuftraege initDGVBindingAuftraege("SELECT atr_id, atr_frachtpos,atr_datum, atr_auftr_firma,atr_ladest_firma,atr_entladest_firma,atr_abliefernachweis FROM tblAuftraege WHERE atr_frachtf_id='" & rowId & "' OR atr_ladest_id='" & rowId & "' OR atr_entladest_id='" & rowId & "' OR atr_auftr_id='" & rowId & "' OR atr_absender_id='" & rowId & "' OR atr_empfaenger_id='" & rowId & "'") .RowTemplate.Height = 20 .RowTemplate.DefaultCellStyle.Alignment = DataGridViewContentAlignment.TopLeft .AllowUserToAddRows = False .AllowUserToDeleteRows = False .AllowUserToOrderColumns = False .AllowUserToResizeColumns = True .AllowUserToResizeRows = False ' .RowTemplate.ReadOnly = True .RowHeadersVisible = False .SelectionMode = DataGridViewSelectionMode.FullRowSelect .Columns(0).Visible = False .Columns(1).ReadOnly = True .Columns(2).ReadOnly = True .Columns(3).ReadOnly = True .Columns(4).ReadOnly = True .Columns(5).ReadOnly = True .Columns(1).Width = 80 .Columns(1).HeaderText = "FrachtposNr." .Columns(2).Width = 80 .Columns(2).HeaderText = "Datum" .Columns(3).Width = 180 .Columns(3).HeaderText = "Auftraggeber" .Columns(4).Width = 180 .Columns(4).HeaderText = "Ladestelle" .Columns(5).Width = 180 .Columns(5).HeaderText = "Entladest." .Columns(6).Width = 180 .Columns(6).HeaderText = "Abl.Nachw." .Columns(5).ReadOnly = False 'AddHandler .UserAddedRow, _ ' Sub(send As Object, evnt As EventArgs) ' send.CurrentRow.Cells("lad_atrID").Value = auftragID ' End Sub ' ' AddHandler .CellValueChanged, _ ' Sub(send As Object, evnt As EventArgs) ' btnSave.Enabled = True ' End Sub 'AddHandler .UserDeletedRow, _ ' Sub(send As Object, evnt As DataGridViewRowEventArgs) 'btnSave.Enabled = True ' End Sub End With Catch ex As Exception MsgBox(ex.Message) End Try Me.Enabled = True Me.Cursor = Cursors.Default End Sub Public Event PropertyChanged As PropertyChangedEventHandler _ Implements INotifyPropertyChanged.PropertyChanged Protected Sub OnPropertyChanged(ByVal name As String) RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(name)) End Sub Sub changeAviso(sender As Object, e As EventArgs) OnPropertyChanged("rbtnAAfb_Aviso") btnSave.Enabled = True End Sub Sub changeNeutralisierung(sender As Object, e As EventArgs) OnPropertyChanged("rbtnAAfb_Neutralisierung") btnSave.Enabled = True End Sub Public Property rbtnAAfb_Aviso() As Integer Get If rbnAviso_ja1.Checked = True Then Return 0 If rbnAviso_ja2.Checked = True Then Return 1 If rbnAviso_nein.Checked = True Then Return 2 ' If RadioButton7.Checked = True Then Return 3 Return 0 End Get Set(ByVal value As Integer) rbnAviso_ja1.Checked = rbnAviso_ja2.Checked = rbnAviso_nein.Checked = False 'MsgBox(value) Select Case value Case 0 : rbnAviso_ja1.Checked = True Case 1 : rbnAviso_ja2.Checked = True Case 2 : rbnAviso_nein.Checked = True Case Else : rbnAviso_nein.Checked = True ' Case 3 : RadioButton7.Checked = True End Select OnPropertyChanged(value) End Set End Property Public Property rbtnAAfb_Neutralisierung() As Integer Get If rbnNeutr_ja.Checked = True Then Return 0 If rbnNeutr_nein.Checked = True Then Return 1 If rbnNeutr_sonder.Checked = True Then Return 2 Return 0 End Get Set(ByVal value As Integer) rbnNeutr_ja.Checked = rbnNeutr_nein.Checked = rbnNeutr_sonder.Checked = False Select Case value Case 0 : rbnNeutr_ja.Checked = True Case 1 : rbnNeutr_nein.Checked = True Case 2 : rbnNeutr_sonder.Checked = True End Select OnPropertyChanged(value) End Set End Property Private Sub initDGVBindingAuftraege(bindingString As String) Dim sqlstr As String = bindingString ' dgvLKW.DataSource = bindingSDL Dim d As New SqlDataAdapter() Try 'Dim connectionString As String = cSqlDb.GetNewOpenConnection If frmLogin.TESTSYSTEM Then Me.dataAdapterAuftraege = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO_TEST) Else Me.dataAdapterAuftraege = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO) End If Catch ex As SqlException MessageBox.Show("Der Connection-String kann nicht verarbeitet werden. Wenden Sie sich an den Programmbetreuer.") End Try Dim commandBuilder As New SqlCommandBuilder(Me.dataAdapterAuftraege) Dim table As New DataTable() Me.dataAdapterAuftraege.Fill(table) ' table.Columns("KundenNr").DefaultValue = kdNr table.Locale = System.Globalization.CultureInfo.InvariantCulture 'table.Columns("lad_atrID").DefaultValue = auftragID 'bindingSDL.Clear() dgvAuftraege.DataBindings.Clear() Me.dataBindingAuftraege.DataSource = table End Sub Sub binddata(o As Object, bindingParam As String, bindingSource As BindingSource, dataName As String, Optional bindingNullValue As String = "") o.DataBindings.Clear() o.DataBindings.Add(New Binding(bindingParam, bindingSource, dataName, True, DataSourceUpdateMode.OnPropertyChanged, bindingNullValue)) End Sub Public Sub initB(b As Binding, bindingSource As BindingSource, bindingParam As String, bindingDBname As String) If Not b Is Nothing Then Me.DataBindings.Remove(b) b = New Binding(bindingParam, bindingSource, bindingDBname) Me.DataBindings.Add(b) End Sub Private Sub frmDetails_Load(sender As Object, e As EventArgs) Handles Me.Load ' Dim rowId As String = frmMain.rowId kdFirma.initKdBox(Me) ' showDGVAuftraege() ' KeyPreview = True 'dgvAuftraege.Item(1, 1).Style.BackColor = Color.IndianRed ' RemoveHandler txtKuerzel.TextChanged, AddressOf txtKuerzel_TextChanged Dim cOptionenDAL As New cOptionenDAL If False Then If Not IsNothing(rowId) And rowId >= 0 Then data = cOptionenDAL.getKundendaten(rowId) txtFirma.Text = data.kd_firma txtStr.Text = data.kd_str txtStrNr.Text = data.kd_strnr txtPlz.Text = data.kd_plz txtOrt.Text = data.kd_ort cbxLand.Text = data.kd_land txtAnspr1_vn.Text = data.kd_anspr1_vn txtAnspr1_nn.Text = data.kd_anspr1_nn txtAnspr2_vn.Text = data.kd_anspr2_vn txtAnspr2_nn.Text = data.kd_anspr2_nn txtTel.Text = data.kd_tel txtFax.Text = data.kd_fax txtEmail.Text = data.kd_email txtHomepage.Text = data.kd_homepage txtTIMOCOM.Text = data.kd_TIMOCOM kdFirma.KdNr = data.kd_FMZOLL_KdNr setNeutrChecked(data.kd_neutralisierung) setAvisoChecked(data.kd_aviso) rbtnRefNrNEIN.Checked = data.kd_isRefNr If data.kd_isRefNr Then rbtnRefNrJA.Checked = True Else : rbtnRefNrNEIN.Checked = True End If rtbInfo.Text = data.kd_info rtbTarife.Text = data.kd_tarifInfo cboRolle.SelectedIndex = data.kd_rolle Dim o As cOeffnungszeiten = data.kdoez txtMontagVon1.Text = o.oz_montag_von1 txtMontagBis1.Text = o.oz_montag_bis1 txtMontagVon2.Text = o.oz_montag_von2 txtMontagBis2.Text = o.oz_montag_bis2 txtDienstagVon1.Text = o.oz_dienstag_von1 txtDienstagBis1.Text = o.oz_dienstag_bis1 txtDienstagVon2.Text = o.oz_dienstag_von2 txtDienstagBis2.Text = o.oz_dienstag_bis2 txtMittwochVon1.Text = o.oz_mittwoch_von1 txtMittwochBis1.Text = o.oz_mittwoch_bis1 txtMittwochVon2.Text = o.oz_mittwoch_von2 txtMittwochBis2.Text = o.oz_mittwoch_bis2 txtDonnerstagVon1.Text = o.oz_donnerstag_von1 txtDonnerstagBis1.Text = o.oz_donnerstag_bis1 txtDonnerstagVon2.Text = o.oz_donnerstag_von2 txtDonnerstagBis2.Text = o.oz_donnerstag_bis2 txtFreitagVon1.Text = o.oz_freitag_von1 txtFreitagBis1.Text = o.oz_freitag_bis1 txtFreitagVon2.Text = o.oz_freitag_von2 txtFreitagBis2.Text = o.oz_freitag_bis2 txtSamstagVon1.Text = o.oz_samstag_von1 txtSamstagBis1.Text = o.oz_samstag_bis1 txtSamstagVon2.Text = o.oz_samstag_von2 txtSamstagBis2.Text = o.oz_samstag_bis2 txtSonntagVon1.Text = o.oz_sonntag_von1 txtSonntagBis1.Text = o.oz_sonntag_bis1 txtSonntagVon2.Text = o.oz_sonntag_von2 txtSonntagBis2.Text = o.oz_sonntag_bis2 cbxMontagClosed.Checked = o.oz_montag_closed cbxDienstagClosed.Checked = o.oz_dienstag_closed cbxMittwochClosed.Checked = o.oz_mittoch_closed cbxDonnerstagClosed.Checked = o.oz_donnerstag_closed cbxFreitagClosed.Checked = o.oz_freitag_closed cbxSamstagClosed.Checked = o.oz_samstag_closed cbxSonntagClosed.Checked = o.oz_sonntag_closed newEntry = False Else newEntry = True closeOK = False btnPrint.Visible = False grpNew.Visible = False End If End If Dim day As Integer = Now.DayOfWeek If day = 1 Then lblMontag.Font = New Font(lblMontag.Font, FontStyle.Bold) If day = 2 Then lblDienstag.Font = New Font(lblDienstag.Font, FontStyle.Bold) If day = 3 Then lblMittwoch.Font = New Font(lblMittwoch.Font, FontStyle.Bold) If day = 4 Then lblDonnerstag.Font = New Font(lblDonnerstag.Font, FontStyle.Bold) If day = 5 Then lblFreitag.Font = New Font(lblFreitag.Font, FontStyle.Bold) If day = 6 Then lblSamstag.Font = New Font(lblSamstag.Font, FontStyle.Bold) If day = 7 Then lblSonntag.Font = New Font(lblSonntag.Font, FontStyle.Bold) ' If frmLogin.USRBER > 5 Then btnOK.Enabled = False : closeOK = True End Sub Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click Me.Close() End Sub ' Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click ' If frmLogin.USRBER <= 5 Then ' If newEntry Then ' insertData() ' Else ' updateData() ' End If ' End If ' End Sub Private Sub insertData() Dim cOptionenDAL As New cOptionenDAL Dim entry As New cEntry 'kd_id =txtAnspr1_nn entry.kd_firma = txtFirma.Text entry.kd_str = txtStr.Text entry.kd_strnr = txtStrNr.Text entry.kd_plz = txtPlz.Text entry.kd_ort = txtOrt.Text entry.kd_land = cbxLand.Text entry.kd_anspr1_vn = txtAnspr1_vn.Text entry.kd_anspr1_nn = txtAnspr1_nn.Text entry.kd_anspr2_vn = txtAnspr2_vn.Text entry.kd_anspr2_nn = txtAnspr2_nn.Text entry.kd_tel = txtTel.Text entry.kd_fax = txtFax.Text entry.kd_email = txtEmail.Text entry.kd_homepage = txtHomepage.Text entry.kd_TIMOCOM = txtTIMOCOM.Text data.kd_FMZOLL_KdNr = kdFirma.KdNrNullInt 'entry.kd_oez_id = txt entry.kd_neutralisierung = getNeutrChecked() entry.kd_aviso = getAvisoChecked() If rbtnRefNrJA.Checked Then entry.kd_isRefNr = True Else : entry.kd_isRefNr = False End If entry.kd_info = rtbInfo.Text entry.kd_tarifInfo = rtbTarife.Text entry.kd_rolle = cboRolle.SelectedIndex Dim o As New cOeffnungszeiten 'kd_id =txtAnspr1_nn o.oz_montag_von1 = txtMontagVon1.Text o.oz_montag_bis1 = txtMontagBis1.Text o.oz_montag_von2 = txtMontagVon2.Text o.oz_montag_bis2 = txtMontagBis2.Text o.oz_dienstag_von1 = txtDienstagVon1.Text o.oz_dienstag_bis1 = txtDienstagBis1.Text o.oz_dienstag_von2 = txtDienstagVon2.Text o.oz_dienstag_bis2 = txtDienstagBis2.Text o.oz_mittwoch_von1 = txtMittwochVon1.Text o.oz_mittwoch_bis1 = txtMittwochBis1.Text o.oz_mittwoch_von2 = txtMittwochVon2.Text o.oz_mittwoch_bis2 = txtMittwochBis2.Text o.oz_donnerstag_von1 = txtDonnerstagVon1.Text o.oz_donnerstag_bis1 = txtDonnerstagBis1.Text o.oz_donnerstag_von2 = txtDonnerstagVon2.Text o.oz_donnerstag_bis2 = txtDonnerstagBis2.Text o.oz_freitag_von1 = txtFreitagVon1.Text o.oz_freitag_bis1 = txtFreitagBis1.Text o.oz_freitag_von2 = txtFreitagVon2.Text o.oz_freitag_bis2 = txtFreitagBis2.Text o.oz_samstag_von1 = txtSamstagVon1.Text o.oz_samstag_bis1 = txtSamstagBis1.Text o.oz_samstag_von2 = txtSamstagVon2.Text o.oz_samstag_bis2 = txtSamstagBis2.Text o.oz_sonntag_von1 = txtSonntagVon1.Text o.oz_sonntag_bis1 = txtSonntagBis1.Text o.oz_sonntag_von2 = txtSonntagVon2.Text o.oz_sonntag_bis2 = txtSonntagBis2.Text o.oz_montag_closed = cbxMontagClosed.Checked o.oz_dienstag_closed = cbxDienstagClosed.Checked o.oz_mittoch_closed = cbxMittwochClosed.Checked o.oz_donnerstag_closed = cbxDonnerstagClosed.Checked o.oz_freitag_closed = cbxFreitagClosed.Checked o.oz_samstag_closed = cbxSamstagClosed.Checked o.oz_sonntag_closed = cbxSonntagClosed.Checked entry.kdoez = o Dim val As Boolean If txtFirma.Text = "" Then MsgBox("Bitte geben Sie ein Kürzel an!") : val = False ElseIf cOptionenDAL.insertKunden(entry) Then frmMain.Tabelle_anzeigen() closeOK = True Me.Close() End If End Sub Private Sub Eintraege_festlegen() 'funktioniert nicht, farbe wird nicht übernommen 'With dgvAuftraege 'For i As Integer = 0 To .RowCount - 1 ' If IsDBNull(.Rows(i).Cells(6).Value) = False And Not .Rows(i).Cells(6).Value Is Nothing Then 'If .Rows(i).Cells(6).Value = rowId Then .Item(3, i).Style.BackColor = Color.ForestGreen ' End If ' If IsDBNull(.Rows(i).Cells(7).Value) = False And Not .Rows(i).Cells(7).Value Is Nothing Then 'If .Rows(i).Cells(7).Value = rowId Then .Item(4, i).Style.BackColor = Color.ForestGreen ' End If ' If IsDBNull(.Rows(i).Cells(8).Value) = False And Not .Rows(i).Cells(8).Value Is Nothing Then 'If .Rows(i).Cells(8).Value = rowId Then .Item(5, i).Style.BackColor = Color.ForestGreen ' End If ' Next ' End With End Sub Private Sub dataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles dgvAuftraege.CellClick Try If e.ColumnIndex = 6 Then Dim val As Boolean = Not dgvAuftraege.Rows(e.RowIndex).Cells(6).Value DISPO.setAbliefernachweis(dgvAuftraege.Rows(e.RowIndex).Cells(0).Value, val) ' showDGVAuftraege() End If Catch ex As Exception End Try End Sub Private Sub updateData() Dim cOptionenDAL As New cOptionenDAL Dim k As New cEntry 'kd_id =txtAnspr1_nn k.kd_firma = txtFirma.Text k.kd_str = txtStr.Text k.kd_strnr = txtStrNr.Text k.kd_plz = txtPlz.Text k.kd_ort = txtOrt.Text k.kd_land = cbxLand.Text k.kd_anspr1_vn = txtAnspr1_vn.Text k.kd_anspr1_nn = txtAnspr1_nn.Text k.kd_anspr2_vn = txtAnspr2_vn.Text k.kd_anspr2_nn = txtAnspr2_nn.Text k.kd_tel = txtTel.Text k.kd_fax = txtFax.Text k.kd_email = txtEmail.Text k.kd_homepage = txtHomepage.Text k.kd_TIMOCOM = txtTIMOCOM.Text k.kd_FMZOLL_KdNr = kdFirma.KdNrNullInt 'entry.kd_oez_id = txtkdFirma.KdNr k.kd_neutralisierung = getNeutrChecked() k.kd_aviso = getAvisoChecked() If rbtnRefNrJA.Checked Then k.kd_isRefNr = True Else : k.kd_isRefNr = False End If k.kd_info = rtbInfo.Text k.kd_tarifInfo = rtbTarife.Text k.kd_id = data.kd_id k.kd_rolle = cboRolle.SelectedIndex Dim o As New cOeffnungszeiten 'kd_id =txtAnspr1_nn o.oz_montag_von1 = txtMontagVon1.Text o.oz_montag_bis1 = txtMontagBis1.Text o.oz_montag_von2 = txtMontagVon2.Text o.oz_montag_bis2 = txtMontagBis2.Text o.oz_dienstag_von1 = txtDienstagVon1.Text o.oz_dienstag_bis1 = txtDienstagBis1.Text o.oz_dienstag_von2 = txtDienstagVon2.Text o.oz_dienstag_bis2 = txtDienstagBis2.Text o.oz_mittwoch_von1 = txtMittwochVon1.Text o.oz_mittwoch_bis1 = txtMittwochBis1.Text o.oz_mittwoch_von2 = txtMittwochVon2.Text o.oz_mittwoch_bis2 = txtMittwochBis2.Text o.oz_donnerstag_von1 = txtDonnerstagVon1.Text o.oz_donnerstag_bis1 = txtDonnerstagBis1.Text o.oz_donnerstag_von2 = txtDonnerstagVon2.Text o.oz_donnerstag_bis2 = txtDonnerstagBis2.Text o.oz_freitag_von1 = txtFreitagVon1.Text o.oz_freitag_bis1 = txtFreitagBis1.Text o.oz_freitag_von2 = txtFreitagVon2.Text o.oz_freitag_bis2 = txtFreitagBis2.Text o.oz_samstag_von1 = txtSamstagVon1.Text o.oz_samstag_bis1 = txtSamstagBis1.Text o.oz_samstag_von2 = txtSamstagVon2.Text o.oz_samstag_bis2 = txtSamstagBis2.Text o.oz_sonntag_von1 = txtSonntagVon1.Text o.oz_sonntag_bis1 = txtSonntagBis1.Text o.oz_sonntag_von2 = txtSonntagVon2.Text o.oz_sonntag_bis2 = txtSonntagBis2.Text o.oz_montag_closed = cbxMontagClosed.Checked o.oz_dienstag_closed = cbxDienstagClosed.Checked o.oz_mittoch_closed = cbxMittwochClosed.Checked o.oz_donnerstag_closed = cbxDonnerstagClosed.Checked o.oz_freitag_closed = cbxFreitagClosed.Checked o.oz_samstag_closed = cbxSamstagClosed.Checked o.oz_sonntag_closed = cbxSonntagClosed.Checked o.oz_id = data.kdoez.oz_id k.kdoez = o Dim val As Boolean If txtFirma.Text = "" Then MsgBox("Bitte geben Sie ein Kürzel an!") : val = False ElseIf cOptionenDAL.updateKunden(k) Then frmMain.Tabelle_anzeigen() closeOK = True Me.Close() End If End Sub Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click frmPrintView.BefüllenAbrechnung() frmPrintView.Show() End Sub ' Private Sub frmDetails_KeyPress(ByVal sender As Object, ByVal e As System.Windows.Forms.KeyPressEventArgs) Handles Me.KeyPress ' If enterUpdate Then ' If e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Return) Then ' If frmLogin.USRBER <= 5 Then ' If newEntry Then insertData() Else updateData() ' End If ' ElseIf e.KeyChar = Microsoft.VisualBasic.ChrW(Keys.Escape) Then ' Me.Close() ' End If ' End If ' End Sub Private Sub txtBox_GotFocus(sender As Object, e As EventArgs) Handles rtbInfo.GotFocus enterUpdate = False End Sub Private Sub txtBox_GotLost(sender As Object, e As EventArgs) Handles rtbInfo.LostFocus enterUpdate = True End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) frmCMR.Show() End Sub Private Sub cbxAktiv_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAktiv.CheckedChanged If cbxAktiv.Checked Then Me.BackColor = Color.IndianRed : cbxAktiv.ForeColor = Color.White Else Me.BackColor = DefaultBackColor : cbxAktiv.ForeColor = Color.Black End If End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) frmTransportauftrag.Show() ' frmPrintView.Transportauftrag() End Sub Private Function getNeutrChecked() As Integer If rbnNeutr_ja.Checked Then Return 0 If rbnNeutr_nein.Checked Then Return 1 If rbnNeutr_sonder.Checked Then Return 2 Return -1 End Function Private Function getAvisoChecked() As Integer If rbnAviso_ja1.Checked Then Return 0 If rbnAviso_ja2.Checked Then Return 1 If rbnAviso_nein.Checked Then Return 2 Return -1 End Function Private Sub setNeutrChecked(ByVal s As String) rbnNeutr_ja.Checked = False rbnNeutr_nein.Checked = False rbnNeutr_sonder.Checked = False If s = "0" Then rbnNeutr_ja.Checked = True If s = "1" Then rbnNeutr_nein.Checked = True If s = "2" Then rbnNeutr_sonder.Checked = True End Sub Private Sub setAvisoChecked(ByVal s As String) rbnAviso_ja1.Checked = False rbnAviso_ja2.Checked = False rbnAviso_nein.Checked = False If s = "0" Then rbnAviso_ja1.Checked = True If s = "1" Then rbnAviso_ja2.Checked = True If s = "2" Then rbnAviso_nein.Checked = True End Sub Private Sub cbxMontagClosed_CheckedChanged(sender As Object, e As EventArgs) Handles cbxMontagClosed.CheckedChanged If cbxMontagClosed.Checked Then txtMontagBis1.Enabled = False : txtMontagBis1.Text = "" txtMontagVon1.Enabled = False : txtMontagVon1.Text = "" txtMontagBis2.Enabled = False : txtMontagBis2.Text = "" txtMontagVon2.Enabled = False : txtMontagVon2.Text = "" Else txtMontagBis1.Enabled = True txtMontagVon1.Enabled = True txtMontagBis2.Enabled = True txtMontagVon2.Enabled = True End If End Sub Private Sub cbxDienstagClosed_CheckedChanged(sender As Object, e As EventArgs) Handles cbxDienstagClosed.CheckedChanged If cbxDienstagClosed.Checked Then txtDienstagBis1.Enabled = False : txtDienstagBis1.Text = "" txtDienstagVon1.Enabled = False : txtDienstagVon1.Text = "" txtDienstagBis2.Enabled = False : txtDienstagBis2.Text = "" txtDienstagVon2.Enabled = False : txtDienstagVon2.Text = "" Else txtDienstagBis1.Enabled = True txtDienstagVon1.Enabled = True txtDienstagBis2.Enabled = True txtDienstagVon2.Enabled = True End If End Sub Private Sub cbxMittwochClosed_CheckedChanged(sender As Object, e As EventArgs) Handles cbxMittwochClosed.CheckedChanged If cbxMittwochClosed.Checked Then txtMittwochBis1.Enabled = False : txtMittwochBis1.Text = "" txtMittwochVon1.Enabled = False : txtMittwochVon1.Text = "" txtMittwochBis2.Enabled = False : txtMittwochBis2.Text = "" txtMittwochVon2.Enabled = False : txtMittwochVon2.Text = "" Else txtMittwochBis1.Enabled = True txtMittwochVon1.Enabled = True txtMittwochBis2.Enabled = True txtMittwochVon2.Enabled = True End If End Sub Private Sub cbxDonnerstagClosed_CheckedChanged(sender As Object, e As EventArgs) Handles cbxDonnerstagClosed.CheckedChanged If cbxDonnerstagClosed.Checked Then txtDonnerstagBis1.Enabled = False : txtDonnerstagBis1.Text = "" txtDonnerstagVon1.Enabled = False : txtDonnerstagVon1.Text = "" txtDonnerstagBis2.Enabled = False : txtDonnerstagBis2.Text = "" txtDonnerstagVon2.Enabled = False : txtDonnerstagVon2.Text = "" Else txtDonnerstagBis1.Enabled = True txtDonnerstagVon1.Enabled = True txtDonnerstagBis2.Enabled = True txtDonnerstagVon2.Enabled = True End If End Sub Private Sub cbxFreitagClosed_CheckedChanged(sender As Object, e As EventArgs) Handles cbxFreitagClosed.CheckedChanged If cbxFreitagClosed.Checked Then txtFreitagBis1.Enabled = False : txtFreitagBis1.Text = "" txtFreitagVon1.Enabled = False : txtFreitagVon1.Text = "" txtFreitagBis2.Enabled = False : txtFreitagBis2.Text = "" txtFreitagVon2.Enabled = False : txtFreitagVon2.Text = "" Else txtFreitagBis1.Enabled = True txtFreitagVon1.Enabled = True txtFreitagBis2.Enabled = True txtFreitagVon2.Enabled = True End If End Sub Private Sub cbxSamstagClosed_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSamstagClosed.CheckedChanged If cbxSamstagClosed.Checked Then txtSamstagBis1.Enabled = False : txtSamstagBis1.Text = "" txtSamstagVon1.Enabled = False : txtSamstagVon1.Text = "" txtSamstagBis2.Enabled = False : txtSamstagBis2.Text = "" txtSamstagVon2.Enabled = False : txtSamstagVon2.Text = "" Else txtSamstagBis1.Enabled = True txtSamstagVon1.Enabled = True txtSamstagBis2.Enabled = True txtSamstagVon2.Enabled = True End If End Sub Private Sub cbxSonntagClosed_CheckedChanged(sender As Object, e As EventArgs) Handles cbxSonntagClosed.CheckedChanged If cbxSonntagClosed.Checked Then txtSonntagBis1.Enabled = False : txtSonntagBis1.Text = "" txtSonntagVon1.Enabled = False : txtSonntagVon1.Text = "" txtSonntagBis2.Enabled = False : txtSonntagBis2.Text = "" txtSonntagVon2.Enabled = False : txtSonntagVon2.Text = "" Else txtSonntagBis1.Enabled = True txtSonntagVon1.Enabled = True txtSonntagBis2.Enabled = True txtSonntagVon2.Enabled = True End If End Sub Private Sub Button2_Click_1(sender As Object, e As EventArgs) frmCMR.Show() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click Dim frmAuftragNEU As New frmAuftragNEU(manageRolle) frmAuftragNEU.Show() Exit Sub AddHandler frmAuftragNEU.Shown, AddressOf manageRolle frmAuftragNEU.Show() End Sub Private Function manageRolle() As cDispoAuftraege Dim AUFTRAG As New cDispoAuftraege If cboRolle.SelectedIndex = 1 Then AUFTRAG.atr_auftr_firma = txtFirma.Text AUFTRAG.atr_auftr_str = txtStr.Text AUFTRAG.atr_auftr_strnr = txtStrNr.Text AUFTRAG.atr_auftr_land = cbxLand.Text AUFTRAG.atr_auftr_plz = txtPlz.Text AUFTRAG.atr_auftr_ort = txtOrt.Text AUFTRAG.atr_auftr_anspr = (txtAnspr1_vn.Text & " " & txtAnspr1_nn.Text).Trim AUFTRAG.atr_auftr_id = rowId End If If cboRolle.SelectedIndex = 4 Then Select Case MsgBox("Soll die Firma als Frächter eingetragen werden?" & vbNewLine & "JA = Frächter ab Lager" & vbNewLine & "NEIN = Frächter bis Lager", vbYesNoCancel) Case MsgBoxResult.Yes AUFTRAG.atr_frachtfAb_firma = txtFirma.Text AUFTRAG.atr_frachtfAb_str = txtStr.Text AUFTRAG.atr_frachtfAb_strnr = txtStrNr.Text AUFTRAG.atr_frachtfAb_land = cbxLand.Text AUFTRAG.atr_frachtfAb_plz = txtPlz.Text AUFTRAG.atr_frachtfAb_ort = txtOrt.Text AUFTRAG.atr_frachtfAb_anspr = (txtAnspr1_vn.Text & " " & txtAnspr1_nn.Text).Trim AUFTRAG.atr_frachtfAb_id = rowId Case MsgBoxResult.No AUFTRAG.atr_frachtf_firma = txtFirma.Text AUFTRAG.atr_frachtf_str = txtStr.Text AUFTRAG.atr_frachtf_strnr = txtStrNr.Text AUFTRAG.atr_frachtf_land = cbxLand.Text AUFTRAG.atr_frachtf_plz = txtPlz.Text AUFTRAG.atr_frachtf_ort = txtOrt.Text AUFTRAG.atr_frachtf_anspr = (txtAnspr1_vn.Text & " " & txtAnspr1_nn.Text).Trim AUFTRAG.atr_frachtf_id = rowId Case MsgBoxResult.Cancel End Select End If If cboRolle.SelectedIndex = 3 Then AUFTRAG.atr_entladest_firma = txtFirma.Text AUFTRAG.atr_entladest_str = txtStr.Text AUFTRAG.atr_entladest_strnr = txtStrNr.Text AUFTRAG.atr_entladest_land = cbxLand.Text AUFTRAG.atr_entladest_plz = txtPlz.Text AUFTRAG.atr_entladest_ort = txtOrt.Text AUFTRAG.atr_entladest_anspr = (txtAnspr1_vn.Text & " " & txtAnspr1_nn.Text).Trim AUFTRAG.atr_entladest_id = rowId End If If cboRolle.SelectedIndex = 2 Then AUFTRAG.atr_ladest_firma = txtFirma.Text AUFTRAG.atr_ladest_str = txtStr.Text AUFTRAG.atr_ladest_strnr = txtStrNr.Text AUFTRAG.atr_ladest_land = cbxLand.Text AUFTRAG.atr_ladest_plz = txtPlz.Text AUFTRAG.atr_ladest_ort = txtOrt.Text AUFTRAG.atr_ladest_anspr = (txtAnspr1_vn.Text & " " & txtAnspr1_nn.Text).Trim AUFTRAG.atr_ladest_id = rowId End If If cboRolle.SelectedIndex = 5 Then AUFTRAG.atr_trans_firma = txtFirma.Text AUFTRAG.atr_trans_str = txtStr.Text AUFTRAG.atr_trans_strnr = txtStrNr.Text AUFTRAG.atr_trans_land = cbxLand.Text AUFTRAG.atr_trans_plz = txtPlz.Text AUFTRAG.atr_trans_ort = txtOrt.Text AUFTRAG.atr_trans_anspr = (txtAnspr1_vn.Text & " " & txtAnspr1_nn.Text).Trim AUFTRAG.atr_trans_id = rowId End If 'frmAuftragOLD.getDataFromSearch(txtFirma.Text, txtStr.Text, txtStrNr.Text, cbxLand.Text, txtPlz.Text, txtOrt.Text, "", "", (txtAnspr1_vn.Text & " " & txtAnspr1_nn.Text).Trim, rbtnRefNrJA.Checked, "", rowId) Return AUFTRAG End Function Private Sub dgvAuftraege_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvAuftraege.CellDoubleClick frmAuftragNEU.auftragID = dgvAuftraege.CurrentRow.Cells(0).Value frmAuftragNEU.Show() 'Me.Enabled = False End Sub Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxOeffAll.CheckedChanged cbxMontagClosed.Checked = cbxOeffAll.Checked cbxDienstagClosed.Checked = cbxOeffAll.Checked cbxMittwochClosed.Checked = cbxOeffAll.Checked cbxDonnerstagClosed.Checked = cbxOeffAll.Checked cbxFreitagClosed.Checked = cbxOeffAll.Checked cbxSamstagClosed.Checked = cbxOeffAll.Checked cbxSonntagClosed.Checked = cbxOeffAll.Checked End Sub Private Sub cboRolle_SelectedIndexChanged(sender As Object, e As EventArgs) If Not cboRolle.SelectedIndex = 1 Then tabKunde.TabPages.Remove(tabTarife) Else If tabKunde.TabPages.Count < 4 Then tabKunde.TabPages.Add(tabTarife) End If End If End Sub Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click Me.Enabled = False Me.Cursor = Cursors.WaitCursor Try bindingDATA.bindingdataTable.Rows(0).Item("kd_FMZOLL_KdNr") = If(kdFirma.KdNrNullInt, DBNull.Value) 'MsgBox(kdFirma.KdNrNullInt) If bindingDATA.updateBinding() Then If bindingOeZ.updateBinding Then btnSave.Enabled = False End If End If Catch ex As Exception MsgBox("Es ist ein Fehler aufgetreten: " & ex.Message) End Try Me.Enabled = True Me.Cursor = Cursors.Default End Sub Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click Me.Enabled = False Me.Cursor = Cursors.WaitCursor Try bindingDATA.bindingdataTable.Rows(0).Item("kd_FMZOLL_KdNr") = If(kdFirma.KdNrNullInt, DBNull.Value) If bindingDATA.updateBinding() AndAlso bindingOeZ.updateBinding Then Me.Close() End If Catch ex As Exception MsgBox("Es ist ein Fehler aufgetreten: " & ex.Message) End Try Me.Enabled = True Me.Cursor = Cursors.Default End Sub Private Sub btnVERAGKDLaden_Click(sender As Object, e As EventArgs) Handles btnVERAGKDLaden.Click If kdFirma.KdNrNullInt IsNot Nothing Then If kdFirma.KdData_ADRESSEN IsNot Nothing Then Dim AD = kdFirma.KdData_ADRESSEN txtFirma.Text = AD.Ordnungsbegriff txtStr.Text = AD.Straße txtPlz.Text = AD.PLZ txtOrt.Text = AD.Ort cbxLand.Text = If(AD.LandKz.ToString.Length = 1, SDL.cProgramFunctions.getISO2Land(AD.LandKz), AD.LandKz) End If End If End Sub End Class