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-12-16 09:55:12 +01:00
parent fbae19e77e
commit 60769f3535
2 changed files with 33 additions and 7 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.8.5")>
<Assembly: AssemblyFileVersion("4.1.8.5")>
<Assembly: AssemblyVersion("4.1.8.6")>
<Assembly: AssemblyFileVersion("4.1.8.6")>

36
Aviso/frmSendungsdetailsNEU.vb
View File

@@ -674,7 +674,12 @@ Public Class frmSendungsdetailsNEU
AddHandler txtAvisierer.PropertyChanged, Sub()
lblErr_AvisiererKdNr.Visible = False
cntlAvisierer_Abf.Visible = checkOfferteExistFromAbfArt(txtAvisierer.KdNr_value, cboAbfertigungsart._value)
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("CHECK_SND_AbfertigungsartOffert") Then
cntlAvisierer_Abf.Visible = checkOfferteExistFromAbfArt(txtAvisierer.KdNr_value, cboAbfertigungsart._value)
Else
cntlAvisierer_Abf.Visible = True
End If
btnAvisierer.BackgroundImage = IIf(txtAvisierer.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Avisierer = txtAvisierer.Text
@@ -693,7 +698,12 @@ Public Class frmSendungsdetailsNEU
End Sub
AddHandler txtFrachtfuehrer.PropertyChanged, Sub()
cntlFrachtf_Abf.Visible = checkOfferteExistFromAbfArt(txtFrachtfuehrer.KdNr_value, cboAbfertigungsart._value)
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("CHECK_SND_AbfertigungsartOffert") Then
cntlFrachtf_Abf.Visible = checkOfferteExistFromAbfArt(txtFrachtfuehrer.KdNr_value, cboAbfertigungsart._value)
Else
cntlFrachtf_Abf.Visible = True
End If
lblErr_FraechterKdNr.Visible = False
btnFrachtfuehrer.BackgroundImage = IIf(txtFrachtfuehrer.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
@@ -715,7 +725,12 @@ Public Class frmSendungsdetailsNEU
txtEmpfaenger.initKdBox(Me, txtEmpfaengerKdNr)
AddHandler txtEmpfaenger.PropertyChanged, Sub()
lblErr_EmpfKdNr.Visible = False
cntlEmpf_Abf.Visible = checkOfferteExistFromAbfArt(txtEmpfaenger.KdNr_value, cboAbfertigungsart._value)
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("CHECK_SND_AbfertigungsartOffert") Then
cntlEmpf_Abf.Visible = checkOfferteExistFromAbfArt(txtEmpfaenger.KdNr_value, cboAbfertigungsart._value)
Else
cntlEmpf_Abf.Visible = True
End If
FlatButton1.BackgroundImage = IIf(txtEmpfaenger.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Empfaenger = txtEmpfaenger.Text
@@ -736,7 +751,12 @@ Public Class frmSendungsdetailsNEU
initWarnKd_AndKdInfo(txtEmpfaenger, picWarnEmpfaenger)
End Sub
AddHandler txtAbsender.PropertyChanged, Sub()
cntlAbsender_Abf.Visible = checkOfferteExistFromAbfArt(txtAbsender.KdNr_value, cboAbfertigungsart._value)
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("CHECK_SND_AbfertigungsartOffert") Then
cntlAbsender_Abf.Visible = checkOfferteExistFromAbfArt(txtAbsender.KdNr_value, cboAbfertigungsart._value)
Else
cntlAbsender_Abf.Visible = True
End If
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_AbsenderKdNr = txtAbsender.KdNr
@@ -750,7 +770,13 @@ Public Class frmSendungsdetailsNEU
AddHandler txtAuftraggeber.PropertyChanged, Sub()
Try
cntlAuftr_Abf.Visible = checkOfferteExistFromAbfArt(txtAuftraggeber.KdNr_value, cboAbfertigungsart._value)
If VERAG_PROG_ALLGEMEIN.cAllgemein.PARAMS.GET_PARAMETER_VALUE_BOOL("CHECK_SND_AbfertigungsartOffert") Then
cntlAuftr_Abf.Visible = checkOfferteExistFromAbfArt(txtAuftraggeber.KdNr_value, cboAbfertigungsart._value)
Else
cntlAuftr_Abf.Visible = True
End If
SENDUNG_LIST(CURRENT_INDEX).tblSnd_Auftraggeber = txtAuftraggeber.Text
SENDUNG_LIST(CURRENT_INDEX).tblSnd_AuftraggeberKdNr = txtAuftraggeber.KdNr
FlatButton3.BackgroundImage = IIf(txtAuftraggeber.KdNr > 0, My.Resources.person, My.Resources.personInaktiv)