edv/ADMIN
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

NEU

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-01-08 13:18:12 +01:00
parent de1d935624
commit a6964d7082
28 changed files with 3853 additions and 1086 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
UID/Classes/cDienstplanSchicht.vb
View File

@@ -25,7 +25,8 @@
Property dedet_ExcelMonatFarbe As Object
Property dedet_ExcelMonatBezeichnung As String = ""
Property dedet_Aktiv As Boolean = True
Property ZEITEN As New List(Of cDienstplanSchichtZeiten)
Sub New()
@@ -69,6 +70,7 @@
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"), "")
Me.dedet_Aktiv = CBool(row("dedet_Aktiv"))
LOAD_ZEITEN(Me.dedet_id)
End If

2
UID/Dienstplan/frmDienstplanVariabel.vb
View File

@@ -389,7 +389,7 @@ Public Class frmDienstplanVariabel
' Next
FlowLayoutPanel.Controls.Clear()
Dim DTBenutzer As DataTable = ADMIN.AnzeigeTabelle(" SELECT * FROM [tblDienstplanEintraegeDetails] WHERE [dedet_niederlassung]='" & niederlassung & "' AND dedet_benutzerdefinierteSchicht=1 ORDER BY dedet_reihenfolge")
Dim DTBenutzer As DataTable = ADMIN.AnzeigeTabelle(" SELECT * FROM [tblDienstplanEintraegeDetails] WHERE [dedet_niederlassung]='" & niederlassung & "' AND dedet_benutzerdefinierteSchicht=1 AND dedet_aktiv=1 ORDER BY dedet_reihenfolge")
For Each r As DataRow In DTBenutzer.Rows
Dim SCHICHT As New cDienstplanSchicht(r("dedet_id"))
Dim u As New usrCntlDienstWoche(SCHICHT, SETTINGS)

15
UID/Dienstplan/frmSchichtenZeiten.Designer.vb generated
View File

@@ -103,6 +103,7 @@ Partial Class frmSchichtenZeiten
Me.frbBGExcelMonat = New System.Windows.Forms.Button()
Me.CheckBox3 = New System.Windows.Forms.CheckBox()
Me.ColorDialog3 = New System.Windows.Forms.ColorDialog()
Me.cbxAktiv = New System.Windows.Forms.CheckBox()
CType(Me.dgvSchihten, System.ComponentModel.ISupportInitialize).BeginInit()
Me.grp.SuspendLayout()
Me.pnl.SuspendLayout()
@@ -877,12 +878,25 @@ Partial Class frmSchichtenZeiten
Me.CheckBox3.Text = "BG Farbe:"
Me.CheckBox3.UseVisualStyleBackColor = True
'
'cbxAktiv
'
Me.cbxAktiv.AutoSize = True
Me.cbxAktiv.Checked = True
Me.cbxAktiv.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxAktiv.Location = New System.Drawing.Point(598, 160)
Me.cbxAktiv.Name = "cbxAktiv"
Me.cbxAktiv.Size = New System.Drawing.Size(49, 17)
Me.cbxAktiv.TabIndex = 130
Me.cbxAktiv.Text = "aktiv"
Me.cbxAktiv.UseVisualStyleBackColor = True
'
'frmSchichtenZeiten
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.White
Me.ClientSize = New System.Drawing.Size(659, 400)
Me.Controls.Add(Me.cbxAktiv)
Me.Controls.Add(Me.CheckBox3)
Me.Controls.Add(Me.cbxSchichtArbeitszeit)
Me.Controls.Add(Me.frbBGExcelMonat)
@@ -990,4 +1004,5 @@ Partial Class frmSchichtenZeiten
Friend WithEvents Label10 As System.Windows.Forms.Label
Friend WithEvents CheckBox3 As System.Windows.Forms.CheckBox
Friend WithEvents ColorDialog3 As System.Windows.Forms.ColorDialog
Friend WithEvents cbxAktiv As CheckBox
End Class

4
UID/Dienstplan/frmSchichtenZeiten.vb
View File

