...
KeyFieldsBuffer.RESET;
IF KeyFieldsBuffer.FIND('-') THEN
REPEAT
FieldRef := CollectionRecRef.FIELD(KeyFieldsBuffer."Entry No.");
IF NOT
OSynchTypeConversion.EvaluateTextToFieldRef(
OSynchTypeConversion.SetValueFormat(KeyFieldsBuffer.Name,FieldRef),
FieldRef,
TRUE)
THEN
IF OSynchEntityElementIn."Element No." = 0 THEN
ERROR(Text001,FieldRef.CAPTION,OSynchEntityElementIn."Synch. Entity Code")
ELSE
ERROR(
Text010,
FieldRef.CAPTION,
OSynchEntityElementIn."Outlook Collection",
OSynchEntityElementIn."Synch. Entity Code");
UNTIL KeyFieldsBuffer.NEXT = 0;
TempOSynchFilter.MARKEDONLY(TRUE);
...
...
KeyFieldsBuffer.RESET;
IF KeyFieldsBuffer.FIND('-') THEN
REPEAT
FieldRef := CollectionRecRef.FIELD(KeyFieldsBuffer."Entry No.");
IF NOT
OSynchTypeConversion.EvaluateTextToFieldRef(
OSynchTypeConversion.SetValueFormat(KeyFieldsBuffer.Name,FieldRef),
FieldRef,
TRUE)
THEN
IF OSynchEntityElementIn."Element No." = 0 THEN
ERROR(Text001,FieldRef.CAPTION,OSynchEntityElementIn."Synch. Entity Code")
ELSE
ERROR(
Text010,
FieldRef.CAPTION,
OSynchEntityElementIn."Outlook Collection",
OSynchEntityElementIn."Synch. Entity Code");
UNTIL KeyFieldsBuffer.NEXT = 0;
TempOSynchFilter.MARKEDONLY(TRUE);
TempOSynchFilter.SETCURRENTKEY("Table No.","Field No."); // Add this line to define the validation order.
...