frmStartOptions

initATLASAufschubkonten/frmStartOptions.vb

@@ -3,6 +3,8 @@ Imports System.IO
 Imports System.Net
 Imports System.Text
 Imports System.Xml
+Imports com.esendex.sdk
+Imports com.sun.xml.internal.rngom
 Imports Renci.SshNet
 Imports VERAG_PROG_ALLGEMEIN
 
@@ -4586,7 +4588,7 @@ Public Class frmStartOptions
 
         Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
         VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxTestsystem.Checked
-        cbxMSEBatchNr.DataSource = SQL.loadCboBySql("SELECT distinct([batch_seq_nr]) FROM [VERAG].[dbo].[tblMSETransactions]", "FMZOLL")
+        cbxMSEBatchNr.DataSource = SQL.loadCboBySql("SELECT distinct top 10 ([batch_seq_nr]) FROM [VERAG].[dbo].[tblMSETransactions] order by batch_seq_nr desc", "FMZOLL")
 
     End Sub
 
@@ -5153,4 +5155,72 @@ Public Class frmStartOptions
         End If
 
     End Sub
+
+    Private Sub Button24_Click(sender As Object, e As EventArgs) Handles Button24.Click
+
+        Dim test As Boolean = False
+
+        Dim dir = IIf(test, "C:\Users\d.breimaier\Desktop\MSE_test\", "C:\Users\d.breimaier\Desktop\MSE\") & Now.ToShortDateString.Replace(":", "") & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "")
+
+        If Directory.Exists(dir) Then dir &= "_" & Now.ToShortTimeString.Replace(":", "")
+
+        Directory.CreateDirectory(dir)
+
+
+        Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+        Dim dt_CSV_selected = SQL.loadDgvBySql_Param("SELECT TOP (10) controller_id as [Controller ID], 'VERAG 360 GmbH' as [Controller Name] , inv.[invoice_id] as [Invoice ID], inv.invoice_date as [Invoice Date], 
+                                cust.customer_id as [CustomerID], cust.partner_customer_number as [Customer No], cust.customer_name as [Customer name], bills.specification_page_name as [Specification Page], bills.specification_page_id as [Specification ID], trans.purchase_datetime as [Transaction date], trans.transaction_id as [Transaction ID], 
+                                trans.supplier_name as [Transaction Supplier/Terminal], trans.transaction_country as [Transaction Country], trans.transaction_product_name as [Product description], trans.transaction_product_id as [Product Description ID], trans.device_product_type as [Card Type], trans.device_product_number as [Card number], trans.license_plate_number as [Load File Licence Plate Number],
+                                '' as [Card Licence Plate Number], trans.license_plate_number as [Truck Licence Plate Number], '' as [Truck Fleet Code], '' as [Truck Driver Name], trans.entry_point_name as [Entry Terminal/Direction], trans.entry_datetime as [Start date], trans.entry_datetime as [Start Time], trans.exit_point_name as [Exit Terminal Description], trans.exit_datetime as [End Date], trans.exit_datetime as [End Time],
+                                ''  as [Eurovignet K-Number], '' as [LKW-Kostenstelle], trans.original_net_amount as [Original Nett Amount], trans.original_vat_amount as [Original VAT Amount], trans.original_gross_amount as [Original Amount], trans.original_currency as [Original Currency],
+                                 trans.transaction_gross_amount as [Transaction Amount ( EUR )], trans.msts_fee_amount as [Admin Fee Amount ( EUR )], '' as [Fees and Costs Amount ( EUR )], trans.msts_vat_amount as [VAT Amount ( EUR )],trans.total_gross_amount as [Total Amount ( EUR )], ''  as [Total Dutch VAT ( EUR )], '' as [Total Foreign VAT ( EUR )], trans.[USteuer_EUR] as [USteuer_EUR]
+                                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.[invoice_id] = bills.[invoice_number] and inv.customer_number = cust.[customer_id] and trans.transaction_country = inv.country
+                                where (trans.transaction_gross_amount <> 0 or [msts_fee_amount] <> 0) ", "FMZOLL")
+
+        dt_CSV_selected.ParentRelations.Clear()
+        dt_CSV_selected.ChildRelations.Clear()
+        dt_CSV_selected.Constraints.Clear()
+
+
+        For Each csv As DataRow In dt_CSV_selected.Rows
+
+            Dim teststring As String = csv.Item(2)
+
+            Dim fn As String = dir
+            fn &= "\"
+            fn &= teststring & "_Maut_MSE.csv"
+            Dim outFile As System.IO.StreamWriter = My.Computer.FileSystem.OpenTextFileWriter(fn, False)
+            Dim clmns As String = ""
+            For i = 0 To dt_CSV_selected.Columns.Count - 1
+                clmns &= dt_CSV_selected.Columns(i).ColumnName.ToString().Replace(";", ", ") & ";"
+            Next
+            outFile.WriteLine(clmns)
+            For i = 0 To dt_CSV_selected.Rows.Count - 1
+                clmns = ""
+                For j = 0 To dt_CSV_selected.Columns.Count - 1
+                    clmns &= dt_CSV_selected.Rows(i)(j).ToString.Replace(";", ", ") & ";"
+                Next
+                outFile.WriteLine(clmns)
+            Next
+            outFile.Close()
+        Next
+
+
+        Dim dirAnhang = "C:\Users\d.breimaier\Desktop\MSE_ARCHIV\" & IIf(VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM, "Test", "") & Now.ToShortDateString
+        If Directory.Exists(dirAnhang) Then 'Directory.Delete(dirAnhang, True)
+            For Each f In Directory.GetFiles(dirAnhang)
+                File.Delete(f)
+            Next
+        Else
+            Directory.CreateDirectory(dirAnhang)
+        End If
+
+        For Each f In Directory.GetFiles(dir)
+            File.Copy(f, dirAnhang & "\" & (New FileInfo(f)).Name)
+        Next
+
+    End Sub
 End Class