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

fix

Browse Source
This commit is contained in:
d.breimaier
2026-08-25 14:05:13 +02:00
parent 9588c5f7d1
commit def18b7dd2
3 changed files with 30 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

16
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -2043,13 +2043,19 @@ Public Class frmMDM_USTVAntrag
If UStVPo_ID > 0 Then If UStVPo_ID > 0 Then
Dim ANTR_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen(USTV_ANTRAG.UStVAn_ID, UStVPo_ID) Dim ANTR_POS As New VERAG_PROG_ALLGEMEIN.cUStVPositionen(USTV_ANTRAG.UStVAn_ID, UStVPo_ID)
Dim ANTR_Leistender As New VERAG_PROG_ALLGEMEIN.cUStVLeistender(ANTR_POS.UStVPo_Leistender) If ANTR_POS.UStVPo_Leistender IsNot Nothing Then
If Not IsDBNull(ANTR_POS.UStVPo_LeistenderId) AndAlso ANTR_POS.UStVPo_LeistenderId > 0 Then Dim ANTR_Leistender As New VERAG_PROG_ALLGEMEIN.cUStVLeistender(ANTR_POS.UStVPo_Leistender)
ANTR_Leistender = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(ANTR_POS.UStVPo_LeistenderId) If Not IsDBNull(ANTR_POS.UStVPo_LeistenderId) AndAlso ANTR_POS.UStVPo_LeistenderId > 0 Then
ANTR_Leistender = New VERAG_PROG_ALLGEMEIN.cUStVLeistender(ANTR_POS.UStVPo_LeistenderId)
End If
UstCntlUSTV_AntragPosition1.Enabled = True
UstCntlUSTV_AntragPosition1.setValues(USTV_ANTRAG.UStVAn_KuNr, ANTR_POS, Antrag_LandKz, ANTR_Leistender, atez_api)
Else
UstCntlUSTV_AntragPosition1.Enabled = True
UstCntlUSTV_AntragPosition1.setValues(USTV_ANTRAG.UStVAn_KuNr, ANTR_POS, Antrag_LandKz, Nothing, atez_api)
End If End If
UstCntlUSTV_AntragPosition1.Enabled = True
UstCntlUSTV_AntragPosition1.setValues(USTV_ANTRAG.UStVAn_KuNr, ANTR_POS, Antrag_LandKz, ANTR_Leistender, atez_api)
Else Else
UstCntlUSTV_AntragPosition1.reset() UstCntlUSTV_AntragPosition1.reset()
UstCntlUSTV_AntragPosition1.Enabled = False UstCntlUSTV_AntragPosition1.Enabled = False

14
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -89,12 +89,18 @@ Public Class ustCntlUSTV_AntragPosition
txtNettobetragEUR.Text = ValueOrEmpty(UStV_POS.UStVPo_NettobetragEUR) txtNettobetragEUR.Text = ValueOrEmpty(UStV_POS.UStVPo_NettobetragEUR)
lblSachbearbeiter.Text = ValueOrEmpty(UStV_POS.UStVPo_Sachbearbeiter) lblSachbearbeiter.Text = ValueOrEmpty(UStV_POS.UStVPo_Sachbearbeiter)
sbLeistender.Text = UStV_Leitender.UStV_Leistender If UStV_Leitender IsNot Nothing Then
If IsNumeric(UStV_Leitender.UStV_LeistenderId) Then sbLeistender.Text = UStV_Leitender.UStV_Leistender
sbLeistender._value = UStV_Leitender.UStV_LeistenderId If IsNumeric(UStV_Leitender.UStV_LeistenderId) AndAlso UStV_Leitender.UStV_LeistenderId > 0 Then
sbLeistender._value = UStV_Leitender.UStV_LeistenderId
sbLeistender_VALUE_CHANGED()
Else
sbLeistender._value = -1
End If
End If End If
sbLeistender_VALUE_CHANGED()
loadChangedDSToPanel(UStV_Leitender, True) loadChangedDSToPanel(UStV_Leitender, True)
API = atez_api API = atez_api

15
VERAG_PROG_ALLGEMEIN/Classes/USTV/cUStVLeistender.vb
View File

@@ -19,16 +19,19 @@ Public Class cUStVLeistender
Dim SQL As New SQL Dim SQL As New SQL
Sub New(UStV_Leistender As String, Optional searchbyUID As Boolean = False) Sub New(UStV_Leistender As String, Optional searchbyUID As Boolean = False)
If Not searchbyUID Then If UStV_Leistender <> "" Then
Me.UStV_Leistender = UStV_Leistender If Not searchbyUID Then
LOAD() Me.UStV_Leistender = UStV_Leistender
LOAD()
Else Else
Me.UstV_Leistender_UstNr = UStV_Leistender Me.UstV_Leistender_UstNr = UStV_Leistender
LOADBYUID() LOADByUID()
End If
End If End If
End Sub End Sub
Sub New(Id As Integer) Sub New(Id As Integer)