AppStd/TaskFlow
8
1
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

MassValidator

Browse Source
This commit is contained in:
Digital Data - Marlon Schreiber 2019-05-27 13:01:13 +02:00
parent be0f652c31
commit adf094fd19
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
app/DD_PM_WINDREAM/frmMassValidator.vb
View File

@ -1409,7 +1409,7 @@ Public Class frmMassValidator
If oMyControlInput = "Unexp. error in GetWM_Value_Multiple_Docs" Then If oMyControlInput = "Unexp. error in GetWM_Value_Multiple_Docs" Then
Continue For Continue For
End If End If
If oMyControlInput = "(Untersch. Werte)" Then If oMyControlInput = "(Untersch. Werte)" Or oMyControlInput = "(Different values)" Then
Continue For Continue For
End If End If
If oIndexname.StartsWith("[%VKT") Then If oIndexname.StartsWith("[%VKT") Then
@ -1421,7 +1421,7 @@ Public Class frmMassValidator
Exit For Exit For
End If End If
Else Else
If oMyControlInput = "(Untersch. Werte)" Then If oMyControlInput = "(Untersch. Werte)" Or oMyControlInput = "(Different values)" Then
Continue For Continue For
End If End If
Dim result() As String Dim result() As String
@ -1455,6 +1455,9 @@ Public Class frmMassValidator
Exit For Exit For
Else Else
oMyControlInput = oControl.Text oMyControlInput = oControl.Text
If oMyControlInput = "(Untersch. Werte)" Or oMyControlInput = "(Different values)" Then
Continue For
End If
'Wenn der Wert in ein Vektorfeld geschrieben wird 'Wenn der Wert in ein Vektorfeld geschrieben wird
If oIndexname.StartsWith("[%VKT") Then If oIndexname.StartsWith("[%VKT") Then
oMyControlInput = Return_PM_VEKTOR(oMyControlInput, oIndexname) oMyControlInput = Return_PM_VEKTOR(oMyControlInput, oIndexname)