From 28c8fe05cc6b0438de8bf67b9e62c8bd16a4ab5b Mon Sep 17 00:00:00 2001
From: "d.breimaier" <d.breimaier@verag.ag>
Date: Wed, 4 Oct 2023 12:48:39 +0200
Subject: [PATCH] ATEZ, Timas, ASFINAG

---
 VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb                           | 3 ++-
 .../Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb     | 2 +-
 VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb         | 2 +-
 3 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb b/VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb
index de8c8991..d54b1bea 100644
--- a/VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb
+++ b/VERAG_PROG_ALLGEMEIN/Classes/cSDL.vb
@@ -87,7 +87,8 @@ Public Class cSDL
         Me.KundenNr = KundenNr
         Me.KfzKennzeichen = KfzKennzeichen
         Me.SDLNr = SDLNr
-        Me.History = SQL.getValueTxtBySql("SELECT TOP 1 History FROM SDL WHERE KundenNr='" & KundenNr & "' AND KfzKennzeichen='" & KfzKennzeichen & "' AND SDLNr='" & SDLNr & "' ORDER BY History DESC", "SDL")
+        Dim histroyTemp = SQL.getValueTxtBySql("SELECT TOP 1 History FROM SDL WHERE KundenNr='" & KundenNr & "' AND KfzKennzeichen='" & KfzKennzeichen & "' AND SDLNr='" & SDLNr & "' ORDER BY History DESC", "SDL")
+        Me.History = IIf(histroyTemp <> "", histroyTemp, 0)
         LOAD()
     End Sub
 
diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb
index 34791fe4..37da582d 100644
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb
@@ -858,7 +858,7 @@ Public Class cATEZ_NCTS_IN
                 'Dim json1 As New Chilkat.JsonObject
                 success = bd.LoadFile(VERAG_PROG_ALLGEMEIN.cDATENSERVER.GET_PDFPath_BY_DocID(r.Cells("anh_docId").Value))
                 success = jsonData.UpdateString("Attachments.Attachment[" & i & "].FileType", r.Cells("anh_Typ").Value)
-                success = jsonData.UpdateString("Attachments.Attachment[" & i & "].DocumentType", r.Cells("anh_Art").Value)
+                success = jsonData.UpdateString("Attachments.Attachment[" & i & "].DocumentType", IIf(r.Cells("anh_Art").Value IsNot DBNull.Value, r.Cells("anh_Art").Value, "OTHER"))
                 success = jsonData.UpdateString("Attachments.Attachment[" & i & "].base64BinaryStream", bd.GetEncoded("base64"))
                 i = i + 1
             End If
diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb
index fccd2466..02f52c54 100644
--- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb
+++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/TIMAS/cTimasAPI.vb
@@ -534,7 +534,7 @@ Public Class cTimasAPI
 
                 If (rest.ResponseStatusCode <> 201) Then
                     Debug.WriteLine(rest.ResponseHeader)
-                    MsgBox(rest.ResponseStatusCode & " " & rest.ResponseStatusText)
+                    MsgBox(rest.ResponseStatusCode & " " & rest.ResponseStatusText & vbNewLine & sbResponseBody.ToString)
                     Return Nothing
                 End If