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

Kundenblatt, ustva, KI-Einbindung, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-04-14 17:03:11 +02:00
parent 26668bb5af
commit 1f31993977
15 changed files with 2393 additions and 579 deletions
Download Patch File Download Diff File Expand all files Collapse all files

70
SDL/USTV/ustCntlUSTV_AntragPosition.vb
View File

@@ -1,4 +1,4 @@
Imports com.sun.net.httpserver.Authenticator

Imports VERAG_PROG_ALLGEMEIN
Public Class ustCntlUSTV_AntragPosition
@@ -590,6 +590,25 @@ Public Class ustCntlUSTV_AntragPosition
If API IsNot Nothing Then
If vbYes = MsgBox("Möchten Sie die Rechnungsdaten per ATEZ-API auslesen lassen?", vbYesNoCancel) Then
Dim dt As New DataTable
If dt IsNot Nothing And Not dt.Columns.Contains("currency") Then
dt.Columns.Add("currency", GetType(String))
dt.Columns.Add("seller_VAT_id", GetType(String))
dt.Columns.Add("seller_address_city", GetType(String))
dt.Columns.Add("seller_address_country", GetType(String))
dt.Columns.Add("seller_address_postcode", GetType(String))
dt.Columns.Add("seller_address_street", GetType(String))
dt.Columns.Add("seller_name", GetType(String))
dt.Columns.Add("total_VAT_amount", GetType(Double))
dt.Columns.Add("invoice_id", GetType(String))
dt.Columns.Add("invoice_date", GetType(String))
dt.Columns.Add("status", GetType(String))
End If
Dim failreDesc As String
Dim authResp = API.authenticate("VAT", "client1", "password")
Dim resp
@@ -597,17 +616,54 @@ Public Class ustCntlUSTV_AntragPosition
MsgBox("Authentifizierung fehlgeschlagen" & vbNewLine & authResp)
Exit Sub
Else
If API.SendRequestWithAuthHeader("application/json", failreDesc, "/health", "GET") = "200" Then
'If API.SendRequestWithAuthHeader("application/json", failreDesc, "/health", "GET") = "200" Then
'document_type = vat_invoice or receipt
If API.setJsonVAT("vat_invoice", UStV_POS.UStVPo_daId) Then
resp = API.SendRequestWithAuthHeader("application/json", failreDesc, "/process", "POST", dt)
If dt.Rows.Count > 0 Then
Dim f As New frmVAT_ATEZ()
f.usrcntlVAT_ATEZ1.initDGV(dt)
If f.ShowDialog = DialogResult.OK Then
txtRgDatum.Text = f.usrcntlVAT_ATEZ1.va.invoice_date
txtRgNr.Text = f.usrcntlVAT_ATEZ1.va.invoice_id
txtStrasse.Text = f.usrcntlVAT_ATEZ1.va.seller_address_street
txtOrt.Text = f.usrcntlVAT_ATEZ1.va.seller_address_city
txtLand.Text = f.usrcntlVAT_ATEZ1.va.seller_address_country
txtPLZ.Text = f.usrcntlVAT_ATEZ1.va.seller_address_postcode
If IsNumeric(f.usrcntlVAT_ATEZ1.va.total_VAT_amount) AndAlso f.usrcntlVAT_ATEZ1.va.total_VAT_amount <> 0 Then
If f.usrcntlVAT_ATEZ1.va.currency = "EUR" AndAlso
txtUmrechnungskurs.Text = 1 Then
txtUSTBetragEUR.Text = f.usrcntlVAT_ATEZ1.va.total_VAT_amount
txtUSTBetrag.Text = f.usrcntlVAT_ATEZ1.va.total_VAT_amount
Else
txtUSTBetrag.Text = f.usrcntlVAT_ATEZ1.va.total_VAT_amount
End If
End If
End If
Else
MsgBox(resp)
'document_type = vat_invoice or receipt
If API.setJsonVAT("vat_invoice", UStV_POS.UStVPo_daId) Then
resp = API.SendRequestWithAuthHeader("application/json", failreDesc, "/process", "POST")
End If
Else
MsgBox("Service is not running!")
End If
'Else
' MsgBox("Service is not running!")
'End If
End If
End If
End If