Plose date, etc.

UID/usrctlProcedures.vb

@@ -4098,7 +4098,7 @@ Public Class usrctlProcedures
         Dim kdnr_tmp = ""
         Try
 
-            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = False
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxMDM_Testsystem.Checked
 
             Dim fd As New OpenFileDialog
             If fd.ShowDialog = DialogResult.OK Then
@@ -4181,7 +4181,7 @@ Public Class usrctlProcedures
 
         Try
 
-            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxMDM_Testsystem.Checked
 
             Dim fd As New OpenFileDialog
             If fd.ShowDialog = DialogResult.OK Then
@@ -4341,6 +4341,7 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
                         Case "Vereinigte Arabische Emirate" : ISO2SetCountry = "AE"
                         Case "Vereinigte Staaten" : ISO2SetCountry = "US"
                         Case "Vereinigtes Königreich" : ISO2SetCountry = "GB"
+                        Case "Bosnien und Herzegowina" : ISO2SetCountry = "BA"
                     End Select
 
 
@@ -4359,6 +4360,61 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
 
     End Sub
 
+    Private Sub Button54_Click(sender As Object, e As EventArgs) Handles Button54.Click
+
+
+        Dim cnt = 0
+        Dim sql As New VERAG_PROG_ALLGEMEIN.SQL
+
+        Try
+
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = cbxMDM_Testsystem.Checked
+
+            Dim fd As New OpenFileDialog
+            If fd.ShowDialog = DialogResult.OK Then
+                If fd.FileName.ToLower.EndsWith(".csv") Then
+
+                    ' fd.FileName.EndsWith(".csv") 
+                    Using MyReader As New Microsoft.VisualBasic.FileIO.TextFieldParser(fd.FileName, Encoding.Default)
+                        MyReader.TextFieldType = FileIO.FieldType.Delimited
+                        MyReader.SetDelimiters(";")
+                        Dim currentRow As String()
+                        While Not MyReader.EndOfData
+                            Try
+                                currentRow = MyReader.ReadFields()
+
+                                If currentRow.Length > 1 AndAlso isleernothing(currentRow(0)) IsNot Nothing AndAlso IsNumeric(currentRow(0)) Then
+
+                                    Dim KUNDE_ERW As New cKundenErweitert(currentRow(0))
+
+                                    If isleernothing(currentRow(1)) IsNot Nothing AndAlso IsNumeric(currentRow(1)) Then
+                                        KUNDE_ERW.kde_zinssatz = CDbl(currentRow(1))
+                                        KUNDE_ERW.SAVE()
+                                    End If
+
+
+
+                                End If
+
+
+                                cnt += 1
+
+                            Catch ex As Exception
+                                MsgBox(ex.Message & ex.StackTrace)
+                            End Try
+                        End While
+                    End Using
+                End If
+            End If
+
+        Catch ex As Exception
+            MessageBox.Show("Datei nicht vorhanden.")
+        Finally
+
+        End Try
+
+    End Sub
+
 
 
     'Private Sub Button26_Click(sender As Object, e As EventArgs)