AppStd/RecordOrganizer
8
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

MS_04.01

Browse Source
This commit is contained in:
SchreiberM
2017-01-04 17:09:26 +01:00
parent 4ab7e368b1 29b3857635
commit 26812ffeb7
128 changed files with 17813 additions and 20419 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
app/DD-Record-Organiser/frmLanguage_Translator.vb
View File

@@ -41,7 +41,7 @@ Public Class frmLanguage_Translator
sql = sql.Replace("@OBJECT", group)
End If
Dim DT_OBJ As DataTable = ClassDatabase.Return_Datatable(sql, "Load language objects")
Dim DT_OBJ As DataTable = ClassDatabase.Return_Datatable(sql)
Clear_Grid_View()
If Not IsNothing(DT_OBJ) Then
TBPMO_LANGUAGE_OBJECTBindingSource1.DataSource = DT_OBJ
@@ -131,7 +131,7 @@ Public Class frmLanguage_Translator
Exit Sub
End If
Dim upd = String.Format("UPDATE TBPMO_LANGUAGE_OBJECT SET {3} = '{0}', CHANGED_WHO = '{1}' WHERE GUID = {2}", e.Value, USER_USERNAME, Grid_RecordID, e.Column.FieldName)
If ClassDatabase.Execute_non_Query(upd) = True Then
If ClassDatabase.Execute_non_Query(upd, False) = True Then
ts_statelbl.Text = "Row/ID (" & Grid_RecordID.ToString & ") Updated - " & Now
ts_statelbl.BackColor = Color.Yellow
ts_statelbl.Visible = True