@@ -110,7 +110,7 @@
End If
txtExcelMonat.Text = SCHICHT.dedet_ExcelMonatBezeichnung
cbxAktiv.Checked = SCHICHT.dedet_Aktiv
txtZusatzAL.Text = SCHICHT.dedet_bezLeiter
If SCHICHT.dedet_ExcelBgFarbe IsNot Nothing Then
@@ -168,7 +168,7 @@
End If
DP.updateEintraegeDetails_Benuterdef(dgvSchihten.SelectedRows(0).Cells("dedet_id").Value, txtDPBezeichnung.Text, txtProzent.Text, txtExcelBezeichnung.Text, txtExcelBezeichnung2.Text, txtExcelBezeichnung3.Text, txtExcelZeilen.Text, cbxBenutzerdefinierteSchicht.Checked, cbxSchichtArbeitszeit.Checked,
IIf(IsNumeric(txtReihenfolge.Text), txtReihenfolge.Text, 50), cbxTagesSchichtWechsel.Checked, txtSchichtWechselZu.Text, txtHotKey.Text, bg, bgExcel, txtZusatzAL.Text, bgExcelMonat, txtExcelMonat.Text)
IIf(IsNumeric(txtReihenfolge.Text), txtReihenfolge.Text, 50), cbxTagesSchichtWechsel.Checked, txtSchichtWechselZu.Text, txtHotKey.Text, bg, bgExcel, txtZusatzAL.Text, bgExcelMonat, txtExcelMonat.Text, cbxAktiv.Checked)
End If
' d.dedet_bezeichnungDP = dr.Item("dedet_bezeichnungDP")

31
UID/Dienstplan/usrCntlDienstplan.Designer.vb generated
View File

