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

mdmAntrag, KI, etc.

Browse Source
This commit is contained in:
d.breimaier
2025-05-14 14:46:33 +02:00
parent a53cd730d3
commit c86f82483a
6 changed files with 135 additions and 106 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
VERAG_PROG_ALLGEMEIN/Schnittstellen/ATEZ/VERAG_OUT_ATEZ_IN/cATEZ_NCTS_IN.vb
View File

@@ -4,6 +4,8 @@ Imports System.Reflection
Imports System.Threading
Imports System.Windows.Forms
Imports Chilkat
Imports com.sun.tools.doclets.internal.toolkit.resources
Imports com.sun.xml.internal.rngom
Imports DocumentFormat.OpenXml.Wordprocessing
Imports javax
Imports javax.xml.ws.soap.AddressingFeature
@@ -950,28 +952,43 @@ Public Class cATEZ_NCTS_IN
'--------------------------------
Dim j As Integer = 0
dt.Clear()
While j < num
Dim invoice As Chilkat.JsonObject = jsonResult.ObjectAt(j)
Dim R As DataRow = dt.NewRow
Dim invoice As Chilkat.JsonObject = data.ObjectAt(j)
Dim totalAmonut As String = invoice.StringOf("total_VAT_amount").Replace(".", ",")
R("count") = j + 1
R("currency") = checkNullStr(invoice.StringOf("currency"))
R("total_VAT_currency") = checkNullStr(invoice.StringOf("currency"))
R("total_VAT_amount") = CDbl(checkNulDbl(totalAmonut))
R("invoice_id") = checkNullStr(invoice.StringOf("invoice_id"))
R("invoice_date") = checkNullStr(invoice.StringOf("invoice_date"))
If documentType = "receipt" Then
R("invoice_id") = checkNullStr(invoice.StringOf("receipt_id"))
R("invoice_date") = checkNullStr(invoice.StringOf("receipt_date"))
Else
R("invoice_id") = checkNullStr(invoice.StringOf("invoice_id"))
R("invoice_date") = checkNullStr(invoice.StringOf("invoice_date"))
End If
R("seller_VAT_id") = checkNullStr(invoice.StringOf("seller_VAT_id"))
R("seller_name") = checkNullStr(invoice.StringOf("seller_name"))
R("seller_address_city") = checkNullStr(invoice.StringOf("seller_address_city"))
R("seller_address_country") = checkNullStr(invoice.StringOf("seller_address_country"))
R("seller_address_postcode") = checkNullStr(invoice.StringOf("seller_address_postcode"))
R("seller_address_street") = checkNullStr(invoice.StringOf("seller_address_street"))
R("seller_address_full") = checkNullStr(invoice.StringOf("seller_address_full"))
R("status") = checkNullStr(jsonResult.StringOf("status"))
R("document_count") = checkNulInt(jsonResult.IntOf("document_count"))
R("doc_index") = checkNulInt(jsonResult.IntOf("doc_index"))
R("page_count") = checkNulInt(jsonResult.IntOf("page_count"))
R("doc_index") = checkNulInt(invoice.IntOf("doc_index"))
R("page_count") = checkNulInt(invoice.IntOf("page_count"))
R("total_pages") = checkNulInt(jsonResult.IntOf("total_pages"))
dt.Rows.Add(R)
@@ -979,6 +996,7 @@ Public Class cATEZ_NCTS_IN
j = j + 1
End While
Return jsonResult.StringOf("status")
End If
@@ -1091,6 +1109,47 @@ Public Class cATEZ_NCTS_IN
End Function
Shared Function createVATDatatable(documentType As String) As DataTable
Dim dt As New DataTable
Dim success As Boolean = False
If dt IsNot Nothing And Not dt.Columns.Contains("total_VAT_currency") Then
dt.Columns.Add("count", GetType(Integer))
dt.Columns.Add("total_VAT_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_address_full", GetType(String))
dt.Columns.Add("seller_name", GetType(String))
dt.Columns.Add("total_VAT_amount", GetType(Double))
dt.Columns.Add("status", GetType(String))
dt.Columns.Add("document_count", GetType(Integer))
dt.Columns.Add("doc_index", GetType(Integer))
dt.Columns.Add("page_count", GetType(Integer))
dt.Columns.Add("total_pages", GetType(Integer))
dt.Columns.Add("invoice_id", GetType(String))
dt.Columns.Add("invoice_date", GetType(String))
End If
Return dt
End Function
Public Function setJsonPDF(ncts As cATEZ_NCTS_DATA, dgv As DataGridView)
Dim success As Boolean

2
VERAG_PROG_ALLGEMEIN/cAllgemein.vb
View File

@@ -609,7 +609,7 @@ Public Class cAllgemein
Dim PdfCopyProvider As New iTextSharp.text.pdf.PdfCopy(srcDoc, New FileStream(TargetFile, System.IO.FileMode.Create))
PdfCopyProvider.SetFullCompression()
srcDoc.Open()
For p As Integer = pageStart To pagesEnd
For p As Integer = pageStart To (pageStart + pagesEnd) - 1
If p > Reader.NumberOfPages Then
MsgBox("Seitenanzahl überschritten!")
srcDoc.Close() : Reader.Close()