This commit is contained in:
2024-05-28 08:53:40 +02:00
parent 78e31b3bc7
commit ddec29fd02
10 changed files with 977 additions and 46 deletions

View File

@@ -22,9 +22,8 @@ Partial Class usrCntlATLAS_EZA
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.SplitContainer = New System.Windows.Forms.SplitContainer()
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel(Me.components)
Me.MyFlowLayoutPanel1 = New VERAG_PROG_ALLGEMEIN.MyFlowLayoutPanel()
Me.btnAllgemein = New System.Windows.Forms.Button()
Me.btnAdressen = New System.Windows.Forms.Button()
Me.btnAktiveVeredelung = New System.Windows.Forms.Button()
@@ -42,7 +41,7 @@ Partial Class usrCntlATLAS_EZA
Me.Label3 = New System.Windows.Forms.Label()
Me.Label1 = New System.Windows.Forms.Label()
Me.lblBezugsnummer = New System.Windows.Forms.Label()
Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.cntxtBezugsnr = New System.Windows.Forms.ContextMenuStrip()
Me.NeueBezugsnummerVergebenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.BezugsnummerKopierenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel1 = New System.Windows.Forms.Panel()

View File

@@ -933,5 +933,8 @@ Public Class usrCntlATLAS_EZA
End Function
Private Sub pnl_Paint_1(sender As Object, e As PaintEventArgs) Handles pnl.Paint
End Sub
End Class

View File

@@ -509,7 +509,7 @@ Partial Class usrCntlATLAS_EZA_Position
Me.txtWarennummer._ShortDateOnly = False
Me.txtWarennummer._TimeOnly = False
Me.txtWarennummer._TimeOnly_Seconds = False
Me.txtWarennummer._value = Nothing
Me.txtWarennummer._value = ""
Me.txtWarennummer._Waehrung = False
Me.txtWarennummer._WaehrungZeichen = True
Me.txtWarennummer.ForeColor = System.Drawing.Color.Black

View File

@@ -255,7 +255,7 @@
End Sub
Private Sub txtEigenmasse_TextChanged() Handles txtEigenmasse.ValueChanged, txtRohmasse.ValueChanged
Private Sub txtEigenmasse_TextChanged() Handles txtEigenmasse.ValueChanged, txtRohmasse.ValueChanged, txtEigenmasse.TextChanged
Label7.Visible = False
If IsNumeric(txtRohmasse._value) And IsNumeric(txtEigenmasse._value) Then
If CDbl(txtRohmasse._value) < CDbl(txtEigenmasse._value) Then
@@ -358,6 +358,10 @@
End If
End Sub
Private Sub txtEigenmasse_TextChanged(sender As Object, e As EventArgs)
End Sub
'Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL