From 89354f77399bbccbead691109d57764ac7707735 Mon Sep 17 00:00:00 2001 From: "d.breimaier" Date: Wed, 8 Oct 2025 17:33:47 +0200 Subject: [PATCH] offeneAntraege. CreditsafeAPI --- SDL/My Project/AssemblyInfo.vb | 4 ++-- SDL/USTV/frmUSTVoffeneAntraege.vb | 4 ++-- .../Schnittstellen/Creditsafe/cCreditSafeAPI.vb | 7 +++---- 3 files changed, 7 insertions(+), 8 deletions(-) diff --git a/SDL/My Project/AssemblyInfo.vb b/SDL/My Project/AssemblyInfo.vb index cc9d754d..c99c3862 100644 --- a/SDL/My Project/AssemblyInfo.vb +++ b/SDL/My Project/AssemblyInfo.vb @@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices ' übernehmen, indem Sie "*" eingeben: ' - - + + diff --git a/SDL/USTV/frmUSTVoffeneAntraege.vb b/SDL/USTV/frmUSTVoffeneAntraege.vb index b178dba1..7e139310 100644 --- a/SDL/USTV/frmUSTVoffeneAntraege.vb +++ b/SDL/USTV/frmUSTVoffeneAntraege.vb @@ -792,7 +792,7 @@ Public Class frmUSTVoffeneAntraege left join tblUStVAntrag on UStVAn_KuNr = temp.kdnr and UStVAn_ReDatVon <= temp.Rechnungsdatum and UStVAn_ReDatBis >= temp.Rechnungsdatum and [Länderverzeichnis für die Außenhandelsstatistik].LandNr = UStVAn_LandNr and isnull(UStVAn_AntragArt,'MWST') = 'MWST' left JOIN tblSteuernummern On temp.Einreichland = tblSteuernummern.LandKz and KdNr = tblSteuernummern.AdressenNr where 1 = 1 and isnull(kde_keineMWSt,0) = 0 " & sqlwhereLand & sqlwhereSteuerNr & sqlwhereLieferant & - " group by isnull(UStVAn_ID,0) , Lieferant, KdNr, Kundenname,Kundenland, Einreichland, isnull(tblSteuernummern.UStV,0), case WHEN UStVAn_AntragEingereichtAm IS NULL THEN 0 else 1 end " + " group by isnull(UStVAn_ID,0) , Lieferant, KdNr, Kundenname,Kundenland, Einreichland, isnull(tblSteuernummern.UStV,0), case WHEN UStVAn_AntragEingereichtAm IS NULL THEN 0 else 1 end order by Kundenname " Dim SQLWhere = "" @@ -1089,7 +1089,7 @@ Public Class frmUSTVoffeneAntraege WHERE t1.KdNr = t2.KdNr FOR XML PATH ('')) , 1, 1, ';') from tblKundenMWST t2 - group by KdNr;", "FMZOLL") + group by KdNr order by kdNr;", "FMZOLL") End If diff --git a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb index 2c0283c5..6381a086 100644 --- a/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb +++ b/VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb @@ -136,7 +136,7 @@ Public Class cCreditSafeAPI If type = "addCompanyToPortfolio_CSV" Then rest.PartSelector = "0" - rest.AddHeader("Content-Type", "multipart/form-data") + rest.AddHeader("Content-Type", "multipart/form-data") 'nicht notwendig!!! - wird automatisch gesetzt rest.AddHeader("Expect", "100-continue") Else rest.AddHeader("Content-Type", "application/json") @@ -163,12 +163,11 @@ Public Class cCreditSafeAPI rest.PartSelector = "2" rest.AddHeader("Content-Disposition", "form-data; name=""email""") - rest.AddHeader("Content-Type", "text") - rest.SetMultipartBodyString("d.breimaier@verag.ag") ';as@verag.ag;Viktoria.Leirich@imex-group.at - + rest.SetMultipartBodyString("d.breimaier@verag.ag;as@verag.ag;Viktoria.Leirich@imex-group.at") rest.PartSelector = "0" + Dim strResponseBody As String = rest.FullRequestMultipart(method, url.Replace(API_STRING, "")) If (rest.LastMethodSuccess <> True) Then Debug.WriteLine(rest.LastErrorText)