atez KI-Upload

2025-05-14 12:30:18 +02:00
parent ee356b44d9
commit a53cd730d3
7 changed files with 106 additions and 27 deletions
--- a/SDL/Creditsafe/usrcntlVAT_ATEZ.Designer.vb
+++ b/SDL/Creditsafe/usrcntlVAT_ATEZ.Designer.vb
@@ -38,6 +38,7 @@ Partial Class usrcntlVAT_ATEZ
        Me.Label3 = New System.Windows.Forms.Label()
        Me.dgvVAT = New VERAG_PROG_ALLGEMEIN.MyDatagridview(Me.components)
        Me.cboLand = New VERAG_PROG_ALLGEMEIN.MyComboBox()
+        Me.lblPagecount = New System.Windows.Forms.Label()
        CType(Me.dgvVAT, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
@@ -51,6 +52,7 @@ Partial Class usrcntlVAT_ATEZ
        Me.lblUID.Size = New System.Drawing.Size(40, 13)
        Me.lblUID.TabIndex = 1
        Me.lblUID.Text = "UID-Nr"
+        Me.lblUID.Visible = False
        '
        'txtUID
        '
@@ -60,6 +62,7 @@ Partial Class usrcntlVAT_ATEZ
        Me.txtUID.Name = "txtUID"
        Me.txtUID.Size = New System.Drawing.Size(134, 23)
        Me.txtUID.TabIndex = 3
+        Me.txtUID.Visible = False
        '
        'txtFirma
        '
@@ -70,6 +73,7 @@ Partial Class usrcntlVAT_ATEZ
        Me.txtFirma.Name = "txtFirma"
        Me.txtFirma.Size = New System.Drawing.Size(173, 23)
        Me.txtFirma.TabIndex = 1
+        Me.txtFirma.Visible = False
        '
        'lblFirma
        '
@@ -80,6 +84,7 @@ Partial Class usrcntlVAT_ATEZ
        Me.lblFirma.Size = New System.Drawing.Size(32, 13)
        Me.lblFirma.TabIndex = 3
        Me.lblFirma.Text = "Firma"
+        Me.lblFirma.Visible = False
        '
        'lblLand
        '
@@ -90,6 +95,7 @@ Partial Class usrcntlVAT_ATEZ
        Me.lblLand.Size = New System.Drawing.Size(31, 13)
        Me.lblLand.TabIndex = 5
        Me.lblLand.Text = "Land"
+        Me.lblLand.Visible = False
        '
        'lblWarning
        '
@@ -121,6 +127,7 @@ Partial Class usrcntlVAT_ATEZ
        Me.txtStrasse.Name = "txtStrasse"
        Me.txtStrasse.Size = New System.Drawing.Size(163, 23)
        Me.txtStrasse.TabIndex = 101
+        Me.txtStrasse.Visible = False
        '
        'Label1
        '
@@ -132,6 +139,7 @@ Partial Class usrcntlVAT_ATEZ
        Me.Label1.Size = New System.Drawing.Size(42, 13)
        Me.Label1.TabIndex = 100
        Me.Label1.Text = "Strasse"
+        Me.Label1.Visible = False
        '
        'txtPLZ
        '
@@ -141,6 +149,7 @@ Partial Class usrcntlVAT_ATEZ
        Me.txtPLZ.Name = "txtPLZ"
        Me.txtPLZ.Size = New System.Drawing.Size(84, 23)
        Me.txtPLZ.TabIndex = 103
+        Me.txtPLZ.Visible = False
        '
        'Label2
        '
@@ -152,6 +161,7 @@ Partial Class usrcntlVAT_ATEZ
        Me.Label2.Size = New System.Drawing.Size(27, 13)
        Me.Label2.TabIndex = 102
        Me.Label2.Text = "PLZ"
+        Me.Label2.Visible = False
        '
        'txtOrt
        '
@@ -161,6 +171,7 @@ Partial Class usrcntlVAT_ATEZ
        Me.txtOrt.Name = "txtOrt"
        Me.txtOrt.Size = New System.Drawing.Size(155, 23)
        Me.txtOrt.TabIndex = 105
+        Me.txtOrt.Visible = False
        '
        'Label3
        '
@@ -172,6 +183,7 @@ Partial Class usrcntlVAT_ATEZ
        Me.Label3.Size = New System.Drawing.Size(21, 13)
        Me.Label3.TabIndex = 104
        Me.Label3.Text = "Ort"
+        Me.Label3.Visible = False
        '
        'dgvVAT
        '
@@ -204,6 +216,18 @@ Partial Class usrcntlVAT_ATEZ
        Me.cboLand.Name = "cboLand"
        Me.cboLand.Size = New System.Drawing.Size(58, 24)
        Me.cboLand.TabIndex = 99
+        Me.cboLand.Visible = False
+        '
+        'lblPagecount
+        '
+        Me.lblPagecount.Anchor = CType((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
+        Me.lblPagecount.AutoSize = True
+        Me.lblPagecount.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.0!)
+        Me.lblPagecount.Location = New System.Drawing.Point(827, 37)
+        Me.lblPagecount.Name = "lblPagecount"
+        Me.lblPagecount.Size = New System.Drawing.Size(43, 13)
+        Me.lblPagecount.TabIndex = 106
+        Me.lblPagecount.Text = "Seiten: "
        '
        'usrcntlVAT_ATEZ
        '
@@ -211,6 +235,7 @@ Partial Class usrcntlVAT_ATEZ
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.AutoScroll = True
        Me.BackColor = System.Drawing.Color.White
+        Me.Controls.Add(Me.lblPagecount)
        Me.Controls.Add(Me.txtOrt)
        Me.Controls.Add(Me.Label3)
        Me.Controls.Add(Me.txtPLZ)
@@ -248,4 +273,5 @@ Partial Class usrcntlVAT_ATEZ
    Friend WithEvents Label2 As Label
    Friend WithEvents txtOrt As TextBox
    Friend WithEvents Label3 As Label
+    Friend WithEvents lblPagecount As Label
 End Class
--- a/SDL/Creditsafe/usrcntlVAT_ATEZ.vb
+++ b/SDL/Creditsafe/usrcntlVAT_ATEZ.vb
@@ -76,6 +76,9 @@ Public Class usrcntlVAT_ATEZ
        dataTable.Columns.Add("status", GetType(String))
        dataTable.Columns.Add("invoice_date", GetType(DateTime))
        dataTable.Columns.Add("document_count", GetType(Integer))
+        dataTable.Columns.Add("total_pages", GetType(Integer))
+        dataTable.Columns.Add("doc_index", GetType(Integer))
+        dataTable.Columns.Add("page_count", GetType(Integer))

    End Sub

@@ -85,6 +88,9 @@ Public Class usrcntlVAT_ATEZ


        If dgvVAT.Columns.Count > 0 Then
+
+            lblPagecount.Text &= dgvVAT.Rows(0).Cells("total_pages").Value
+
            With dgvVAT
                .RowHeadersWidth = 10
                .Columns("count").HeaderText = "#"
@@ -109,8 +115,14 @@ Public Class usrcntlVAT_ATEZ
                .Columns("status").HeaderText = "Status"
                .Columns("invoice_date").Width = 100
                .Columns("invoice_date").HeaderText = "Rechnungsdatum"
-                .Columns("document_count").HeaderText = "Seite"
+                .Columns("document_count").HeaderText = "Dok.#"
                .Columns("document_count").Width = 50
+                .Columns("page_count").HeaderText = "Seiten"
+                .Columns("page_count").Width = 50
+
+                .Columns("total_pages").Visible = False
+                .Columns("doc_index").Visible = False
+
            End With

            For Each row As DataGridViewRow In dgvVAT.Rows
@@ -170,7 +182,10 @@ Public Class usrcntlVAT_ATEZ
                                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("document_count").Value), "", row.Cells("document_count").Value))
+                                IIf(IsDBNull(row.Cells("document_count").Value), "", row.Cells("document_count").Value),
+                                IIf(IsDBNull(row.Cells("total_pages").Value), "", row.Cells("total_pages").Value),
+                                IIf(IsDBNull(row.Cells("doc_index").Value), "", row.Cells("doc_index").Value),
+                                IIf(IsDBNull(row.Cells("page_count").Value), "", row.Cells("page_count").Value))
        Next

        If va.status.ToLower <> "success" Then
@@ -207,9 +222,13 @@ Public Class usrcntlVAT_ATEZ
        Public Property total_VAT_amount As String
        Public Property status As String
        Public Property document_count As Integer
+        Public Property total_pages As Integer
+        Public Property page_count As Integer
+        Public Property doc_index As Integer


-        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)
+
+        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, _total_pages As Integer, _doc_index As Integer, _page_count As Integer)
            count = _count
            currency = _currency
            invoice_id = _invoice_id
@@ -223,7 +242,9 @@ Public Class usrcntlVAT_ATEZ
            invoice_date = _invoice_date
            status = _status
            document_count = _document_count
-
+            total_pages = _total_pages
+            page_count = _page_count
+            doc_index = _doc_index
        End Sub