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

Zollartikel, EZA Import, Tariff

Browse Source
This commit is contained in:
Andreas Luxbauer
2025-12-11 09:31:45 +01:00
parent 8c23aa4f8f
commit d1c23ac18c
9 changed files with 282 additions and 151 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
VERAG_PROG_ALLGEMEIN/Benutzerdefinierte Steuerelemente/MyTextBox.vb
View File

@@ -296,14 +296,14 @@ Public Class MyTextBox
pruefungHandled = True
Try
If Not _numbersOnlyTrennzeichen And IsNumeric(sender.text) Then
Me._value = CInt(sender.text)
Me._value = CLng(sender.text)
ElseIf IsNumeric(_numbersOnlyKommastellen) And IsNumeric(sender.text) Then
sender.text = CDbl(sender.text).ToString("N" & _numbersOnlyKommastellen) ' , CultureInfo.InvariantCulture)
Me._value = CDbl(sender.text)
sender.text = CLng(sender.text).ToString("N" & _numbersOnlyKommastellen) ' , CultureInfo.InvariantCulture)
Me._value = CLng(sender.text)
' Else
' sender.text = CDbl(sender.text)
ElseIf IsNumeric(sender.text) Then
Me._value = CDbl(sender.text)
Me._value = CLng(sender.text)
Else
Me._value = ""
End If
@@ -591,13 +591,13 @@ Public Class MyTextBox
ElseIf _numbersOnly Then
If Not _numbersOnlyTrennzeichen And IsNumeric(v) Then
Propvalue = CInt(v)
Propvalue = CLng(v)
Me.Text = v
ElseIf IsNumeric(Me._numbersOnlyKommastellen) And IsNumeric(v) Then
Propvalue = CDbl(v)
Me.Text = CDbl(v).ToString("N" & Me._numbersOnlyKommastellen) ' , CultureInfo.InvariantCulture)
Propvalue = CLng(v)
Me.Text = CLng(v).ToString("N" & Me._numbersOnlyKommastellen) ' , CultureInfo.InvariantCulture)
ElseIf IsNumeric(v) Then
Propvalue = CDbl(v)
Propvalue = CLng(v)
Me.Text = v
Else
Propvalue = ""
@@ -635,11 +635,11 @@ Public Class MyTextBox
Try
'String.Format("{0:N2}", CDbl(sender.text))
If Not _numbersOnlyTrennzeichen And IsNumeric(sender.text) Then
sender.text = CInt(sender.text)
sender.text = CLng(sender.text)
ElseIf IsNumeric(_numbersOnlyKommastellen) And IsNumeric(sender.text) Then
sender.text = CDbl(sender.text).ToString("N" & _numbersOnlyKommastellen) ' , CultureInfo.InvariantCulture)
sender.text = CLng(sender.text).ToString("N" & _numbersOnlyKommastellen) ' , CultureInfo.InvariantCulture)
Else
sender.text = CDbl(sender.text)
sender.text = CLng(sender.text)
End If
e.Cancel = False
Catch ex As Exception
@@ -652,7 +652,7 @@ Public Class MyTextBox
If _Waehrung Then
Try
'String.Format("{0:N2}", CDbl(sender.text))
CDbl(sender.text).ToString(If(_WaehrungZeichen, "C2", "N2"))
CLng(sender.text).ToString(If(_WaehrungZeichen, "C2", "N2"))
e.Cancel = False
Catch ex As Exception
errDescription = "Die Eingabe muss eine Zahl sein! (z.B. 123,45)"

1
VERAG_PROG_ALLGEMEIN/Classes/cEZT_ImportCodenummern.vb
View File

@@ -39,7 +39,6 @@ Public Class cEZT_ImportCodenummern
Me.ezt_Ende = ezt_Ende
Me.ezt_Sprache = ezt_Sprache
Me.ezt_Text = ezt_Text
End Sub
Public Function getParameterList() As List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)

8
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/TARIFF/cATEZ_Tariff.vb
View File

@@ -103,6 +103,12 @@ Public Class cATEZ_Tariff
' Create an instance of the HTTP object
Dim http As New Chilkat.Http()
' ==== TIMEOUTS ERHÖHEN ====
http.ConnectTimeout = 30000 ' 30 Sekunden Verbindungsaufbau
http.ReadTimeout = 300000 ' 5 min /300 Sekunden Antwort lesen
' =========================
Dim baseUrl = ""
@@ -131,7 +137,7 @@ Public Class cATEZ_Tariff
' Führe die GET-Anfrage aus
Dim response As String = http.QuickGetStr(url)
'MsgBox(response.ToString)
' Prüfe auf Fehler
If http.LastMethodSuccess = False Then
Throw New Exception("HTTP Request failed: " & http.LastErrorText)

57
VERAG_PROG_ALLGEMEIN/Schnittstellen/WISE/cWiseBankApi.vb
View File

@@ -2,6 +2,8 @@
Imports System.IO
Imports System.Text
Imports Newtonsoft.Json
Imports System.Net.Http
Imports System.Net.Http.Headers
Public Class cWiseBankApi
' {
@@ -91,12 +93,17 @@ Public Class cWiseBankApi
Private ReadOnly apiToken As String '245a89e8-b8e3-4ceb-8326-ad7cd4d19eda
Private Shared BASE_URL As String = "https://api.wise.com"
Private Shared API_TOKEN As String = "245a89e8-b8e3-4ceb-8326-ad7cd4d19eda"
Private ReadOnly profileId As String '
Private ReadOnly balanceId As String
'AVISO
Sub New()
End Sub
Public Sub New(token As String, profile As String, balance As String)
apiToken = token
API_TOKEN = token
profileId = profile
balanceId = balance
End Sub
@@ -124,7 +131,7 @@ Public Class cWiseBankApi
Dim request As HttpWebRequest = CType(WebRequest.Create(url), HttpWebRequest)
request.Method = "GET"
request.Headers.Add("Authorization", "Bearer " & apiToken)
request.Headers.Add("Authorization", "Bearer " & API_TOKEN)
Try
Using response As HttpWebResponse = CType(request.GetResponse(), HttpWebResponse)
@@ -140,4 +147,46 @@ Public Class cWiseBankApi
End Try
End Function
End Class
'
'Public Shared Async Function CreatePaymentLinkAsync(
' profileId As Long,
' amount As Decimal,
' currency As String,
' description As String,
' reference As String,
' redirectUrl As String
') As Task(Of String)
' Using client As New HttpClient()
' client.BaseAddress = New Uri(BASE_URL)
' client.DefaultRequestHeaders.Authorization =
' New AuthenticationHeaderValue("Bearer", API_TOKEN)
' Dim body = New With {
' .profileId = profileId,
' .amount = New With {
' .value = amount,
' .currency = currency
' },
' .description = description,
' .reference = reference,
' .redirectUrl = redirectUrl
' }
' Dim json = JsonConvert.SerializeObject(body)
' Dim content = New StringContent(json, Encoding.UTF8, "application/json")
' Dim response = Await client.PostAsync("/v1/payment-requests", content)
' Dim responseContent = Await response.Content.ReadAsStringAsync()
' If Not response.IsSuccessStatusCode Then
' Throw New Exception("Wise API Error: " & responseContent)
' End If
' Return responseContent
' End Using
'End Function '
End Class