diff --git a/Aviso/My Project/AssemblyInfo.vb b/Aviso/My Project/AssemblyInfo.vb index 7555e9f..2f1c23a 100644 --- a/Aviso/My Project/AssemblyInfo.vb +++ b/Aviso/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/Aviso/frmSendungsdetailsNEU.vb b/Aviso/frmSendungsdetailsNEU.vb index faf258b..08f8a6d 100644 --- a/Aviso/frmSendungsdetailsNEU.vb +++ b/Aviso/frmSendungsdetailsNEU.vb @@ -1663,37 +1663,37 @@ Public Class frmSendungsdetailsNEU 'Fressnapf Spezial:) '------------------------- - 'If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr = 757421 Then - ' If txtAuftraggeber.Text = "" Then txtAuftraggeber.KdNr = 757421 - ' If txtEmpfaenger.Text = "" Then txtEmpfaenger.KdNr = 757421 - ' If txtAuftraggeber.Text = "" Then txtAuftraggeber.KdNr = 757421 - ' If SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Count = 0 Then - ' If cboAbfertigungsart._value = "" Then + If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr = 757421 Then + If txtAuftraggeber.Text = "" Then txtAuftraggeber.KdNr = 757421 + If txtEmpfaenger.Text = "" Then txtEmpfaenger.KdNr = 757421 + If txtAuftraggeber.Text = "" Then txtAuftraggeber.KdNr = 757421 + If SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Count = 0 Then + If cboAbfertigungsart._value = "" Then - ' For i As Integer = 0 To cboAbfertigungsart.Items.Count - 1 - ' If cboAbfertigungsart.Items(i).ToString().Contains("38") Then - ' cboAbfertigungsart.SelectedIndex = i - ' Exit For - ' End If - ' Next + For i As Integer = 0 To cboAbfertigungsart.Items.Count - 1 + If cboAbfertigungsart.Items(i).ToString().Contains("38") Then + cboAbfertigungsart.SelectedIndex = i + Exit For + End If + Next - ' End If + End If - ' If cboAbfertigungsLand._value = "" Then + If cboAbfertigungsLand._value = "" Then - ' For i As Integer = 0 To cboAbfertigungsLand.Items.Count - 1 - ' If cboAbfertigungsLand.Items(i).ToString().Contains("AT") Then - ' cboAbfertigungsLand.SelectedIndex = i - ' Exit For - ' End If - ' Next + For i As Integer = 0 To cboAbfertigungsLand.Items.Count - 1 + If cboAbfertigungsLand.Items(i).ToString().Contains("AT") Then + cboAbfertigungsLand.SelectedIndex = i + Exit For + End If + Next - ' End If + End If - ' If cntlAuftr_Abf IsNot Nothing Then cntlAuftr_Abf.lbl.Text = "X" - ' End If - 'End If + If cntlAuftr_Abf IsNot Nothing Then cntlAuftr_Abf.lbl.Text = "X" + End If + End If '------------------------- Panel2.MinimumSize = New Size(0, FlowLayoutPanel.Height) '+ pnlheader.Height) ' damit das S***** Flowlayoutpanel nicht abgeschnitten wird...