edv/AVISO
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

API Einstellungen, Überstundenauszahlung, Sammelrechnungsdruck, etc

Browse Source
This commit is contained in:
d.breimaier
2024-04-17 08:50:06 +02:00
parent f875e95239
commit fbd49fa656
4 changed files with 22 additions and 27 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
Aviso/frmATEZ_NCTS.vb
View File

@@ -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 SDL
Imports VERAG_PROG_ALLGEMEIN Imports VERAG_PROG_ALLGEMEIN
@@ -31,7 +25,7 @@ Public Class frmATEZ_NCTS
Dim id As Integer = -1 Dim id As Integer = -1
Dim dgv As DataGridView = Nothing Dim dgv As DataGridView = Nothing
Dim atez_data As cATEZ_NCTS_DATA 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 Dim allSelected As Boolean = False
Property BezugsNr As String = "" Property BezugsNr As String = ""

2
Aviso/frmDigicust.vb
View File

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

35
Aviso/frmHauptfenster.vb
View File

@@ -591,7 +591,7 @@ Public Class frmHauptfenster
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln 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 infoMessage As New DataTable
Dim timeEntryExisting As Boolean = False Dim timeEntryExisting As Boolean = False
Dim isEndpointRunning As Boolean = True Dim isEndpointRunning As Boolean = True
@@ -2881,33 +2881,34 @@ Public Class frmHauptfenster
Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click Private Sub btnClose_Click(sender As Object, e As EventArgs) Handles btnClose.Click
Try 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("timas")
Dim infoMessage As New DataTable
Dim timeEntryExisting As Boolean = False
Dim isEndpointRunning As Boolean = True
Dim isPresent = timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning)
If timeEntryExisting AndAlso isEndpointRunning AndAlso isPresent Then
Dim a As MsgBoxResult = MsgBox("Soll " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " ausgestempelt werden?" & vbNewLine & Now.ToString() & " als Endzeit erfassen?", vbYesNo)
If a = vbYes Then
Dim info
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "out")
MsgBox(info)
Else
If VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasId IsNot Nothing Then End If
If Not VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.mit_timasNichtStempeln Then
Dim timas As New cTimasAPI
Dim infoMessage As New DataTable
Dim timeEntryExisting As Boolean = False
Dim isEndpointRunning As Boolean = True
Dim isPresent = timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, infoMessage, timeEntryExisting,, isEndpointRunning)
If timeEntryExisting AndAlso isEndpointRunning AndAlso isPresent Then
Dim a As MsgBoxResult = MsgBox("Soll " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " ausgestempelt werden?" & vbNewLine & Now.ToString() & " als Endzeit erfassen?", vbYesNo)
If a = vbYes Then
Dim info
timas.setTimeEntry(cAllgemein.MITARBEITER, Now, info, "out")
MsgBox(info)
Else
End If End If
End If End If
End If End If
End If End If
Catch ex As Exception Catch ex As Exception
VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name) VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
End Try End Try
Me.Close() Me.Close()
End Sub End Sub

2
Aviso/frmSendungsdetailsNEU.vb
View File

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