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

Möst Anträge werden bei nicht eingearb. Anträge geprüft, Leistender-Suche

Browse Source
This commit is contained in:
d.breimaier
2025-05-02 09:40:49 +02:00
parent ca692ceab1
commit f150b7ac9f
3 changed files with 21 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -278,8 +278,10 @@ Public Class ustCntlUSTV_AntragPosition
txtUIDNr.Text = If(UStV_Leist.UstV_Leistender_UstNr, "")
If UStV_Leist.hasEntry Then
adressLoadedByLeistender = True
btnLeistenderSave.Visible = False
btnDel.Visible = True
Else
btnLeistenderSave.Visible = True
btnDel.Visible = False
End If
@@ -559,16 +561,29 @@ Public Class ustCntlUSTV_AntragPosition
If sbLeistender.Text <> "" Then
If sbLeistender.Text IsNot Nothing AndAlso sbLeistender.Text <> "" Then
If IsNumeric(sbLeistender.Text) Then
If UStV_Leist.UStV_LeistenderId <> sbLeistender.Text OrElse UStV_POS.UStVPo_LeistenderId <> sbLeistender.Text Then txtChanged = True
If UStV_Leist IsNot Nothing AndAlso UStV_Leist.UStV_Leistender <> "" AndAlso (UStV_POS.UStVPo_Leistender <> sbLeistender.Text OrElse UStV_POS.UStVPo_LeistenderId <> sbLeistender.Text) Then
'speichern der Änderung nur, wenn 1. Leistender gelöscht wird.
txtChanged = True
ElseIf UStV_Leist Is Nothing Then
txtChanged = True
End If
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(CInt(sbLeistender.Text))
Else
If UStV_Leist.UStV_Leistender <> sbLeistender.Text OrElse UStV_POS.UStVPo_Leistender <> sbLeistender.Text Then txtChanged = True
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(sbLeistender.Text)
If UStV_Leist IsNot Nothing AndAlso UStV_Leist.UStV_Leistender <> "" AndAlso (UStV_Leist.UStV_Leistender <> sbLeistender.Text OrElse UStV_POS.UStVPo_Leistender <> sbLeistender.Text) Then
txtChanged = True
ElseIf UStV_Leist Is Nothing Then
txtChanged = True
End If
End If
UStV_Leist = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(sbLeistender.Text)
loadChangedDSToPanel(UStV_Leist)
Else
loadChangedDSToPanel(Nothing, True)
If UStV_POS.UStVPo_Leistender <> "" OrElse UStV_POS.UStVPo_LeistenderId <> 0 Then
loadChangedDSToPanel(Nothing, True)
End If
End If
End If
'MsgBox()