Ausertung, Formulare

SDL/Formulare/KDFormulare/frmFormulare.vb

@@ -4416,8 +4416,10 @@ Public Class FormularManagerNEU
 
                     'listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtFirma.Text, 25, 103, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
                     'Splittung von Vor und Nachname
+                    If usrCntl.txtHerrFrau.Text <> "" Then
                         listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text.Substring(0, usrCntl.txtHerrFrau.Text.IndexOf(" ")).Trim, 25, 96, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
                         listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtHerrFrau.Text.Substring(usrCntl.txtHerrFrau.Text.IndexOf(" "), usrCntl.txtHerrFrau.TextLength - usrCntl.txtHerrFrau.Text.IndexOf(" ")).Trim(), 25, 113, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))
+                    End If
 
 
                     listTowrite.Add(New VERAG_PROG_ALLGEMEIN.cPDFWriteValues(usrCntl.txtOrt.Text, 25, 158, 150, 6, "bold", 10, , itextsharp.text.Element.ALIGN_LEFT))

SDL/frmMain.vb

@@ -143,7 +143,7 @@ Public Class frmMain
             Dim timas As New cTimasAPI
             Dim infoMessage As String = ""
             Dim timeEntryExisting As Boolean = False
-            Dim isEndpointRunning As Boolean
+            Dim isEndpointRunning As Boolean = True
             timas.getTimeEntries(cAllgemein.MITARBEITER.mit_timasId, Nothing, timeEntryExisting,, isEndpointRunning)
             If Not timeEntryExisting AndAlso isEndpointRunning Then
                 Dim a As MsgBoxResult = MsgBox("Für " & VERAG_PROG_ALLGEMEIN.cAllgemein.USRKURZNAME & " wurde heute noch keine Zeit erfasst!" & vbNewLine & Now.ToString() & " als Startzeit erfassen?", vbYesNo)

SDL/mdm/frmMDMDatenverarbetiung.Designer.vb

@@ -108,6 +108,7 @@ Partial Class frmMDMDatenverarbetiung
         Me.cbxASFINAGNichtAbgerechnet.TabIndex = 52
         Me.cbxASFINAGNichtAbgerechnet.Text = "nicht abgerechnet"
         Me.cbxASFINAGNichtAbgerechnet.UseVisualStyleBackColor = True
+        Me.cbxASFINAGNichtAbgerechnet.Visible = False
         '
         'cbxTestdaten
         '
@@ -120,6 +121,7 @@ Partial Class frmMDMDatenverarbetiung
         Me.cbxTestdaten.TabIndex = 51
         Me.cbxTestdaten.Text = "Testdaten"
         Me.cbxTestdaten.UseVisualStyleBackColor = True
+        Me.cbxTestdaten.Visible = False
         '
         'Panel4
         '

SDL/mdm/frmMDMDatenverarbetiung.vb

@@ -564,6 +564,9 @@ Public Class frmMDMDatenverarbetiung
             End If
         Next
 
+        cbxASFINAGNichtAbgerechnet.Visible = False
+        cbxTestdaten.Visible = False
+
         Select Case Me.LIEFERANT
             Case "PLOSE"
                 Panel4.Visible = True
@@ -578,6 +581,8 @@ Public Class frmMDMDatenverarbetiung
                 'Panel3.Controls.Add(c)
                 'c.Dock = DockStyle.Fill
             Case "ASFINAG"
+                cbxASFINAGNichtAbgerechnet.Visible = True
+                cbxTestdaten.Visible = True
                 Panel4.Visible = False
                 pnlAsfinag.Visible = True
 

SDL/mdm/usrCntlMDMAuswertungen.vb

@@ -989,7 +989,8 @@ Public Class usrCntlMDMAuswertungen
                                                     dbo.CLFBody.RecordType,
                                                     dbo.CLFBody.fileNumber,
                                                     dbo.CLFBody.cardNumber,
-                                                    dbo.CLFBody.validTo	OBUID,
+                                                    dbo.CLFBody.validTo,	
+                                                    dbo.CLFBody.OBUID,
                                                     dbo.CLFBody.vehicleLicensePlate,
                                                     dbo.CLFBody.nationality,
                                                     dbo.CLFBody.vehicleCategory,

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -4,6 +4,7 @@ Imports System.Net.Mail
 Imports System.Text
 Imports System.Windows.Forms
 Imports ClosedXML.Excel
+Imports Microsoft.Office.Interop
 
 Public Class cProgramFunctions
 
@@ -380,7 +381,9 @@ Public Class cProgramFunctions
 
         Try
             'SENDEN::::::::::::::::::::::
-            mySmtpsvr.Send(Msg)
+            Dim mailItem As Outlook.MailItem = TryCast(Msg, Outlook.MailItem)
+            mailItem.Display()
+            'mySmtpsvr.Send(Msg)
 
         Catch ex As Exception
             Try 'Falls Fehler nicht beim Senden, sonder was anderes.