Mailsender, StartOptions

initATLASAufschubkonten/frmStartOptions.vb

@@ -5341,69 +5341,7 @@ Public Class frmStartOptions
 
     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