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

offeneAntraege. CreditsafeAPI

Browse Source
This commit is contained in:
d.breimaier
2025-10-08 17:33:47 +02:00
parent ce29fa679d
commit 89354f7739
3 changed files with 7 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
SDL/My Project/AssemblyInfo.vb
View File

@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
' übernehmen, indem Sie "*" eingeben: ' übernehmen, indem Sie "*" eingeben:
' <Assembly: AssemblyVersion("1.0.*")> ' <Assembly: AssemblyVersion("1.0.*")>
<Assembly: AssemblyVersion("1.4.5.9")> <Assembly: AssemblyVersion("1.4.6.0")>
<Assembly: AssemblyFileVersion("1.4.5.9")> <Assembly: AssemblyFileVersion("1.4.6.0")>

4
SDL/USTV/frmUSTVoffeneAntraege.vb
View File

@@ -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 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 left JOIN tblSteuernummern On temp.Einreichland = tblSteuernummern.LandKz and KdNr = tblSteuernummern.AdressenNr
where 1 = 1 and isnull(kde_keineMWSt,0) = 0 " & sqlwhereLand & sqlwhereSteuerNr & sqlwhereLieferant & 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 = "" Dim SQLWhere = ""
@@ -1089,7 +1089,7 @@ Public Class frmUSTVoffeneAntraege
WHERE t1.KdNr = t2.KdNr WHERE t1.KdNr = t2.KdNr
FOR XML PATH ('')) FOR XML PATH (''))
, 1, 1, ';') from tblKundenMWST t2 , 1, 1, ';') from tblKundenMWST t2
group by KdNr;", "FMZOLL") group by KdNr order by kdNr;", "FMZOLL")
End If End If

7
VERAG_PROG_ALLGEMEIN/Schnittstellen/Creditsafe/cCreditSafeAPI.vb
View File

@@ -136,7 +136,7 @@ Public Class cCreditSafeAPI
If type = "addCompanyToPortfolio_CSV" Then If type = "addCompanyToPortfolio_CSV" Then
rest.PartSelector = "0" 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") rest.AddHeader("Expect", "100-continue")
Else Else
rest.AddHeader("Content-Type", "application/json") rest.AddHeader("Content-Type", "application/json")
@@ -163,12 +163,11 @@ Public Class cCreditSafeAPI
rest.PartSelector = "2" rest.PartSelector = "2"
rest.AddHeader("Content-Disposition", "form-data; name=""email""") 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" rest.PartSelector = "0"
Dim strResponseBody As String = rest.FullRequestMultipart(method, url.Replace(API_STRING, "")) Dim strResponseBody As String = rest.FullRequestMultipart(method, url.Replace(API_STRING, ""))
If (rest.LastMethodSuccess <> True) Then If (rest.LastMethodSuccess <> True) Then
Debug.WriteLine(rest.LastErrorText) Debug.WriteLine(rest.LastErrorText)