Kunden, Zollauswertung, MDM, eRechnung (aktuell noch deaktiviert!)

VERAG_PROG_ALLGEMEIN/Classes/cIDS.vb

@@ -332,6 +332,89 @@ Public Class cIDS
 
     End Function
 
+    Public Shared Function GET_Antraege_IDS(ByRef dt As DataTable, von As Date, bis As Date, KundenNr As Integer, LandKZ As String, Optional Archiv As Object = Nothing) As Boolean
+        Try
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+            Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
+
+                Using cmd As New SqlCommand("SELECT 
+                                            tblIDSTransactionsNew.KdNrVERAG as Kundennummer,
+                                            ISNULL(tblIDSTransactionsNew.[OBONumber],ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber])) AS Rechnungsnummer,
+                                            tblIDSTransactionsNew.[YearMonthDay] AS Rechnungsdatum,                                            
+                                            SUM(tblIDSTransactionsNew.[VATAmount]) AS Steuerbetrag
+                                        FROM 
+                                            
+                                            tblIDSTransactionsNew 
+                                        INNER JOIN 
+                                            tbl_IDS_Länder 
+                                            ON tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode
+                                        WHERE 
+                                            tblIDSTransactionsNew.[YearMonthDay] BETWEEN @von AND @bis 
+                                            AND tblIDSTransactionsNew.KdNrVERAG = @AdressenNr 
+                                            AND tbl_IDS_Länder.[Lieferland_ISO2] = @LandKZ
+                                            AND tblIDSTransactionsNew.[VATAmount] <> 0 
+                                            AND UStVAn_ID is null
+                                        GROUP BY 
+                                            tblIDSTransactionsNew.KdNrVERAG,
+                                            tblIDSTransactionsNew.[YearMonthDay], 
+                                            ISNULL(tblIDSTransactionsNew.[OBONumber], 
+                                                   ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber]))
+                                        ORDER BY 
+                                            tblIDSTransactionsNew.KdNrVERAG,
+                                            tblIDSTransactionsNew.[YearMonthDay], 
+                                            ISNULL(tblIDSTransactionsNew.[OBONumber], 
+                                            ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber]));", conn)
+
+                    cmd.Parameters.AddWithValue("@LandKZ", LandKZ)
+                    cmd.Parameters.AddWithValue("@von", von)
+                    cmd.Parameters.AddWithValue("@bis", bis)
+                    cmd.Parameters.AddWithValue("@AdressenNr", KundenNr)
+                    'If Archiv IsNot Nothing Then cmd.Parameters.AddWithValue("@Archiv", If(Archiv, 1, 0))
+
+                    Dim dr = cmd.ExecuteReader()
+                    dt.Load(dr)
+                    'While dr.Read
+                    '    dt.Load(dr)
+                    'End While
+                    dr.Close()
+
+                End Using
+            End Using
+            Return True
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return False
+
+    End Function
+
+    Public Shared Function UPDATE_ARCHIV(reDat As Date, reNr As String, ids_kdNr As Integer, country As String, UStVAn_ID As Integer) As Boolean
+        Try
+            Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+            Dim list As New List(Of VERAG_PROG_ALLGEMEIN.SQLVariable)
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reDat", reDat))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("reNr", reNr))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("ids_kdNr", ids_kdNr))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("country", country))
+            list.Add(New VERAG_PROG_ALLGEMEIN.SQLVariable("UStVAn_ID", UStVAn_ID))
+
+
+            Return SQL.doSQLVarList("update tblIDSTransactionsNew set  UStVAn_ID = @UStVAn_ID 
+                        FROM tblIDSTransactionsNew
+                        INNER JOIN tbl_IDS_Länder 
+                            ON tblIDSTransactionsNew.[OutletCountryCode] = tbl_IDS_Länder.OutletCountryCode
+                        WHERE 
+                            tblIDSTransactionsNew.[YearMonthDay] = @reDat AND ISNULL(tblIDSTransactionsNew.[OBONumber], ISNULL(tblIDSTransactionsNew.[VRNumber], tblIDSTransactionsNew.[Paymentsummarynumber])) = @reNr
+                            AND tblIDSTransactionsNew.KdNrVERAG = @ids_kdNr
+                            AND tbl_IDS_Länder.[Lieferland_ISO2] = @country", "FMZOLL",, list)
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return ""
+    End Function
+
 
     Public Class Paramter
 

VERAG_PROG_ALLGEMEIN/Classes/cUTA.vb

@@ -1274,7 +1274,7 @@ Public Class cUTA
 
             Return SQL.doSQLVarList("
 
-                    UPDATE [tblUTAImportNew] set abgerechnet=1, [abgerechnetDatum]=GETDATE(), UStVAn_ID = @ustvaId
+                    UPDATE [tblUTAImportNew] set archiv=1, [archiviertDatum]=GETDATE(), UStVAn_ID = @ustvaId
                     WHERE cast(Rechnungsdatum as date) = @reDat and Rechnungsnummer_pro_Lieferland = @reNr and Kundennummer=@uta_kdNr
                 ", "FMZOLL",, list)
 

VERAG_PROG_ALLGEMEIN/DATENSERVER/cDATENSERVER.vb

@@ -7,6 +7,7 @@ Imports System.Text.RegularExpressions
 Imports System.Windows.Forms
 Imports iTextSharp.text.pdf
 Imports Spire.Pdf
+Imports Spire.Pdf.Attachments
 Imports Spire.Pdf.Print
 
 
@@ -2267,6 +2268,28 @@ Public Class DATENVERVER_OPTIONS
         Return ""
     End Function
 
+
+    Public Shared Function addAttachementToPDF(File As String, attPath As String) As String
+        Try
+
+            Dim pdf As New Spire.Pdf.PdfDocument()
+
+            Dim docPdf As Spire.Pdf.PdfDocument = New Spire.Pdf.PdfDocument()
+            docPdf.LoadFromFile(File)
+
+            Dim attachment As PdfAttachment = New PdfAttachment(attPath)
+
+            docPdf.Attachments.Add(attachment)
+            docPdf.SaveToFile(File)
+
+            Return File
+
+        Catch ex As Exception
+            VERAG_PROG_ALLGEMEIN.cErrorHandler.ERR(ex.Message, ex.StackTrace, System.Reflection.MethodInfo.GetCurrentMethod.Name)
+        End Try
+        Return ""
+    End Function
+
     Public Shared Function getFileExtensionFromBase64String(base64 As String) As String
 
         Dim list As List(Of KeyValuePair(Of String, String)) = New List(Of KeyValuePair(Of String, String))

VERAG_PROG_ALLGEMEIN/Schnittstellen/MSE/cMSEAPI.vb

@@ -1363,13 +1363,13 @@ Public Class cMSEAPI
 
             Using conn As SqlConnection = SQL.GetNewOpenConnectionFMZOLL()
 
-                Using cmd As New SqlCommand("select * from ( select cust.[customer_id],bills.invoice_date, bills.invoice_number, bills.specification_page_name,  trans.original_currency ,sum(USteuer_EUR) as UST_EUR, sum(original_vat_amount) as UST
+                Using cmd As New SqlCommand("select * from ( select cust.[customer_id],bills.invoice_date, bills.invoice_number, 'MAUT' as specification_page_name/*bills.specification_page_name*/,  trans.original_currency ,sum(USteuer_EUR) as UST_EUR, sum(original_vat_amount) as UST
                     FROM [VERAG].[dbo].[tblMSESettlements] as bills 
                     left join [VERAG].[dbo].[tblMSETransactions] as trans on bills.[transaction_id] = trans.[transaction_id] 
                     left join [VERAG].[dbo].[tblMSECustomers] as cust on cust.partner_customer_number = trans.partner_haulier_id 
                     left join [VERAG].[dbo].[tblMSEInvoices] as inv on inv.customer_number = cust.customer_id and bills.invoice_date = inv.invoice_date and inv.country = trans.transaction_country 
                     where bills.invoice_date Between '" & von & "' And '" & bis & "'and trans.charged = 1 and cust.[partner_customer_number] = " & KundenNr & " and trans.transaction_country = '" & LandKZ & "'  and trans.original_currency = '" & Wahrungscode & "' AND isnull(inv.archiv,0) = " & IIf(Archiv IsNot Nothing AndAlso Archiv, 1, 0) & " 
-                    group by bills.invoice_date, bills.invoice_number, cust.[customer_id], bills.specification_page_name, trans.original_currency) as temp
+                    group by bills.invoice_date, bills.invoice_number, cust.[customer_id], /*bills.specification_page_name*/specification_page_name, trans.original_currency) as temp
                     where temp.UST <> 0", conn)
 
                     cmd.Parameters.AddWithValue("@von", von)

VERAG_PROG_ALLGEMEIN/cProgramFunktions.vb

@@ -473,6 +473,14 @@ BindingFlags.Instance Or BindingFlags.NonPublic, Nothing, [Control], New Object(
         Return SQL.getValueTxtBySql(sqlstr, "FMZOLL")
     End Function
 
+    Shared Function getISO2LandFromLandNr(LandNr As Integer)
+        If Not IsNumeric(LandNr) Then Return Nothing
+        If LandNr = 0 Then Return Nothing
+        Dim sqlstr = "SELECT TOP 1 isnull(LandKz,'') AS LandKzISO2 from [Länderverzeichnis für die Außenhandelsstatistik] where LandNr = '" & LandNr & "' "
+        Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+        Return SQL.getValueTxtBySql(sqlstr, "FMZOLL")
+    End Function
+
     Shared Function getISO2Land(LandKz As String)
         If LandKz Is Nothing Then Return Nothing
         Dim sqlstr = "SELECT TOP 1 isnull([Länderverzeichnis für die Außenhandelsstatistik].LandKz,'') AS LandKzISO2 FROM [Länderverzeichnis für die Außenhandelsstatistik] LEFT JOIN Währungstabelle ON [Länderverzeichnis für die Außenhandelsstatistik].LandNr = Währungstabelle.Währungsschlüssel     WHERE Währungstabelle.LandKz='" & LandKz & "' "