div. Änderungen, etc.

VERAG_PROG_ALLGEMEIN/Classes/cTrdInvoice.vb

@@ -781,7 +781,7 @@ Class TrdInvoice_FUNCTIONS
                  Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag)+Sum(RechnungsausgangPositionen.SteuerfreierBetrag)+((Sum(RechnungsausgangPositionen.SteuerpflichtigerBetrag)*min(Rechnungsausgang.[Steuersatz %])*100)/100) AS RK_Rechnungsbetrag, 
                  Count(1) AS RK_Satzzähler, '' as VZ, 0 as BV, 'RE' as Source
                 FROM Rechnungsausgang INNER JOIN RechnungsausgangPositionen ON Rechnungsausgang.RK_ID = RechnungsausgangPositionen.RK_ID
-                WHERE (((Rechnungsausgang.RechnungsDatum) Is Not Null) AND ((Rechnungsausgang.RechnungsNr) Is Not Null) AND ((Rechnungsausgang.Trdin)=0)) " & If(Firma > 0, " and Firma_ID=" & Firma, "") & If(Buchungsjahr > 0, " and Buchungsjahr=" & Buchungsjahr, "") & "
+                WHERE (((Rechnungsausgang.RechnungsDatum) Is Not Null) AND (isnull(Rechnungsausgang.RechnungsNr,0) > 0) AND ((Rechnungsausgang.Trdin)=0)) " & If(Firma > 0, " and Firma_ID=" & Firma, "") & If(Buchungsjahr > 0, " and Buchungsjahr=" & Buchungsjahr, "") & "
                 GROUP BY Rechnungsausgang.RechnungsDatum, Rechnungsausgang.RechnungsNr"
 
         If WithOrderClause Then

VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb

@@ -121,13 +121,15 @@ Public Class cTimasAPI
             rest.AddQueryParam("format", datetimeformat)
 
             If timeStamp_deadline <> "" AndAlso IsDate(timeStamp_deadline) Then
-                rest.AddQueryParam("stamp", CDate(timeStamp_deadline).ToString("yyyy-MM-dd"))
-                rest.IdleTimeoutMs = 300000
+                rest.AddQueryParam("stamp", CDate(timeStamp_deadline).ToString("dd.MM.yyyy"))
+                rest.IdleTimeoutMs = 60000
             Else
                 rest.IdleTimeoutMs = 30000 'defualt
 
             End If
 
+            Dim sw = Stopwatch.StartNew()
+
             Dim responseJson As String = rest.FullRequestNoBody("GET", "/rest/web-api/employees/" & maid & "/balance")
             If (rest.LastMethodSuccess <> True) Then
                 Debug.WriteLine(rest.LastErrorText)
@@ -135,6 +137,10 @@ Public Class cTimasAPI
 
                 Return timesaldo
             End If
+            sw.Stop()
+            Debug.WriteLine($"Request dauerte {sw.ElapsedMilliseconds} ms")
+            Debug.WriteLine(rest.LastErrorText)
+
 
             If (rest.ResponseStatusCode <> 200) Then
                 Debug.WriteLine(rest.ResponseHeader)
@@ -1059,7 +1065,7 @@ Public Class cTimasAPI
                 dt.Columns.Add("Geschlecht", GetType(String))
                 dt.Columns.Add("Ausweis-Nr", GetType(Integer))
                 dt.Columns.Add("Info", GetType(String))
-                dt.Columns.Add("Mandant", GetType(String))
+                'dt.Columns.Add("Mandant", GetType(String))
             End If
             dt.Clear()
 

VERAG_PROG_ALLGEMEIN/Schnittstellen/cSyska_Interface.vb

@@ -180,7 +180,7 @@ Public Class cSyska_Interface
         getPersonenKto_MDM &= FormatStringSYS(row("Ort"), 50) & vbTab
         getPersonenKto_MDM &= cProgramFunctions.getISO2Land(FormatStringSYS(LandKz, 5)) & vbTab
         getPersonenKto_MDM &= CDate(row("EingegebenAm")).ToShortDateString & vbTab 'Eröffnungsdatum
-        'getPersonenKto_MDM &= Gegenkontonummer & vbTab
+        getPersonenKto_MDM &= "2000" & vbTab
         getPersonenKto_MDM &= vbTab 'Bankname
         getPersonenKto_MDM &= If(Lastschrift, row("BLZ"), "") & vbTab
         getPersonenKto_MDM &= If(Lastschrift, row("KTO"), "") & vbTab

VERAG_PROG_ALLGEMEIN/frmDatumsabfrage.Designer.vb

@@ -234,7 +234,7 @@ Partial Class frmDatumsabfrage
     Friend WithEvents btnClose As Button
     Friend WithEvents btn As Button
     Friend WithEvents lbl As Label
-    Friend WithEvents Label1 As Label
+    Public WithEvents Label1 As Label
     Public WithEvents dtp_date As DateTimePicker
     Friend WithEvents pnlKunde As Panel
     Public WithEvents cboKundenkreis As VERAG_PROG_ALLGEMEIN.MyComboBox