From 945223b97c5f740103101631995b52e667aa9754 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Tue, 5 Mar 2024 08:47:02 +0100 Subject: [PATCH] timas-Abfrage --- .../Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb | 6 +----- VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb | 5 +---- 2 files changed, 2 insertions(+), 9 deletions(-) diff --git a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb index fd8b5d31..230cdbc5 100644 --- a/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb +++ b/VERAG_PROG_ALLGEMEIN/Mitarbeiterverzeichnis/frmUeberstundenauszahlen.vb @@ -1,12 +1,8 @@  -Imports System.Data.Common -Imports System.Drawing -Imports System.Runtime.InteropServices.ComTypes Imports System.Text Imports System.Threading Imports System.Web.UI.WebControls Imports System.Windows.Forms -Imports System.Windows.Forms.VisualStyles.VisualStyleElement.ToolTip Public Class frmUeberstundenauszahlen Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL @@ -309,7 +305,7 @@ Public Class frmUeberstundenauszahlen picDel.Visible = False For Each c As Control In Panel1.Controls - If TypeOf c Is TextBox Then + If TypeOf c Is Windows.Forms.TextBox Then c.Text = "0" End If Next diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb index 8746a01f..144a6347 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb @@ -145,8 +145,6 @@ Public Class cTimasAPI 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 rest.IdleTimeoutMs = 5000 '5 sec Response = rest.FullRequestNoBody("GET", "/rest/web-api/employees/" & maid & "/bookings") @@ -191,8 +189,7 @@ Public Class cTimasAPI Dim timeEntry As Chilkat.JsonObject = jsonArray.ObjectAt(j) If IsDate(timeEntry.StringOf("stamp")) Then - If CDate(timeEntry.StringOf("stamp")) >= CDate(Today()) Or CDate(timeEntry.StringOf("stamp")) >= CDate(Today().AddDays(-1)) AndAlso CDate(timeEntry.StringOf("stamp")).Hour >= 16 Then 'entweder heute keine Stempelung oder gestern > 16 Uhr (wegen Nachtschicht!) - + If CDate(timeEntry.StringOf("stamp")) >= CDate(Today()) Or CDate(timeEntry.StringOf("stamp")) >= CDate(Today().AddDays(-1)) AndAlso CDate(timeEntry.StringOf("stamp")).Hour >= 16 AndAlso timeEntry.StringOf("type") = "in" Then 'entweder heute keine Stempelung oder gestern > 16 Uhr (wegen Nachtschicht!) Dim R As DataRow = dt.NewRow 'R("statusid") = timeEntry.StringOf("statusid")