NEU
This commit is contained in:
133
UID/Classes/cDienstSettings.vb
Normal file
133
UID/Classes/cDienstSettings.vb
Normal file
@@ -0,0 +1,133 @@
|
||||
Imports System.Data.SqlClient
|
||||
Imports System.Reflection
|
||||
|
||||
Public Class cDienstSettings
|
||||
Property dpset_id As Integer
|
||||
Property dpset_niederlassung As String
|
||||
Property dpset_Filiale As String
|
||||
Property dpset_AbfArt As String
|
||||
Property dpset_AbfNL As String
|
||||
Property dpset_WoAuslVon As Integer
|
||||
Property dpset_WoAuslBis As Integer
|
||||
Property dpset_dgvRowHeight As Integer
|
||||
Property dpset_showTime As Boolean
|
||||
Property dpset_startJahr As Integer
|
||||
Property dpset_startKW As Integer
|
||||
Property dpset_AbfAuswertung As Boolean
|
||||
Property dpset_StudenAuswertung As Boolean
|
||||
Property dpset_AvisoAuswertung As Boolean
|
||||
|
||||
|
||||
|
||||
Dim SQL As New cDienstplan
|
||||
|
||||
Sub New(dpset_niederlassung)
|
||||
Me.dpset_niederlassung = dpset_niederlassung
|
||||
LOAD()
|
||||
End Sub
|
||||
|
||||
Function getParameterList() As List(Of SQLVariable)
|
||||
Dim list As New List(Of SQLVariable)
|
||||
list.Add(New SQLVariable("dpset_id", dpset_id, , True))
|
||||
list.Add(New SQLVariable("dpset_niederlassung", dpset_niederlassung))
|
||||
list.Add(New SQLVariable("dpset_Filiale", dpset_Filiale))
|
||||
list.Add(New SQLVariable("dpset_AbfArt", dpset_AbfArt))
|
||||
list.Add(New SQLVariable("dpset_AbfNL", dpset_AbfNL))
|
||||
list.Add(New SQLVariable("dpset_WoAuslVon", dpset_WoAuslVon))
|
||||
list.Add(New SQLVariable("dpset_WoAuslBis", dpset_WoAuslBis))
|
||||
list.Add(New SQLVariable("dpset_dgvRowHeight", dpset_dgvRowHeight))
|
||||
list.Add(New SQLVariable("dpset_showTime", dpset_showTime))
|
||||
list.Add(New SQLVariable("dpset_startJahr", dpset_startJahr))
|
||||
list.Add(New SQLVariable("dpset_startKW", dpset_startKW))
|
||||
list.Add(New SQLVariable("dpset_AbfAuswertung", dpset_AbfAuswertung))
|
||||
list.Add(New SQLVariable("dpset_StudenAuswertung", dpset_StudenAuswertung))
|
||||
list.Add(New SQLVariable("dpset_AvisoAuswertung", dpset_AvisoAuswertung))
|
||||
Return list
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function SAVE() As Boolean
|
||||
Dim list As List(Of SQLVariable) = getParameterList()
|
||||
|
||||
Dim sqlstr = " BEGIN TRAN IF EXISTS(SELECT * FROM tblDienstSettings WITH(updlock,serializable) WHERE dpset_niederlassung=@dpset_niederlassung) " &
|
||||
" BEGIN " & getUpdateCmd() & " END " &
|
||||
" Else " &
|
||||
" BEGIN " & getInsertCmd() & " END " &
|
||||
" commit tran "
|
||||
|
||||
Return SQL.doSQLVarListID(dpset_id, sqlstr, "ADMIN", , list)
|
||||
End Function
|
||||
|
||||
Public Sub LOAD()
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand("SELECT * FROM tblDienstSettings WHERE dpset_niederlassung=@dpset_niederlassung ", conn)
|
||||
cmd.Parameters.AddWithValue("@dpset_niederlassung", dpset_niederlassung)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
If dr.Read Then
|
||||
For Each l In getParameterList()
|
||||
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(l.Scalarvariable)
|
||||
|
||||
If dr.Item(l.Text) Is DBNull.Value Then
|
||||
propInfo.SetValue(Me, Nothing)
|
||||
Else
|
||||
propInfo.SetValue(Me, dr.Item(l.Text))
|
||||
End If
|
||||
|
||||
Next
|
||||
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Public Function getUpdateCmd() As String
|
||||
Try
|
||||
Dim list As List(Of SQLVariable) = getParameterList()
|
||||
|
||||
Dim str As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "] = @" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
Return (" UPDATE [tblDienstSettings] SET " & str & " WHERE dpset_niederlassung=@dpset_niederlassung ")
|
||||
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
Public Function getInsertCmd() As String
|
||||
Try
|
||||
Dim list As List(Of SQLVariable) = getParameterList()
|
||||
Dim str As String = ""
|
||||
Dim values As String = ""
|
||||
For Each i In list
|
||||
If Not i.isPrimaryParam Then
|
||||
str &= "[" & i.Text & "],"
|
||||
values &= "@" & i.Scalarvariable & "," '.Replace("-", "").Replace(" ", "") & ","
|
||||
End If
|
||||
Next
|
||||
str = str.Substring(0, str.Length - 1) 'wg. ','
|
||||
values = values.Substring(0, values.Length - 1) 'wg. ','
|
||||
Return (" INSERT INTO tblDienstSettings (" & str & ") VALUES(" & values & ") ")
|
||||
Catch ex As Exception
|
||||
MsgBox("Fehler in der Funktion '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'" & vbNewLine & vbNewLine & ex.Message & vbNewLine & vbNewLine & ex.StackTrace)
|
||||
End Try
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
End Class
|
||||
93
UID/Classes/cDienstplanSchicht.vb
Normal file
93
UID/Classes/cDienstplanSchicht.vb
Normal file
@@ -0,0 +1,93 @@
|
||||
Public Class cDienstplanSchicht
|
||||
Property dedet_id As Integer = 0
|
||||
Property dedet_niederlassung As String = ""
|
||||
Property dedet_abt As String = ""
|
||||
Property dedet_info As String = ""
|
||||
Property dedet_von As String = ""
|
||||
Property dedet_bis As String = ""
|
||||
Property dedet_pause As String = ""
|
||||
Property dedet_bezeichnungDP As String = ""
|
||||
Property dedet_ProzentGrafik As String = ""
|
||||
Property dedet_bezeichnungExcel As String = ""
|
||||
Property dedet_bezeichnungExcel2 As String = ""
|
||||
Property dedet_bezeichnungExcel3 As String = ""
|
||||
Property dedet_ZeilenExcel As Integer = 0
|
||||
Property dedet_benutzerdefinierteSchicht As Boolean = False
|
||||
Property dedet_stdWieArbeitszeit As Boolean = False
|
||||
|
||||
Property dedet_reihenfolge As Integer = 0
|
||||
Property dedet_WechselZuSchicht As String = ""
|
||||
Property dedet_TagesWechsel As Boolean = False
|
||||
Property dedet_hotKey As String = ""
|
||||
Property dedet_bgAlternativeFarbe As Object
|
||||
Property dedet_ExcelBgFarbe As Object
|
||||
Property dedet_bezLeiter As String = ""
|
||||
|
||||
Property dedet_ExcelMonatFarbe As Object
|
||||
Property dedet_ExcelMonatBezeichnung As String = ""
|
||||
|
||||
Property ZEITEN As New List(Of cDienstplanSchichtZeiten)
|
||||
|
||||
Sub New()
|
||||
|
||||
End Sub
|
||||
|
||||
Sub New(id)
|
||||
LOAD(id)
|
||||
End Sub
|
||||
|
||||
Dim ADMIN As New cOptionenDAL
|
||||
Sub LOAD(id)
|
||||
Me.dedet_id = id
|
||||
|
||||
Dim dt As DataTable = ADMIN.AnzeigeTabelle(" SELECT * FROM [tblDienstplanEintraegeDetails] WHERE dedet_id=" & Me.dedet_id & " ")
|
||||
If dt.Rows.Count > 0 Then
|
||||
Dim row As DataRow = dt.Rows(0)
|
||||
Me.dedet_id = row("dedet_id")
|
||||
Me.dedet_niederlassung = row("dedet_niederlassung")
|
||||
Me.dedet_abt = row("dedet_abt")
|
||||
Me.dedet_info = row("dedet_info")
|
||||
Me.dedet_von = row("dedet_von")
|
||||
Me.dedet_bis = row("dedet_bis")
|
||||
Me.dedet_pause = row("dedet_pause")
|
||||
Me.dedet_bezeichnungDP = row("dedet_bezeichnungDP")
|
||||
Me.dedet_ProzentGrafik = row("dedet_ProzentGrafik")
|
||||
Me.dedet_bezeichnungExcel = row("dedet_bezeichnungExcel")
|
||||
Me.dedet_bezeichnungExcel2 = row("dedet_bezeichnungExcel2")
|
||||
Me.dedet_bezeichnungExcel3 = row("dedet_bezeichnungExcel3")
|
||||
Me.dedet_ZeilenExcel = row("dedet_ZeilenExcel")
|
||||
Me.dedet_benutzerdefinierteSchicht = row("dedet_benutzerdefinierteSchicht")
|
||||
Me.dedet_stdWieArbeitszeit = row("dedet_stdWieArbeitszeit")
|
||||
|
||||
Me.dedet_reihenfolge = row("dedet_reihenfolge")
|
||||
Me.dedet_TagesWechsel = row("dedet_TagesWechsel")
|
||||
Me.dedet_WechselZuSchicht = row("dedet_WechselZuSchicht")
|
||||
Me.dedet_hotKey = row("dedet_hotKey")
|
||||
Me.dedet_bgAlternativeFarbe = If(row("dedet_bgAlternativeFarbe") IsNot DBNull.Value, row("dedet_bgAlternativeFarbe"), Nothing)
|
||||
Me.dedet_ExcelBgFarbe = If(row("dedet_ExcelBgFarbe") IsNot DBNull.Value, row("dedet_ExcelBgFarbe"), Nothing)
|
||||
Me.dedet_bezLeiter = If(row("dedet_bezLeiter") IsNot DBNull.Value, row("dedet_bezLeiter"), "")
|
||||
|
||||
Me.dedet_ExcelMonatFarbe = If(row("dedet_ExcelMonatFarbe") IsNot DBNull.Value, row("dedet_ExcelMonatFarbe"), Nothing)
|
||||
Me.dedet_ExcelMonatBezeichnung = If(row("dedet_ExcelMonatBezeichnung") IsNot DBNull.Value, row("dedet_ExcelMonatBezeichnung"), "")
|
||||
|
||||
LOAD_ZEITEN(Me.dedet_id)
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
|
||||
Sub LOAD_ZEITEN(id)
|
||||
ZEITEN.Clear()
|
||||
Dim ADMIN As New cOptionenDAL
|
||||
For Each row As DataRow In ADMIN.AnzeigeTabelle(" SELECT * FROM tblDienstplanSchichtenZeiten WHERE dsz_dedetId= '" & id & "'").Rows
|
||||
Dim z As New cDienstplanSchichtZeiten
|
||||
z.dsz_id = row("dsz_id")
|
||||
z.dsz_dedetId = row("dsz_dedetId")
|
||||
z.dsz_von = row("dsz_von")
|
||||
z.dsz_bis = row("dsz_bis")
|
||||
z.dsz_pause = row("dsz_pause")
|
||||
z.dsz_woTag = row("dsz_woTag")
|
||||
ZEITEN.Add(z)
|
||||
Next
|
||||
End Sub
|
||||
End Class
|
||||
10
UID/Classes/cDienstplanSchichtTage.vb
Normal file
10
UID/Classes/cDienstplanSchichtTage.vb
Normal file
@@ -0,0 +1,10 @@
|
||||
Public Class cDienstplanSchichtZeiten
|
||||
Property dsz_id As Integer = 0
|
||||
Property dsz_dedetId As Integer = 0
|
||||
Property dsz_von As String = ""
|
||||
Property dsz_bis As String = ""
|
||||
Property dsz_pause As String = ""
|
||||
Property dsz_woTag As String = ""
|
||||
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user