54 lines
2.1 KiB
VB.net
54 lines
2.1 KiB
VB.net
Public Class frmNewGroup
|
|
Private _Logger As Logger
|
|
|
|
Public Property Vendor As Vendor
|
|
|
|
Private Sub frmNewGroup_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([GROUP]), 0) FROM TBDD_ARTICLE_GENERATOR_GROUPS WHERE VENDOR_ID = {Vendor.Guid}"
|
|
Dim oNumber = My.Application.EXIMDatabase.GetScalarValue(oSQL) + 1
|
|
Dim oGroupCode As String = $"{Vendor.Code}{oNumber}"
|
|
|
|
txtNumber.Text = oNumber
|
|
txtVendor.Text = Vendor.Name
|
|
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 As Integer = Integer.Parse(txtNumber.Text)
|
|
Dim oGroupCode As String = $"{Vendor.Code}{oNumber.ToString.PadLeft(2)}"
|
|
|
|
Dim oSQL = $"INSERT INTO TBDD_ARTICLE_GENERATOR_GROUPS
|
|
([GROUP], CODE, GROUP_CODE, NAME, VENDOR_ID)
|
|
VALUES ({oNumber}, '{Vendor.Code}', '{oGroupCode}', '{oName}', {Vendor.Guid})"
|
|
Dim oResult = My.Application.EXIMDatabase.ExecuteNonQuery(oSQL)
|
|
|
|
If oResult = True Then
|
|
MsgBox("Gruppe erstellt!", MsgBoxStyle.Information, Text)
|
|
|
|
DialogResult = DialogResult.OK
|
|
Close()
|
|
Else
|
|
MsgBox("Fehler beim Erstellen der Gruppe. Mehr Informationen im Log.", MsgBoxStyle.Critical, Text)
|
|
End If
|
|
Catch ex As Exception
|
|
MsgBox("Fehler beim Erstellen der Gruppe: " & ex.Message, MsgBoxStyle.Critical, Text)
|
|
End Try
|
|
End If
|
|
End Sub
|
|
End Class |