Imports System.Net

Public Class cTimasAPI

    Dim API_STRING = "https://zeit.verag.ag"
    Dim rest As New Chilkat.Rest



    Sub New()
        VERAG_PROG_ALLGEMEIN.cChilkat_Helper.UnlockCilkat()
    End Sub


    Public Function checkConnectionTImas(ByRef failureText As String) As Boolean
        Try
            Dim success As Boolean

        rest.VerboseLogging = False
        Dim bTls As Boolean = True
        Dim port As Integer = 443
        Dim bAutoReconnect As Boolean = True
        success = rest.Connect(API_STRING, port, bTls, bAutoReconnect)
        If (success <> True) Then
            Debug.WriteLine("ConnectFailReason: " & rest.ConnectFailReason)
            Debug.WriteLine(rest.LastErrorText)
            failureText = rest.LastErrorText
            Return False
        End If

        success = rest.SetAuthBasic("admin", "BmWr501956")

        If (success <> True) Then
            Debug.WriteLine("BAFailReason: " & rest.ConnectFailReason)
            Debug.WriteLine(rest.LastErrorText)
            failureText = rest.LastErrorText
            Return False
        End If

            Return True

        Catch ex As WebException
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try

    End Function

    Public Sub getTimeSaldo(ByVal maid As Integer, ByRef info As String, Optional ByRef requestDone As Boolean = False)
        Try
            Dim returnText As String = ""
            Dim failureText As String = ""


            If maid < 1 Then
                Exit Sub
            End If

            If Not checkConnectionTImas(failureText) Then
                Exit Sub
            End If


            Dim success As Boolean


            Dim responseJson As String = rest.FullRequestNoBody("GET", "/rest/web-api/employees/" & maid & "/balance")
            If (rest.LastMethodSuccess <> True) Then
                Debug.WriteLine(rest.LastErrorText)
                Exit Sub
            End If

            If (rest.ResponseStatusCode <> 200) Then
                Debug.WriteLine(rest.ResponseHeader)
                'lblTimas.Text = rest.ResponseStatusCode & " " & rest.ResponseStatusText
                Exit Sub
            End If

            Debug.WriteLine(responseJson)


            Dim json As New Chilkat.JsonObject
            success = json.Load(responseJson)
            If (success <> True) Then
                Debug.WriteLine(json.LastErrorText)
            End If

            Debug.WriteLine(json)

            '"overallBalance" 101580,
            '"dailyBalance": -17340,
            '"monthlyBalance": -328380,
            '"actualTimeOfDay": 4260,


            Dim saldo = json.StringOf("dailyBalanceYesterday") 'Tagessaldo (gestern) in Sekunden

            If saldo IsNot Nothing Then
                Dim saldoAsDouble = CDbl(saldo)
                saldoAsDouble = Math.Round(saldoAsDouble / 3600, 2)
                info = "Saldo Vortag: " & saldoAsDouble & "h"
            End If




        Catch ex As WebException
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try

    End Sub

    Public Sub getTimeEntries(ByVal maid As Integer, ByRef info As String, Optional ByRef entryExistingToday As Boolean = True, Optional ByRef requestDone As Boolean = False)
        Try

            Dim returnText As String = ""
            Dim failureText As String = ""


            If maid < 1 Then
                Exit Sub
            End If

            If Not checkConnectionTImas(failureText) Then
                Exit Sub
            End If

            Dim success As Boolean

            rest.AddQueryParam("id", maid)
            rest.AddQueryParam("from", Today().AddDays(-1).ToString("yyyy-MM-ddTHH:mm:ss"))
            rest.AddQueryParam("to", Now().ToString("yyyy-MM-ddTHH:mm:ss"))



            Dim Response As String
            Response = rest.FullRequestNoBody("GET", "/rest/web-api/employees/" & maid & "/bookings")
            If (rest.LastMethodSuccess <> True) Then
                Debug.WriteLine(rest.LastErrorText)
                Exit Sub
            End If

            If (rest.ResponseStatusCode <> 200) Then
                Debug.WriteLine(rest.ResponseHeader)
                'rest.ResponseStatusCode & " " & rest.ResponseStatusText
                Exit Sub
            End If

            Debug.WriteLine(Response)
            Dim jsonArray As New Chilkat.JsonArray
            success = jsonArray.Load(Response)
            If (success <> True) Then
                Debug.WriteLine(jsonArray.LastErrorText)
                Exit Sub
            End If


            If jsonArray.Size = -1 Then
                Exit Sub
            End If

            Dim dt As New DataTable
            dt.Columns.Add("statusid", GetType(Integer))
            dt.Columns.Add("stamp", GetType(DateTime))
            dt.Columns.Add("type", GetType(String))


            entryExistingToday = False
            Dim j As Integer = 0
            While j < jsonArray.Size

                Dim timeEntry As Chilkat.JsonObject = jsonArray.ObjectAt(j)

                If IsDate(timeEntry.StringOf("stamp")) Then
                    If CDate(timeEntry.StringOf("stamp")) >= CDate(Today()) Then


                        Dim R As DataRow = dt.NewRow
                        R("statusid") = timeEntry.StringOf("statusid")
                        R("stamp") = timeEntry.StringOf("stamp")
                        R("type") = timeEntry.StringOf("type")
                        dt.Rows.Add(R)
                        entryExistingToday = True
                        info &= " " & IIf(timeEntry.StringOf("type") = "in", "+", " - ") & CDate(timeEntry.StringOf("stamp")).ToString("HH:mm:ss")
                        If jsonArray.Size - 1 = j Then
                            info &= " Status: " & IIf(timeEntry.StringOf("type") = "in", "Anwesend", "Abwesend")
                        End If

                    End If
                End If
                j = j + 1
            End While


            requestDone = True
            rest.ClearAllQueryParams()


        Catch ex As WebException
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try

    End Sub

    Public Function createMA(ByVal mitarbeiter As cMitarbeiter, ByRef info As String, ByRef dgvData As MyDatagridview, Optional ByRef requestDone As Boolean = False)
        Try

            rest.ClearAllHeaders()
            rest.ClearAllParts()

            Dim timasEmployeeCreated As Boolean = False

            Dim returnText As String = ""
            Dim failureText As String = ""

            If Not checkConnectionTImas(failureText) Then
                Return timasEmployeeCreated
            End If


            rest.AddHeader("Content-Type", "application/json")

            Dim success As Boolean
            Dim json As New Chilkat.JsonObject
            success = json.UpdateString("externid", mitarbeiter.mit_id)
            success = json.UpdateString("markingColor", "#3acc2d")
            success = json.UpdateString("pnr1", mitarbeiter.mit_PersonalNr)
            'success = json.UpdateString("pnr2", "ZZ-3A-Q")
            success = json.UpdateString("firstname", mitarbeiter.mit_vname)
            success = json.UpdateString("lastname", mitarbeiter.mit_nname)
            success = json.UpdateString("gender", IIf(mitarbeiter.mit_geschlecht = "m", "male", "female"))
            'success = json.UpdateInt("card", 42)
            'success = json.UpdateString("info", "Gebäude 2, 1. OG, Büro 54")
            'success = json.UpdateString("clientNumber", "5600-02")
            'success = json.UpdateInt("rfid", 178230359)
            success = json.UpdateString("birthday", CDate(mitarbeiter.mit_gebdat).ToString("yyyy-MM-dd"))
            success = json.UpdateString("entry", CDate(mitarbeiter.mit_einstiegsdatum).ToString("yyyy-MM-dd"))
            success = json.UpdateNull("exit")
            success = json.UpdateString("importSign", "AX-034511")
            success = json.UpdateString("login", mitarbeiter.mit_AliasAD_Username)
            success = json.UpdateBool("loginActive", 0)
            success = json.UpdateString("email", mitarbeiter.mit_email)
            success = json.UpdateString("street", mitarbeiter.mit_strasse)
            success = json.UpdateString("city", mitarbeiter.mit_ort)
            success = json.UpdateString("zipcode", mitarbeiter.mit_plz)
            success = json.UpdateString("phone1", mitarbeiter.mit_telefonnr & " " & mitarbeiter.mit_durchwahl)
            success = json.UpdateString("phone2", mitarbeiter.mit_mobiltel)
            success = json.UpdateString("password", "password")
            success = json.UpdateBool("resetPassword", 1)

            For Each r In dgvData.Rows
                Dim i As Integer = 0
                If r.Cells("set").Value = True Then
                    success = json.UpdateInt("groups[" & i & "]", r.Cells("id").Value)
                End If


            Next

            Debug.WriteLine(json.Emit())

            Dim sbRequestBody As New Chilkat.StringBuilder
            json.EmitSb(sbRequestBody)

            Dim sbResponseBody As New Chilkat.StringBuilder
            success = rest.FullRequestSb("POST", "/rest/web-api/employees", sbRequestBody, sbResponseBody)
            If (success <> True) Then
                Debug.WriteLine(rest.LastErrorText)
                Return timasEmployeeCreated
            End If


            If (rest.LastMethodSuccess <> True) Then
                Debug.WriteLine(rest.LastErrorText)
                info = rest.LastErrorText
                Return timasEmployeeCreated
            End If

            If (rest.ResponseStatusCode <> 201) Then
                Debug.WriteLine(rest.ResponseHeader)
                info = rest.ResponseStatusCode & " " & rest.ResponseStatusText
                If sbResponseBody.GetAsString <> "" Then
                    info &= vbNewLine & sbResponseBody.GetAsString
                End If
                Return timasEmployeeCreated
            Else
                info = "Mitarbeiter angelegt!"

                Dim jsonResult As New Chilkat.JsonObject
                success = jsonResult.LoadSb(sbResponseBody)
                jsonResult.Emit()

                info &= "Timas-ID: " & jsonResult.StringOf("id") & vbNewLine
                info &= "MA-ID: " & jsonResult.StringOf("externid") & vbNewLine
                info &= "Name: " & jsonResult.StringOf("firstname") & " " & jsonResult.StringOf("lastname")

                mitarbeiter.mit_timasId = jsonResult.StringOf("id")
                mitarbeiter.SAVE()
                timasEmployeeCreated = True
                Return timasEmployeeCreated

            End If

            Return timasEmployeeCreated

        Catch ex As WebException
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try

    End Function



    Public Sub getInfo(ByVal mitarbeiter As cMitarbeiter, ByRef info As String)

        Dim failureText As String = ""

        'If Not cbxTimasAngelegt.Checked Then
        '    info = "Mitarbeiter nicht im Timas angelegt!"
        '    Exit Sub
        'End If

        Try

            If Not checkConnectionTImas(failureText) Then
                Exit Sub
            End If

            Dim responseJson As String = rest.FullRequestNoBody("GET", "/rest/web-api/employees/" & mitarbeiter.mit_timasId)
            If (rest.LastMethodSuccess <> True) Then
                Debug.WriteLine(rest.LastErrorText)
                Exit Sub
            End If

            If (rest.ResponseStatusCode <> 200) Then
                Debug.WriteLine(rest.ResponseHeader)
                info = rest.ResponseStatusCode & " " & rest.ResponseStatusText
                Exit Sub
            End If

            Debug.WriteLine(responseJson)


            Dim json As New Chilkat.JsonObject
            Dim success = json.Load(responseJson)
            If (success <> True) Then
                Debug.WriteLine(json.LastErrorText)
            End If

            Debug.WriteLine(json)
            info &= IIf(json.StringOf("entry") <> "", "Startdatum: " & json.StringOf("entry") & vbNewLine, "")
            info &= IIf(json.StringOf("externid") <> "", "MA-ID: " & json.StringOf("externid") & vbNewLine, "")
            info &= IIf(json.StringOf("pnr1") <> "", "PersonalNr: " & json.StringOf("pnr1") & vbNewLine, "")
            info &= IIf(json.StringOf("firstname") <> "", "Vorame: " & json.StringOf("firstname") & vbNewLine, "")
            info &= IIf(json.StringOf("lastname") <> "", "Nachname: " & json.StringOf("lastname") & vbNewLine, "")
            info &= IIf(json.StringOf("info") <> "", "Info: " & json.StringOf("info") & vbNewLine, "")
            info &= IIf(json.StringOf("id") <> "", "Timas-ID: " & json.StringOf("id") & vbNewLine, "")
            If json.BoolOf("loginActive") Then
                info &= IIf(json.StringOf("login") <> "", "Login: " & vbNewLine & json.StringOf("login") & vbNewLine, "")
                info &= IIf(json.StringOf("password") <> "", "PW: " & json.StringOf("password"), "")
            End If



        Catch ex As WebException
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try
    End Sub

    Public Sub getGroups(ByRef dt As DataTable)

        Try

            Dim failureText As String = ""
            If Not checkConnectionTImas(failureText) Then
                Exit Sub
            End If


            dt.Columns.Add("id", GetType(Integer))
            dt.Columns.Add("name", GetType(String))
            dt.Columns.Add("info", GetType(String))
            dt.Columns.Add("set", GetType(Boolean))

            Dim responseBody As String = rest.FullRequestNoBody("GET", API_STRING & "/rest/web-api/groups3")
            If (rest.LastMethodSuccess <> True) Then
                Debug.WriteLine(rest.LastErrorText)
                Exit Sub
            End If

            If (rest.ResponseStatusCode <> 200) Then
                Debug.WriteLine(rest.ResponseStatusCode & " " & rest.ResponseStatusText)
            End If


            Dim jsonArray As New Chilkat.JsonArray
            Dim success As Boolean = jsonArray.Load(responseBody)
            If (success <> True) Then
                Debug.WriteLine(jsonArray.LastErrorText)
                Exit Sub
            End If


            Dim num As Integer = jsonArray.Size
            If num = -1 Then
                Exit Sub
            End If


            Dim j As Integer = 0
            While j < num

                Dim groups As Chilkat.JsonObject = jsonArray.ObjectAt(j)

                Dim R As DataRow = dt.NewRow
                R("id") = groups.IntOf("id")
                R("name") = groups.StringOf("name")
                R("info") = groups.StringOf("info")
                If R("id") = "19" Or R("id") = "129" Then 'Typ Mitarbeiter und Standardgruppe für Mitarbeiter Default true
                    R("set") = True
                Else
                    R("set") = False
                End If
                dt.Rows.Add(R)
                j = j + 1
            End While


        Catch ex As WebException
            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
        End Try

    End Sub

    Public Function setTimeEntry(ByVal mitarbeiter As cMitarbeiter, ByVal timeEntry As DateTime, ByRef info As String, ByRef inout As String)
        Dim failureText As String = ""
        Dim timeEntryCreated As Boolean = False

        If Not checkConnectionTImas(failureText) Then
            Return timeEntryCreated
        End If

        If Not mitarbeiter.mit_timasId > 0 Then
            info = "Mitarbeiter besitzt keine TImas-Zuordnung"
            Return timeEntryCreated
        End If

        Dim entryType As String

        Select Case inout
            Case "in"
                entryType = "KOMMT"

            Case "out"
                entryType = "GEHT"

            Case Else
                entryType = "falscher ErfassgsTyp: " & inout
                info = entryType
                Return timeEntryCreated
        End Select


        Dim json As New Chilkat.JsonObject
        json.UpdateString("stamp", timeEntry.ToString("yyyy-MM-ddTHH:mm:ss"))
        json.UpdateInt("statusnumber", 0) '
        json.UpdateString("type", inout)
        json.UpdateString("employeeid", mitarbeiter.mit_timasId)

        Dim sbRequestBody As New Chilkat.StringBuilder
        json.EmitSb(sbRequestBody)

        Dim sbResponseBody As New Chilkat.StringBuilder
        Dim success = rest.FullRequestSb("POST", "/rest/web-api/bookings", sbRequestBody, sbResponseBody)
        If (success <> True) Then
            Debug.WriteLine(rest.LastErrorText)
            Return timeEntryCreated
        End If


        If (rest.LastMethodSuccess <> True) Then
            Debug.WriteLine(rest.LastErrorText)
            info = rest.LastErrorText
            Return timeEntryCreated
        End If

        If (rest.ResponseStatusCode <> 200) Then
            Debug.WriteLine(rest.ResponseHeader)
            info = rest.ResponseStatusCode & " " & rest.ResponseStatusText
            If sbResponseBody.GetAsString <> "" Then
                info &= vbNewLine & sbResponseBody.GetAsString
            End If
            Return timeEntryCreated
        Else

            info = "Zeiteintrag " & entryType & " angelegt!"

            'Dim jsonResult As New Chilkat.JsonObject
            'success = jsonResult.LoadSb(sbResponseBody)
            'jsonResult.Emit()
            timeEntryCreated = True

        End If

        Return timeEntryCreated


    End Function


End Class