55 lines
2.2 KiB
VB.net
55 lines
2.2 KiB
VB.net
Public Class frmNewProduct
|
|
Public Property Vendor As Vendor
|
|
Public Property Group As ProductGroup
|
|
|
|
Private _Logger As Logger
|
|
|
|
Private Sub frmNewProduct_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Try
|
|
_Logger = My.Application.LogConfig.GetLogger()
|
|
|
|
If Not IsNothing(Vendor) Then
|
|
Dim oSQL As String = $"SELECT ISNULL(MAX([VERSION]), 0) FROM [TBDD_ARTICLE_GENERATOR_PRODUCTS] WHERE VENDOR_ID = {Vendor.Guid} AND GROUP_ID = {Group.GroupId}"
|
|
Dim oNumber = My.Application.EXIMDatabase.GetScalarValue(oSQL) + 1
|
|
Dim oGroupCode As String = $"{Vendor.Code}{oNumber}"
|
|
|
|
txtVendor.Text = Vendor.Name
|
|
txtGroup.Text = Group.Name
|
|
txtVersion.Text = oNumber
|
|
End If
|
|
Catch ex As Exception
|
|
_Logger.Error(ex)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
|
Dim oName As String = Trim(txtName.Text)
|
|
|
|
If oName = String.Empty Then
|
|
MsgBox("Bitte füllen Sie das Feld 'Name' aus!", MsgBoxStyle.Exclamation, Text)
|
|
Exit Sub
|
|
End If
|
|
|
|
If Not IsNothing(Vendor) Then
|
|
Try
|
|
Dim oNumber = Integer.Parse(txtVersion.Text)
|
|
|
|
Dim oSQL = $"INSERT INTO TBDD_ARTICLE_GENERATOR_PRODUCTS
|
|
([VERSION], NAME, VENDOR_ID, CODE, GROUP_ID)
|
|
VALUES ({oNumber}, '{oName}', {Vendor.Guid}, '{Vendor.Code}', {Group.GroupId})"
|
|
Dim oResult = My.Application.EXIMDatabase.ExecuteNonQuery(oSQL)
|
|
|
|
If oResult = True Then
|
|
MsgBox("Version erstellt!", MsgBoxStyle.Information, Text)
|
|
|
|
DialogResult = DialogResult.OK
|
|
Close()
|
|
Else
|
|
MsgBox("Fehler beim Erstellen der Version. Mehr Informationen im Log.", MsgBoxStyle.Critical, Text)
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Fehler beim Erstellen der Version: " & ex.Message, MsgBoxStyle.Critical, Text)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
End Class |