@@ -31,6 +31,7 @@ Partial Class usrCntlDienstplan
Me.btnDienstplan = New System.Windows.Forms.Button()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.Panel3 = New System.Windows.Forms.Panel()
Me.cbxInaktiv = New System.Windows.Forms.CheckBox()
Me.numJahr = New System.Windows.Forms.NumericUpDown()
Me.cboMonat = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.btnAuswertung = New System.Windows.Forms.Button()
@@ -46,7 +47,7 @@ Partial Class usrCntlDienstplan
Me.tbVerag = New System.Windows.Forms.TabPage()
Me.tbAtilla2 = New System.Windows.Forms.TabPage()
Me.tbImex = New System.Windows.Forms.TabPage()
Me.cbxInaktiv = New System.Windows.Forms.CheckBox()
Me.tbFrontOffice = New System.Windows.Forms.TabPage()
CType(Me.dgvMA, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.Panel3.SuspendLayout()
@@ -154,6 +155,16 @@ Partial Class usrCntlDienstplan
Me.Panel3.Size = New System.Drawing.Size(121, 771)
Me.Panel3.TabIndex = 6
'
'cbxInaktiv
'
Me.cbxInaktiv.AutoSize = True
Me.cbxInaktiv.Location = New System.Drawing.Point(6, 364)
Me.cbxInaktiv.Name = "cbxInaktiv"
Me.cbxInaktiv.Size = New System.Drawing.Size(82, 17)
Me.cbxInaktiv.TabIndex = 12
Me.cbxInaktiv.Text = "inaktive MA"
Me.cbxInaktiv.UseVisualStyleBackColor = True
'
'numJahr
'
Me.numJahr.Location = New System.Drawing.Point(4, 482)
@@ -288,6 +299,7 @@ Partial Class usrCntlDienstplan
Me.tbFirmen.Controls.Add(Me.tbVerag)
Me.tbFirmen.Controls.Add(Me.tbAtilla2)
Me.tbFirmen.Controls.Add(Me.tbImex)
Me.tbFirmen.Controls.Add(Me.tbFrontOffice)
Me.tbFirmen.Font = New System.Drawing.Font("Microsoft Sans Serif", 14.0!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.tbFirmen.Location = New System.Drawing.Point(0, 42)
Me.tbFirmen.Name = "tbFirmen"
@@ -325,15 +337,15 @@ Partial Class usrCntlDienstplan
Me.tbImex.Text = "IMEX"
Me.tbImex.UseVisualStyleBackColor = True
'
'cbxInaktiv
'tbFrontOffice
'
Me.cbxInaktiv.AutoSize = True
Me.cbxInaktiv.Location = New System.Drawing.Point(6, 364)
Me.cbxInaktiv.Name = "cbxInaktiv"
Me.cbxInaktiv.Size = New System.Drawing.Size(82, 17)
Me.cbxInaktiv.TabIndex = 12
Me.cbxInaktiv.Text = "inaktive MA"
Me.cbxInaktiv.UseVisualStyleBackColor = True
Me.tbFrontOffice.Location = New System.Drawing.Point(4, 33)
Me.tbFrontOffice.Name = "tbFrontOffice"
Me.tbFrontOffice.Padding = New System.Windows.Forms.Padding(3)
Me.tbFrontOffice.Size = New System.Drawing.Size(950, 0)
Me.tbFrontOffice.TabIndex = 3
Me.tbFrontOffice.Text = "FRONTOFFICE"
Me.tbFrontOffice.UseVisualStyleBackColor = True
'
'usrCntlDienstplan
'
@@ -378,4 +390,5 @@ Partial Class usrCntlDienstplan
Friend WithEvents numJahr As NumericUpDown
Friend WithEvents cboMonat As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents cbxInaktiv As CheckBox
Friend WithEvents tbFrontOffice As TabPage
End Class

30
UID/Dienstplan/usrCntlDienstplan.vb
View File

@@ -56,6 +56,8 @@ Public Class usrCntlDienstplan
Sub initNiederlassungen(Optional start = False)
MyFlowLayoutPanel1.Controls.Clear()
If tbFirmen.TabPages.Count = 0 Then Exit Sub
If tbFirmen.SelectedIndex < 0 Then Exit Sub
Dim s As New VERAG_PROG_ALLGEMEIN.SQL
Dim dt As DataTable = s.loadDgvBySql("SELECT [dpset_id],[dpset_niederlassung] FROM [tblDienstSettings] WHERE dpset_firma='" & tbFirmen.SelectedTab.Text & "' order by dpset_reihenfolge ", "ADMIN")
For Each r As DataRow In dt.Rows
@@ -86,22 +88,42 @@ Public Class usrCntlDienstplan
If start Then
'Einschränkung DP Firma:
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma IsNot Nothing Then
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me.FindForm) And Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma = "ALLE" Then
'tbFirmen.Enabled = False
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma <> "ATILLA" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma2 <> "ATILLA" Then tbFirmen.TabPages.Remove(tbAtilla2)
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma <> "IMEX" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma2 <> "IMEX" Then tbFirmen.TabPages.Remove(tbImex)
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma <> "VERAG" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma2 <> "VERAG" Then tbFirmen.TabPages.Remove(tbVerag)
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma <> "FRONTOFFICE" And VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma2 <> "FRONTOFFICE" Then tbFirmen.TabPages.Remove(tbFrontOffice)
Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma
Case "ATILLA" : tbFirmen.SelectedTab = tbAtilla2
Case "IMEX" : tbFirmen.SelectedTab = tbImex
Case "VERAG" : tbFirmen.SelectedTab = tbVerag
Case "FRONTOFFICE" : tbFirmen.SelectedTab = tbFrontOffice
' Case "ALLE" : tbFirmen.SelectedTab = tbVerag : tbFirmen.Enabled = True
Case Else : tbFirmen.SelectedTab = tbVerag
End Select
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me.FindForm) Then tbFirmen.Enabled = False
End If
''Einschränkung DP Firma:
'If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma IsNot Nothing Then
' Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma
' Case "ATILLA" : tbFirmen.SelectedTab = tbAtilla2
' Case "IMEX" : tbFirmen.SelectedTab = tbImex
' Case "VERAG" : tbFirmen.SelectedTab = tbVerag
' Case "FRONTOFFICE" : tbFirmen.SelectedTab = tbFrontOffice
' ' Case "ALLE" : tbFirmen.SelectedTab = tbVerag : tbFirmen.Enabled = True
' Case Else : tbFirmen.SelectedTab = tbVerag
' End Select
' If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me.FindForm) And Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma = "ALLE" Then tbFirmen.Enabled = False
'End If
'Wenn zusätzlich eingeschränkt auf NL:
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardDP IsNot Nothing AndAlso VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardDP <> "" Then
initButtons(VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardDP)
initDone = True
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me.FindForm) Then
If Not VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ADMINFUNCTIONS", Me.FindForm) And Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_DpUserStandardFirma = "ALLE" Then
For Each b As Button In MyFlowLayoutPanel1.Controls
b.Enabled = False
tbFirmen.Enabled = False

