MS

SchaumKommiCollo/KommiCollo/frmMain.Designer.vb

@@ -692,7 +692,7 @@ Partial Class frmMain
         Me.TabPage3.Location = New System.Drawing.Point(4, 26)
         Me.TabPage3.Name = "TabPage3"
         Me.TabPage3.Padding = New System.Windows.Forms.Padding(3)
-        Me.TabPage3.Size = New System.Drawing.Size(932, 111)
+        Me.TabPage3.Size = New System.Drawing.Size(921, 105)
         Me.TabPage3.TabIndex = 0
         Me.TabPage3.Text = "Übersicht Lieferscheine"
         Me.TabPage3.UseVisualStyleBackColor = True
@@ -705,7 +705,7 @@ Partial Class frmMain
         Me.GridControlPos.Location = New System.Drawing.Point(3, 3)
         Me.GridControlPos.MainView = Me.grvwGridPos
         Me.GridControlPos.Name = "GridControlPos"
-        Me.GridControlPos.Size = New System.Drawing.Size(926, 105)
+        Me.GridControlPos.Size = New System.Drawing.Size(915, 99)
         Me.GridControlPos.TabIndex = 2
         Me.GridControlPos.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.grvwGridPos})
         '

SchaumKommiCollo/KommiCollo/frmMain.vb

@@ -226,8 +226,9 @@ Public Class frmMain
     Sub Refresh_LHM(SDG As Integer)
         Try
             GridControlLHM.DataSource = Nothing
+            'hh
             GridViewLHM.Columns.Clear()
-            Dim sel = String.Format("SELECT T.GUID,T1.LHM, T.FERTIG,T.GEWICHT, T.POSINHALT FROM TBKOMMCOLLI_SDG_LHM T, TBKOMMCOLLI_LHM T1 WHERE T.LHM_ID = T1.GUID AND T.SENDUNGNR = {0}", SDG)
+            Dim sel = String.Format("SELECT T.GUID,T1.LHM, T.POSINHALT, T.GEWICHT,T.FERTIG FROM TBKOMMCOLLI_SDG_LHM T, TBKOMMCOLLI_LHM T1 WHERE T.LHM_ID = T1.GUID AND T.SENDUNGNR = {0}", SDG)
             Dim DT As DataTable = ClassDatabase.Return_Datatable(sel, True)
             If Not DT Is Nothing Then
                 GridControlLHM.DataSource = DT
@@ -734,6 +735,7 @@ Public Class frmMain
             Case 0
                 btndeletePosLHM.Text = "Lösche Position/Lieferschein"
                 btndeletePosLHM.Enabled = True
+                Refresh_POS(CURRENT_SENDUNG)
             Case 1
                 Refresh_LHM(CURRENT_SENDUNG)
                 btndeletePosLHM.Text = "Lösche LHM"