Imports System.Reflection Imports System.ComponentModel Imports System.Data.SqlClient Public Class frmAuftragOLD Implements System.ComponentModel.INotifyPropertyChanged ' Private auftrag As cAuftraege Public auftragID As Integer = -1 Private newEntry As Boolean = True Private closeOK As Boolean = True Private DISPO As New cOptionenDAL Dim kd_data As New List(Of cEntry) Public searchHandles As String Private changed As Boolean = False Public WithEvents bindingDATA As New cBinding("DISPO") 'fürs Binding 'Dim atr_frachtf_id As New TextBox 'Dim atr_auftr_id As New cBindingElement Private ItemInfoBindingSource As New ItemInfo 'Dim atr_ladest_id As New TextBox 'Dim atr_entladest_id As New TextBox 'Dim atr_trans_id As New TextBox 'Dim atr_altladest_id As New TextBox Private atr_auftr_id As Integer = -1 Public Property AtrNumber As Integer Get Return atr_auftr_id End Get Set(value As Integer) atr_auftr_id = value : RaiseEvent PropertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs("AtrNumber")) End Set End Property Private atr_frachtf_id As Integer = -1 Public Property FrachtfNumber As Integer Get Return atr_frachtf_id End Get Set(value As Integer) atr_frachtf_id = value : RaiseEvent PropertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs("FrachtfNumber")) End Set End Property Private atr_ladest_id As Integer = -1 Public Property LadestNumber As Integer Get Return atr_ladest_id End Get Set(value As Integer) atr_ladest_id = value : RaiseEvent PropertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs("LadestNumber")) End Set End Property Private atr_entladest_id As Integer = -1 Public Property EntladestNumber As Integer Get Return atr_entladest_id End Get Set(value As Integer) atr_entladest_id = value : RaiseEvent PropertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs("EntladestNumber")) End Set End Property Private atr_trans_id As Integer = -1 Public Property TransNumber As Integer Get Return atr_trans_id End Get Set(value As Integer) atr_trans_id = value : RaiseEvent PropertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs("TransNumber")) End Set End Property Private atr_altladest_id As Integer = -1 Public Property AltLadestNumber As Integer Get Return atr_altladest_id End Get Set(value As Integer) atr_altladest_id = value : RaiseEvent PropertyChanged(Me, New System.ComponentModel.PropertyChangedEventArgs("AltLadestNumber")) End Set End Property Public Event PropertyChanged(sender As Object, e As System.ComponentModel.PropertyChangedEventArgs) _ Implements System.ComponentModel.INotifyPropertyChanged.PropertyChanged Private Sub frmDetails_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing If Not btnSave.Enabled Then 'closeOK Then frmMain.Enabled = True 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 newEntry Then DISPO.delAuftrag(auftragID) 'Wenn neuer Auftrag nicht gespeichert, gelöscht frmMain.Enabled = True 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() changed = True closeOK = False End Sub Private Sub frmAuftrag_Shown(sender As Object, e As EventArgs) Handles Me.Shown dostuff() ' initChangeEvent(Me) ' AddHandler dgvBHUntern.CellValueChanged, AddressOf setChange ' AddHandler dgvLadungen.CellValueChanged, AddressOf setChange 'AddHandler dgvBHRg2.CellValueChanged, AddressOf setChange 'AddHandler dgvBHRg1.CellValueChanged, AddressOf setChange End Sub Private Sub frmAuftrag_Load(sender As Object, e As EventArgs) Handles MyBase.Load End Sub Sub dostuff() ' atr_auftr_id._useAsBindingText = True ' atr_auftr_id.Visible = True If auftragID = -1 Then auftragID = DISPO.newAuftrag() newEntry = True initDataBinding() 'If txtFrachtpos.Text = "" Then 'txtSpedBuchNr.Text = DISPO.getMaxPosNrIncrement(4807, Now.Year) 'End If ' datTA.Value = Now ' txtbhMon.Text = Now.ToString("MM") Else newEntry = False initDataBinding() End If If txtbhMon.Text = "" Then txtbhMon.Text = Now.ToString("MM") End Sub Dim dataAdapterLadungen As New SqlDataAdapter Dim dataBindingLadungen As New BindingSource Dim dataAdapterBHRg1 As New SqlDataAdapter Dim dataBindingBHRg1 As New BindingSource Dim dataAdapterBHRg2 As New SqlDataAdapter Dim dataBindingBHRg2 As New BindingSource Dim dataAdapterBHUntern As New SqlDataAdapter Dim dataBindingBHUntern As New BindingSource Function nullInt(o) As Integer Try If o IsNot DBNull.Value Then Return CInt(o) Catch ex As Exception : End Try Return -1 End Function Function nullStr(o) As String Try If o IsNot DBNull.Value Then Return CStr(o) Catch ex As Exception : End Try Return "" End Function Sub initDataBinding() Me.Enabled = False Me.Cursor = Cursors.WaitCursor btnSave.Enabled = False Try bindingDATA.setARITHABORTOn() bindingDATA.initBinding(" SELECT TOP 1 * FROM tblAuftraege WHERE atr_id =" & auftragID, "tblAuftraege") AddHandler bindingDATA.bindingdataTable.ColumnChanged, _ Sub(send As Object, evnt As EventArgs) btnSave.Enabled = True End Sub ' ----- Adressdaten ----- binddata(datTA, "Text", bindingDATA.bindingSource, "atr_datum") binddata(txtSpedBuchNr, "Text", bindingDATA.bindingSource, "atr_speditionsbuchNr") binddata(txtFrachtpos, "Text", bindingDATA.bindingSource, "atr_frachtpos") binddata(txtFrachtf_firma, "Text", bindingDATA.bindingSource, "atr_frachtf_firma") binddata(txtFrachtf_str, "Text", bindingDATA.bindingSource, "atr_frachtf_str") binddata(txtFrachtf_strnr, "Text", bindingDATA.bindingSource, "atr_frachtf_strnr") binddata(cboFrachtf_land, "Text", bindingDATA.bindingSource, "atr_frachtf_land") binddata(txtFrachtf_plz, "Text", bindingDATA.bindingSource, "atr_frachtf_plz") binddata(txtFrachtf_ort, "Text", bindingDATA.bindingSource, "atr_frachtf_ort") binddata(txtFrachtfAnpsr, "Text", bindingDATA.bindingSource, "atr_frachtf_anspr") binddata(txtLadest_firma, "Text", bindingDATA.bindingSource, "atr_ladest_firma") binddata(txtLadest_str, "Text", bindingDATA.bindingSource, "atr_ladest_str") binddata(txtLadest_strnr, "Text", bindingDATA.bindingSource, "atr_ladest_strnr") binddata(cboLadest_land, "Text", bindingDATA.bindingSource, "atr_ladest_land") binddata(txtLadest_plz, "Text", bindingDATA.bindingSource, "atr_ladest_plz") binddata(txtLadest_ort, "Text", bindingDATA.bindingSource, "atr_ladest_ort") binddata(txtLadestAnpsr, "Text", bindingDATA.bindingSource, "atr_ladest_anspr") binddata(datLadest_terminDat, "Text", bindingDATA.bindingSource, "atr_ladest_terminDat") binddata(txtLadest_terminVon, "Text", bindingDATA.bindingSource, "atr_ladest_terminVon") binddata(txtLadest_terminBis, "Text", bindingDATA.bindingSource, "atr_ladest_terminBis") binddata(cbxLadest_termin, "CheckState", bindingDATA.bindingSource, "atr_ladest_termin") binddata(cbxLadest_RefNr, "CheckState", bindingDATA.bindingSource, "atr_ladest_isRefNr") binddata(txtLadest_RefNr, "Text", bindingDATA.bindingSource, "atr_ladest_refNr") binddata(cbxAltLadest, "CheckState", bindingDATA.bindingSource, "atr_hasaltladest") binddata(txtAltLadest_firma, "Text", bindingDATA.bindingSource, "atr_altladest_firma") binddata(txtAltLadest_Strasse, "Text", bindingDATA.bindingSource, "atr_altladest_str") binddata(txtAltLadest_StrasseNummer, "Text", bindingDATA.bindingSource, "atr_altladest_strnr") binddata(txtAltLadest_Land, "Text", bindingDATA.bindingSource, "atr_altladest_land") binddata(txtAltLadest_Plz, "Text", bindingDATA.bindingSource, "atr_altladest_plz") binddata(txtAltLadest_Ort, "Text", bindingDATA.bindingSource, "atr_altladest_ort") binddata(txtAltLadest_Anspr, "Text", bindingDATA.bindingSource, "atr_altladest_anspr") binddata(txtEntladest_firma, "Text", bindingDATA.bindingSource, "atr_entladest_firma") binddata(txtEntladest_str, "Text", bindingDATA.bindingSource, "atr_entladest_str") binddata(txtEntladest_strnr, "Text", bindingDATA.bindingSource, "atr_entladest_strnr") binddata(cboEntladest_land, "Text", bindingDATA.bindingSource, "atr_entladest_land") binddata(txtEntladest_plz, "Text", bindingDATA.bindingSource, "atr_entladest_plz") binddata(txtEntladest_ort, "Text", bindingDATA.bindingSource, "atr_entladest_ort") binddata(txtEntladestAnpsr, "Text", bindingDATA.bindingSource, "atr_entladest_anspr") binddata(datEntladest_terminDat, "Text", bindingDATA.bindingSource, "atr_entladest_terminDat") binddata(txtEntladest_terminVon, "Text", bindingDATA.bindingSource, "atr_entladest_terminVon") binddata(txtEntladest_terminBis, "Text", bindingDATA.bindingSource, "atr_entladest_terminBis") binddata(cbxEntladest_termin, "CheckState", bindingDATA.bindingSource, "atr_entladest_termin") binddata(txtAuftr_firma, "Text", bindingDATA.bindingSource, "atr_auftr_firma") binddata(txtAuftr_str, "Text", bindingDATA.bindingSource, "atr_auftr_str") binddata(txtAuftr_strnr, "Text", bindingDATA.bindingSource, "atr_auftr_strnr") binddata(cboAuftr_land, "Text", bindingDATA.bindingSource, "atr_auftr_land") binddata(txtAuftr_plz, "Text", bindingDATA.bindingSource, "atr_auftr_plz") binddata(txtAuftr_ort, "Text", bindingDATA.bindingSource, "atr_auftr_ort") binddata(txtAuftrAnpsr, "Text", bindingDATA.bindingSource, "atr_auftr_anspr") binddata(txtTrans_firma, "Text", bindingDATA.bindingSource, "atr_trans_firma") binddata(txtTrans_str, "Text", bindingDATA.bindingSource, "atr_trans_str") binddata(txtTrans_strnr, "Text", bindingDATA.bindingSource, "atr_trans_strnr") binddata(cboTrans_land, "Text", bindingDATA.bindingSource, "atr_trans_land") binddata(txtTrans_plz, "Text", bindingDATA.bindingSource, "atr_trans_plz") binddata(txtTrans_ort, "Text", bindingDATA.bindingSource, "atr_trans_ort") binddata(txtTransAnspr, "Text", bindingDATA.bindingSource, "atr_trans_anspr") binddata(txtLkwKz, "Text", bindingDATA.bindingSource, "atr_lkwKz") binddata(txtLkwArt, "Text", bindingDATA.bindingSource, "atr_lkwArt") binddata(txtLkwNutzlast, "Text", bindingDATA.bindingSource, "atr_lkwNutzlast") binddata(txtAnhKz, "Text", bindingDATA.bindingSource, "atr_anhKz") binddata(txtAnhNutzlast, "Text", bindingDATA.bindingSource, "atr_anhNutzlast") binddata(rtbTrans_Bem, "Text", bindingDATA.bindingSource, "atr_bemerkung") binddata(rtbTrans_Frachtkosten, "Text", bindingDATA.bindingSource, "atr_frachtkosten") binddata(rtbTrans_Verzollungsadresse, "Text", bindingDATA.bindingSource, "atr_verzollungsadresse") binddata(rtbGefahrengut, "Text", bindingDATA.bindingSource, "atr_gefahrengut") binddata(cbxTfrachtfIsTrans, "CheckState", bindingDATA.bindingSource, "atr_frachtIsTrans") binddata(cbxAbliefernachweis, "CheckState", bindingDATA.bindingSource, "atr_abliefernachweis") ' Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) _ ' Handles TextBox1.TextChanged ' ItemInfoBindingSource.ItemNumber = TextBox1.Text 'End Sub atr_auftr_id = nullInt(bindingDATA.bindingdataTable.Rows(0).Item("atr_auftr_id")) atr_ladest_id = nullInt(bindingDATA.bindingdataTable.Rows(0).Item("atr_ladest_id")) atr_entladest_id = nullInt(bindingDATA.bindingdataTable.Rows(0).Item("atr_entladest_id")) atr_trans_id = nullInt(bindingDATA.bindingdataTable.Rows(0).Item("atr_trans_id")) atr_altladest_id = nullInt(bindingDATA.bindingdataTable.Rows(0).Item("atr_altladest_id")) ' binddata(Me, "FrachtfNumber", bindingDATA.bindingSource, "atr_frachtf_id") ' binddata(Me, "AtrNumber", bindingDATA.bindingSource, "atr_auftr_id") ' binddata(Me, "LadestNumber", bindingDATA.bindingSource, "atr_ladest_id") ' binddata(Me, "EntladestNumber", bindingDATA.bindingSource, "atr_entladest_id") ' binddata(Me, "TransNumber", bindingDATA.bindingSource, "atr_trans_id") ' binddata(Me, "AltLadestNumber", bindingDATA.bindingSource, "atr_altladest_id") If IsNumeric(atr_frachtf_id) AndAlso atr_frachtf_id >= 0 Then If DISPO.existsKunde(atr_frachtf_id) Then picFrachtf.Visible = True Else : lblFrachtfNotFound.Visible = True : End If End If If IsNumeric(atr_auftr_id) AndAlso atr_auftr_id >= 0 Then If DISPO.existsKunde(atr_auftr_id) Then picAuftr.Visible = True Else : lblAuftrNotFound.Visible = True : End If End If If IsNumeric(atr_ladest_id) AndAlso atr_ladest_id >= 0 Then If DISPO.existsKunde(atr_ladest_id) Then picLadest.Visible = True Else : lblLadestNotFound.Visible = True : End If End If If IsNumeric(atr_entladest_id) AndAlso atr_entladest_id >= 0 Then If DISPO.existsKunde(atr_entladest_id) Then picEntladest.Visible = True Else : lblEntladestNotFound.Visible = True : End If End If If IsNumeric(atr_trans_id) AndAlso atr_trans_id >= 0 Then If DISPO.existsKunde(atr_trans_id) Then picTrans.Visible = True Else : lblTransNotFound.Visible = True : End If End If If IsNumeric(atr_altladest_id) AndAlso atr_altladest_id >= 0 Then If DISPO.existsKunde(atr_altladest_id) Then picAltLadest.Visible = True Else : lblAltLadestNotFound.Visible = True : End If End If binddata(cboAuslieferung_land, "Text", bindingDATA.bindingSource, "cmr_ausl_land") binddata(txtAuslieferung_ort, "Text", bindingDATA.bindingSource, "cmr_ausl_ort") binddata(rtbBeigefDok, "Text", bindingDATA.bindingSource, "cmr_beigefDok") binddata(rtbAnwAbs, "Text", bindingDATA.bindingSource, "cmr_anwAbs") binddata(txtRueckerst, "Text", bindingDATA.bindingSource, "cmr_rueckerst") binddata(txtFrachtzahl_frei, "Text", bindingDATA.bindingSource, "cmr_frZahlanwFrei") binddata(txtFrachtzahl_unfrei, "Text", bindingDATA.bindingSource, "cmr_frZahlanwUnfrei") binddata(rtbBesVereinb, "Text", bindingDATA.bindingSource, "cmr_besVereinb") binddata(txtAusgef, "Text", bindingDATA.bindingSource, "cmr_ausgefIn") binddata(cboUebergabe_land, "Text", bindingDATA.bindingSource, "cmr_uebergabe_land") binddata(txtUebergabe_ort, "Text", bindingDATA.bindingSource, "cmr_uebergabe_ort") binddata(datUebergabe_datum, "Text", bindingDATA.bindingSource, "cmr_uebergabe_datum") binddata(rtbVorbehBem, "Text", bindingDATA.bindingSource, "cmr_vorbehFrachtf") binddata(txtbhMon, "Text", bindingDATA.bindingSource, "bh_mon") binddata(rtbBhVermerke, "Text", bindingDATA.bindingSource, "bh_vermerke") binddata(rtbNotes, "Text", bindingDATA.bindingSource, "atr_notes") 'MsgBox("1") With dgvLadungen .Columns.Clear() .DataSource = Me.dataBindingLadungen initDGVBindingLadungen("SELECT * FROM tblLadungen WHERE lad_atrId = '" & auftragID & "'") .Columns("lad_id").Visible = False .Columns("lad_atrID").Visible = False .Columns("lad_ZeNr").HeaderText = "Zeichen / Nr." .Columns("lad_ZeNr").Width = 100 .Columns("lad_Anzahl").HeaderText = "Anzahl" .Columns("lad_Anzahl").Width = 80 .Columns("lad_Art").HeaderText = "Art der Verpackung" .Columns("lad_Art").Width = 170 .Columns("lad_Bezeichnung").HeaderText = "Bezeichnung" .Columns("lad_Bezeichnung").Width = 250 .Columns("lad_StatNr").HeaderText = "Statistik Nr." .Columns("lad_StatNr").Width = 90 .Columns("lad_BruttoKg").HeaderText = "Bruttogewicht" .Columns("lad_BruttoKg").Width = 100 .Columns("lad_Umfang").HeaderText = "Umfang" .Columns("lad_Umfang").Width = 120 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 ' MsgBox("2") With dgvBHRg1 .Columns.Clear() .DataSource = Me.dataBindingBHRg1 initDGVBindingBHRg1("SELECT * FROM tblBhRechnungen WHERE bhrg_atrId = '" & auftragID & "' and bhrg_option='1'") .Columns("bhrg_id").Visible = False .Columns("bhrg_atrId").Visible = False .Columns("bhrg_option").Visible = False .Columns("bhrg_code").HeaderText = "Code" .Columns("bhrg_code").Width = 70 .Columns("bhrg_vermerk").HeaderText = "Vermerk" .Columns("bhrg_vermerk").Width = 150 .Columns("bhrg_pfl").HeaderText = "Pfl." .Columns("bhrg_pfl").Width = 70 .Columns("bhrg_frei").HeaderText = "Frei" .Columns("bhrg_frei").Width = 70 AddHandler .UserAddedRow, _ Sub(send As Object, evnt As EventArgs) send.CurrentRow.Cells("bhrg_atrId").Value = auftragID send.CurrentRow.Cells("bhrg_option").Value = 1 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 ' MsgBox("3") With dgvBHRg2 .Columns.Clear() .DataSource = Me.dataBindingBHRg2 initDGVBindingBHRg2("SELECT * FROM tblBhRechnungen WHERE bhrg_atrId = '" & auftragID & "' and bhrg_option='2'") .Columns("bhrg_id").Visible = False .Columns("bhrg_atrId").Visible = False .Columns("bhrg_option").Visible = False .Columns("bhrg_code").HeaderText = "Code" .Columns("bhrg_code").Width = 70 .Columns("bhrg_vermerk").HeaderText = "Vermerk" .Columns("bhrg_vermerk").Width = 150 .Columns("bhrg_pfl").HeaderText = "Pfl." .Columns("bhrg_pfl").Width = 70 .Columns("bhrg_frei").HeaderText = "Frei" .Columns("bhrg_frei").Width = 70 AddHandler .UserAddedRow, _ Sub(send As Object, evnt As EventArgs) send.CurrentRow.Cells("bhrg_atrId").Value = auftragID send.CurrentRow.Cells("bhrg_option").Value = 2 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 ' MsgBox("4") With dgvBHUntern .Columns.Clear() .DataSource = Me.dataBindingBHUntern initDGVBindingBHUntern(" SELECT * FROM tblBhUntern WHERE bhut_atrId =" & auftragID) .Columns("bhut_id").Visible = False .Columns("bhut_atrId").Visible = False .Columns("bhut_unternKennz").HeaderText = "Untern. / Kennz." .Columns("bhut_unternKennz").Width = 150 .Columns("bhut_bis").HeaderText = "bis" .Columns("bhut_bis").Width = 70 .Columns("bhut_kosten").HeaderText = "Kosten" .Columns("bhut_kosten").Width = 70 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 'send.AllowUserToAddRows = (send.RowCount <= 4) End Sub ' .AllowUserToAddRows = (.RowCount >= 4) End With ' MsgBox("5") Catch ex As Exception MsgBox(ex.Message) End Try Me.Enabled = True Me.Cursor = Cursors.Default End Sub Private Sub initDGVBindingLadungen(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.dataAdapterLadungen = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO_TEST) Else Me.dataAdapterLadungen = 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.dataAdapterLadungen) Dim table As New DataTable() Me.dataAdapterLadungen.Fill(table) ' table.Columns("KundenNr").DefaultValue = kdNr table.Locale = System.Globalization.CultureInfo.InvariantCulture 'table.Columns("lad_atrID").DefaultValue = auftragID 'bindingSDL.Clear() dgvLadungen.DataBindings.Clear() Me.dataBindingLadungen.DataSource = table End Sub Private Sub initDGVBindingBHRg1(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.dataAdapterBHRg1 = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO_TEST) Else Me.dataAdapterBHRg1 = 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.dataAdapterBHRg1) Dim table As New DataTable() Me.dataAdapterBHRg1.Fill(table) ' table.Columns("KundenNr").DefaultValue = kdNr table.Locale = System.Globalization.CultureInfo.InvariantCulture 'table.Columns("lad_atrID").DefaultValue = auftragID 'bindingSDL.Clear() dgvBHRg1.DataBindings.Clear() Me.dataBindingBHRg1.DataSource = table End Sub Private Sub initDGVBindingBHRg2(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.dataAdapterBHRg2 = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO_TEST) Else Me.dataAdapterBHRg2 = 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.dataAdapterBHRg2) Dim table As New DataTable() Me.dataAdapterBHRg2.Fill(table) ' table.Columns("KundenNr").DefaultValue = kdNr table.Locale = System.Globalization.CultureInfo.InvariantCulture 'table.Columns("lad_atrID").DefaultValue = auftragID 'bindingSDL.Clear() dgvBHRg2.DataBindings.Clear() Me.dataBindingBHRg2.DataSource = table End Sub Private Sub initDGVBindingBHUntern(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.dataAdapterBHUntern = New SqlDataAdapter(sqlstr, My.Resources.connStringDISPO_TEST) Else Me.dataAdapterBHUntern = 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.dataAdapterBHUntern) Dim table As New DataTable() Me.dataAdapterBHUntern.Fill(table) ' table.Columns("KundenNr").DefaultValue = kdNr table.Locale = System.Globalization.CultureInfo.InvariantCulture table.Columns("bhut_atrId").DefaultValue = auftragID dgvBHUntern.DataBindings.Clear() Me.dataBindingBHUntern.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 initOldEntrys() Dim auftrag As New cAuftraege Dim idarr As New List(Of Integer) Dim idarr_cnt As Integer = 0 If auftrag.atr_frachtf_id >= 0 Then idarr.Add(auftrag.atr_frachtf_id) : idarr_cnt += 1 If auftrag.atr_auftr_id >= 0 Then idarr.Add(auftrag.atr_auftr_id) : idarr_cnt += 1 If auftrag.atr_ladest_id >= 0 Then idarr.Add(auftrag.atr_ladest_id) : idarr_cnt += 1 If auftrag.atr_entladest_id >= 0 Then idarr.Add(auftrag.atr_entladest_id) : idarr_cnt += 1 If auftrag.atr_trans_id >= 0 Then idarr.Add(auftrag.atr_trans_id) : idarr_cnt += 1 If auftrag.atr_altladest_id >= 0 Then idarr.Add(auftrag.atr_altladest_id) : idarr_cnt += 1 If idarr.Count > 0 Then kd_data = DISPO.getKundendatenByIds(idarr) For Each d As cEntry In kd_data If d.kd_id = auftrag.atr_auftr_id Then ' MsgBox(auftrag.atr_auftr_firma = d.kd_firma) 'MsgBox(auftrag.atr_auftr_str = d.kd_str) ' MsgBox(auftrag.atr_auftr_strnr = d.kd_strnr) ' MsgBox(auftrag.atr_auftr_land = d.kd_land) 'MsgBox(auftrag.atr_auftr_plz = d.kd_plz) 'MsgBox(auftrag.atr_auftr_ort <> d.kd_ort) 'MsgBox(auftrag.atr_auftr_anspr <> d.kd_anspr1_vn & " " & d.kd_anspr1_nn.Trim) If auftrag.atr_auftr_firma <> d.kd_firma Or auftrag.atr_auftr_str <> d.kd_str Or auftrag.atr_auftr_strnr <> d.kd_strnr Or auftrag.atr_auftr_land <> d.kd_land Or auftrag.atr_auftr_plz <> d.kd_plz Or auftrag.atr_auftr_ort <> d.kd_ort Or auftrag.atr_auftr_anspr <> d.kd_anspr1_vn & " " & d.kd_anspr1_nn.Trim Then lblAuftrOld.Visible = True End If End If If d.kd_id = auftrag.atr_frachtf_id Then 'MsgBox(Not (auftrag.atr_frachtf_firma = d.kd_firma or auftrag.atr_frachtf_str = d.kd_str)) If auftrag.atr_frachtf_firma <> d.kd_firma Or auftrag.atr_frachtf_str <> d.kd_str Or auftrag.atr_frachtf_strnr <> d.kd_strnr Or auftrag.atr_frachtf_land <> d.kd_land Or auftrag.atr_frachtf_plz <> d.kd_plz Or auftrag.atr_frachtf_ort <> d.kd_ort Or auftrag.atr_frachtf_anspr <> d.kd_anspr1_vn & " " & d.kd_anspr1_nn.Trim Then lblFrachtfOld.Visible = True End If End If If d.kd_id = auftrag.atr_ladest_id Then If (auftrag.atr_ladest_firma <> d.kd_firma Or auftrag.atr_ladest_str <> d.kd_str Or auftrag.atr_ladest_strnr <> d.kd_strnr Or auftrag.atr_ladest_land <> d.kd_land Or auftrag.atr_ladest_plz <> d.kd_plz Or auftrag.atr_ladest_ort <> d.kd_ort Or auftrag.atr_ladest_anspr <> d.kd_anspr1_vn & " " & d.kd_anspr1_nn.Trim) Then lblLadestOld.Visible = True End If End If If d.kd_id = auftrag.atr_entladest_id Then If (auftrag.atr_entladest_firma <> d.kd_firma Or auftrag.atr_entladest_str <> d.kd_str Or auftrag.atr_entladest_strnr <> d.kd_strnr Or auftrag.atr_entladest_land <> d.kd_land Or auftrag.atr_entladest_plz <> d.kd_plz Or auftrag.atr_entladest_ort <> d.kd_ort Or auftrag.atr_entladest_anspr <> d.kd_anspr1_vn & " " & d.kd_anspr1_nn.Trim) Then lblEntladestOld.Visible = True End If End If If d.kd_id = auftrag.atr_trans_id Then If (auftrag.atr_trans_firma <> d.kd_firma Or auftrag.atr_trans_str <> d.kd_str Or auftrag.atr_trans_strnr <> d.kd_strnr Or auftrag.atr_trans_land <> d.kd_land Or auftrag.atr_trans_plz <> d.kd_plz Or auftrag.atr_trans_ort <> d.kd_ort Or auftrag.atr_trans_anspr <> d.kd_anspr1_vn & " " & d.kd_anspr1_nn.Trim) Then lblTransOld.Visible = True End If End If If d.kd_id = auftrag.atr_altladest_id Then If (auftrag.atr_altladest_firma <> d.kd_firma Or auftrag.atr_altladest_str <> d.kd_str Or auftrag.atr_altladest_strnr <> d.kd_strnr Or auftrag.atr_altladest_land <> d.kd_land Or auftrag.atr_altladest_plz <> d.kd_plz Or auftrag.atr_altladest_ort <> d.kd_ort Or auftrag.atr_altladest_anspr <> d.kd_anspr1_vn & " " & d.kd_anspr1_nn.Trim) Then lblAltLadestOld.Visible = True End If End If Next End Sub Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click If btnSave.Enabled Then btnSave.PerformClick() Me.Close() Exit Sub ' initAuftrData() ' If newEntry Then ' If DISPO.insertAuftragUndLadung(auftrag) Then 'And (auftrag.atr_frachtpos = DISPO.getFrachtpos())??? ' closeOK = True : Me.Close() ''If DISPO.setFrachtpos(auftrag.atr_frachtpos) Then 'End If 'Else 'auftrag.atr_id = auftragID 'If DISPO.updateAuftragUndLadung(auftrag) Then closeOK = True : Me.Close() 'End If End Sub Public Sub RemoveClickEvent(b As Object) Dim f1 As FieldInfo = GetType(Control).GetField("EventClick", BindingFlags.Static Or BindingFlags.NonPublic) Dim obj As Object = f1.GetValue(b) Dim pi As PropertyInfo = b.GetType().GetProperty("Events", BindingFlags.NonPublic Or BindingFlags.Instance) Dim list As EventHandlerList = DirectCast(pi.GetValue(b, Nothing), EventHandlerList) list.RemoveHandler(obj, list(obj)) End Sub Public Function initAuftrData() As cAuftraege Dim auftrag As New cAuftraege auftrag.atr_frachtpos = txtFrachtpos.Text auftrag.atr_datum = datTA.Text Try auftrag.atr_speditionsbuchNr = CInt(txtSpedBuchNr.Text) Catch auftrag.atr_speditionsbuchNr = -1 End Try auftrag.atr_frachtf_firma = txtFrachtf_firma.Text auftrag.atr_frachtf_str = txtFrachtf_str.Text auftrag.atr_frachtf_strnr = txtFrachtf_strnr.Text auftrag.atr_frachtf_land = cboFrachtf_land.Text auftrag.atr_frachtf_plz = txtFrachtf_plz.Text auftrag.atr_frachtf_ort = txtFrachtf_ort.Text auftrag.atr_frachtf_anspr = txtFrachtfAnpsr.Text auftrag.atr_ladest_firma = txtLadest_firma.Text auftrag.atr_ladest_str = txtLadest_str.Text auftrag.atr_ladest_strnr = txtLadest_strnr.Text auftrag.atr_ladest_land = cboLadest_land.Text auftrag.atr_ladest_plz = txtLadest_plz.Text auftrag.atr_ladest_ort = txtLadest_ort.Text auftrag.atr_ladest_anspr = txtLadestAnpsr.Text auftrag.atr_ladest_termin = cbxLadest_termin.Checked If cbxLadest_termin.Checked Then auftrag.atr_ladest_terminDat = datLadest_terminDat.Value.ToString("dd.MM.yyyy") auftrag.atr_ladest_terminVon = txtLadest_terminVon.Text auftrag.atr_ladest_terminBis = txtLadest_terminBis.Text End If auftrag.atr_hasaltladest = cbxAltLadest.Checked auftrag.atr_altladest_firma = txtAltLadest_firma.Text auftrag.atr_altladest_str = txtAltLadest_Strasse.Text auftrag.atr_altladest_strnr = txtAltLadest_StrasseNummer.Text auftrag.atr_altladest_land = txtAltLadest_Land.Text auftrag.atr_altladest_plz = txtAltLadest_Plz.Text auftrag.atr_altladest_ort = txtAltLadest_Ort.Text auftrag.atr_altladest_anspr = txtAltLadest_Anspr.Text auftrag.atr_ladest_isRefNr = cbxLadest_RefNr.Checked If cbxLadest_RefNr.Checked Then auftrag.atr_ladest_refNr = txtLadest_RefNr.Text Else auftrag.atr_ladest_refNr = "" End If auftrag.atr_entladest_firma = txtEntladest_firma.Text auftrag.atr_entladest_str = txtEntladest_str.Text auftrag.atr_entladest_strnr = txtEntladest_strnr.Text auftrag.atr_entladest_land = cboEntladest_land.Text auftrag.atr_entladest_plz = txtEntladest_plz.Text auftrag.atr_entladest_ort = txtEntladest_ort.Text auftrag.atr_entladest_anspr = txtEntladestAnpsr.Text auftrag.atr_entladest_termin = cbxEntladest_termin.Checked If cbxEntladest_termin.Checked Then auftrag.atr_entladest_terminDat = datEntladest_terminDat.Value.ToString("dd.MM.yyyy") auftrag.atr_entladest_terminVon = txtEntladest_terminVon.Text auftrag.atr_entladest_terminBis = txtEntladest_terminBis.Text End If auftrag.atr_auftr_firma = txtAuftr_firma.Text auftrag.atr_auftr_str = txtAuftr_str.Text auftrag.atr_auftr_strnr = txtAuftr_strnr.Text auftrag.atr_auftr_land = cboAuftr_land.Text auftrag.atr_auftr_plz = txtAuftr_plz.Text auftrag.atr_auftr_ort = txtAuftr_ort.Text auftrag.atr_auftr_anspr = txtAuftrAnpsr.Text auftrag.cmr_ausl_land = cboAuslieferung_land.Text auftrag.cmr_ausl_ort = txtAuslieferung_ort.Text auftrag.cmr_beigefDok = rtbBeigefDok.Text auftrag.cmr_anwAbs = rtbAnwAbs.Text auftrag.cmr_rueckerst = txtRueckerst.Text auftrag.cmr_frZahlanwFrei = txtFrachtzahl_frei.Text auftrag.cmr_frZahlanwUnfrei = txtFrachtzahl_unfrei.Text auftrag.cmr_besVereinb = rtbBesVereinb.Text auftrag.cmr_ausgefIn = txtAusgef.Text auftrag.cmr_uebergabe_land = cboUebergabe_land.Text auftrag.cmr_uebergabe_ort = txtUebergabe_ort.Text auftrag.cmr_uebergabe_datum = datUebergabe_datum.Text auftrag.cmr_vorbehFrachtf = rtbVorbehBem.Text If cbxTfrachtfIsTrans.Checked Then auftrag.atr_trans_firma = "" auftrag.atr_trans_str = "" auftrag.atr_trans_strnr = "" auftrag.atr_trans_land = "" auftrag.atr_trans_plz = "" auftrag.atr_trans_ort = "" auftrag.atr_trans_anspr = "" auftrag.atr_frachtIsTrans = True Else auftrag.atr_trans_firma = txtTrans_firma.Text auftrag.atr_trans_str = txtTrans_str.Text auftrag.atr_trans_strnr = txtTrans_strnr.Text auftrag.atr_trans_land = cboTrans_land.Text auftrag.atr_trans_plz = txtTrans_plz.Text auftrag.atr_trans_ort = txtTrans_ort.Text auftrag.atr_trans_anspr = txtTransAnspr.Text auftrag.atr_frachtIsTrans = False End If auftrag.atr_lkwKz = txtLkwKz.Text auftrag.atr_lkwArt = txtLkwArt.Text auftrag.atr_lkwNutzlast = txtLkwNutzlast.Text auftrag.atr_anhKz = txtAnhKz.Text auftrag.atr_anhNutzlast = txtAnhNutzlast.Text auftrag.atr_bemerkung = rtbTrans_Bem.Text auftrag.atr_frachtkosten = rtbTrans_Frachtkosten.Text auftrag.atr_verzollungsadresse = rtbTrans_Verzollungsadresse.Text auftrag.atr_abliefernachweis = cbxAbliefernachweis.Checked auftrag.bh_mon = txtbhMon.Text auftrag.bh_vermerke = rtbBhVermerke.Text auftrag.atr_notes = rtbNotes.Text Dim unternkennz As New List(Of cUnternKennz) For Each r In dgvBHUntern.Rows Dim tmp As New cUnternKennz tmp.bhut_id = nullStr(r.cells("bhut_id").value) tmp.bhut_unternKennz = nullStr(r.cells("bhut_unternKennz").value) tmp.bhut_bis = nullStr(r.cells("bhut_bis").value) tmp.bhut_kosten = nullStr(r.cells("bhut_kosten").value) unternkennz.Add(tmp) Next auftrag.bh_unternkennz = unternkennz Dim ladungen As New List(Of cLadungen) For Each r In dgvLadungen.Rows Dim tmp As New cLadungen tmp.lad_ZeNr = nullStr(r.cells("lad_ZeNr").value) tmp.lad_Anzahl = nullStr(r.cells("lad_Anzahl").value) tmp.lad_Art = nullStr(r.cells("lad_Art").value) tmp.lad_Bezeichnung = nullStr(r.cells("lad_Bezeichnung").value) tmp.lad_StatNr = nullStr(r.cells("lad_StatNr").value) tmp.lad_BruttoKg = nullStr(r.cells("lad_BruttoKg").value) tmp.lad_Umfang = nullStr(r.cells("lad_Umfang").value) ladungen.Add(tmp) Next auftrag.atr_ladungen = ladungen Dim rechnungen As New List(Of cBuchhaltungRechnung) For Each r In dgvBHRg1.Rows Dim tmp As New cBuchhaltungRechnung tmp.bhrg_code = nullStr(r.cells("bhrg_code").value) tmp.bhrg_vermerk = nullStr(r.cells("bhrg_vermerk").value) tmp.bhrg_pfl = nullStr(r.cells("bhrg_pfl").value) tmp.bhrg_frei = nullStr(r.cells("bhrg_frei").value) tmp.bhrg_option = 1 rechnungen.Add(tmp) Next For Each r In dgvBHRg2.Rows Dim tmp As New cBuchhaltungRechnung tmp.bhrg_code = nullStr(r.cells("bhrg_code").value) tmp.bhrg_vermerk = nullStr(r.cells("bhrg_vermerk").value) tmp.bhrg_pfl = nullStr(r.cells("bhrg_pfl").value) tmp.bhrg_frei = nullStr(r.cells("bhrg_frei").value) tmp.bhrg_option = 2 rechnungen.Add(tmp) Next auftrag.bh_rechnungen = rechnungen Return auftrag End Function Public Sub getDataFromSearch(ByVal firma As String, ByVal str As String, ByVal strnr As String, ByVal land As String, ByVal plz As String, ByVal ort As String, ByVal Kennz As String, ByVal Art As String, ByVal Anpsr As String, ByVal isRefNr As String, ByVal refNr As String, ByVal ID As String) btnSave.Enabled = True If searchHandles = "Frachtf" Then txtFrachtf_firma.Text = firma txtFrachtf_str.Text = str txtFrachtf_strnr.Text = strnr cboFrachtf_land.Text = land txtFrachtf_plz.Text = plz txtFrachtf_ort.Text = ort txtFrachtfAnpsr.Text = Anpsr atr_frachtf_id = ID picFrachtf.Visible = True lblFrachtfChange.Visible = False lblFrachtfOld.Visible = False lblFrachtfNotFound.Visible = False End If If searchHandles = "Entladest" Then txtEntladest_firma.Text = firma txtEntladest_str.Text = str txtEntladest_strnr.Text = strnr cboEntladest_land.Text = land txtEntladest_plz.Text = plz txtEntladest_ort.Text = ort txtEntladestAnpsr.Text = Anpsr atr_entladest_id = ID picEntladest.Visible = True lblEntladestChange.Visible = False lblEntladestOld.Visible = False lblEntladestNotFound.Visible = False End If If searchHandles = "Ladest" Then txtLadest_firma.Text = firma txtLadest_str.Text = str txtLadest_strnr.Text = strnr cboLadest_land.Text = land txtLadest_plz.Text = plz txtLadest_ort.Text = ort txtLadestAnpsr.Text = Anpsr cbxLadest_RefNr.Checked = isRefNr txtLadest_RefNr.Text = refNr atr_ladest_id = ID picLadest.Visible = True lblLadestChange.Visible = False lblLadestOld.Visible = False lblLadestNotFound.Visible = False End If If searchHandles = "Auftr" Then txtAuftr_firma.Text = firma txtAuftr_str.Text = str txtAuftr_strnr.Text = strnr cboAuftr_land.Text = land txtAuftr_plz.Text = plz txtAuftr_ort.Text = ort txtAuftrAnpsr.Text = Anpsr atr_auftr_id = ID picAuftr.Visible = True lblAuftrChange.Visible = False lblAuftrOld.Visible = False lblAuftrNotFound.Visible = False End If If searchHandles = "Trans" Then cbxTfrachtfIsTrans.Checked = False txtTrans_firma.Text = firma txtTrans_str.Text = str txtTrans_strnr.Text = strnr cboTrans_land.Text = land txtTrans_plz.Text = plz txtTrans_ort.Text = ort txtTransAnspr.Text = Anpsr atr_trans_id = ID picTrans.Visible = True lblTransChange.Visible = False lblTransOld.Visible = False lblTransNotFound.Visible = False End If If searchHandles = "AltLadest" Then cbxTfrachtfIsTrans.Checked = False txtAltLadest_firma.Text = firma txtAltLadest_Strasse.Text = str txtAltLadest_StrasseNummer.Text = strnr txtAltLadest_Land.Text = land txtAltLadest_Plz.Text = plz txtAltLadest_Ort.Text = ort txtAltLadest_Anspr.Text = Anpsr atr_altladest_id = ID picAltLadest.Visible = True lblAltLadestChange.Visible = False lblAltLadestOld.Visible = False lblAltLadestNotFound.Visible = False End If End Sub Private Sub cbxAbliefernachweis_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAbliefernachweis.CheckedChanged If cbxAbliefernachweis.Checked Then Me.BackColor = Color.MintCream Else Me.BackColor = SystemColors.Control End If End Sub Private Sub picAuftr_Click(sender As Object, e As EventArgs) Handles picAuftr.Click atr_auftr_id = -1 picAuftr.Visible = False : lblAuftrChange.Visible = False : lblAuftrOld.Visible = False End Sub Private Sub picLadest_Click(sender As Object, e As EventArgs) Handles picLadest.Click atr_ladest_id = -1 'LadestNumber = -1 picLadest.Visible = False : lblLadestChange.Visible = False : lblLadestOld.Visible = False End Sub Private Sub picEntladest_Click(sender As Object, e As EventArgs) Handles picEntladest.Click atr_entladest_id = -1 picEntladest.Visible = False : lblEntladestChange.Visible = False : lblEntladestOld.Visible = False End Sub Private Sub picFrachtf_Click(sender As Object, e As EventArgs) Handles picFrachtf.Click atr_frachtf_id = -1 picFrachtf.Visible = False : lblFrachtfChange.Visible = False : lblFrachtfOld.Visible = False End Sub Private Sub picTrans_Click(sender As Object, e As EventArgs) Handles picTrans.Click atr_trans_id = -1 picTrans.Visible = False : lblTransChange.Visible = False : lblTransOld.Visible = False End Sub Private Sub picaltlasdest_Click(sender As Object, e As EventArgs) Handles picAltLadest.Click atr_altladest_id = -1 picAltLadest.Visible = False : lblAltLadestChange.Visible = False : lblAltLadestOld.Visible = False End Sub Private Sub btnCancel_Click(sender As Object, e As EventArgs) Handles btnCancel.Click Me.Close() End Sub Private Sub lblEntladestChange_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblEntladestChange.LinkClicked DISPO.updateKundenDaten(atr_entladest_id, txtEntladest_firma.Text, txtEntladest_str.Text, txtEntladest_strnr.Text, txtEntladest_plz.Text, txtEntladest_ort.Text, cboEntladest_land.Text) If auftragID >= 0 Then btnSave.PerformClick() lblEntladestChange.Visible = False End Sub Private Sub lblLadestChange_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblLadestChange.LinkClicked DISPO.updateKundenDaten(atr_ladest_id, txtLadest_firma.Text, txtLadest_str.Text, txtLadest_strnr.Text, txtLadest_plz.Text, txtLadest_ort.Text, cboLadest_land.Text) If auftragID >= 0 Then btnSave.PerformClick() lblLadestChange.Visible = False End Sub Private Sub lblFrachtfChange_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblFrachtfChange.LinkClicked DISPO.updateKundenDaten(atr_frachtf_id, txtFrachtf_firma.Text, txtFrachtf_str.Text, txtFrachtf_strnr.Text, txtFrachtf_plz.Text, txtFrachtf_ort.Text, cboFrachtf_land.Text) If auftragID >= 0 Then btnSave.PerformClick() lblFrachtfChange.Visible = False End Sub Private Sub lblAuftrChange_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblAuftrChange.LinkClicked DISPO.updateKundenDaten(atr_auftr_id, txtAuftr_firma.Text, txtAuftr_str.Text, txtAuftr_strnr.Text, txtAuftr_plz.Text, txtAuftr_ort.Text, cboAuftr_land.Text) If auftragID >= 0 Then btnSave.PerformClick() lblAuftrChange.Visible = False End Sub Private Sub lblTransChange_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblTransChange.LinkClicked DISPO.updateKundenDaten(atr_trans_id, txtTrans_firma.Text, txtTrans_str.Text, txtTrans_strnr.Text, txtTrans_plz.Text, txtTrans_ort.Text, cboTrans_land.Text) If auftragID >= 0 Then btnSave.PerformClick() lblTransChange.Visible = False End Sub Private Sub lblaltladestChange_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblAltLadestChange.LinkClicked DISPO.updateKundenDaten(atr_altladest_id, txtAltLadest_firma.Text, txtAltLadest_Strasse.Text, txtAltLadest_StrasseNummer.Text, txtAltLadest_Plz.Text, txtAltLadest_Ort.Text, txtAltLadest_Land.Text) If auftragID >= 0 Then btnSave.PerformClick() lblAltLadestChange.Visible = False End Sub Private Sub txtEntladest_firma_TextChanged(sender As Object, e As EventArgs) Handles txtEntladest_firma.TextChanged If picEntladest.Visible Then lblEntladestChange.Visible = True lblEntladestNotFound.Visible = False End Sub Private Sub txtFrachtf_firma_TextChanged(sender As Object, e As EventArgs) Handles txtFrachtf_firma.TextChanged If picFrachtf.Visible Then lblFrachtfChange.Visible = True lblFrachtfNotFound.Visible = False End Sub Private Sub txtAuftr_firma_TextChanged(sender As Object, e As EventArgs) Handles txtAuftr_firma.TextChanged If picAuftr.Visible Then lblAuftrChange.Visible = True lblAuftrNotFound.Visible = False End Sub Private Sub txtLadest_firma_TextChanged(sender As Object, e As EventArgs) Handles txtLadest_firma.TextChanged If picLadest.Visible Then lblLadestChange.Visible = True lblLadestNotFound.Visible = False End Sub Private Sub txtTrans_firma_TextChanged(sender As Object, e As EventArgs) Handles txtTrans_firma.TextChanged If picTrans.Visible Then lblTransChange.Visible = True lblTransNotFound.Visible = False End Sub Private Sub lblAuftrOld_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblAuftrOld.LinkClicked For Each d As cEntry In kd_data If d.kd_id = atr_auftr_id Then searchHandles = "Auftr" : getDataFromSearch(d.kd_firma, d.kd_str, d.kd_strnr, d.kd_land, d.kd_plz, d.kd_ort, "", "", d.kd_anspr1_vn & " " & d.kd_anspr1_nn.Trim, d.kd_isRefNr, d.kd_refNr, d.kd_id) Next End Sub Private Sub lblFrachtfOld_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblFrachtfOld.LinkClicked For Each d As cEntry In kd_data If d.kd_id = atr_frachtf_id Then searchHandles = "Frachtf" : getDataFromSearch(d.kd_firma, d.kd_str, d.kd_strnr, d.kd_land, d.kd_plz, d.kd_ort, "", "", d.kd_anspr1_vn & " " & d.kd_anspr1_nn.Trim, d.kd_isRefNr, d.kd_refNr, d.kd_id) Next End Sub Private Sub lblTransOld_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblTransOld.LinkClicked For Each d As cEntry In kd_data If d.kd_id = atr_trans_id Then searchHandles = "Trans" : getDataFromSearch(d.kd_firma, d.kd_str, d.kd_strnr, d.kd_land, d.kd_plz, d.kd_ort, "", "", d.kd_anspr1_vn & " " & d.kd_anspr1_nn.Trim, d.kd_isRefNr, d.kd_refNr, d.kd_id) Next End Sub Private Sub lblLadestOld_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblLadestOld.LinkClicked For Each d As cEntry In kd_data If d.kd_id = atr_ladest_id Then searchHandles = "Ladest" : getDataFromSearch(d.kd_firma, d.kd_str, d.kd_strnr, d.kd_land, d.kd_plz, d.kd_ort, "", "", d.kd_anspr1_vn & " " & d.kd_anspr1_nn.Trim, d.kd_isRefNr, d.kd_refNr, d.kd_id) Next End Sub Private Sub lblaltladestOld_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblAltLadestOld.LinkClicked For Each d As cEntry In kd_data If d.kd_id = atr_altladest_id Then searchHandles = "AltLadest" : getDataFromSearch(d.kd_firma, d.kd_str, d.kd_strnr, d.kd_land, d.kd_plz, d.kd_ort, "", "", d.kd_anspr1_vn & " " & d.kd_anspr1_nn.Trim, d.kd_isRefNr, d.kd_refNr, d.kd_id) Next End Sub Private Sub lblEntladestOld_LinkClicked(sender As Object, e As LinkLabelLinkClickedEventArgs) Handles lblEntladestOld.LinkClicked For Each d As cEntry In kd_data If d.kd_id = atr_entladest_id Then searchHandles = "Entladest" : getDataFromSearch(d.kd_firma, d.kd_str, d.kd_strnr, d.kd_land, d.kd_plz, d.kd_ort, "", "", d.kd_anspr1_vn & " " & d.kd_anspr1_nn.Trim, d.kd_isRefNr, d.kd_refNr, d.kd_id) Next End Sub Private Sub Button4_Click_1(sender As Object, e As EventArgs) Handles btnCMR1.Click, btnCMR2.Click initAuftrData() frmPrintView.fillCMRReport(initCMR()) frmPrintView.Show() End Sub Private Sub Button5_Click_1(sender As Object, e As EventArgs) Handles btnTrans1.Click, btnTrans2.Click initAuftrData() frmPrintView.fillTransReport(initTrans(), "VERAG_AT") frmPrintView.Show() End Sub Private Sub btnBuchh1_Click(sender As Object, e As EventArgs) Handles btnBuchh1.Click, btnBuchh2.Click frmLoading.Show() initAuftrData() frmPrintView.fillBuchReport(initBH()) frmPrintView.Show() End Sub Private Function getOzStr(ByVal day As String, ByVal o As cOeffnungszeiten) As String ' Dim s As String = "" If day = "Mo" Then If o.oz_montag_von1 <> "" And o.oz_montag_bis1 <> "" Then s &= o.oz_montag_von1 & " - " & o.oz_montag_bis1 If o.oz_montag_von2 <> "" And o.oz_montag_bis2 <> "" Then s &= ", " & o.oz_montag_von2 & " - " & o.oz_montag_bis2 If s = "" Then s = "" End If If day = "Di" Then If o.oz_dienstag_von1 <> "" And o.oz_dienstag_bis1 <> "" Then s &= o.oz_dienstag_von1 & " - " & o.oz_dienstag_bis1 If o.oz_dienstag_von2 <> "" And o.oz_dienstag_bis2 <> "" Then s &= ", " & o.oz_dienstag_von2 & " - " & o.oz_dienstag_bis2 If s = "" Then s = "" End If If day = "Mi" Then If o.oz_mittwoch_von1 <> "" And o.oz_mittwoch_bis1 <> "" Then s &= o.oz_mittwoch_von1 & " - " & o.oz_mittwoch_bis1 If o.oz_mittwoch_von2 <> "" And o.oz_mittwoch_bis2 <> "" Then s &= ", " & o.oz_mittwoch_von2 & " - " & o.oz_mittwoch_bis2 If s = "" Then s = "" End If If day = "Do" Then If o.oz_donnerstag_von1 <> "" And o.oz_donnerstag_bis1 <> "" Then s &= o.oz_donnerstag_von1 & " - " & o.oz_donnerstag_bis1 If o.oz_donnerstag_von2 <> "" And o.oz_donnerstag_bis2 <> "" Then s &= ", " & o.oz_donnerstag_von2 & " - " & o.oz_donnerstag_bis2 If s = "" Then s = "" End If If day = "Fr" Then If o.oz_freitag_von1 <> "" And o.oz_freitag_bis1 <> "" Then s &= o.oz_freitag_von1 & " - " & o.oz_freitag_bis1 If o.oz_freitag_von2 <> "" And o.oz_freitag_bis2 <> "" Then s &= ", " & o.oz_freitag_von2 & " - " & o.oz_freitag_bis2 If s = "" Then s = "" End If If day = "Sa" Then If o.oz_samstag_von1 <> "" And o.oz_samstag_bis1 <> "" Then s &= o.oz_samstag_von1 & " - " & o.oz_samstag_bis1 If o.oz_samstag_von2 <> "" And o.oz_samstag_bis2 <> "" Then s &= ", " & o.oz_samstag_von2 & " - " & o.oz_samstag_bis2 If s = "" Then s = "" End If If day = "So" Then If o.oz_sonntag_von1 <> "" And o.oz_sonntag_bis1 <> "" Then s &= o.oz_sonntag_von1 & " - " & o.oz_sonntag_bis1 If o.oz_sonntag_von2 <> "" And o.oz_sonntag_bis2 <> "" Then s &= ", " & o.oz_sonntag_von2 & " - " & o.oz_sonntag_bis2 If s = "" Then s = "" End If Return s End Function Private Function initTrans() As cTransParams Dim cTransParams As New cTransParams cTransParams.aviso = "" If atr_entladest_id >= 0 Then Dim s() As String = DISPO.getAvisoFromKundeByIds(atr_entladest_id) If Not s Is Nothing Then If s(0) <> "" And s(0) = "0" Then cTransParams.aviso = "Avisieren:" If s(1) <> "" Then cTransParams.aviso &= vbNewLine & s(1) If s(2) <> "" Then cTransParams.aviso &= " " & s(2) ElseIf s(0) = "1" Then cTransParams.aviso = "Ankunftsaviso:" If s(1) <> "" Then cTransParams.aviso &= vbNewLine & s(1) If s(2) <> "" Then cTransParams.aviso &= " " & s(2) Else cTransParams.aviso = "" If s(1) <> "" Then cTransParams.aviso &= vbNewLine & s(1) If s(2) <> "" Then cTransParams.aviso &= " " & s(2) End If End If End If cTransParams.frachtpos = txtFrachtpos.Text If cbxTfrachtfIsTrans.Checked Then cTransParams.an_firma = txtTrans_firma.Text Else : cTransParams.an_firma = txtFrachtf_firma.Text If cbxTfrachtfIsTrans.Checked Then cTransParams.an_anspr = txtTransAnspr.Text Else : cTransParams.an_anspr = txtFrachtfAnpsr.Text cTransParams.lkw_kennz = txtLkwKz.Text cTransParams.lkw_art = txtLkwArt.Text cTransParams.datum = Now.ToString("dd.MM.yyyy") cTransParams.sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRNAME cTransParams.ladestelle = "" cTransParams.ladestelle += txtLadest_firma.Text & vbNewLine cTransParams.ladestelle += txtLadest_str.Text & " " & txtLadest_strnr.Text & vbNewLine cTransParams.ladestelle += cboLadest_land.Text & " " & txtLadest_plz.Text & " - " & txtLadest_ort.Text & vbNewLine cTransParams.ladestelle = cTransParams.ladestelle.Trim() cTransParams.ladest_kontakt = vbNewLine Dim ldst_kont() As String = DISPO.getAvisoFromKundeByIds(atr_ladest_id) If Not ldst_kont Is Nothing Then If ldst_kont(1) <> "" Then cTransParams.ladest_kontakt &= ldst_kont(1) If ldst_kont(2) <> "" Then cTransParams.ladest_kontakt &= " " & ldst_kont(2) End If If cbxLadest_RefNr.Checked Then cTransParams.referenz = txtLadest_RefNr.Text End If If cbxLadest_termin.Checked Then cTransParams.ladest_termin = datLadest_terminDat.Value.ToString("dd.MM.yyyy, ") & txtLadest_terminVon.Text & " - " & txtLadest_terminBis.Text Else : cTransParams.ladest_termin = "" End If cTransParams.ladest_oeffnungszeiten = "" If IsNumeric(atr_ladest_id) Then Dim o As cOeffnungszeiten = DISPO.getOeffnungszeitenByKdId(atr_ladest_id) Dim o_str As String = "" Dim vorh As Boolean = False If Not o Is Nothing Then If Not o.oz_montag_closed Then o_str &= getOzStr("Mo", o) : vorh = True o_str &= vbNewLine If Not o.oz_dienstag_closed Then o_str &= getOzStr("Di", o) : vorh = True o_str &= vbNewLine If Not o.oz_mittoch_closed Then o_str &= getOzStr("Mi", o) : vorh = True o_str &= vbNewLine If Not o.oz_donnerstag_closed Then o_str &= getOzStr("Do", o) : vorh = True o_str &= vbNewLine If Not o.oz_freitag_closed Then o_str &= getOzStr("Fr", o) : vorh = True o_str &= vbNewLine If Not o.oz_samstag_closed Then o_str &= getOzStr("Sa", o) : vorh = True o_str &= vbNewLine If Not o.oz_sonntag_closed Then o_str &= getOzStr("So", o) : vorh = True If vorh Then cTransParams.ladest_oeffnungszeiten = o_str End If End If cTransParams.entladest_oeffnungszeiten = "" If IsNumeric(atr_entladest_id) Then Dim o As cOeffnungszeiten = DISPO.getOeffnungszeitenByKdId(atr_entladest_id) Dim o_str As String = "" Dim vorh As Boolean = False 'MsgBox(auftrag.atr_entladest_id) If Not o Is Nothing Then If Not o.oz_montag_closed Then o_str &= getOzStr("Mo", o) : vorh = True o_str &= vbNewLine If Not o.oz_dienstag_closed Then o_str &= getOzStr("Di", o) : vorh = True o_str &= vbNewLine If Not o.oz_mittoch_closed Then o_str &= getOzStr("Mi", o) : vorh = True o_str &= vbNewLine If Not o.oz_donnerstag_closed Then o_str &= getOzStr("Do", o) : vorh = True o_str &= vbNewLine If Not o.oz_freitag_closed Then o_str &= getOzStr("Fr", o) : vorh = True o_str &= vbNewLine If Not o.oz_samstag_closed Then o_str &= getOzStr("Sa", o) : vorh = True o_str &= vbNewLine If Not o.oz_sonntag_closed Then o_str &= getOzStr("So", o) : vorh = True If vorh Then cTransParams.entladest_oeffnungszeiten = o_str End If End If cTransParams.entladestelle = "" cTransParams.entladestelle += txtEntladest_firma.Text & vbNewLine cTransParams.entladestelle += txtEntladest_str.Text & " " & txtEntladest_strnr.Text & vbNewLine cTransParams.entladestelle += cboEntladest_land.Text & " " & txtEntladest_plz.Text & " - " & txtEntladest_ort.Text & vbNewLine cTransParams.entladestelle = cTransParams.entladestelle.Trim() If cbxEntladest_termin.Checked Then cTransParams.entladest_termin = datEntladest_terminDat.Value.ToString("dd.MM.yyyy, ") & txtEntladest_terminVon.Text & " - " & txtEntladest_terminBis.Text Else : cTransParams.entladest_termin = "" End If cTransParams.bemerkung = rtbTrans_Bem.Text cTransParams.verzollungsadresse = rtbTrans_Verzollungsadresse.Text cTransParams.frachtkosten = rtbTrans_Frachtkosten.Text Dim CMR As New List(Of cCMRLadeliste) For Each cLadungen As cLadungen In initAuftrData().atr_ladungen Dim cCMR = New cCMRLadeliste cCMR.ZeNr = cLadungen.lad_ZeNr cCMR.AnzPack = cLadungen.lad_Anzahl cCMR.Art = cLadungen.lad_Art cCMR.Bez = cLadungen.lad_Bezeichnung cCMR.Stat = cLadungen.lad_StatNr cCMR.BruttoKg = cLadungen.lad_BruttoKg cCMR.Umfang = cLadungen.lad_Umfang CMR.Add(cCMR) Next cTransParams.cCMRLadeliste = CMR Return cTransParams End Function Private Function initCMR() As cCMRParams Dim cCMRParams As New cCMRParams If cbxAltLadest.Checked Then cCMRParams.param1 = "" cCMRParams.param1 += txtAltLadest_firma.Text & vbNewLine cCMRParams.param1 += txtAltLadest_Strasse.Text & " " & txtAltLadest_StrasseNummer.Text & vbNewLine cCMRParams.param1 += txtAltLadest_Land.Text & " " & txtAltLadest_Plz.Text & " - " & txtAltLadest_Ort.Text & vbNewLine cCMRParams.param1 = cCMRParams.param1.Trim() Else cCMRParams.param1 = "" cCMRParams.param1 += txtLadest_firma.Text & vbNewLine cCMRParams.param1 += txtLadest_str.Text & " " & txtLadest_strnr.Text & vbNewLine cCMRParams.param1 += cboLadest_land.Text & " " & txtLadest_plz.Text & " - " & txtLadest_ort.Text & vbNewLine cCMRParams.param1 = cCMRParams.param1.Trim() End If cCMRParams.param2 = "" cCMRParams.param2 += txtEntladest_firma.Text & vbNewLine cCMRParams.param2 += txtEntladest_str.Text & " " & txtEntladest_strnr.Text & vbNewLine cCMRParams.param2 += cboEntladest_land.Text & " " & txtEntladest_plz.Text & " - " & txtEntladest_ort.Text & vbNewLine cCMRParams.param2 = cCMRParams.param2.Trim() cCMRParams.param3_1 = txtAuslieferung_ort.Text cCMRParams.param3_2 = cboAuslieferung_land.Text cCMRParams.param4_1 = txtUebergabe_ort.Text cCMRParams.param4_2 = cboUebergabe_land.Text cCMRParams.param4_3 = datUebergabe_datum.Text cCMRParams.param5 = rtbBeigefDok.Text cCMRParams.param13 = rtbAnwAbs.Text cCMRParams.param14 = txtRueckerst.Text cCMRParams.param15 = txtFrachtzahl_frei.Text & vbNewLine & txtFrachtzahl_unfrei.Text cCMRParams.param16 = "" If cbxTfrachtfIsTrans.Checked Then cCMRParams.param16 += txtFrachtf_firma.Text & vbNewLine cCMRParams.param16 += txtFrachtf_str.Text & " " & txtFrachtf_strnr.Text & vbNewLine cCMRParams.param16 += cboFrachtf_land.Text & " " & txtFrachtf_plz.Text & " - " & txtFrachtf_ort.Text & vbNewLine cCMRParams.param16 = cCMRParams.param16.Trim() Else cCMRParams.param16 += txtTrans_firma.Text & vbNewLine cCMRParams.param16 += txtTrans_str.Text & " " & txtTrans_strnr.Text & vbNewLine cCMRParams.param16 += cboTrans_land.Text & " " & txtTrans_plz.Text & " - " & txtTrans_ort.Text & vbNewLine cCMRParams.param16 = cCMRParams.param16.Trim() End If cCMRParams.param17 = "" ' cCMRParams.param17 += txtNachf_firma.Text & vbNewLine ' cCMRParams.param17 += txtNachf_str.Text & " " & txtNachf_strnr.Text & vbNewLine ' cCMRParams.param17 += cboNachf_land.Text & " " & txtNachf_plz.Text & " - " & txtNachf_ort.Text & vbNewLine ' cCMRParams.param17 = cCMRParams.param17.Trim() cCMRParams.param18 = rtbVorbehBem.Text cCMRParams.param20 = rtbBesVereinb.Text cCMRParams.param21 = txtAusgef.Text cCMRParams.param22 = cCMRParams.param1 cCMRParams.param23 = cCMRParams.param16 cCMRParams.param27_1 = txtLkwKz.Text & vbNewLine & txtAnhKz.Text cCMRParams.param27_2 = txtLkwNutzlast.Text & vbNewLine & txtAnhNutzlast.Text Dim CMR As New List(Of cCMRLadeliste) For i As Integer = 0 To 6 Step 1 Dim cCMR = New cCMRLadeliste Dim cLadungen As New cLadungen Dim lad_tmp As List(Of cLadungen) = initAuftrData.atr_ladungen If lad_tmp.Count > i Then cLadungen = lad_tmp(i) End If cCMR.ZeNr = cLadungen.lad_ZeNr cCMR.AnzPack = cLadungen.lad_Anzahl cCMR.Art = cLadungen.lad_Art cCMR.Bez = cLadungen.lad_Bezeichnung cCMR.Stat = cLadungen.lad_StatNr cCMR.BruttoKg = cLadungen.lad_BruttoKg cCMR.Umfang = cLadungen.lad_Umfang CMR.Add(cCMR) Next cCMRParams.cCMRLadeliste = CMR Return cCMRParams End Function Private Function initBH() As cBuchParams Dim d As New cBuchParams d.spedBuchNr = txtSpedBuchNr.Text.ToString For i As Integer = 0 To txtbhMon.Text.Length - 1 d.mon &= txtbhMon.Text.ToString()(i) & " " Next Dim frachtpos As String = txtFrachtpos.Text.Replace("/", "") For i As Integer = 0 To frachtpos.Length - 1 d.posNr &= frachtpos.ToString()(i) & " " Next Dim dat As String = datTA.Value.ToString("ddMMyy") For i As Integer = 0 To dat.Length - 1 d.auftrDatum &= dat(i) & " " Next ' cBuchParams.mon = txtbhMon.Text.ToString ' cBuchParams.posNr = txtFrachtpos.Text.ToString d.absender = "" d.absender += txtLadest_firma.Text & vbNewLine d.absender += txtLadest_str.Text & " " & txtLadest_strnr.Text & vbNewLine d.absender += cboLadest_land.Text & " " & txtLadest_plz.Text & " - " & txtLadest_ort.Text & vbNewLine d.absender = d.absender.Trim() d.abs_ladedat_datum = datLadest_terminDat.Value.ToString("dd.MM.yyyy") d.abs_ladedat_von = txtLadest_terminVon.Text d.abs_ladedat_bis = txtLadest_terminBis.Text d.abs_anspr = txtLadestAnpsr.Text d.empfaenger = "" d.empfaenger += txtEntladest_firma.Text & vbNewLine d.empfaenger += txtEntladest_str.Text & " " & txtEntladest_strnr.Text & vbNewLine d.empfaenger += cboEntladest_land.Text & " " & txtEntladest_plz.Text & " - " & txtEntladest_ort.Text & vbNewLine d.empfaenger = d.empfaenger.Trim() d.empf_ladedat_datum = datEntladest_terminDat.Value.ToString("dd.MM.yyyy") d.empf_ladedat_von = txtEntladest_terminVon.Text d.empf_ladedat_bis = txtEntladest_terminBis.Text d.empf_anspr = txtEntladestAnpsr.Text ' d.auftraggeber = txtAuftr_firma.Text d.auftraggeber = "" d.auftraggeber += txtAuftr_firma.Text & vbNewLine d.auftraggeber += txtAuftr_str.Text & " " & txtAuftr_strnr.Text & vbNewLine d.auftraggeber += cboAuftr_land.Text & " " & txtAuftr_plz.Text & " - " & txtAuftr_ort.Text & vbNewLine d.auftraggeber = d.auftraggeber.Trim() d.auftr_anspr = txtAuftrAnpsr.Text If dgvBHUntern.RowCount > 0 Then d.unterKennz1 = nullStr(dgvBHUntern.Rows(0).Cells("bhut_unternKennz").Value) d.unterKennz_bis1 = nullStr(dgvBHUntern.Rows(0).Cells("bhut_bis").Value) d.unterKennz_kosten1 = nullStr(dgvBHUntern.Rows(0).Cells("bhut_kosten").Value) End If If dgvBHUntern.RowCount > 1 Then d.unterKennz2 = nullStr(dgvBHUntern.Rows(1).Cells("bhut_unternKennz").Value) d.unterKennz_bis2 = nullStr(dgvBHUntern.Rows(1).Cells("bhut_bis").Value) d.unterKennz_kosten2 = nullStr(dgvBHUntern.Rows(1).Cells("bhut_kosten").Value) End If If dgvBHUntern.RowCount > 2 Then d.unterKennz3 = nullStr(dgvBHUntern.Rows(2).Cells("bhut_unternKennz").Value) d.unterKennz_bis3 = nullStr(dgvBHUntern.Rows(2).Cells("bhut_bis").Value) d.unterKennz_kosten3 = nullStr(dgvBHUntern.Rows(2).Cells("bhut_kosten").Value) End If If dgvBHUntern.RowCount > 3 Then d.unterKennz4 = nullStr(dgvBHUntern.Rows(3).Cells("bhut_unternKennz").Value) d.unterKennz_bis4 = nullStr(dgvBHUntern.Rows(3).Cells("bhut_bis").Value) d.unterKennz_kosten4 = nullStr(dgvBHUntern.Rows(3).Cells("bhut_kosten").Value) End If Dim auftrag As cAuftraege = initAuftrData() d.vermerke = rtbBhVermerke.Text d.bhRg = New List(Of cBuchhaltungRechnung) d.bhRg2 = New List(Of cBuchhaltungRechnung) For Each b As cBuchhaltungRechnung In auftrag.bh_rechnungen If b.bhrg_option = 1 Then d.bhRg.Add(b) If b.bhrg_option = 2 Then d.bhRg2.Add(b) Next ' d.cLadungen = auftrag.atr_ladungen 'UMTSETETLSEMFLSDFMLASDJFLASDJKF???????????????::::::::::::: Return d End Function Private Sub cbxTfrachtfIsTrans_CheckedChanged_1(sender As Object, e As EventArgs) Handles cbxTfrachtfIsTrans.CheckedChanged txtTrans_firma.Enabled = Not cbxTfrachtfIsTrans.Checked txtTrans_ort.Enabled = Not cbxTfrachtfIsTrans.Checked txtTrans_plz.Enabled = Not cbxTfrachtfIsTrans.Checked txtTrans_str.Enabled = Not cbxTfrachtfIsTrans.Checked txtTrans_strnr.Enabled = Not cbxTfrachtfIsTrans.Checked txtTransAnspr.Enabled = Not cbxTfrachtfIsTrans.Checked cboTrans_land.Enabled = Not cbxTfrachtfIsTrans.Checked picTrans.Enabled = Not cbxTfrachtfIsTrans.Checked btnTrans_search.Enabled = Not cbxTfrachtfIsTrans.Checked lblTransChange.Enabled = Not cbxTfrachtfIsTrans.Checked lblTransOld.Enabled = Not cbxTfrachtfIsTrans.Checked End Sub Private Sub cbxLadest_termin_CheckedChanged(sender As Object, e As EventArgs) Handles cbxLadest_termin.CheckedChanged datLadest_terminDat.Enabled = cbxLadest_termin.Checked txtLadest_terminVon.Enabled = cbxLadest_termin.Checked txtLadest_terminBis.Enabled = cbxLadest_termin.Checked End Sub Private Sub cbxEntladest_termin_CheckedChanged(sender As Object, e As EventArgs) Handles cbxEntladest_termin.CheckedChanged datEntladest_terminDat.Enabled = cbxEntladest_termin.Checked txtEntladest_terminVon.Enabled = cbxEntladest_termin.Checked txtEntladest_terminBis.Enabled = cbxEntladest_termin.Checked End Sub Private Sub cbxLadest_RefNr_CheckedChanged(sender As Object, e As EventArgs) Handles cbxLadest_RefNr.CheckedChanged txtLadest_RefNr.Enabled = cbxLadest_RefNr.Checked End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnFrachtkostenrechner.Click frmFrachtkosten.Show() AddHandler frmFrachtkosten.Disposed, AddressOf meEnabledTrue End Sub Private Sub meEnabledTrue() Me.Enabled = True Me.BringToFront() End Sub Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxAltLadest.CheckedChanged GroupBox1.Enabled = sender.checked If sender.checked = False Then picAltLadest.Visible = False lblAltLadestChange.Visible = False lblAltLadestOld.Visible = False lblAltLadestNotFound.Visible = False txtAltLadest_firma.Text = "" txtAltLadest_Strasse.Text = "" txtAltLadest_StrasseNummer.Text = "" txtAltLadest_Land.Text = "" txtAltLadest_Plz.Text = "" txtAltLadest_Ort.Text = "" txtAltLadest_Anspr.Text = "" atr_altladest_id = -1 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("atr_auftr_id") = atr_auftr_id bindingDATA.bindingdataTable.Rows(0).Item("atr_ladest_id") = atr_ladest_id bindingDATA.bindingdataTable.Rows(0).Item("atr_entladest_id") = atr_entladest_id bindingDATA.bindingdataTable.Rows(0).Item("atr_trans_id") = atr_trans_id bindingDATA.bindingdataTable.Rows(0).Item("atr_altladest_id") = atr_altladest_id If bindingDATA.updateBinding() Then Me.dataAdapterLadungen.Update(CType(Me.dataBindingLadungen.DataSource, DataTable)) Me.dataAdapterBHRg1.Update(CType(Me.dataBindingBHRg1.DataSource, DataTable)) Me.dataAdapterBHRg2.Update(CType(Me.dataBindingBHRg2.DataSource, DataTable)) Me.dataAdapterBHUntern.Update(CType(Me.dataBindingBHUntern.DataSource, DataTable)) btnSave.Enabled = False 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 End Class