1095 lines
47 KiB
VB.net
1095 lines
47 KiB
VB.net
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
|
|
|
|
Private Sub Button1_Click_1(sender As Object, e As EventArgs) Handles Button1.Click
|
|
|
|
If kdFirma.KdNrNullInt IsNot Nothing Then
|
|
showKd(kdFirma.KdNrNullInt)
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Public Sub showKd(kdnr, Optional TopMost = False)
|
|
'For Each frm As Form In Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing
|
|
If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("WARENORT", "AVISO") Then Exit Sub
|
|
|
|
For Each openForm In Application.OpenForms()
|
|
If TypeOf (openForm) Is SDL.frmKundenUebersichtZOLL Then
|
|
CType(openForm, SDL.frmKundenUebersichtZOLL).BringToFront()
|
|
If TopMost Then CType(openForm, SDL.frmKundenUebersichtZOLL).TopMost = True
|
|
CType(openForm, SDL.frmKundenUebersichtZOLL).KdSearchBox1.KdNr = kdnr
|
|
Exit Sub
|
|
End If
|
|
Next
|
|
'If False Then
|
|
|
|
' If Not Application.OpenForms.Item("frmKundenUebersichtZOLL") Is Nothing Then
|
|
' Application.OpenForms.Item("frmKundenUebersichtZOLL").BringToFront()
|
|
' Exit Sub
|
|
' End If
|
|
'End If
|
|
'' Next
|
|
Dim zoll As New SDL.frmKundenUebersichtZOLL(kdnr)
|
|
If zoll IsNot Nothing Then zoll.Show() : zoll.BringToFront()
|
|
End Sub
|
|
End Class |