isFeiertag, Control (Insert und Delete in Schichten), ExcelAusgabeDP, etc.
This commit is contained in:
110
UID/cSqlDb.vb
110
UID/cSqlDb.vb
@@ -1967,14 +1967,14 @@ Public Class cDienstplan
|
||||
" if exists (select * from tblDienstMitarb with (updlock,serializable) where dstma_id = @dstma_id ) " &
|
||||
" begin " &
|
||||
" UPDATE tblDienstMitarb " &
|
||||
" SET dstma_abteilung=@dstma_abteilung, dstma_funktion=@dstma_funktion, dstma_arbvh=@dstma_arbvh, dstma_wochenStunden=@dstma_wochenStunden, dstma_stammSchicht=@dstma_stammSchicht, dstma_kuerzel=@dstma_kuerzel, dstma_reihenfolge=@dstma_reihenfolge, dstma_farbe=@dstma_farbe, dstma_TageProWoche=@dstma_TageProWoche,dstma_niederlassung=@dstma_niederlassung,dstma_muster=@dstma_muster,dstma_4wo=@dstma_4wo,dstma_WEStdRegelAZ=@dstma_WEStdRegelAZ,dstma_inaktiv=@dstma_inaktiv,dstma_TzFeiertageStd=@dstma_TzFeiertageStd " &
|
||||
" SET dstma_abteilung=@dstma_abteilung, dstma_funktion=@dstma_funktion, dstma_arbvh=@dstma_arbvh, dstma_wochenStunden=@dstma_wochenStunden, dstma_stammSchicht=@dstma_stammSchicht, dstma_kuerzel=@dstma_kuerzel, dstma_reihenfolge=@dstma_reihenfolge, dstma_farbe=@dstma_farbe, dstma_TageProWoche=@dstma_TageProWoche,dstma_niederlassung=@dstma_niederlassung,dstma_muster=@dstma_muster,dstma_4wo=@dstma_4wo,dstma_WEStdRegelAZ=@dstma_WEStdRegelAZ,dstma_inaktiv=@dstma_inaktiv,dstma_TzFeiertageStd=@dstma_TzFeiertageStd, dstma_land=@dstma_land " &
|
||||
" WHERE dstma_id=@dstma_id " &
|
||||
" End " &
|
||||
" Else " &
|
||||
" begin " &
|
||||
"INSERT INTO tblDienstMitarb " &
|
||||
"( dstma_mitId, dstma_abteilung, dstma_funktion, dstma_arbvh, dstma_wochenStunden, dstma_stammSchicht,dstma_kuerzel,dstma_reihenfolge,dstma_farbe,dstma_TageProWoche,dstma_niederlassung, dstma_muster,dstma_4wo,dstma_WEStdRegelAZ,dstma_inaktiv ,dstma_TzFeiertageStd) VALUES " &
|
||||
"( @dstma_mitId, @dstma_abteilung, @dstma_funktion, @dstma_arbvh, @dstma_wochenStunden, @dstma_stammSchicht,@dstma_kuerzel,@dstma_reihenfolge,@dstma_farbe,@dstma_TageProWoche,@dstma_niederlassung, @dstma_muster ,@dstma_4wo,@dstma_WEStdRegelAZ,@dstma_inaktiv,@dstma_TzFeiertageStd) " &
|
||||
"( dstma_mitId, dstma_abteilung, dstma_funktion, dstma_arbvh, dstma_wochenStunden, dstma_stammSchicht,dstma_kuerzel,dstma_reihenfolge,dstma_farbe,dstma_TageProWoche,dstma_niederlassung, dstma_muster,dstma_4wo,dstma_WEStdRegelAZ,dstma_inaktiv ,dstma_TzFeiertageStd, dstma_land) VALUES " &
|
||||
"( @dstma_mitId, @dstma_abteilung, @dstma_funktion, @dstma_arbvh, @dstma_wochenStunden, @dstma_stammSchicht,@dstma_kuerzel,@dstma_reihenfolge,@dstma_farbe,@dstma_TageProWoche,@dstma_niederlassung, @dstma_muster ,@dstma_4wo,@dstma_WEStdRegelAZ,@dstma_inaktiv,@dstma_TzFeiertageStd, @dstma_land) " &
|
||||
" End " &
|
||||
" commit tran "
|
||||
|
||||
@@ -1998,6 +1998,7 @@ Public Class cDienstplan
|
||||
cmd.Parameters.AddWithValue("@dstma_WEStdRegelAZ", ma.dstma_WEStdRegelAZ)
|
||||
cmd.Parameters.AddWithValue("@dstma_inaktiv", ma.dstma_inaktiv)
|
||||
cmd.Parameters.AddWithValue("@dstma_TzFeiertageStd", If(ma.dstma_TzFeiertageStd Is Nothing, DBNull.Value, ma.dstma_TzFeiertageStd))
|
||||
cmd.Parameters.AddWithValue("@dstma_land", ma.dstma_land)
|
||||
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
@@ -3006,6 +3007,32 @@ Public Class cDienstplan
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Function insertEintraegeDetails(dedet_info, dedet_niederlassung, dedet_aktiv) As Boolean
|
||||
|
||||
Dim sql As String = "INSERT INTO [tblDienstplanEintraegeDetails] " &
|
||||
"(dedet_info, dedet_niederlassung, dedet_aktiv ) VALUES " &
|
||||
"(@dedet_info, @dedet_niederlassung, @dedet_aktiv) "
|
||||
|
||||
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
|
||||
cmd.Parameters.AddWithValue("@dedet_info", dedet_info)
|
||||
cmd.Parameters.AddWithValue("@dedet_niederlassung", dedet_niederlassung)
|
||||
cmd.Parameters.AddWithValue("@dedet_aktiv", dedet_aktiv)
|
||||
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
Return True
|
||||
Catch ex As SqlException
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gespeichert werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim Speichern Data")
|
||||
End Try
|
||||
End Using
|
||||
End Using
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function updateEintraegeDetails_Benuterdef(dedet_id, dedet_bezeichnungDP, dedet_ProzentGrafik, dedet_bezeichnungExcel, dedet_bezeichnungExcel2, dedet_bezeichnungExcel3, dedet_ZeilenExcel, dedet_benutzerdefinierteSchicht, dedet_stdWieArbeitszeit, dedet_reihenfolge, dedet_TagesWechsel, dedet_WechselZuSchicht, dedet_HotKey, dedet_bgAlternativeFarbe, dedet_ExcelBgFarbe, dedet_bezLeiter, dedet_ExcelMonatFarbe, dedet_ExcelMonatBezeichnung, dedet_aktiv, dedet_splitschicht, dedet_hauptsplitschicht) As Boolean
|
||||
Dim hAuswahl As String = ""
|
||||
@@ -3030,7 +3057,6 @@ Public Class cDienstplan
|
||||
cmd.Parameters.AddWithValue("@dedet_ZeilenExcel", dedet_ZeilenExcel)
|
||||
cmd.Parameters.AddWithValue("@dedet_benutzerdefinierteSchicht", dedet_benutzerdefinierteSchicht)
|
||||
cmd.Parameters.AddWithValue("@dedet_stdWieArbeitszeit", dedet_stdWieArbeitszeit)
|
||||
|
||||
cmd.Parameters.AddWithValue("@dedet_reihenfolge", dedet_reihenfolge)
|
||||
cmd.Parameters.AddWithValue("@dedet_TagesWechsel", dedet_TagesWechsel)
|
||||
cmd.Parameters.AddWithValue("@dedet_WechselZuSchicht", dedet_WechselZuSchicht)
|
||||
@@ -3158,6 +3184,7 @@ Public Class cDienstplan
|
||||
d.dstma_muster = dr.Item("dstma_muster")
|
||||
d.dstma_4wo = dr.Item("dstma_4wo")
|
||||
d.dstma_WEStdRegelAZ = dr.Item("dstma_WEStdRegelAZ")
|
||||
d.dstma_land = dr.Item("dstma_land")
|
||||
|
||||
|
||||
If Not dr.Item("dstma_TageProWoche") Is DBNull.Value Then d.dstma_TageProWoche = dr.Item("dstma_TageProWoche")
|
||||
@@ -3439,7 +3466,7 @@ Public Class cDienstplan
|
||||
Try
|
||||
Dim d As New cDienstMA
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(" SELECT dstma_id,dstma_mitId,dstma_kuerzel, dstma_abteilung,dstma_funktion,dstma_arbvh,dstma_wochenStunden,dstma_stammSchicht,dstma_reihenfolge,dstma_farbe,dstma_TageProWoche,dstma_muster,dstma_4wo,dstma_WEStdRegelAZ,dstma_inaktiv,dstma_TzFeiertageStd FROM tblDienstMitarb INNER JOIN tblMitarbeiter ON mit_id=dstma_mitId WHERE dstma_id=" & maId & " ", conn)
|
||||
Using cmd As New SqlCommand(" SELECT dstma_id,dstma_mitId,dstma_kuerzel, dstma_abteilung,dstma_funktion,dstma_arbvh,dstma_wochenStunden,dstma_stammSchicht,dstma_reihenfolge,dstma_farbe,dstma_TageProWoche,dstma_muster,dstma_4wo,dstma_WEStdRegelAZ,dstma_inaktiv,dstma_TzFeiertageStd, dstma_land FROM tblDienstMitarb INNER JOIN tblMitarbeiter ON mit_id=dstma_mitId WHERE dstma_id=" & maId & " ", conn)
|
||||
'cmd.Parameters.AddWithValue("@semi_id", id)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
While dr.Read
|
||||
@@ -3455,6 +3482,7 @@ Public Class cDienstplan
|
||||
d.dstma_muster = dr.Item("dstma_muster")
|
||||
d.dstma_4wo = dr.Item("dstma_4wo")
|
||||
d.dstma_WEStdRegelAZ = dr.Item("dstma_WEStdRegelAZ")
|
||||
d.dstma_land = dr.Item("dstma_land")
|
||||
|
||||
If Not dr.Item("dstma_TageProWoche") Is DBNull.Value Then d.dstma_TageProWoche = dr.Item("dstma_TageProWoche")
|
||||
|
||||
@@ -3559,13 +3587,16 @@ Public Class cDienstplan
|
||||
Return False
|
||||
End Function
|
||||
|
||||
Public Function delOnlyDstEintraegeSplitschichtenMaId(datum, niederlassung, dstetr_dstmaId) As Boolean
|
||||
Public Function delOnlyDstEintraegeSplitschichtenMaId(datum, niederlassung, dstetr_dstmaId, Optional dstetr_id = -1) As Boolean
|
||||
|
||||
|
||||
Dim sql = "DELETE FROM tblDienstplanEintraege " &
|
||||
"WHERE dstetr_niederlassung= '" & niederlassung & "' AND dstetr_datum = @datum AND dstetr_dstmaId=@dstetr_dstmaId AND dstetr_splitschicht = 1"
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
cmd.Parameters.AddWithValue("@datum", datum)
|
||||
cmd.Parameters.AddWithValue("@dstetr_dstmaId", dstetr_dstmaId)
|
||||
cmd.Parameters.AddWithValue("@dstetr_id", dstetr_id)
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
Return True
|
||||
@@ -3578,6 +3609,26 @@ Public Class cDienstplan
|
||||
End Function
|
||||
|
||||
|
||||
Public Function delDstEintraegeSplitschichtenId(dstetr_id) As Boolean
|
||||
|
||||
Dim sql = "DELETE FROM tblDienstplanEintraege " &
|
||||
"WHERE dstetr_id = @dstetr_id AND dstetr_splitschicht = 1"
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(sql, conn)
|
||||
cmd.Parameters.AddWithValue("@dstetr_id", dstetr_id)
|
||||
Try
|
||||
cmd.ExecuteNonQuery()
|
||||
Return True
|
||||
Catch ex As SqlException
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Datensatz kann nicht gelöscht werden!" & vbCrLf & vbCrLf & ex.Message, vbExclamation, "Fehler beim löschen")
|
||||
End Try
|
||||
End Using
|
||||
End Using
|
||||
Return False
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
|
||||
Public Function getMaIDFromMitID(mit_id As Integer) As String
|
||||
Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
|
||||
@@ -3662,13 +3713,20 @@ Public Class cDienstplan
|
||||
End Function
|
||||
|
||||
|
||||
Public Function updateInsertByDienstEintrag(ByVal daten As cDienstEintrag, niederlassung As String) As Boolean
|
||||
Public Function updateInsertByDienstEintrag(ByVal daten As cDienstEintrag, niederlassung As String, Optional dstetr_id As Integer = -1) As Boolean
|
||||
|
||||
Dim SQLclause As String = ""
|
||||
|
||||
If dstetr_id > 0 Then
|
||||
SQLclause = " AND dstetr_id=@dstetr_id"
|
||||
End If
|
||||
|
||||
Dim sql As String = " begin tran" &
|
||||
" if exists (select * from tblDienstplanEintraege with (updlock,serializable) where dstetr_datum = @dstetr_datum AND dstetr_dstmaId=@dstetr_dstmaId AND dstetr_niederlassung=@dstetr_niederlassung AND dstetr_art=@dstetr_art) " & 'AND dstetr_art=@dstetr_art hinzugefügt!
|
||||
" if exists (select * from tblDienstplanEintraege with (updlock,serializable) where dstetr_datum = @dstetr_datum AND dstetr_dstmaId=@dstetr_dstmaId AND dstetr_niederlassung=@dstetr_niederlassung AND dstetr_art=@dstetr_art" & SQLclause & ") " &
|
||||
" begin " &
|
||||
" UPDATE tblDienstplanEintraege " &
|
||||
" SET dstetr_dstmaId=@dstetr_dstmaId, dstetr_art=@dstetr_art, dstetr_von=@dstetr_von, dstetr_bis=@dstetr_bis, dstetr_grund=@dstetr_grund, dstetr_info=@dstetr_info,dstetr_niederlassung=@dstetr_niederlassung,dstetr_pause=@dstetr_pause,dstetr_hauptsplitschicht=@dstetr_hauptsplitschicht,dstetr_splitschicht=@dstetr_splitschicht " &
|
||||
" WHERE dstetr_datum = @dstetr_datum AND dstetr_dstmaId=@dstetr_dstmaId AND dstetr_niederlassung=@dstetr_niederlassung " &
|
||||
" WHERE dstetr_datum = @dstetr_datum AND dstetr_dstmaId=@dstetr_dstmaId AND dstetr_niederlassung=@dstetr_niederlassung AND dstetr_art=@dstetr_art" & SQLclause &
|
||||
" End " &
|
||||
" Else " &
|
||||
" begin " &
|
||||
@@ -4087,10 +4145,13 @@ Public Class cDienstplan
|
||||
Return 0
|
||||
End Function
|
||||
|
||||
Public Function getCountEntrys(maId As Integer, datum_von As Date, datum_bis As Date, Optional onlySplitschichten As Boolean = False) As Integer
|
||||
Public Function getCountEntrys(maId As Integer, datum_von As Date, datum_bis As Date, Optional onlySplitschichten As Boolean = False, Optional art As String = "") As Integer
|
||||
|
||||
Dim sqlWhere As String = ""
|
||||
If onlySplitschichten Then sqlWhere &= "AND dstetr_splitschicht = 1"
|
||||
If onlySplitschichten Then
|
||||
sqlWhere &= "AND dstetr_splitschicht = 1 AND dstetr_art = '"
|
||||
sqlWhere &= art & "'"
|
||||
End If
|
||||
Try
|
||||
Dim stunden As Integer
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
@@ -4116,7 +4177,6 @@ Public Class cDienstplan
|
||||
End Function
|
||||
|
||||
|
||||
|
||||
Public Function getCountDays(maId As Integer, datum_von As Date, datum_bis As Date) As Integer
|
||||
Try
|
||||
Dim stunden As Integer
|
||||
@@ -4166,6 +4226,32 @@ Public Class cDienstplan
|
||||
Return ""
|
||||
End Function
|
||||
|
||||
Public Function getLatestDienstplanEintraegNr() As Integer
|
||||
|
||||
Try
|
||||
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
|
||||
Using cmd As New SqlCommand(" select MAX([dstetr_id]) as MaxId from tblDienstplanEintraege ", conn)
|
||||
Dim dr = cmd.ExecuteReader()
|
||||
Dim cPF As New cProgramFunctions
|
||||
If dr.HasRows Then
|
||||
dr.Read()
|
||||
Return dr.Item("MaxId")
|
||||
End If
|
||||
dr.Close()
|
||||
End Using
|
||||
End Using
|
||||
|
||||
Catch ex As Exception
|
||||
Dim antwort As MsgBoxResult = MsgBox(ex.Message, CType(MsgBoxStyle.RetryCancel + MsgBoxStyle.Exclamation, MsgBoxStyle), "Problem in Function '" & System.Reflection.MethodInfo.GetCurrentMethod.Name & "'")
|
||||
If antwort <> MsgBoxResult.Retry Then
|
||||
MsgBox(System.Reflection.MethodInfo.GetCurrentMethod.Name & ": Programm wird aufgrund eines kritischen Problems beendet.", vbInformation)
|
||||
End If
|
||||
End Try
|
||||
|
||||
Return -1
|
||||
|
||||
End Function
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
|
||||
Reference in New Issue
Block a user