65
UID/Mitarbeiter/frmMitarbDetails.Designer.vb generated
View File

@@ -61,6 +61,8 @@ Partial Class frmMitarbDetails
Me.cboATLAS_SB = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label4 = New System.Windows.Forms.Label()
Me.GroupBox2 = New System.Windows.Forms.GroupBox()
Me.cboTeam = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label53 = New System.Windows.Forms.Label()
Me.cboALIASDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.txtALIASUser = New System.Windows.Forms.TextBox()
Me.Label52 = New System.Windows.Forms.Label()
@@ -161,8 +163,7 @@ Partial Class frmMitarbDetails
Me.PictureBox6 = New System.Windows.Forms.PictureBox()
Me.cboAdminBer = New System.Windows.Forms.ComboBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.cboTeam = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label53 = New System.Windows.Forms.Label()
Me.cboDPFirma2 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.TabControl2.SuspendLayout()
@@ -296,6 +297,7 @@ Partial Class frmMitarbDetails
'
'TabPage2
'
Me.TabPage2.Controls.Add(Me.cboDPFirma2)
Me.TabPage2.Controls.Add(Me.cboDPFirma)
Me.TabPage2.Controls.Add(Me.Label50)
Me.TabPage2.Controls.Add(Me.Label38)
@@ -327,7 +329,7 @@ Partial Class frmMitarbDetails
Me.cboDPFirma.FormattingEnabled = True
Me.cboDPFirma.Location = New System.Drawing.Point(7, 151)
Me.cboDPFirma.Name = "cboDPFirma"
Me.cboDPFirma.Size = New System.Drawing.Size(198, 21)
Me.cboDPFirma.Size = New System.Drawing.Size(101, 21)
Me.cboDPFirma.TabIndex = 107
'
'Label50
@@ -647,6 +649,30 @@ Partial Class frmMitarbDetails
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Firmendaten"
'
'cboTeam
'
Me.cboTeam._allowedValuesFreiText = Nothing
Me.cboTeam._allowFreiText = False
Me.cboTeam._value = ""
Me.cboTeam.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboTeam.FormattingEnabled = True
Me.cboTeam.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"})
Me.cboTeam.Location = New System.Drawing.Point(406, 116)
Me.cboTeam.Name = "cboTeam"
Me.cboTeam.Size = New System.Drawing.Size(136, 21)
Me.cboTeam.TabIndex = 101
'
'Label53
'
Me.Label53.AutoSize = True
Me.Label53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label53.Location = New System.Drawing.Point(403, 100)
Me.Label53.Name = "Label53"
Me.Label53.Size = New System.Drawing.Size(37, 13)
Me.Label53.TabIndex = 102
Me.Label53.Text = "Team:"
'
'cboALIASDomain
'
Me.cboALIASDomain._allowedValuesFreiText = Nothing
@@ -1728,29 +1754,17 @@ Partial Class frmMitarbDetails
Me.Label7.TabIndex = 78
Me.Label7.Text = "Berechtigung:"
'
'cboTeam
'cboDPFirma2
'
Me.cboTeam._allowedValuesFreiText = Nothing
Me.cboTeam._allowFreiText = False
Me.cboTeam._value = ""
Me.cboTeam.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cboTeam.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboTeam.FormattingEnabled = True
Me.cboTeam.Items.AddRange(New Object() {"Buchhaltung", "EDV", "Fiskal", "Geschäftsführung", "Lager", "MDM", "quick-stop", "Verrechnung", "Zollabteilung"})
Me.cboTeam.Location = New System.Drawing.Point(406, 116)
Me.cboTeam.Name = "cboTeam"
Me.cboTeam.Size = New System.Drawing.Size(136, 21)
Me.cboTeam.TabIndex = 101
'
'Label53
'
Me.Label53.AutoSize = True
Me.Label53.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label53.Location = New System.Drawing.Point(403, 100)
Me.Label53.Name = "Label53"
Me.Label53.Size = New System.Drawing.Size(37, 13)
Me.Label53.TabIndex = 102
Me.Label53.Text = "Team:"
Me.cboDPFirma2._allowedValuesFreiText = Nothing
Me.cboDPFirma2._allowFreiText = False
Me.cboDPFirma2._value = ""
Me.cboDPFirma2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboDPFirma2.FormattingEnabled = True
Me.cboDPFirma2.Location = New System.Drawing.Point(106, 151)
Me.cboDPFirma2.Name = "cboDPFirma2"
Me.cboDPFirma2.Size = New System.Drawing.Size(101, 21)
Me.cboDPFirma2.TabIndex = 108
'
'frmMitarbDetails
'
@@ -1934,4 +1948,5 @@ Partial Class frmMitarbDetails
Friend WithEvents Label52 As Label
Friend WithEvents cboTeam As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents Label53 As Label
Friend WithEvents cboDPFirma2 As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

