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: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.1.6.0")> <Assembly: AssemblyVersion("4.1.6.1")>
<Assembly: AssemblyFileVersion("4.1.6.0")> <Assembly: AssemblyFileVersion("4.1.6.1")>

48
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -1663,37 +1663,37 @@ Public Class frmSendungsdetailsNEU
'Fressnapf Spezial:) 'Fressnapf Spezial:)
'------------------------- '-------------------------
'If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr = 757421 Then If SENDUNG_LIST(CURRENT_INDEX).tblSnd_AvisiererKdNr = 757421 Then
' If txtAuftraggeber.Text = "" Then txtAuftraggeber.KdNr = 757421 If txtAuftraggeber.Text = "" Then txtAuftraggeber.KdNr = 757421
' If txtEmpfaenger.Text = "" Then txtEmpfaenger.KdNr = 757421 If txtEmpfaenger.Text = "" Then txtEmpfaenger.KdNr = 757421
' If txtAuftraggeber.Text = "" Then txtAuftraggeber.KdNr = 757421 If txtAuftraggeber.Text = "" Then txtAuftraggeber.KdNr = 757421
' If SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Count = 0 Then If SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Count = 0 Then
' If cboAbfertigungsart._value = "" Then If cboAbfertigungsart._value = "" Then
' For i As Integer = 0 To cboAbfertigungsart.Items.Count - 1 For i As Integer = 0 To cboAbfertigungsart.Items.Count - 1
' If cboAbfertigungsart.Items(i).ToString().Contains("38") Then If cboAbfertigungsart.Items(i).ToString().Contains("38") Then
' cboAbfertigungsart.SelectedIndex = i cboAbfertigungsart.SelectedIndex = i
' Exit For Exit For
' End If End If
' Next Next
' End If End If
' If cboAbfertigungsLand._value = "" Then If cboAbfertigungsLand._value = "" Then
' For i As Integer = 0 To cboAbfertigungsLand.Items.Count - 1 For i As Integer = 0 To cboAbfertigungsLand.Items.Count - 1
' If cboAbfertigungsLand.Items(i).ToString().Contains("AT") Then If cboAbfertigungsLand.Items(i).ToString().Contains("AT") Then
' cboAbfertigungsLand.SelectedIndex = i cboAbfertigungsLand.SelectedIndex = i
' Exit For Exit For
' End If End If
' Next Next
' End If End If
' If cntlAuftr_Abf IsNot Nothing Then cntlAuftr_Abf.lbl.Text = "X" If cntlAuftr_Abf IsNot Nothing Then cntlAuftr_Abf.lbl.Text = "X"
' End If End If
'End If End If
'------------------------- '-------------------------
Panel2.MinimumSize = New Size(0, FlowLayoutPanel.Height) '+ pnlheader.Height) ' damit das S***** Flowlayoutpanel nicht abgeschnitten wird... Panel2.MinimumSize = New Size(0, FlowLayoutPanel.Height) '+ pnlheader.Height) ' damit das S***** Flowlayoutpanel nicht abgeschnitten wird...