44 lines
1.5 KiB
VB.net
44 lines
1.5 KiB
VB.net
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 |