13
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -50,12 +50,23 @@
cboDPFirma.Items.Clear()
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
cboDPFirma2.Items.Clear()
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ALLE", "ALLE"))
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG", "VERAG"))
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UNISPED", "UNISPED"))
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("AMBAR", "AMBAR"))
cboDPFirma2.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("FRONTOFFICE", "FRONTOFFICE"))
cboALIASDomain.Items.Clear()
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
@@ -260,6 +271,7 @@
If mitarbeiter.mit_DpUserStandardDP IsNot Nothing Then cboDP.changeItem(mitarbeiter.mit_DpUserStandardDP)
If mitarbeiter.mit_DpUserStandardFirma IsNot Nothing Then cboDPFirma.changeItem(mitarbeiter.mit_DpUserStandardFirma)
If mitarbeiter.mit_DpUserStandardFirma2 IsNot Nothing Then cboDPFirma2.changeItem(mitarbeiter.mit_DpUserStandardFirma2)
cbxSpedBuch.Checked = mitarbeiter.mit_FMZollPersIDKasseIsnotSpedBuch
@@ -484,6 +496,7 @@
mitarbeiter.mit_DpUserStandardDP = cboDP._value
mitarbeiter.mit_DpUserStandardFirma = cboDPFirma._value
mitarbeiter.mit_DpUserStandardFirma2 = cboDPFirma2._value
If IsNumeric(MyComboBox2._value) AndAlso MyComboBox2._value > 0 Then
mitarbeiter.mit_standartFiliale = MyComboBox2._value

4
UID/My Project/AssemblyInfo.vb
View File

@@ -18,7 +18,7 @@ Imports System.Runtime.InteropServices
<Assembly: ComVisible(False)>
'Die folgende GUID bestimmt die ID der Typbibliothek, wenn dieses Projekt für COM verfügbar gemacht wird
<Assembly: Guid("64ed74fb-6b8e-4b4e-a147-baa0b9751e76")>
<Assembly: Guid("64ed74fb-6b8e-4b4e-a147-baa0b9751e76")>
' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten:
'
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.0.1.0")>
<Assembly: AssemblyVersion("1.0.1.1")>
<Assembly: AssemblyFileVersion("1.0.1.0")>

29
UID/My Project/Resources.Designer.vb generated
View File

