1589 lines
76 KiB
VB.net
1589 lines
76 KiB
VB.net
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 |