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

MA, ZOLLIMPORT

Browse Source
This commit is contained in:
Andreas Luxbauer
2023-11-01 09:10:36 +01:00
parent 0e6f88e932
commit 4099944709
8 changed files with 1145 additions and 1032 deletions
Download Patch File Download Diff File Expand all files Collapse all files

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

@@ -205,6 +205,8 @@ Partial Class frmMitarbDetails
Me.cboAdminBer = New System.Windows.Forms.ComboBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.cboEZOLL_SB_UNISPED = New VERAG_PROG_ALLGEMEIN.MyComboBox()
Me.Label62 = New System.Windows.Forms.Label()
CType(Me.PictureBox1, System.ComponentModel.ISupportInitialize).BeginInit()
Me.Panel1.SuspendLayout()
Me.TabControl2.SuspendLayout()
@@ -555,6 +557,8 @@ Partial Class frmMitarbDetails
'
'TabPage4
'
Me.TabPage4.Controls.Add(Me.Label62)
Me.TabPage4.Controls.Add(Me.cboEZOLL_SB_UNISPED)
Me.TabPage4.Controls.Add(Me.Label61)
Me.TabPage4.Controls.Add(Me.txtATGRNAccessCode_AT51FP7)
Me.TabPage4.Controls.Add(Me.txtATGRNAccessCode_AT52VA6)
@@ -700,7 +704,7 @@ Partial Class frmMitarbDetails
Me.cboEZOLL_SB.FormattingEnabled = True
Me.cboEZOLL_SB.Location = New System.Drawing.Point(217, 29)
Me.cboEZOLL_SB.Name = "cboEZOLL_SB"
Me.cboEZOLL_SB.Size = New System.Drawing.Size(214, 21)
Me.cboEZOLL_SB.Size = New System.Drawing.Size(116, 21)
Me.cboEZOLL_SB.TabIndex = 109
'
'cboATLAS_SB
@@ -2255,6 +2259,30 @@ Partial Class frmMitarbDetails
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(61, 4)
'
'cboEZOLL_SB_UNISPED
'
Me.cboEZOLL_SB_UNISPED._allowedValuesFreiText = Nothing
Me.cboEZOLL_SB_UNISPED._allowFreiText = False
Me.cboEZOLL_SB_UNISPED._value = ""
Me.cboEZOLL_SB_UNISPED.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.SuggestAppend
Me.cboEZOLL_SB_UNISPED.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems
Me.cboEZOLL_SB_UNISPED.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cboEZOLL_SB_UNISPED.FormattingEnabled = True
Me.cboEZOLL_SB_UNISPED.Location = New System.Drawing.Point(332, 29)
Me.cboEZOLL_SB_UNISPED.Name = "cboEZOLL_SB_UNISPED"
Me.cboEZOLL_SB_UNISPED.Size = New System.Drawing.Size(104, 21)
Me.cboEZOLL_SB_UNISPED.TabIndex = 121
'
'Label62
'
Me.Label62.AutoSize = True
Me.Label62.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label62.Location = New System.Drawing.Point(375, 13)
Me.Label62.Name = "Label62"
Me.Label62.Size = New System.Drawing.Size(61, 13)
Me.Label62.TabIndex = 122
Me.Label62.Text = "(UNISPED)"
'
'frmMitarbDetails
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -2485,4 +2513,6 @@ Partial Class frmMitarbDetails
Friend WithEvents txtATGRNAccessCode_AT51FP7 As TextBox
Friend WithEvents TabPage7 As TabPage
Friend WithEvents lbSprachen As VERAG_PROG_ALLGEMEIN.MyListBox
Friend WithEvents Label62 As Label
Friend WithEvents cboEZOLL_SB_UNISPED As VERAG_PROG_ALLGEMEIN.MyComboBox
End Class

11
UID/Mitarbeiter/frmMitarbDetails.vb
View File

@@ -661,6 +661,7 @@ Public Class frmMitarbDetails
If ZOLLDATENBEARB Then
mitarbeiter.mit_EZOLL_SB = If(cboEZOLL_SB._value = "", Nothing, cboEZOLL_SB._value)
mitarbeiter.mit_ATLAS_SB = If(cboATLAS_SB._value = "", Nothing, cboATLAS_SB._value)
mitarbeiter.mit_EZOLL_SB_UNISPED = If(cboEZOLL_SB_UNISPED._value = "", Nothing, cboEZOLL_SB_UNISPED._value)
End If
If mitarbeiter.mit_FMZollPersID IsNot Nothing And cboKasse._value <> "" Then
@@ -880,7 +881,17 @@ Public Class frmMitarbDetails
tbcntr.SelectedIndex = 0
Exit Sub
End Try
Try
cboEZOLL_SB_UNISPED.fillWithSQL("SELECT [PersonalID],[UserID] FROM [zzPersonal] where lizenznr='S01133' ORDER BY UserID ", False, "EZOLL_UNISPED", True)
Catch ex As Exception
MsgBox("EZOLL UNISPED Problem")
tbcntr.SelectedIndex = 0
Exit Sub
End Try
If If(mitarbeiter.mit_EZOLL_SB_UNISPED, -1) > 0 Then
cboEZOLL_SB_UNISPED._value = mitarbeiter.mit_EZOLL_SB_UNISPED
End If
If If(mitarbeiter.mit_EZOLL_SB, -1) > 0 Then
cboEZOLL_SB._value = mitarbeiter.mit_EZOLL_SB
End If