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

ustva

Browse Source
This commit is contained in:
d.breimaier
2025-04-24 15:35:03 +02:00
parent 0fea3813eb
commit e45363e4ba
3 changed files with 481 additions and 456 deletions
Download Patch File Download Diff File Expand all files Collapse all files

906
SDL/USTV/frmMDM_USTVAntrag.Designer.vb generated
View File

File diff suppressed because it is too large Load Diff

11
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -334,6 +334,7 @@ Public Class frmMDM_USTVAntrag
USTV_ANTRAG.UStVAn_StatusText = rtbStatusText.Text USTV_ANTRAG.UStVAn_StatusText = rtbStatusText.Text
USTV_ANTRAG.FilialenNr = cbxFiliale._value USTV_ANTRAG.FilialenNr = cbxFiliale._value
USTV_ANTRAG.FilialenNr = cbxFiliale._value USTV_ANTRAG.FilialenNr = cbxFiliale._value
If txt3470.Text <> "" AndAlso IsNumeric(txt3470.Text) Then If txt3470.Text <> "" AndAlso IsNumeric(txt3470.Text) Then
@@ -2402,7 +2403,7 @@ Public Class frmMDM_USTVAntrag
If dgvErstattungspositionen.Rows.Count = 0 Then Exit Sub If dgvErstattungspositionen.Rows.Count = 0 Then Exit Sub
If vbYes = MsgBox("Möchten Sie den Erstattungseintrag wirklich löschen?", vbYesNoCancel) Then If vbYes = MsgBox("Möchten Sie den Erstattungseintrag wirklich löschen?", vbYesNoCancel) Then
If UstCntlUSTV_AntragErstattungen1.UStV_ERS.DELETE(UstCntlUSTV_AntragPosition1.UStV_POS.UStVAn_ID, UstCntlUSTV_AntragErstattungen1.UStV_ERS) Then If UstCntlUSTV_AntragErstattungen1.UStV_ERS.DELETE(UstCntlUSTV_AntragErstattungen1.UstV_AN.UStVAn_ID, UstCntlUSTV_AntragErstattungen1.UStV_ERS) Then
initdgvErstattungen() initdgvErstattungen()
End If End If
End If End If
@@ -2743,6 +2744,14 @@ Public Class frmMDM_USTVAntrag
End Sub End Sub
Private Sub cbxWahrung_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxWahrung.SelectedValueChanged Private Sub cbxWahrung_SelectedValueChanged(sender As Object, e As EventArgs) Handles cbxWahrung.SelectedValueChanged
If USTV_ANTRAG IsNot Nothing Then
If cbxWahrung.SelectedItem IsNot Nothing Then
USTV_ANTRAG.UStVAn_Währungscode = cbxWahrung.SelectedItem.Text
Else
USTV_ANTRAG.UStVAn_Währungscode = ""
End If
End If
End Sub End Sub

18
SDL/USTV/usrCntlUSTV.vb
View File

@@ -307,8 +307,13 @@ Public Class usrCntlUSTV
Dim f As New frmMDM_USTVAntrag(dgvUSTV.SelectedRows(0).Cells("UStVAn_ID").Value) Dim f As New frmMDM_USTVAntrag(dgvUSTV.SelectedRows(0).Cells("UStVAn_ID").Value)
f.Show(Me) f.Show(Me)
If Not f.IsHandleCreated Then
dgvUSTV.RELOAD() dgvUSTV.RELOAD()
End If End If
'dgvUSTV.RELOAD()
End If
End Sub End Sub
Private Sub cboJahr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboJahr.SelectedIndexChanged, cboJahrBis.SelectedIndexChanged Private Sub cboJahr_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cboJahr.SelectedIndexChanged, cboJahrBis.SelectedIndexChanged
@@ -777,7 +782,18 @@ Public Class usrCntlUSTV
End If End If
Dim frm = New frmMDM_USTVAntrag(IIf(KdSearchBox1.KdNr_value > 0, KdSearchBox1.KdNr_value, -1), "AT", Nothing, Nothing) Dim frm = New frmMDM_USTVAntrag(IIf(KdSearchBox1.KdNr_value > 0, KdSearchBox1.KdNr_value, -1), "AT", Nothing, Nothing)
frm.ShowDialog() If frm.ShowDialog() = DialogResult.Cancel Then
dgvUSTV.RELOAD()
'Dim enabl = KdSearchBox1.Enabled
'Me.init(IIf(KdSearchBox1.KdNr_value > 0, KdSearchBox1.KdNr_value, -1))
'Me.KdSearchBox1.Enabled = enabl
End If
End Sub End Sub