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

ms ÄNderungen Vladi/JJ

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber
2018-01-29 15:22:44 +01:00
parent 8f6d2fa590
commit 71849ee764
14 changed files with 49 additions and 64 deletions
Download Patch File Download Diff File Expand all files Collapse all files

34
SchaumKommiCollo/KommiCollo/frmMain.vb
View File

@@ -1,4 +1,5 @@
Imports System.Text
Imports DevExpress.XtraGrid.Views.Base
Public Class frmMain
@@ -226,7 +227,7 @@ Public Class frmMain
Try
GridControlLHM.DataSource = Nothing
GridViewLHM.Columns.Clear()
Dim sel = String.Format("SELECT T.GUID,T1.LHM, T.FERTIG,T.GEWICHT 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.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 DT As DataTable = ClassDatabase.Return_Datatable(sel, True)
If Not DT Is Nothing Then
GridControlLHM.DataSource = DT
@@ -563,8 +564,9 @@ Public Class frmMain
Dim POSINHALT As String = e.Value
Dim upd = String.Format("UPDATE TBKOMMCOLLI_SDGPOSITIONEN SET POSINHALT = '{0}', GEAENDERTWER = '{2}' WHERE GUID = {1}", POSINHALT, guid, Environment.UserName)
If ClassDatabase.Execute_non_Query(upd, True) = False Then
If ClassDatabase.Execute_non_Query(upd, True) = True Then
upd = String.Format("UPDATE TBKOMMCOLLI_SDG_LHM SET POSINHALT = '{0}', GEAENDERTWER = '{1}' WHERE GUID = (SELECT SDG_LHM_ID FROM TBKOMMCOLLI_SDGPOSITIONEN WHERE GUID = {2})", POSINHALT, Environment.UserName, guid)
ClassDatabase.Execute_non_Query(upd, True)
End If
End If
@@ -601,9 +603,9 @@ Public Class frmMain
' cmbLHM.Enabled = True
' cmbLHM.DroppedDown = True
tsinfolabel.Visible = True
tsinfolabel.Text = "Palette erfolgreich fertig gekennzeichnet - " & Now.ToString
Else
SDG_READY = False
tsinfolabel.Text = "Palette erfolgreich fertig gekennzeichnet - " & Now.ToString
Else
SDG_READY = False
End If
Catch ex As Exception
MsgBox("Error in btndeletePos_Click:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
@@ -738,4 +740,24 @@ Public Class frmMain
btndeletePosLHM.Enabled = False
End Select
End Sub
Private Sub GridViewLHM_CellValueChanged(sender As Object, e As CellValueChangedEventArgs) Handles GridViewLHM.CellValueChanged
Try
Dim column = e.Column.FieldName
If column = "POSINHALT" Then
Dim guid = GridViewLHM.GetFocusedRowCellValue(grvwGridPos.Columns("GUID"))
Dim POSINHALT As String = e.Value
Dim upd = String.Format("UPDATE TBKOMMCOLLI_SDG_LHM SET POSINHALT = '{0}', GEAENDERTWER = '{2}' WHERE GUID = {1}", POSINHALT, guid, Environment.UserName)
If ClassDatabase.Execute_non_Query(upd, True) = True Then
upd = String.Format("UPDATE TBKOMMCOLLI_SDGPOSITIONEN SET POSINHALT = '{0}', GEAENDERTWER = '{1}' WHERE SDG_LHM_ID = {2}", POSINHALT, Environment.UserName, guid)
ClassDatabase.Execute_non_Query(upd, True)
End If
End If
Catch ex As Exception
MsgBox("Error in GridViewLHM.CellValueChanged:" & vbNewLine & ex.Message, MsgBoxStyle.Critical)
End Try
End Sub
End Class