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

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