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

Gesamtsicherheiten, Datumseingabe verbessert.

Browse Source
This commit is contained in:
d.breimaier
2023-04-24 09:25:39 +02:00
parent c19f46cf54
commit 3d776cff84
3 changed files with 66 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

28
Aviso/frmGesamtsicherheitenNEU.vb
View File

@@ -468,7 +468,7 @@ Public Class frmGesamtsicherheitenNEU
Private Sub Date_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtPosDat.KeyPress, txtSicherheitDat.KeyPress, txtDatumaendern.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57, 8, 46, 58
Case 48 To 57, 8, 44, 46, 58, 47
' Zahlen, Backspace, . und : zulassen
Case Else
@@ -479,7 +479,8 @@ Public Class frmGesamtsicherheitenNEU
Private Sub DateTime_Keypresses(sender As Object, e As System.Windows.Forms.KeyPressEventArgs) Handles txtPosTime.KeyPress, txtSicherheitTime.KeyPress, txtUhrzeitaendern.KeyPress
Select Case Asc(e.KeyChar)
Case 48 To 57, 8, 46, 58
Case 48 To 57, 8, 44, 46, 58
'Case 48 To 57, 8, 44, 46, 58, 160, 188, 110, 111, 190, 226
' Zahlen, Backspace, . und : zulassen
Case Else
@@ -1083,7 +1084,7 @@ Public Class frmGesamtsicherheitenNEU
Dim calcSicherheitenPos As Double = calcSicherheitsbetragPos()
Dim newCalcSaldo As Double
newCalcSaldo = SaldoNew - currentSBetrag
newCalcSaldo = SaldoNew - currentSBetrag
'Dim referenzbetrag As Double = currentGesSichRef.brgakto_betrag
@@ -1646,19 +1647,39 @@ Public Class frmGesamtsicherheitenNEU
If txtPosTime.Text <> "" Then
txtPosTime.Text = Replace(txtPosTime.Text, ".", ":")
txtPosTime.Text = Replace(txtPosTime.Text, ",", ":")
End If
If txtSicherheitTime.Text <> "" Then
txtSicherheitTime.Text = Replace(txtSicherheitTime.Text, ".", ":")
txtSicherheitTime.Text = Replace(txtSicherheitTime.Text, ",", ":")
End If
If txtUhrzeitaendern.Text <> "" Then
txtUhrzeitaendern.Text = Replace(txtUhrzeitaendern.Text, ".", ":")
txtUhrzeitaendern.Text = Replace(txtUhrzeitaendern.Text, ",", ":")
End If
End Sub
Private Sub txtPosDat_Leave(sender As Object, e As EventArgs) Handles txtPosDat.Leave, txtSicherheitDat.Leave, txtDatumaendern.Leave, txtUhrzeitaendern.Leave
If txtPosDat.Text <> "" Then
txtPosDat.Text = Replace(txtPosDat.Text, "/", ".")
txtPosDat.Text = Replace(txtPosDat.Text, ",", ".")
End If
If txtSicherheitDat.Text <> "" Then
txtSicherheitDat.Text = Replace(txtSicherheitDat.Text, "/", ".")
txtSicherheitDat.Text = Replace(txtSicherheitDat.Text, ",", ".")
End If
If txtDatumaendern.Text <> "" Then
txtDatumaendern.Text = Replace(txtDatumaendern.Text, "/", ".")
txtDatumaendern.Text = Replace(txtDatumaendern.Text, ",", ".")
End If
End Sub
Private Sub changeLabel(Optional isATR As Boolean = True)
If Standort = "Verag GmbH" Then
@@ -1757,4 +1778,5 @@ Public Class frmGesamtsicherheitenNEU
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles cbxRundPosanzeigen.CheckedChanged
LoadDGVSicherheiten(True)
End Sub
End Class