AppCustom/SchaumKommi
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-01-30 10:11:02 +01:00
parent 71849ee764
commit dea24b5b0d
14 changed files with 12 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SchaumKommiCollo/KommiCollo/frmMain.vb
View File

@@ -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"