merge

UID/usrctlProcedures.vb

@@ -4348,6 +4348,7 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
                         Case "Vereinigte Staaten" : ISO2SetCountry = "US"
                         Case "Vereinigtes Königreich" : ISO2SetCountry = "GB"
                         Case "Bosnien und Herzegowina" : ISO2SetCountry = "BA"
+                        Case "Mauretanien" : ISO2SetCountry = "MR"
                     End Select
 
 
@@ -4380,7 +4381,6 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
             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(";")
@@ -4393,8 +4393,8 @@ OPTION (MAXRECURSION 1000);", "AVISO") '
 
                                     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))
+                                    If isleernothing(currentRow(1)) Is Nothing AndAlso isleernothing(currentRow(2)) IsNot Nothing AndAlso IsNumeric(currentRow(2)) Then
+                                        KUNDE_ERW.kde_SEG_Summe = CDbl(currentRow(2))
                                         KUNDE_ERW.SAVE()
                                     End If