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

Warenort max Anzahl an Zeichen auf 50 gesetzt inkl Exception Handling

Browse Source
This commit is contained in:
d.breimaier
2023-01-23 09:54:01 +01:00
parent ff118f7094
commit 74c82bd121
1 changed files with 7 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
Aviso/frmWarenorte.vb
View File

@@ -192,6 +192,13 @@ Public Class frmWarenorte
Dim WarenortNew As New cWarenorte(dgvWarenorteNew.SelectedRows(0).Cells("wo_id").Value) Dim WarenortNew As New cWarenorte(dgvWarenorteNew.SelectedRows(0).Cells("wo_id").Value)
If txtWarenort.TextLength > 50 Then
lblWarning.Text = "Warenort darf max 50 Zeichen besitzen!"
Exit Sub
Else
lblWarning.Text = ""
End If
WarenortNew.wo_warenort = txtWarenort.Text WarenortNew.wo_warenort = txtWarenort.Text
WarenortNew.wo_bezeichnung = txtBezeichnung.Text WarenortNew.wo_bezeichnung = txtBezeichnung.Text
WarenortNew.wo_aktiv = cbxAktiv.Checked WarenortNew.wo_aktiv = cbxAktiv.Checked
@@ -208,12 +215,6 @@ Public Class frmWarenorte
WarenortNew.wo_ze = cxZE.Checked WarenortNew.wo_ze = cxZE.Checked
WarenortNew.wo_zv = cxZV.Checked WarenortNew.wo_zv = cxZV.Checked
'If cbxGrenzstelle._value = "" Then
' lblWarning.Text = "Grenzstelle muss ausgewählt werden!"
' Exit Sub
'Else
' lblWarning.Text = ""
'End If
WarenortNew.SAVE() WarenortNew.SAVE()
dgvWarenorteNew.GetOrder() dgvWarenorteNew.GetOrder()