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