API Einstellungen, Überstundenauszahlung, Sammelrechnungsdruck, etc

Aviso/frmATEZ_NCTS.vb

@@ -1,10 +1,4 @@
-Imports System.Web.UI.WebControls
-Imports com.esendex.sdk.sent
-Imports DocumentFormat.OpenXml.Drawing.Charts
-Imports DocumentFormat.OpenXml.Vml.Presentation
-Imports GrapeCity.ActiveReports.Design.DdrDesigner.Designers
-Imports GrapeCity.ActiveReports.ReportsCore.Tools
-Imports Newtonsoft.Json.Linq
+
 Imports SDL
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -31,7 +25,7 @@ Public Class frmATEZ_NCTS
     Dim id As Integer = -1
     Dim dgv As DataGridView = Nothing
     Dim atez_data As cATEZ_NCTS_DATA
-    Dim atez = New cATEZ_NCTS_IN
+    Dim atez = New cATEZ_NCTS_IN("atez")
     Dim allSelected As Boolean = False
 
     Property BezugsNr As String = ""

Aviso/frmDigicust.vb

@@ -5,7 +5,7 @@ Imports VERAG_PROG_ALLGEMEIN
 Public Class frmDigicust
 
 
-    Dim api As cDigicustAPI
+    Dim api As New cDigicustAPI("digicust")
     Dim dig_sendung As New cDigicustSendungen
 
     Dim ART As String = ""

Aviso/frmHauptfenster.vb

@@ -591,7 +591,7 @@ Public Class frmHauptfenster
 
             If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
                 If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then
-                    Dim timas As New cTimasAPI
+                    Dim timas As New cTimasAPI("timas")
                     Dim infoMessage As New DataTable
                     Dim timeEntryExisting As Boolean = False
                     Dim isEndpointRunning As Boolean = True
@@ -2881,10 +2881,10 @@ Public Class frmHauptfenster
     Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
 
         Try
-
+            If False Then
                 If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
                     If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then
-                    Dim timas As New cTimasAPI
+                        Dim timas As New cTimasAPI("timas")
                         Dim infoMessage As New DataTable
                         Dim timeEntryExisting As Boolean = False
                         Dim isEndpointRunning As Boolean = True
@@ -2903,11 +2903,12 @@ Public Class frmHauptfenster
 
                     End If
                 End If
-
+            End If
         Catch ex As Exception
             VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
         End Try
 
+
         Me.Close()
     End Sub
 

Aviso/frmSendungsdetailsNEU.vb

@@ -6614,7 +6614,7 @@ Public Class frmSendungsdetailsNEU
 
     Private Sub StatusAbrufenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles StatusAbrufenToolStripMenuItem.Click
         Dim digiSendung As New cDigicustSendungen(dgvDigicust.SelectedRows(0).Cells("Id").Value)
-        Dim API = New cDigicustAPI()
+        Dim API = New cDigicustAPI("digicust")
         API.fetchingCase(digiSendung)
 
         initdgvDigicust(SENDUNG_LIST(CURRENT_INDEX))