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:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("4.1.5.9")>
<Assembly: AssemblyFileVersion("4.1.5.9")>
<Assembly: AssemblyVersion("4.1.6.0")>
<Assembly: AssemblyFileVersion("4.1.6.0")>

63
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -95,11 +95,11 @@ Public Class frmSendungsdetailsNEU
Sub LOAD_ABRECHUNG()
SENDUNG_LIST(CURRENT_INDEX).LOAD_ABRECHNUNG()
cntlAvisierer_Sonst.special(False)
cntlAbsender_Sonst.special(False)
cntlEmpfaenger_Sonst.special(False)
cntlAuftraggeber_Sonst.special(False)
cntlFrachtfuehrer_Sonst.special(False)
If cntlAvisierer_Sonst IsNot Nothing Then cntlAvisierer_Sonst.special(False)
If cntlAbsender_Sonst IsNot Nothing Then cntlAbsender_Sonst.special(False)
If cntlEmpfaenger_Sonst IsNot Nothing Then cntlEmpfaenger_Sonst.special(False)
If cntlAuftraggeber_Sonst IsNot Nothing Then cntlAuftraggeber_Sonst.special(False)
If cntlFrachtfuehrer_Sonst IsNot Nothing Then cntlFrachtfuehrer_Sonst.special(False)
Try
For Each c In Panel6.Controls
@@ -1661,18 +1661,39 @@ Public Class frmSendungsdetailsNEU
End If
'-------------------------
'Fressnapf Spezial:
'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
cboAbfertigungsart.changeItem("38")
cboAbfertigungsLand.changeItem("AT")
If SENDUNG_LIST(CURRENT_INDEX).ABRECHNUNG.Count = 0 Then
cntlAuftr_Abf.lbl.Text = "X"
End If
End If
'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
' 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...
@@ -2470,11 +2491,11 @@ Public Class frmSendungsdetailsNEU
End If
Button4.Enabled = btnLeihgeld.Enabled
cntlAvisierer_Eust.Visible = True
cntlAuftr_Eust.Visible = True
cntlEmpf_Eust.Visible = True
cntlAbsender_Eust.Visible = True
cntlFrachtf_Eust.Visible = True
If cntlAvisierer_Eust IsNot Nothing Then cntlAvisierer_Eust.Visible = True
If cntlAuftr_Eust IsNot Nothing Then cntlAuftr_Eust.Visible = True
If cntlEmpf_Eust IsNot Nothing Then cntlEmpf_Eust.Visible = True
If cntlAbsender_Eust IsNot Nothing Then cntlAbsender_Eust.Visible = True
If cntlFrachtf_Eust IsNot Nothing Then cntlFrachtf_Eust.Visible = True
pnlT1.Controls.Clear()