@@ -60,6 +60,24 @@ Namespace My.Resources
End Set
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property adasasd23asdasdasd() As String
Get
Return ResourceManager.GetString("adasasd23asdasdasd", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property adasdasd() As String
Get
Return ResourceManager.GetString("adasdasd", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -375,15 +393,6 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property jjjiioioolokoik() As String
Get
Return ResourceManager.GetString("jjjiioioolokoik", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -644,7 +653,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.8.8 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 1.9.1 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

7
UID/My Project/Resources.resx
View File

@@ -188,7 +188,7 @@
<value>Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;</value>
</data>
<data name="Version" xml:space="preserve">
<value>1.8.8</value>
<value>1.9.1</value>
</data>
<data name="del" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\del.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -298,7 +298,10 @@
<data name="gear" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\gear.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="jjjiioioolokoik" xml:space="preserve">
<data name="adasasd23asdasdasd" xml:space="preserve">
<value />
</data>
<data name="adasdasd" xml:space="preserve">
<value />
</data>
</root>

13
UID/cSqlDb.vb
View File

@@ -1512,8 +1512,8 @@ Public Class cMitarbeiter
'Änderung
Dim sql = "INSERT INTO tblMitarbeiter " &
"(mit_username, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_teamId) VALUES " &
"(@mit_username,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_teamId)"
"(mit_username, mit_pwd, mit_geschlecht, mit_affix, mit_vname, mit_nname, mit_gebdat, mit_strasse,mit_hausnr,mit_land,mit_plz,mit_ort,mit_niederlassung, mit_abteilung, mit_position, mit_durchwahl, mit_email, mit_mobiltel, mit_allowAnruf,mit_info, mit_einstiegsdatum, mit_gekuendigt, mit_kuendigungsdatum, mit_foto,mit_firma,mit_firmaFMZoll,mit_FMZollPersID,mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch,mit_standartFiliale,mit_DpUserStandardDP,mit_EZOLL_SB,mit_ATLAS_SB,mit_FirmenDatenAnzeige,mit_DAKOSY_SB,mit_DAKOSY_SBFull,mit_DpUserStandardFirma,mit_DpUserStandardFirma2,mit_TESTonly,mit_PasswortChanged,mit_TELOTEC_SB,mit_AliasAD_Domain,mit_AliasAD_Username,mit_teamId) VALUES " &
"(@mit_username,@mit_pwd,@mit_geschlecht,@mit_affix,@mit_vname,@mit_nname,@mit_gebdat,@mit_strasse,@mit_hausnr,@mit_land,@mit_plz,@mit_ort,@mit_niederlassung,@mit_abteilung,@mit_position,@mit_durchwahl,@mit_email,@mit_mobiltel,@mit_allowAnruf,@mit_info,@mit_einstiegsdatum,@mit_gekuendigt,@mit_kuendigungsdatum,@mit_foto,@mit_firma,@mit_firmaFMZoll,@mit_FMZollPersID,@mit_FMZollPersIDKasseIsnotSpedBuch,@mit_FMZollPersIDSpedBuch,@mit_standartFiliale,@mit_DpUserStandardDP,@mit_EZOLL_SB,@mit_ATLAS_SB,@mit_FirmenDatenAnzeige,@mit_DAKOSY_SB,@mit_DAKOSY_SBFull,@mit_DpUserStandardFirma,@mit_DpUserStandardFirma2,@mit_TESTonly,@mit_PasswortChanged,@mit_TELOTEC_SB,@mit_AliasAD_Domain,@mit_AliasAD_Username,@mit_teamId)"
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
Using cmd As New SqlCommand(sql, conn)
@@ -1543,6 +1543,7 @@ Public Class cMitarbeiter
cmd.Parameters.AddWithValue("@mit_standartFiliale", m.mit_standartFiliale)
cmd.Parameters.AddWithValue("@mit_DpUserStandardDP", m.mit_DpUserStandardDP)
cmd.Parameters.AddWithValue("@mit_DpUserStandardFirma", m.mit_DpUserStandardFirma)
cmd.Parameters.AddWithValue("@mit_DpUserStandardFirma2", m.mit_DpUserStandardFirma2)
cmd.Parameters.AddWithValue("@mit_info", m.mit_info)
If m.mit_einstiegsdatum <> "" Then cmd.Parameters.AddWithValue("@mit_einstiegsdatum", m.mit_einstiegsdatum) Else cmd.Parameters.AddWithValue("@mit_einstiegsdatum", DBNull.Value)
cmd.Parameters.AddWithValue("@mit_gekuendigt", m.mit_gekuendigt)
@@ -1578,7 +1579,7 @@ Public Class cMitarbeiter
Dim hAuswahl As String = ""
Dim sql = "UPDATE tblMitarbeiter " &
"SET mit_username=@mit_username, mit_pwd=@mit_pwd, mit_geschlecht=@mit_geschlecht, mit_affix=@mit_affix, mit_vname=@mit_vname, mit_nname=@mit_nname, mit_gebdat=@mit_gebdat, mit_strasse=@mit_strasse, mit_hausnr=@mit_hausnr, mit_land=@mit_land, mit_plz=@mit_plz, mit_ort=@mit_ort, mit_niederlassung=@mit_niederlassung, mit_abteilung=@mit_abteilung, mit_position=@mit_position, mit_durchwahl=@mit_durchwahl, mit_email=@mit_email, mit_mobiltel=@mit_mobiltel, mit_allowAnruf=@mit_allowAnruf, mit_info=@mit_info, mit_einstiegsdatum=@mit_einstiegsdatum, mit_gekuendigt=@mit_gekuendigt, mit_kuendigungsdatum=@mit_kuendigungsdatum, mit_foto=@mit_foto, mit_firma=@mit_firma,mit_firmaFMZoll=@mit_firmaFMZoll,mit_FMZollPersID=@mit_FMZollPersID, mit_FMZollPersIDKasseIsnotSpedBuch=@mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch=@mit_FMZollPersIDSpedBuch,mit_standartFiliale=@mit_standartFiliale,mit_standardPreisliste=@mit_standardPreisliste,mit_DpUserStandardDP=@mit_DpUserStandardDP, mit_EZOLL_SB=@mit_EZOLL_SB, mit_ATLAS_SB=@mit_ATLAS_SB,mit_FirmenDatenAnzeige=@mit_FirmenDatenAnzeige,mit_DAKOSY_SB=@mit_DAKOSY_SB, mit_DAKOSY_SBFull=@mit_DAKOSY_SBFull ,mit_DpUserStandardFirma=@mit_DpUserStandardFirma, mit_TESTonly=@mit_TESTonly,mit_PasswortChanged=@mit_PasswortChanged,mit_TELOTEC_SB=@mit_TELOTEC_SB,mit_AliasAD_Domain=@mit_AliasAD_Domain,mit_AliasAD_Username=@mit_AliasAD_Username,mit_teamId=@mit_teamId " &
"SET mit_username=@mit_username, mit_pwd=@mit_pwd, mit_geschlecht=@mit_geschlecht, mit_affix=@mit_affix, mit_vname=@mit_vname, mit_nname=@mit_nname, mit_gebdat=@mit_gebdat, mit_strasse=@mit_strasse, mit_hausnr=@mit_hausnr, mit_land=@mit_land, mit_plz=@mit_plz, mit_ort=@mit_ort, mit_niederlassung=@mit_niederlassung, mit_abteilung=@mit_abteilung, mit_position=@mit_position, mit_durchwahl=@mit_durchwahl, mit_email=@mit_email, mit_mobiltel=@mit_mobiltel, mit_allowAnruf=@mit_allowAnruf, mit_info=@mit_info, mit_einstiegsdatum=@mit_einstiegsdatum, mit_gekuendigt=@mit_gekuendigt, mit_kuendigungsdatum=@mit_kuendigungsdatum, mit_foto=@mit_foto, mit_firma=@mit_firma,mit_firmaFMZoll=@mit_firmaFMZoll,mit_FMZollPersID=@mit_FMZollPersID, mit_FMZollPersIDKasseIsnotSpedBuch=@mit_FMZollPersIDKasseIsnotSpedBuch,mit_FMZollPersIDSpedBuch=@mit_FMZollPersIDSpedBuch,mit_standartFiliale=@mit_standartFiliale,mit_standardPreisliste=@mit_standardPreisliste,mit_DpUserStandardDP=@mit_DpUserStandardDP, mit_EZOLL_SB=@mit_EZOLL_SB, mit_ATLAS_SB=@mit_ATLAS_SB,mit_FirmenDatenAnzeige=@mit_FirmenDatenAnzeige,mit_DAKOSY_SB=@mit_DAKOSY_SB, mit_DAKOSY_SBFull=@mit_DAKOSY_SBFull ,mit_DpUserStandardFirma=@mit_DpUserStandardFirma,mit_DpUserStandardFirma2=@mit_DpUserStandardFirma2, mit_TESTonly=@mit_TESTonly,mit_PasswortChanged=@mit_PasswortChanged,mit_TELOTEC_SB=@mit_TELOTEC_SB,mit_AliasAD_Domain=@mit_AliasAD_Domain,mit_AliasAD_Username=@mit_AliasAD_Username,mit_teamId=@mit_teamId " &
" WHERE mit_id=@mit_id "
@@ -1611,6 +1612,7 @@ Public Class cMitarbeiter
cmd.Parameters.AddWithValue("@mit_standardPreisliste", m.mit_standardPreisliste)
cmd.Parameters.AddWithValue("@mit_DpUserStandardDP", m.mit_DpUserStandardDP)
cmd.Parameters.AddWithValue("@mit_DpUserStandardFirma", m.mit_DpUserStandardFirma)
cmd.Parameters.AddWithValue("@mit_DpUserStandardFirma2", m.mit_DpUserStandardFirma2)
cmd.Parameters.AddWithValue("@mit_info", m.mit_info)
If m.mit_einstiegsdatum <> "" Then cmd.Parameters.AddWithValue("@mit_einstiegsdatum", m.mit_einstiegsdatum) Else cmd.Parameters.AddWithValue("@mit_einstiegsdatum", DBNull.Value)
@@ -2912,12 +2914,12 @@ Public Class cDienstplan
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) As Boolean
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) As Boolean
Dim hAuswahl As String = ""
Dim sql As String = "UPDATE tblDienstplanEintraegeDetails " &
"SET dedet_bezeichnungDP=@dedet_bezeichnungDP,dedet_ProzentGrafik=@dedet_ProzentGrafik,dedet_bezeichnungExcel=@dedet_bezeichnungExcel,dedet_bezeichnungExcel2=@dedet_bezeichnungExcel2,dedet_bezeichnungExcel3=@dedet_bezeichnungExcel3,dedet_ZeilenExcel=@dedet_ZeilenExcel,dedet_benutzerdefinierteSchicht=@dedet_benutzerdefinierteSchicht,dedet_stdWieArbeitszeit=@dedet_stdWieArbeitszeit, " &
" dedet_reihenfolge=@dedet_reihenfolge,dedet_TagesWechsel=@dedet_TagesWechsel,dedet_WechselZuSchicht=@dedet_WechselZuSchicht,dedet_HotKey=@dedet_HotKey ,dedet_bgAlternativeFarbe=@dedet_bgAlternativeFarbe, dedet_ExcelBgFarbe=@dedet_ExcelBgFarbe,dedet_bezLeiter=@dedet_bezLeiter,dedet_ExcelMonatFarbe=@dedet_ExcelMonatFarbe,dedet_ExcelMonatBezeichnung=@dedet_ExcelMonatBezeichnung" &
" dedet_reihenfolge=@dedet_reihenfolge,dedet_TagesWechsel=@dedet_TagesWechsel,dedet_WechselZuSchicht=@dedet_WechselZuSchicht,dedet_HotKey=@dedet_HotKey ,dedet_bgAlternativeFarbe=@dedet_bgAlternativeFarbe, dedet_ExcelBgFarbe=@dedet_ExcelBgFarbe,dedet_bezLeiter=@dedet_bezLeiter,dedet_ExcelMonatFarbe=@dedet_ExcelMonatFarbe,dedet_ExcelMonatBezeichnung=@dedet_ExcelMonatBezeichnung,dedet_aktiv=@dedet_aktiv " &
" WHERE dedet_id=@dedet_id "
@@ -2945,6 +2947,7 @@ Public Class cDienstplan
cmd.Parameters.AddWithValue("@dedet_bezLeiter", dedet_bezLeiter)
cmd.Parameters.AddWithValue("@dedet_ExcelMonatFarbe", dedet_ExcelMonatFarbe)
cmd.Parameters.AddWithValue("@dedet_ExcelMonatBezeichnung", dedet_ExcelMonatBezeichnung)
cmd.Parameters.AddWithValue("@dedet_aktiv", dedet_aktiv)
Try
cmd.ExecuteNonQuery()