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

13
SDL/kunden/Newsletter/frmNewsletter.vb
View File

@@ -77,12 +77,21 @@ Public Class frmNewsletter
Public Function IsValidEmail(email As String) As Boolean Public Function IsValidEmail(email As String) As Boolean
If String.IsNullOrWhiteSpace(email) Then Return True If String.IsNullOrWhiteSpace(email) Then Return True
Dim parts = email.Split({";"c, ","c}, StringSplitOptions.RemoveEmptyEntries)
For Each part In parts
Dim addrText = part.Trim()
If addrText = "" Then Continue For
Try Try
Dim addr = New System.Net.Mail.MailAddress(email) Dim addr As New System.Net.Mail.MailAddress(addrText)
Return addr.Address = email.Trim() If addr.Address <> addrText Then Return False
Catch Catch
Return False Return False
End Try End Try
Next
Return True
End Function End Function
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

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}" Dim url = $"{_baseUrl}/carbon-cost/cn-code-defaults?cn_code={cn_code}&country_code={country_code}"
If year.HasValue Then url &= $"&year={year.Value}" If year.HasValue Then url &= $"&year={year.Value}"
Console.WriteLine($"[GetCnCodeDefaults] Request URL: {url}")
Dim resp = _http.QuickGetObj(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() Dim json As New JsonObject()
json.Load(resp.BodyStr) 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 If r.success Then
Dim d = json.ObjectOf("data") Dim d = json.ObjectOf("data")
@@ -77,8 +93,10 @@ Public Class cATEZ_Greenpulse_CBAM_CostCalculation
.default_emission = GetDec(d, "default_emission"), .default_emission = GetDec(d, "default_emission"),
.benchmark = GetNullableDec(d, "benchmark") .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 Else
r.error = ParseError(json) r.error = ParseError(json)
Console.WriteLine($"[GetCnCodeDefaults] API error: code={r.error.code}, message={r.error.message}, statusCode={r.error.statusCode}")
End If End If
Return r Return r