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
2019-09-10 13:46:18 +02:00
parent ea594e66e5
commit e2c05a5ea3
10 changed files with 169 additions and 162 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -49,6 +49,8 @@ Partial Class frmMitarbDetails
Me.cboSpedbuch = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.MyComboBox3 = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.TabPage4 = New System.Windows.Forms.TabPage()
Me.txtTelotecSB = New System.Windows.Forms.TextBox()
Me.Label51 = New System.Windows.Forms.Label()
Me.txtDyFullName = New System.Windows.Forms.TextBox()
Me.Label49 = New System.Windows.Forms.Label()
Me.txtDakosySB = New System.Windows.Forms.TextBox()
@@ -156,8 +158,9 @@ 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.txtTelotecSB = New System.Windows.Forms.TextBox()
Me.Label51 = New System.Windows.Forms.Label()
Me.Label52 = New System.Windows.Forms.Label()
Me.txtALIASUser = New System.Windows.Forms.TextBox()
Me.cboALIASDomain = New VERAG_PROG_ALLGEMEIN.MyComboBox
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.TabControl2.SuspendLayout()
@@ -236,7 +239,7 @@ Partial Class frmMitarbDetails
'
Me.btnCancel.BackColor = System.Drawing.Color.White
Me.btnCancel.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnCancel.Location = New System.Drawing.Point(191, 770)
Me.btnCancel.Location = New System.Drawing.Point(191, 795)
Me.btnCancel.Name = "btnCancel"
Me.btnCancel.Size = New System.Drawing.Size(88, 36)
Me.btnCancel.TabIndex = 52
@@ -247,7 +250,7 @@ Partial Class frmMitarbDetails
'
Me.btnOK.BackColor = System.Drawing.Color.White
Me.btnOK.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnOK.Location = New System.Drawing.Point(12, 770)
Me.btnOK.Location = New System.Drawing.Point(12, 795)
Me.btnOK.Name = "btnOK"
Me.btnOK.Size = New System.Drawing.Size(173, 36)
Me.btnOK.TabIndex = 51
@@ -261,7 +264,7 @@ Partial Class frmMitarbDetails
Me.TabControl2.Location = New System.Drawing.Point(12, 63)
Me.TabControl2.Name = "TabControl2"
Me.TabControl2.SelectedIndex = 0
Me.TabControl2.Size = New System.Drawing.Size(723, 705)
Me.TabControl2.Size = New System.Drawing.Size(723, 726)
Me.TabControl2.TabIndex = 0
'
'TabPage1
@@ -274,7 +277,7 @@ Partial Class frmMitarbDetails
Me.TabPage1.Location = New System.Drawing.Point(4, 22)
Me.TabPage1.Name = "TabPage1"
Me.TabPage1.Padding = New System.Windows.Forms.Padding(3)
Me.TabPage1.Size = New System.Drawing.Size(715, 679)
Me.TabPage1.Size = New System.Drawing.Size(715, 700)
Me.TabPage1.TabIndex = 0
Me.TabPage1.Text = "Daten"
Me.TabPage1.UseVisualStyleBackColor = True
@@ -283,7 +286,7 @@ Partial Class frmMitarbDetails
'
Me.tbcntr.Controls.Add(Me.TabPage2)
Me.tbcntr.Controls.Add(Me.TabPage4)
Me.tbcntr.Location = New System.Drawing.Point(2, 473)
Me.tbcntr.Location = New System.Drawing.Point(2, 494)
Me.tbcntr.Name = "tbcntr"
Me.tbcntr.SelectedIndex = 0
Me.tbcntr.Size = New System.Drawing.Size(450, 200)
@@ -489,6 +492,24 @@ Partial Class frmMitarbDetails
Me.TabPage4.Text = "Zuordnung Zollprogramme"
Me.TabPage4.UseVisualStyleBackColor = True
'
'txtTelotecSB
'
Me.txtTelotecSB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtTelotecSB.Location = New System.Drawing.Point(9, 133)
Me.txtTelotecSB.Name = "txtTelotecSB"
Me.txtTelotecSB.Size = New System.Drawing.Size(200, 20)
Me.txtTelotecSB.TabIndex = 116
'
'Label51
'
Me.Label51.AutoSize = True
Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label51.Location = New System.Drawing.Point(6, 117)
Me.Label51.Name = "Label51"
Me.Label51.Size = New System.Drawing.Size(134, 13)
Me.Label51.TabIndex = 115
Me.Label51.Text = "TELOTEC Sachbearbeiter:"
'
'txtDyFullName
'
Me.txtDyFullName.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -576,7 +597,7 @@ Partial Class frmMitarbDetails
'Label4
'
Me.Label4.AutoSize = True
Me.Label4.Location = New System.Drawing.Point(461, 473)
Me.Label4.Location = New System.Drawing.Point(461, 494)
Me.Label4.Name = "Label4"
Me.Label4.Size = New System.Drawing.Size(28, 13)
Me.Label4.TabIndex = 85
@@ -584,6 +605,9 @@ Partial Class frmMitarbDetails
'
'GroupBox2
'
Me.GroupBox2.Controls.Add(Me.cboALIASDomain)
Me.GroupBox2.Controls.Add(Me.txtALIASUser)
Me.GroupBox2.Controls.Add(Me.Label52)
Me.GroupBox2.Controls.Add(Me.lkl)
Me.GroupBox2.Controls.Add(Me.Label45)
Me.GroupBox2.Controls.Add(Me.MyListBox1)
@@ -614,7 +638,7 @@ Partial Class frmMitarbDetails
Me.GroupBox2.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.GroupBox2.Location = New System.Drawing.Point(2, 245)
Me.GroupBox2.Name = "GroupBox2"
Me.GroupBox2.Size = New System.Drawing.Size(709, 222)
Me.GroupBox2.Size = New System.Drawing.Size(709, 243)
Me.GroupBox2.TabIndex = 84
Me.GroupBox2.TabStop = False
Me.GroupBox2.Text = "Firmendaten"
@@ -702,7 +726,7 @@ Partial Class frmMitarbDetails
Me.cbxEinsteigsDat.Checked = True
Me.cbxEinsteigsDat.CheckState = System.Windows.Forms.CheckState.Checked
Me.cbxEinsteigsDat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxEinsteigsDat.Location = New System.Drawing.Point(409, 39)
Me.cbxEinsteigsDat.Location = New System.Drawing.Point(20, 214)
Me.cbxEinsteigsDat.Name = "cbxEinsteigsDat"
Me.cbxEinsteigsDat.Size = New System.Drawing.Size(15, 14)
Me.cbxEinsteigsDat.TabIndex = 90
@@ -712,7 +736,7 @@ Partial Class frmMitarbDetails
'
Me.Label30.AutoSize = True
Me.Label30.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label30.Location = New System.Drawing.Point(406, 21)
Me.Label30.Location = New System.Drawing.Point(17, 195)
Me.Label30.Name = "Label30"
Me.Label30.Size = New System.Drawing.Size(81, 13)
Me.Label30.TabIndex = 89
@@ -721,7 +745,7 @@ Partial Class frmMitarbDetails
'datEinstiegsdatum
'
Me.datEinstiegsdatum.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.datEinstiegsdatum.Location = New System.Drawing.Point(430, 37)
Me.datEinstiegsdatum.Location = New System.Drawing.Point(41, 212)
Me.datEinstiegsdatum.Name = "datEinstiegsdatum"
Me.datEinstiegsdatum.Size = New System.Drawing.Size(200, 20)
Me.datEinstiegsdatum.TabIndex = 2
@@ -750,7 +774,7 @@ Partial Class frmMitarbDetails
'
Me.datGekuendigtAm.Enabled = False
Me.datGekuendigtAm.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.datGekuendigtAm.Location = New System.Drawing.Point(113, 194)
Me.datGekuendigtAm.Location = New System.Drawing.Point(301, 212)
Me.datGekuendigtAm.Name = "datGekuendigtAm"
Me.datGekuendigtAm.Size = New System.Drawing.Size(200, 20)
Me.datGekuendigtAm.TabIndex = 9
@@ -759,7 +783,7 @@ Partial Class frmMitarbDetails
'
Me.cbxGekuendigt.AutoSize = True
Me.cbxGekuendigt.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxGekuendigt.Location = New System.Drawing.Point(18, 197)
Me.cbxGekuendigt.Location = New System.Drawing.Point(301, 194)
Me.cbxGekuendigt.Name = "cbxGekuendigt"
Me.cbxGekuendigt.Size = New System.Drawing.Size(96, 17)
Me.cbxGekuendigt.TabIndex = 8
@@ -936,7 +960,7 @@ Partial Class frmMitarbDetails
'
Me.cbxTestaccount.AutoSize = True
Me.cbxTestaccount.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cbxTestaccount.Location = New System.Drawing.Point(304, 194)
Me.cbxTestaccount.Location = New System.Drawing.Point(301, 174)
Me.cbxTestaccount.Name = "cbxTestaccount"
Me.cbxTestaccount.Size = New System.Drawing.Size(86, 17)
Me.cbxTestaccount.TabIndex = 92
@@ -1183,7 +1207,7 @@ Partial Class frmMitarbDetails
'
'txtInfo
'
Me.txtInfo.Location = New System.Drawing.Point(464, 489)
Me.txtInfo.Location = New System.Drawing.Point(464, 510)
Me.txtInfo.Name = "txtInfo"
Me.txtInfo.Size = New System.Drawing.Size(245, 184)
Me.txtInfo.TabIndex = 0
@@ -1670,30 +1694,40 @@ Partial Class frmMitarbDetails
Me.Label7.TabIndex = 78
Me.Label7.Text = "Berechtigung:"
'
'txtTelotecSB
'Label52
'
Me.txtTelotecSB.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtTelotecSB.Location = New System.Drawing.Point(9, 133)
Me.txtTelotecSB.Name = "txtTelotecSB"
Me.txtTelotecSB.Size = New System.Drawing.Size(200, 20)
Me.txtTelotecSB.TabIndex = 116
Me.Label52.AutoSize = True
Me.Label52.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label52.Location = New System.Drawing.Point(406, 21)
Me.Label52.Name = "Label52"
Me.Label52.Size = New System.Drawing.Size(167, 13)
Me.Label52.TabIndex = 98
Me.Label52.Text = "ALIAS-Name (Domain / AD-User):"
'
'Label51
'txtALIASUser
'
Me.Label51.AutoSize = True
Me.Label51.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label51.Location = New System.Drawing.Point(6, 117)
Me.Label51.Name = "Label51"
Me.Label51.Size = New System.Drawing.Size(134, 13)
Me.Label51.TabIndex = 115
Me.Label51.Text = "TELOTEC Sachbearbeiter:"
Me.txtALIASUser.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtALIASUser.Location = New System.Drawing.Point(524, 37)
Me.txtALIASUser.Name = "txtALIASUser"
Me.txtALIASUser.Size = New System.Drawing.Size(179, 20)
Me.txtALIASUser.TabIndex = 99
'
'cboALIASDomain
'
Me.cboALIASDomain.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboALIASDomain.FormattingEnabled = True
Me.cboALIASDomain.Items.AddRange(New Object() {"Suben", "Salzburg", "Waidhaus", "Nickelsdorf"})
Me.cboALIASDomain.Location = New System.Drawing.Point(409, 37)
Me.cboALIASDomain.Name = "cboALIASDomain"
Me.cboALIASDomain.Size = New System.Drawing.Size(116, 21)
Me.cboALIASDomain.TabIndex = 100
'
'frmMitarbDetails
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.BackColor = System.Drawing.Color.WhiteSmoke
Me.ClientSize = New System.Drawing.Size(747, 813)
Me.ClientSize = New System.Drawing.Size(747, 841)
Me.Controls.Add(Me.TabControl2)
Me.Controls.Add(Me.btnCancel)
Me.Controls.Add(Me.btnOK)
@@ -1865,4 +1899,7 @@ Partial Class frmMitarbDetails
Friend WithEvents lkl As LinkLabel
Friend WithEvents txtTelotecSB As TextBox
Friend WithEvents Label51 As Label
Friend WithEvents cboALIASDomain As VERAG_PROG_ALLGEMEIN.MyComboBox
Friend WithEvents txtALIASUser As TextBox
Friend WithEvents Label52 As Label
End Class

