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

Vorkosten

Browse Source
This commit is contained in:
d.breimaier
2024-01-23 07:44:29 +01:00
parent 8f06e48af9
commit 34afade386
4 changed files with 63 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
SDL/Speditionsbuch/Nacherfassung/frmNacherfassungVorkosten.vb
View File

@@ -25,6 +25,7 @@
Dim r As DataGridViewRow = dgvVorkosten.Rows(i)
If Not IsNumeric(r.Cells("LeistungsNr").Value) Then MsgBox("Leistungsnummer muss eine Zahl sein!") : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
If Not IsNumeric(r.Cells("Preis").Value) Then MsgBox("Preis muss eine Zahl sein!") : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
If r.Cells("LeistungsBez").Value.ToString.Length > 30 Then MsgBox("Leistungbezeichnung zu lang (max 30 Zeichen)!") : Me.DialogResult = Windows.Forms.DialogResult.None : Exit Sub
VORKOSTEN.Add(New VERAG_PROG_ALLGEMEIN.cVorkosten(FilialenNr, AbfertigungsNr, UnterNr, CInt(r.Cells("LeistungsNr").Value), CStr(r.Cells("Leistungsbez").Value), CDbl(r.Cells("Preis").Value)))
Next
Me.Close()
@@ -122,6 +123,8 @@
If txtLeistungsbezeichnung.Text = "" Then Label24.Visible = True : txtLeistungsbezeichnung.Focus() : Exit Sub
If txtPreis._value = "" Then Label1.Visible = True : txtPreis.Focus() : Exit Sub
If txtLeistungsbezeichnung.Text.Length > 30 Then MsgBox("Leistungbezeichnung zu lang (max 30 Zeichen)!") : Label24.Visible = True : txtLeistungsbezeichnung.Focus() : Exit Sub
If VK_EDIT >= 0 Then
dgvVorkosten.Rows.RemoveAt(VK_EDIT)
dgvVorkosten.Rows.Insert(VK_EDIT, cboLeistungs._value, txtLeistungsbezeichnung.Text, txtPreis._value)