Kundenblatt, ustva, KI-Einbindung, etc.

SDL/USTV/frmMDM_USTVAntrag.vb

@@ -2357,7 +2357,7 @@ Public Class frmMDM_USTVAntrag
                 If col.ColumnName = "UStVPo_ID" Then col.ColumnName = col.ColumnName.Replace("UStVPo_ID", "Number")
                 If col.ColumnName = "UStVPo_ReDat" Then col.ColumnName = col.ColumnName.Replace("UStVPo_ReDat", "Date of invoice")
                 If col.ColumnName = "UStVPo_ReNr" Then col.ColumnName = col.ColumnName.Replace("UStVPo_ReNr", "Number of invoice")
-                If col.ColumnName = "UStVPo_USteuerbetrag" Then col.ColumnName = col.ColumnName.Replace("UStVPo_USteuerbetrag", "Amount of tax refund applied for")
+                If col.ColumnName = "UStVPo_USteuerbetrag" Then col.ColumnName = col.ColumnName.Replace("UStVPo_USteuerbetrag", "Amount of tax refund")
                 If col.ColumnName = "UStVPo_Leistender" Then col.ColumnName = col.ColumnName.Replace("UStVPo_Leistender", "Name of supplier")
                 If col.ColumnName = "UstV_Leistender_Strasse" Then col.ColumnName = col.ColumnName.Replace("UstV_Leistender_Strasse", "Street")
                 If col.ColumnName = "UstV_Leistender_Stadt" Then col.ColumnName = col.ColumnName.Replace("UstV_Leistender_Stadt", "City")
@@ -2369,7 +2369,7 @@ Public Class frmMDM_USTVAntrag
             Next
 
             Dim AD As New cAdressen(USTV_ANTRAG.UStVAn_KuNr)
-            cProgramFunctions.genExcelFromDT_NEW(dtNew, {"K1:K" & (dtNew.Rows.Count + 1)},, "Statement itemising VAT amounts relating to the period covered by this application", "VAT NO.: " & USTV_ANTRAG.UStVAn_Steuernummer & "    " & "Name/Company: " & AD.Name_1 & " " & AD.Name_2 & "   " & "VAT in " & Antrag_LandKz & ": " & txtStNr.Text, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True, "E", True, True)
+            cProgramFunctions.genExcelFromDT_NEW(dtNew, {"K1:K" & (dtNew.Rows.Count + 1)},, "Statement itemising VAT amounts relating to the period covered by this application", "VAT NO.: " & USTV_ANTRAG.UStVAn_Steuernummer & "    " & "Name/Company: " & AD.Name_1 & " " & AD.Name_2 & "   " & "VAT in " & Antrag_LandKz & ": " & txtStNr.Text, IIf(USTV_ANTRAG.UStVAn_Währungscode = "EUR", "€", ""), True, "K", True, True)
         End If
 
 
@@ -2512,7 +2512,8 @@ Public Class frmMDM_USTVAntrag
         If Not IsNumeric(cbxFiliale._value) OrElse CInt(cbxFiliale._value) <= 0 Then
             MsgBox("Bitte Filiale auswählen!") : Exit Sub
         End If
-        txtAbfNr.Text = VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(cbxFiliale._value, Now.Year)
+        txtAbfNr.Text = CInt(CDate(USTV_ANTRAG.UStVAn_ReDatVon).Year.ToString.Substring(2, 2)) * 1000000 + CInt(VERAG_PROG_ALLGEMEIN.cAllgemein.getMaxPosNrIncrement(cbxFiliale._value, Now.Year))
+
         If txtBezugsNr.Text = "" AndAlso txtAbfNr.Text.ToString.Length >= 6 Then
             txtBezugsNr.Text = txtAbfNr.Text.Substring(txtAbfNr.Text.ToString.Length - 6, 6)
             txtBezugsNr.Text = txtBezugsNr.Text.TrimStart("0"c)

SDL/USTV/frmUSTVoffeneAntraege.vb

@@ -920,8 +920,6 @@ Public Class frmUSTVoffeneAntraege
         End If
 
 
-
-
         MyDatagridview1.GetOrder()
         initDgv_gesamt(txtmaxAnz.Text, cbxNichtEroeffneteAntraege.Checked, IIf(cbxAlleoffenen.Checked, -1, kdNr))
         MyDatagridview1.SetOrder()

SDL/USTV/ustCntlUSTV_AntragPosition.vb

@@ -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