14
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -53,6 +53,15 @@
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ATILLA", "ATILLA"))
cboDPFirma.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
cboALIASDomain.Items.Clear()
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("", ""))
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAGOST", "VERAGOST"))
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("IMEX", "IMEX"))
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-SBG", "VERAG-SBG"))
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAGNEUHAUS", "VERAGNEUHAUS"))
cboALIASDomain.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("VERAG-NCTS (ATILLA)", "VERAG-NCTS"))
ZOLLDATENBEARB = False
@@ -183,6 +192,9 @@
txtDyFullName.Text = If(mitarbeiter.mit_DAKOSY_SBFull, "")
txtTelotecSB.Text = mitarbeiter.mit_TELOTEC_SB
cboALIASDomain.changeItem(mitarbeiter.mit_AliasAD_Domain)
txtALIASUser.Text = mitarbeiter.mit_AliasAD_Username
If mitarbeiter.mit_firma = "VERAG" Then
cboFirma.SelectedIndex = 0
ElseIf mitarbeiter.mit_firma = "ATILLA" Then
@@ -417,6 +429,8 @@
mitarbeiter.mit_DAKOSY_SB = txtDakosySB.Text
mitarbeiter.mit_DAKOSY_SBFull = txtDyFullName.Text
mitarbeiter.mit_TELOTEC_SB = txtTelotecSB.Text
mitarbeiter.mit_AliasAD_Domain = cboALIASDomain._value
mitarbeiter.mit_AliasAD_Username = txtALIASUser.Text
If IsNumeric(cboPersonal._value) AndAlso cboPersonal._value > 0 Then

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

