Start, IDS, Procedures

UID/usrctlProcedures.vb

@@ -3459,6 +3459,8 @@ Public Class usrctlProcedures
         Dim kdnr_tmp = ""
         Try
 
+            VERAG_PROG_ALLGEMEIN.cAllgemein.TESTSYSTEM = True
+
             Dim fd As New OpenFileDialog
             If fd.ShowDialog = DialogResult.OK Then
                 If fd.FileName.ToLower.EndsWith(".csv") Then
@@ -3688,9 +3690,33 @@ Public Class usrctlProcedures
                                             End If
 
                                         Else
+
+                                            Dim STDOF As New cStandardofferten(currentRow(0), currentRow(1), currentRow(2), currentRow(3))
+                                            If STDOF.hasEntry Then
+
+                                                Dim save As Boolean = False
+
+                                                If isleernothing(currentRow(12)) IsNot Nothing AndAlso isleernothing(currentRow(12)) <> "NULL" Then
+                                                    save = True
+                                                    STDOF.LeistungsBez_EN = isleernothing(currentRow(12))
+                                                End If
+                                                If isleernothing(currentRow(13)) IsNot Nothing AndAlso isleernothing(currentRow(13)) <> "NULL" Then
+                                                    save = True
+                                                    STDOF.LeistungsBez_RO = isleernothing(currentRow(13))
+                                                End If
+                                                If isleernothing(currentRow(14)) IsNot Nothing AndAlso isleernothing(currentRow(14)) <> "NULL" Then
+                                                    save = True
+                                                    STDOF.LeistungsBez_TR = isleernothing(currentRow(14))
+                                                End If
+
+                                                If save Then STDOF.SAVE()
+
+                                            End If
+
+
                                             'MsgBox(currentRow(2))
                                         End If
-                                    End If
+                                            End If
                                 End If
 
                                 'For Each currentField In currentRow