edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fressnapf

Browse Source
This commit is contained in:
d.breimaier
2025-09-01 16:55:37 +02:00
parent e30894ae92
commit 09f0e2f6a9
2 changed files with 26 additions and 26 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
Aviso/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.1.6.0")>
<Assembly: AssemblyFileVersion("4.1.6.0")>
<Assembly: AssemblyVersion("4.1.6.1")>
<Assembly: AssemblyFileVersion("4.1.6.1")>

48
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -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...