Merge branch 'master' of https://verag.visualstudio.com/SDL/_git/SDL

VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmMitarbeitersuche.vb

@@ -338,6 +338,7 @@ Public Class frmMitarbeitersuche
                             Case Else
                                 timestp = timestp.AddMinutes(1) 'NICHT ERLAUBT
                         End Select
+                    Else
                         timestp = timestp.AddMinutes(1) 'NICHT ERLAUBT
                     End If
 
@@ -350,7 +351,23 @@ Public Class frmMitarbeitersuche
                 End If
 
             ElseIf art = "akten" Then
-                Dim aktengang As DateTime = Now().AddMinutes(-10)
+
+                Dim minutesBeforeStart As Integer = 1
+
+                If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_niederlassung <> "" Then
+                    Select Case VERAG_PROG_ALLGEMEIN.cAllgemein.NIEDERLASSUNG
+                        Case "SUB" : minutesBeforeStart = 10
+                        Case "NKN" : minutesBeforeStart = 45
+                        Case Else
+                            minutesBeforeStart = 1 'NICHT ERLAUBT
+                    End Select
+                Else
+
+                    minutesBeforeStart = 1 'NICHT ERLAUBT
+                End If
+
+
+                Dim aktengang As DateTime = Now().AddMinutes(-minutesBeforeStart)
                 Dim askPost As MsgBoxResult = MsgBox("Aktengang für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " eintragen?" & vbNewLine & aktengang.ToString(), vbYesNo)
                 If askPost = vbYes Then
                         Dim info
@@ -360,7 +377,7 @@ Public Class frmMitarbeitersuche
                         Dim isOnline = timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, Nothing, timeEntryExisting)
                     If Not timeEntryExisting AndAlso Not isOnline Then
                         timas.setTimeEntry(cAllgemein.MITARBEITER, timestp, info, "in", 10) 'Start 10 Aktengang
-                        timestp = timestp.AddMinutes(10)
+                        timestp = timestp.AddMinutes(minutesBeforeStart)
                         timas.setTimeEntry(cAllgemein.MITARBEITER, timestp, info, "out", 10) 'Ende 10 Aktengang
                         timestp = timestp.AddMinutes(1)
                         timas.setTimeEntry(cAllgemein.MITARBEITER, timestp, info, "in", 0) ' Start

VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb

@@ -218,7 +218,7 @@ Public Class cTimasAPI
 
     End Function
 
-    Public Function createEmployee(ByVal mitarbeiter As cMitarbeiter, ByRef info As String, ByRef datatableTimas As DataTable, Optional ByRef requestDone As Boolean = False)
+    Public Function createEmployee(ByVal mitarbeiter As cMitarbeiter, ByRef info As String, ByVal ClientNr As String, ByRef datatableTimas As DataTable, Optional ByRef requestDone As Boolean = False)
         Try
 
             rest.ClearAllHeaders()
@@ -263,6 +263,7 @@ Public Class cTimasAPI
             success = json.UpdateString("phone1", mitarbeiter.mit_telefonnr & " " & mitarbeiter.mit_durchwahl)
             success = json.UpdateString("phone2", mitarbeiter.mit_mobiltel)
             success = json.UpdateString("password", mitarbeiter.mit_pwd)
+            success = json.UpdateString("clientNumber", IIf(ClientNr <> "", ClientNr, mitarbeiter.mit_firma & " - " & mitarbeiter.mit_abteilung))
             success = json.UpdateBool("resetPassword", 0)
 
             Dim i As Integer = 0

VERAG_PROG_ALLGEMEIN/Schnittstellen/cTherefore.vb

@@ -19,7 +19,8 @@ Public Class cTherefore
                 '   Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import an Jänner 2019", "Import ab Jänner 2019", deleteFileAfterImport)
                 'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2021", "Import ab Jänner 2021", deleteFileAfterImport)
                 'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2022", "Import ab Jänner 2022", deleteFileAfterImport)
-                Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2023", "Import ab Jänner 2023", deleteFileAfterImport)
+                'Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2023", "Import ab Jänner 2023", deleteFileAfterImport)
+                Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2024", "Import ab Jänner 2023", deleteFileAfterImport)
                 '  Return saveFileTo_ImportFolderCat(Path, FilialeAbfertigungsNr, AvisoId, "Import ab Jänner 2020", "Import ab Jänner 2020", deleteFileAfterImport)
             Case Else
                 Return False