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

Abf.ARt

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-12-11 09:31:10 +01:00
parent 4bdc72e908
commit f4e3cfc29e
2 changed files with 9 additions and 2 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.8.4")> <Assembly: AssemblyVersion("4.1.8.5")>
<Assembly: AssemblyFileVersion("4.1.8.4")> <Assembly: AssemblyFileVersion("4.1.8.5")>

7
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -670,8 +670,11 @@ Public Class frmSendungsdetailsNEU
txtAvisierer.initKdBox(Me, txtAvisiererKdNr) txtAvisierer.initKdBox(Me, txtAvisiererKdNr)
txtFrachtfuehrer.initKdBox(Me, txtFrachtfuehrerKdNr) txtFrachtfuehrer.initKdBox(Me, txtFrachtfuehrerKdNr)
AddHandler txtAvisierer.PropertyChanged, Sub() AddHandler txtAvisierer.PropertyChanged, Sub()
lblErr_AvisiererKdNr.Visible = False lblErr_AvisiererKdNr.Visible = False
cntlAvisierer_Abf.Visible = checkOfferteExistFromAbfArt(txtAvisierer.KdNr_value, cboAbfertigungsart._value)
btnAvisierer.BackgroundImage = IIf(txtAvisierer.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) btnAvisierer.BackgroundImage = IIf(txtAvisierer.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Avisierer = txtAvisierer.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Avisierer = txtAvisierer.Text
@@ -690,6 +693,7 @@ Public Class frmSendungsdetailsNEU
End Sub End Sub
AddHandler txtFrachtfuehrer.PropertyChanged, Sub() AddHandler txtFrachtfuehrer.PropertyChanged, Sub()
cntlFrachtf_Abf.Visible = checkOfferteExistFromAbfArt(txtFrachtfuehrer.KdNr_value, cboAbfertigungsart._value)
lblErr_FraechterKdNr.Visible = False lblErr_FraechterKdNr.Visible = False
btnFrachtfuehrer.BackgroundImage = IIf(txtFrachtfuehrer.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) btnFrachtfuehrer.BackgroundImage = IIf(txtFrachtfuehrer.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
@@ -711,6 +715,7 @@ Public Class frmSendungsdetailsNEU
txtEmpfaenger.initKdBox(Me, txtEmpfaengerKdNr) txtEmpfaenger.initKdBox(Me, txtEmpfaengerKdNr)
AddHandler txtEmpfaenger.PropertyChanged, Sub() AddHandler txtEmpfaenger.PropertyChanged, Sub()
lblErr_EmpfKdNr.Visible = False lblErr_EmpfKdNr.Visible = False
cntlEmpf_Abf.Visible = checkOfferteExistFromAbfArt(txtEmpfaenger.KdNr_value, cboAbfertigungsart._value)
FlatButton1.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) FlatButton1.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger = txtEmpfaenger.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger = txtEmpfaenger.Text
@@ -731,6 +736,7 @@ Public Class frmSendungsdetailsNEU
initWarnKd_AndKdInfo(txtEmpfaenger, picWarnEmpfaenger) initWarnKd_AndKdInfo(txtEmpfaenger, picWarnEmpfaenger)
End Sub End Sub
AddHandler txtAbsender.PropertyChanged, Sub() AddHandler txtAbsender.PropertyChanged, Sub()
cntlAbsender_Abf.Visible = checkOfferteExistFromAbfArt(txtAbsender.KdNr_value, cboAbfertigungsart._value)
FlatButton4.BackgroundImage = IIf(txtAbsender.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) FlatButton4.BackgroundImage = IIf(txtAbsender.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender = txtAbsender.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Absender = txtAbsender.Text
SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr = txtAbsender.KdNr SENDUNG_LIST(CURRENT_INDEX).tblSnd_AbsenderKdNr = txtAbsender.KdNr
@@ -744,6 +750,7 @@ Public Class frmSendungsdetailsNEU
AddHandler txtAuftraggeber.PropertyChanged, Sub() AddHandler txtAuftraggeber.PropertyChanged, Sub()
Try Try
cntlAuftr_Abf.Visible = checkOfferteExistFromAbfArt(txtAuftraggeber.KdNr_value, cboAbfertigungsart._value)
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber = txtAuftraggeber.Text SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber = txtAuftraggeber.Text
SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr = txtAuftraggeber.KdNr SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr = txtAuftraggeber.KdNr
FlatButton3.BackgroundImage = IIf(txtAuftraggeber.KdNr > 0, My.Resources.person, My.Resources.personInaktiv) FlatButton3.BackgroundImage = IIf(txtAuftraggeber.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)