feature_Gesamtsicherheiten: GUI verbessert

Aviso/frmGesamtsicherheitenNEU.vb

@@ -14,8 +14,8 @@ Public Class frmGesamtsicherheitenNEU
     Property currentSPos As cGesamtsicherheitsPositionen
     Property currentGesSichRef As cGesamtsicherheitsReferenz
     Public Property gessicherheitID As Integer
-    Public Property prevGessicherheitID As Integer = 0
-    Public Property nextGessicherheitID As Integer = 0
+    Public Property prevGessicherheitID As Integer
+    Public Property nextGessicherheitID As Integer
     Public Property datum As DateTime = Nothing
     Property Standort As String = ""
 
@@ -98,8 +98,6 @@ Public Class frmGesamtsicherheitenNEU
             If cbx_Suche_Warenort._value <> "" Then sqlSearchSting &= "AND gs_warenort like '%" & cbx_Suche_Warenort._value & "%'"
         End If
 
-        'Dim addtosqlstring As String = ""
-
         Dim SQLStringSicherheit As String = "select [gs_gsId], [gs_gsnr], [gs_posNr], [gs_ATBNr], [gs_datum], [gs_warenwert], [gs_sicherheitsbetrag], [gs_saldo] " & sqladd1 & " , [gs_freitext] from [tblGesamtsicherheit] where [gs_gsnr] = '" & gessicherheitID & "'" & sqlSearchSting & "order by [gs_gsId]"
 
         dgvGesamtsicherheit.SET_SQL(SQLStringSicherheit, "AVISO", ,)
@@ -160,7 +158,6 @@ Public Class frmGesamtsicherheitenNEU
             loadTitle()
             setSaldo()
 
-
             If dgvGesamtsicherheit.Enabled = False Then Exit Sub
 
         Else
@@ -368,8 +365,6 @@ Public Class frmGesamtsicherheitenNEU
                 End With
 
 
-
-
                 If Neu = True AndAlso count <= 1 Then OPEN.gs_gsNr = AddNewGesamtSichNr()
 
                 Select Case checkIfExist(OPEN.gs_ATBNr, gessicherheitID)
@@ -1092,7 +1087,8 @@ Public Class frmGesamtsicherheitenNEU
 
     End Sub
 
+    Private Sub pnlSummeGes_Paint(sender As Object, e As PaintEventArgs) Handles pnlSummeGes.Paint
 
-
+    End Sub
 End Class