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

news

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-12-29 14:55:48 +01:00
parent 21e8c5a2e1
commit 005a373a49
2 changed files with 35 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/GREENPULSE/cATEZ_Greenpulse_CBAM_CostCalculation.vb
View File

@@ -63,13 +63,29 @@ Public Class cATEZ_Greenpulse_CBAM_CostCalculation
Dim url = $"{_baseUrl}/carbon-cost/cn-code-defaults?cn_code={cn_code}&country_code={country_code}"
If year.HasValue Then url &= $"&year={year.Value}"
Console.WriteLine($"[GetCnCodeDefaults] Request URL: {url}")
Dim resp = _http.QuickGetObj(url)
If resp Is Nothing Then Throw New Exception(_http.LastErrorText)
If resp Is Nothing Then
Console.WriteLine("[GetCnCodeDefaults] HTTP request failed: " & _http.LastErrorText)
Throw New Exception(_http.LastErrorText)
End If
Console.WriteLine("[GetCnCodeDefaults] HTTP response received.")
If resp.BodyStr IsNot Nothing Then
Console.WriteLine("[GetCnCodeDefaults] Response body length: " & resp.BodyStr.Length)
Console.WriteLine("[GetCnCodeDefaults] Body: " & resp.BodyStr)
Else
Console.WriteLine("[GetCnCodeDefaults] Response body is empty.")
End If
Dim json As New JsonObject()
json.Load(resp.BodyStr)
Dim r As New cCBAM_CnCodeDefaults_Response With {.success = json.BoolOf("success")}
Dim successFlag = json.BoolOf("success")
Console.WriteLine($"[GetCnCodeDefaults] JSON 'success' flag: {successFlag}")
Dim r As New cCBAM_CnCodeDefaults_Response With {.success = successFlag}
If r.success Then
Dim d = json.ObjectOf("data")
@@ -77,8 +93,10 @@ Public Class cATEZ_Greenpulse_CBAM_CostCalculation
.default_emission = GetDec(d, "default_emission"),
.benchmark = GetNullableDec(d, "benchmark")
}
Console.WriteLine($"[GetCnCodeDefaults] Parsed defaults: default_emission={r.data.default_emission}, benchmark={(If(r.data.benchmark.HasValue, r.data.benchmark.Value.ToString(), "null"))}")
Else
r.error = ParseError(json)
Console.WriteLine($"[GetCnCodeDefaults] API error: code={r.error.code}, message={r.error.message}, statusCode={r.error.statusCode}")
End If
Return r