Anbindung AZEZ-KI API, etc.

SDL/Creditsafe/usrcntlVAT_ATEZ.vb

@@ -1,4 +1,6 @@
-Public Class usrcntlVAT_ATEZ
+Imports System.Web.UI.WebControls.Expressions
+
+Public Class usrcntlVAT_ATEZ
     Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
     Dim user, pw As String
     Dim land As String
@@ -61,17 +63,19 @@
 
 
     Sub initDataTable()
-
+        dataTable.Columns.Add("count", GetType(Integer))
         dataTable.Columns.Add("currency", GetType(String))
         dataTable.Columns.Add("invoice_id", GetType(String))
         dataTable.Columns.Add("seller_VAT_id", GetType(String))
         dataTable.Columns.Add("seller_address_city", GetType(String))
         dataTable.Columns.Add("seller_address_country", GetType(String))
         dataTable.Columns.Add("seller_address_postcode", GetType(String))
+        dataTable.Columns.Add("total_vat_amount", GetType(Double))
         dataTable.Columns.Add("seller_address_street", GetType(String))
         dataTable.Columns.Add("seller_name", GetType(String))
         dataTable.Columns.Add("status", GetType(String))
         dataTable.Columns.Add("invoice_date", GetType(DateTime))
+        dataTable.Columns.Add("document_count", GetType(Integer))
 
     End Sub
 
@@ -83,37 +87,64 @@
         If dgvVAT.Columns.Count > 0 Then
             With dgvVAT
                 .RowHeadersWidth = 10
+                .Columns("count").HeaderText = "#"
+                .Columns("count").Width = 25
                 .Columns("currency").HeaderText = "Währung"
+                .Columns("currency").Width = 50
                 .Columns("invoice_id").HeaderText = "Rechnungs-Nr"
                 .Columns("seller_VAT_id").HeaderText = "UID-Nr"
-                .Columns("seller_VAT_id").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                .Columns("seller_VAT_id").Width = 100
                 .Columns("seller_address_city").Width = 100
-                .Columns("seller_address_city").HeaderText = "Nr"
+                .Columns("seller_address_city").HeaderText = "Stadt"
                 .Columns("seller_address_country").Visible = False
                 .Columns("seller_address_country").HeaderText = "Land"
-                .Columns("seller_address_postcode").Width = 100
+                .Columns("total_vat_amount").HeaderText = "MWST"
+                .Columns("seller_address_postcode").Width = 75
                 .Columns("seller_address_postcode").HeaderText = "PLZ"
-                .Columns("seller_address_street").Width = 100
+                .Columns("seller_address_street").Width = 125
                 .Columns("seller_address_street").HeaderText = "Strasse"
-                .Columns("seller_name").Width = 100
-                .Columns("seller_name").HeaderText = "Verkäufer"
-                .Columns("status").Width = 100
+                .Columns("seller_name").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                .Columns("seller_name").HeaderText = "Leistender"
+                .Columns("status").Width = 75
                 .Columns("status").HeaderText = "Status"
                 .Columns("invoice_date").Width = 100
                 .Columns("invoice_date").HeaderText = "Rechnungsdatum"
+                .Columns("document_count").HeaderText = "Seite"
+                .Columns("document_count").Width = 50
             End With
 
             For Each row As DataGridViewRow In dgvVAT.Rows
                 If Not IsDBNull(row.Cells("status").Value) Then
                     Dim akiv As String = (row.Cells("status").Value.ToString).ToLower
-                    If akiv = "active" Then
-                        row.DefaultCellStyle.BackColor = Color.LightGreen
+                    If akiv = "success" Then
+
+                        If Not IsDBNull(row.Cells("total_vat_amount").Value) Then
+
+                            If IsNumeric(row.Cells("total_vat_amount").Value) AndAlso row.Cells("total_vat_amount").Value <> 0 Then
+                                row.DefaultCellStyle.BackColor = Color.LightGreen
+                            Else
+                                row.DefaultCellStyle.BackColor = Color.IndianRed
+                            End If
+
+                        Else
+
+                            row.DefaultCellStyle.BackColor = Color.LightYellow
+                        End If
+
+
+
+
                     ElseIf akiv = "nonactive" Then
                         row.DefaultCellStyle.BackColor = Color.IndianRed
                     Else
                         row.DefaultCellStyle.BackColor = Color.LightYellow
                     End If
                 End If
+
+
+
+
+
             Next
 
         End If
@@ -127,7 +158,8 @@
         '   If Me.Parent.GetType() Is GetType(Form) Then o = Me.FindForm
 
         For Each row As DataGridViewRow In dgvVAT.SelectedRows
-            va = New VAT(IIf(IsDBNull(row.Cells("currency").Value), "", row.Cells("currency").Value),
+            va = New VAT(IIf(IsDBNull(row.Cells("count").Value), "", row.Cells("count").Value),
+                IIf(IsDBNull(row.Cells("currency").Value), "", row.Cells("currency").Value),
                                IIf(IsDBNull(row.Cells("invoice_id").Value), "", row.Cells("invoice_id").Value),
                                IIf(IsDBNull(row.Cells("seller_VAT_id").Value), "", row.Cells("seller_VAT_id").Value),
                                IIf(IsDBNull(row.Cells("seller_address_city").Value), "", row.Cells("seller_address_city").Value),
@@ -137,7 +169,8 @@
                                IIf(IsDBNull(row.Cells("seller_name").Value), "", row.Cells("seller_name").Value),
                                 IIf(IsDBNull(row.Cells("total_VAT_amount").Value), "", row.Cells("total_VAT_amount").Value),
                                 IIf(IsDBNull(row.Cells("invoice_date").Value) Or Not IsDate(row.Cells("invoice_date").Value), Nothing, CDate(row.Cells("invoice_date").Value)),
-                               IIf(IsDBNull(row.Cells("status").Value), "", row.Cells("status").Value))
+                               IIf(IsDBNull(row.Cells("status").Value), "", row.Cells("status").Value),
+                                IIf(IsDBNull(row.Cells("document_count").Value), "", row.Cells("document_count").Value))
         Next
 
         If va.status.ToLower <> "success" Then
@@ -161,6 +194,7 @@
 
     Public Class VAT
 
+        Public Property count As Integer
         Public Property currency As String
         Public Property invoice_id As String
         Public Property seller_VAT_id As String
@@ -172,9 +206,11 @@
         Public Property invoice_date As Date
         Public Property total_VAT_amount As String
         Public Property status As String
+        Public Property document_count As Integer
 
 
-        Public Sub New(_currency As String, _invoice_id As String, _seller_VAT_id As String, _seller_address_city As String, _seller_address_country As String, _seller_address_postcode As String, _seller_address_street As String, _seller_name As String, _total_VAT_amount As String, _invoice_date As DateTime, _status As String)
+        Public Sub New(_count As Integer, _currency As String, _invoice_id As String, _seller_VAT_id As String, _seller_address_city As String, _seller_address_country As String, _seller_address_postcode As String, _seller_address_street As String, _seller_name As String, _total_VAT_amount As String, _invoice_date As DateTime, _status As String, _document_count As Integer)
+            count = _count
             currency = _currency
             invoice_id = _invoice_id
             seller_VAT_id = _seller_VAT_id
@@ -186,6 +222,7 @@
             total_VAT_amount = _total_VAT_amount
             invoice_date = _invoice_date
             status = _status
+            document_count = _document_count
 
         End Sub