Projektdateien hinzufügen.

Aviso/frmWarenbezeichnungBegriffeEdit.vb

@@ -0,0 +1,44 @@
+Public Class frmWarenbezeichnungBegriffeEdit
+    Public WB As VERAG_PROG_ALLGEMEIN.cWarenbezeichnungBegriffe = Nothing
+
+
+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+    Sub New(wb_id)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.WB = New VERAG_PROG_ALLGEMEIN.cWarenbezeichnungBegriffe(wb_id)
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+    End Sub
+
+    Private Sub btnOK_Click(sender As Object, e As EventArgs) Handles btnOK.Click
+        If txtSammelbegriff.Text = "" Then MsgBox("Sammelbegriff eingeben!") : Exit Sub
+        If rtbBeispiele.Text = "" Then MsgBox("Beispiele eingeben!") : Exit Sub
+
+        WB.wb_begriff = txtSammelbegriff.Text
+        WB.wb_beispiele = rtbBeispiele.Text
+
+        WB.wb_Sachbearbeiter = VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME
+        WB.wb_SachbearbeiterId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
+
+        WB.SAVE()
+        Me.Close()
+    End Sub
+
+    Private Sub frmWarenbezeichnungBegriffeEdit_Load(sender As Object, e As EventArgs) Handles Me.Load
+        If WB Is Nothing Then
+            WB = New VERAG_PROG_ALLGEMEIN.cWarenbezeichnungBegriffe
+        Else
+            txtSammelbegriff.Text = WB.wb_begriff
+            rtbBeispiele.Text = WB.wb_beispiele
+        End If
+    End Sub
+End Class