@@ -140,15 +140,6 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die ähnelt.
'''</summary>
Friend ReadOnly Property bbt5bfg() As String
Get
Return ResourceManager.GetString("bbt5bfg", resourceCulture)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Byte[].
'''</summary>
@@ -644,7 +635,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 1.8.4 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 1.8.5 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

5
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.4</value>
<value>1.8.5</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,4 @@
<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="bbt5bfg" xml:space="preserve">
<value />
</data>
</root>

11
UID/cSqlDb.vb
View File

@@ -1504,8 +1504,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) 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_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) 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)"
Using conn As SqlConnection = cSqlDb.GetNewOpenConnection()
Using cmd As New SqlCommand(sql, conn)
@@ -1550,7 +1550,8 @@ Public Class cMitarbeiter
cmd.Parameters.AddWithValue("@mit_TESTonly", m.mit_TESTonly)
cmd.Parameters.AddWithValue("@mit_PasswortChanged", If(m.mit_PasswortChanged, DBNull.Value))
cmd.Parameters.AddWithValue("@mit_TELOTEC_SB", If(m.mit_TELOTEC_SB, DBNull.Value))
cmd.Parameters.AddWithValue("@mit_AliasAD_Domain", If(m.mit_AliasAD_Domain, DBNull.Value))
cmd.Parameters.AddWithValue("@mit_AliasAD_Username", If(m.mit_AliasAD_Username, DBNull.Value))
Try
cmd.ExecuteNonQuery()
@@ -1568,7 +1569,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 " &
"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 " &
" WHERE mit_id=@mit_id "
@@ -1619,6 +1620,8 @@ Public Class cMitarbeiter
cmd.Parameters.AddWithValue("@mit_TESTonly", m.mit_TESTonly)
cmd.Parameters.AddWithValue("@mit_PasswortChanged", If(m.mit_PasswortChanged, DBNull.Value))
cmd.Parameters.AddWithValue("@mit_TELOTEC_SB", If(m.mit_TELOTEC_SB, DBNull.Value))
cmd.Parameters.AddWithValue("@mit_AliasAD_Domain", If(m.mit_AliasAD_Domain, DBNull.Value))
cmd.Parameters.AddWithValue("@mit_AliasAD_Username", If(m.mit_AliasAD_Username, DBNull.Value))
Try
cmd.ExecuteNonQuery()

22
UID/usrctlProcedures.vb
View File

@@ -2364,27 +2364,27 @@ Public Class usrctlProcedures
VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = test
End Sub
Private Sub Button26_Click(sender As Object, e As EventArgs)
For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
Dim fi As New FileInfo(d)
If fi.Name >= 20190615 Then
'Private Sub Button26_Click(sender As Object, e As EventArgs)
' For Each d In System.IO.Directory.GetDirectories("\\192.168.0.91\Datenarchiv\DAKOSY\ECHTSYSTEM\Nachrichtendaten_Ablage\2019")
' Dim fi As New FileInfo(d)
' If fi.Name >= 20190615 Then
For Each f In System.IO.Directory.GetFiles(d)
If cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML(doc) Then
' For Each f In System.IO.Directory.GetFiles(d)
' If cGetMsgType.isEZA_FreierVerkehrAktVeredelUmwandlungXML(doc) Then
End If
Next
' End If
' Next
End If
' End If
Next
' Next
End Sub
'End Sub
End Class