fix vector field detection in Abschluss

This commit is contained in:
Jonathan Jenne
2019-04-09 16:14:42 +02:00
parent 2ef1707b05
commit 04daefb3ba

View File

@@ -2407,7 +2407,9 @@ Public Class frmValidator
ReDim Preserve result(0)
result(0) = value
If dr.Item("INDEXNAME").ToString.StartsWith("[%VKT") Then
Dim oIndexType = WINDREAM.GetTypeOfIndex(dr.Item("INDEXNAME"))
If oIndexType > 4000 And oIndexType < 5000 Then
'If dr.Item("INDEXNAME").ToString.StartsWith("[%VKT") Then
Dim PM_String = Return_PM_VEKTOR(value, dr.Item("INDEXNAME"))
'Hier muss nun separat als Vektorfeld indexiert werden
If Indexiere_VektorfeldPM(PM_String, PROFIL_VEKTORINDEX) = False Then