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

Fakt, MDM, ustva

Browse Source
This commit is contained in:
d.breimaier
2025-03-10 11:43:21 +01:00
parent 33c72e18e2
commit c785d1eb47
7 changed files with 58 additions and 35 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/USTV/frmMDM_USTVAntrag.vb
View File

@@ -305,9 +305,9 @@ Public Class frmMDM_USTVAntrag
End If
If txtVZ.Text <> "" AndAlso IsNumeric(txtVZ.Text) Then
USTV_ANTRAG.UStVAn_RZBetragVZ = CDbl(txtVZ.Text)
USTV_ANTRAG.UStVAn_VZBetrag = CDbl(txtVZ.Text)
Else
USTV_ANTRAG.UStVAn_RZBetragVZ = Nothing
USTV_ANTRAG.UStVAn_VZBetrag = Nothing
End If
USTV_ANTRAG.UStVAn_BezugsNr = txtBezugsNr.Text

12
SDL/USTV/usrCntlUSTV.vb
View File

@@ -405,9 +405,9 @@ Public Class usrCntlUSTV
End If
If Not ContextMenuStrip2.Items.ContainsKey("mse") Then
Dim rmc = New ToolStripMenuItem() With {.Text = "MSE", .Name = "mse", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler rmc.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(rmc)
Dim mse = New ToolStripMenuItem() With {.Text = "MSE", .Name = "mse", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler mse.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(mse)
End If
If Not ContextMenuStrip2.Items.ContainsKey("uta") Then
@@ -423,9 +423,9 @@ Public Class usrCntlUSTV
End If
If Not ContextMenuStrip2.Items.ContainsKey("verag") Then
Dim ids = New ToolStripMenuItem() With {.Text = "VERAG", .Name = "verag", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler ids.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(ids)
Dim verag = New ToolStripMenuItem() With {.Text = "VERAG", .Name = "verag", .Font = New Font(Me.Font.FontFamily, Me.Font.Size)}
AddHandler verag.Click, AddressOf mnuItemAuftrauege_Clicked
ContextMenuStrip2.Items.Add(verag)
End If
ContextMenuStrip2.Show(Cursor.Position)