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

ms

Browse Source
This commit is contained in:
SchreiberM 2017-02-08 09:46:55 +01:00
parent acc6e2ebb3
commit a815c8ab5d
3 changed files with 12 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
app/DD-Record-Organizer/ClassHelper.vb
View File

@ -216,8 +216,11 @@ Public Class ClassHelper
End Function
Public Shared Function InsertEssential_Log(REFERENCE_KEY As Integer, REFERENCE_STRING As String, COMMENT As String)
Try
COMMENT = COMMENT.Replace("'", "")
Dim insert = String.Format("INSERT INTO TBPMO_LOG_ESSENTIALS (REFERENCE_KEY,REFERENCE_STRING,COMMENT,ADDED_WHO) VALUES ({0},'{1}','{2}','{3}')", REFERENCE_KEY, REFERENCE_STRING, COMMENT, USER_USERNAME)
Return clsDatabase.Execute_non_Query(insert, False)
Dim result = clsDatabase.Execute_non_Query(insert, False)
Return result
Catch ex As Exception
ClassLogger.Add("Unexpected Error in InsertEssential_Log: " & ex.Message, True, False)
Return False

7
app/DD-Record-Organizer/ClassInit.vb
View File

@ -157,7 +157,7 @@ Public Class ClassInit
If Right_RO = False Then
ClassLogger.Add(" - User: " & USER_USERNAME & " nicht für Modul freigegben!", False)
ClassLogger.Add("User '" & USER_USERNAME & "' not authorized for using Record-Organizer!")
'MsgBox("Achtung: Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!", MsgBoxStyle.Critical, "Achtung:")
Dim msg = String.Format("Sie sind nicht für die Nutzung dieses Moduls freigeschaltet." & vbNewLine & "Bitte setzen Sie sich mit dem Systembetreuer in Verbindung!")
@ -165,7 +165,6 @@ Public Class ClassInit
msg = String.Format("You are not authorized for using this module." & vbNewLine & "Please contact the admin.")
End If
MsgBox(msg, MsgBoxStyle.Exclamation)
ClassHelper.InsertEssential_Log(USER_GUID, "USER-ID", "User not authorized for using Record-Organizer!")
Return False
'Me.Close()
Else
@ -191,7 +190,7 @@ Public Class ClassInit
'Am System anmelden
sql = String.Format("UPDATE TBDD_USER SET LOGGED_IN = 1, LOGGED_WHERE = '{0}' WHERE GUID = {1}", Environment.MachineName, USER_GUID)
ClassDatabase.Execute_non_Query(sql)
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND MODULE= 'Record-Organizer'"
sql = "DELETE FROM TBDD_USER_MODULE_LOG_IN WHERE USER_ID = " & USER_GUID & " AND UPPER(MODULE)= UPPER('Record-Organizer')"
If ClassDatabase.Execute_non_Query(sql) = True Then
End If
@ -274,7 +273,7 @@ Public Class ClassInit
End If
End If
Catch ex As Exception
ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message, True)
ClassLogger.Add("Unexpected Error in InitUserLogin: " & ex.Message)
MsgBox("Unexpected Error in InitUserLogin: " & ex.Message, MsgBoxStyle.Critical)
Return False
End Try

9
app/DD-Record-Organizer/frmCalendar.Designer.vb generated
View File

@ -95,10 +95,10 @@ Partial Class frmCalendar
'SchedulerControl1
'
Me.SchedulerControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SchedulerControl1.Location = New System.Drawing.Point(0, 140)
Me.SchedulerControl1.Location = New System.Drawing.Point(0, 141)
Me.SchedulerControl1.MenuManager = Me.ribbonCalendar
Me.SchedulerControl1.Name = "SchedulerControl1"
Me.SchedulerControl1.Size = New System.Drawing.Size(926, 457)
Me.SchedulerControl1.Size = New System.Drawing.Size(926, 456)
Me.SchedulerControl1.Start = New Date(2014, 12, 23, 0, 0, 0, 0)
Me.SchedulerControl1.Storage = Me.SchedulerStorage1
Me.SchedulerControl1.TabIndex = 0
@ -118,7 +118,7 @@ Partial Class frmCalendar
Me.ribbonCalendar.PageCategories.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageCategory() {Me.CalendarToolsRibbonPageCategory1})
Me.ribbonCalendar.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.pageCalendar})
Me.ribbonCalendar.RepositoryItems.AddRange(New DevExpress.XtraEditors.Repository.RepositoryItem() {Me.RepositoryItemSpinEdit1, Me.RepositoryItemDuration1})
Me.ribbonCalendar.Size = New System.Drawing.Size(926, 140)
Me.ribbonCalendar.Size = New System.Drawing.Size(926, 141)
'
'SwitchToDayViewItem1
'
@ -484,8 +484,9 @@ Partial Class frmCalendar
Me.ClientSize = New System.Drawing.Size(926, 597)
Me.Controls.Add(Me.SchedulerControl1)
Me.Controls.Add(Me.ribbonCalendar)
Me.Font = New System.Drawing.Font("Tahoma", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Name = "frmCalendar"
Me.Text = "Kalender Ansicht - Brainpool"
Me.Text = "Kalender Ansicht"
CType(Me.SchedulerControl1, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.ribbonCalendar, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.RepositoryItemSpinEdit1, System.ComponentModel.ISupportInitialize).EndInit()