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

sendungsdet. etc.

Browse Source
This commit is contained in:
d.breimaier
2025-09-01 09:24:34 +02:00
parent 57b8352ad9
commit 31f3513a20
2 changed files with 44 additions and 23 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.5.9")> <Assembly: AssemblyVersion("4.1.6.0")>
<Assembly: AssemblyFileVersion("4.1.5.9")> <Assembly: AssemblyFileVersion("4.1.6.0")>

63
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -95,11 +95,11 @@ Public Class frmSendungsdetailsNEU
Sub LOAD_ABRECHUNG() Sub LOAD_ABRECHUNG()
SENDUNG_LIST(CURRENT_INDEX).LOAD_ABRECHNUNG() SENDUNG_LIST(CURRENT_INDEX).LOAD_ABRECHNUNG()
cntlAvisierer_Sonst.special(False) If cntlAvisierer_Sonst IsNot Nothing Then cntlAvisierer_Sonst.special(False)
cntlAbsender_Sonst.special(False) If cntlAbsender_Sonst IsNot Nothing Then cntlAbsender_Sonst.special(False)
cntlEmpfaenger_Sonst.special(False) If cntlEmpfaenger_Sonst IsNot Nothing Then cntlEmpfaenger_Sonst.special(False)
cntlAuftraggeber_Sonst.special(False) If cntlAuftraggeber_Sonst IsNot Nothing Then cntlAuftraggeber_Sonst.special(False)
cntlFrachtfuehrer_Sonst.special(False) If cntlFrachtfuehrer_Sonst IsNot Nothing Then cntlFrachtfuehrer_Sonst.special(False)
Try Try
For Each c In Panel6.Controls For Each c In Panel6.Controls
@@ -1661,18 +1661,39 @@ Public Class frmSendungsdetailsNEU
End If End If
'------------------------- '-------------------------
'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
cboAbfertigungsart.changeItem("38") ' If SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Count = 0 Then
cboAbfertigungsLand.changeItem("AT") ' If cboAbfertigungsart._value = "" Then
If SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Count = 0 Then
cntlAuftr_Abf.lbl.Text = "X" ' For i As Integer = 0 To cboAbfertigungsart.Items.Count - 1
End If ' If cboAbfertigungsart.Items(i).ToString().Contains("38") Then
End If ' cboAbfertigungsart.SelectedIndex = i
' Exit For
' End If
' Next
' End If
' 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
' 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... Panel2.MinimumSize = New Size(0, FlowLayoutPanel.Height) '+ pnlheader.Height) ' damit das S***** Flowlayoutpanel nicht abgeschnitten wird...
@@ -2470,11 +2491,11 @@ Public Class frmSendungsdetailsNEU
End If End If
Button4.Enabled = btnLeihgeld.Enabled Button4.Enabled = btnLeihgeld.Enabled
cntlAvisierer_Eust.Visible = True If cntlAvisierer_Eust IsNot Nothing Then cntlAvisierer_Eust.Visible = True
cntlAuftr_Eust.Visible = True If cntlAuftr_Eust IsNot Nothing Then cntlAuftr_Eust.Visible = True
cntlEmpf_Eust.Visible = True If cntlEmpf_Eust IsNot Nothing Then cntlEmpf_Eust.Visible = True
cntlAbsender_Eust.Visible = True If cntlAbsender_Eust IsNot Nothing Then cntlAbsender_Eust.Visible = True
cntlFrachtf_Eust.Visible = True If cntlFrachtf_Eust IsNot Nothing Then cntlFrachtf_Eust.Visible = True
pnlT1.Controls.Clear() pnlT1.Controls.Clear()