To implement this hotfix, you must have a developer license.
You do not have to have rights to the data stores unless you have to perform data repair.
...
BEGIN
Field.GET(RecRef.NUMBER,FieldRef.NUMBER);
IF Field.Type <> Field.Type::Option THEN BEGIN
IF Value <> '' THEN
// Delete the following lines.
EVALUATE(FieldRef,Value)
END ELSE
IF GetOption(Value,FieldRef.OPTIONCAPTION,OptionAsInteger) THEN
FieldRef.VALUE := OptionAsInteger;
// End of the lines.
IF NOT CompanySetupRun THEN
FieldRef.VALIDATE;
END;
...
... BEGIN Field.GET(RecRef.NUMBER,FieldRef.NUMBER); Field.GET(RecRef.NUMBER,FieldRef.NUMBER); IF Field.Type <> Field.Type::Option THEN BEGIN IF Value <> '' THEN BEGIN EVALUATE(FieldRef,Value) IF NOT CompanySetupRun THEN FieldRef.VALIDATE; END; END ELSE IF GetOption(Value,FieldRef.OPTIONCAPTION,OptionAsInteger) THEN IF CompanySetupRun THEN FieldRef.VALUE := OptionAsInteger ELSE FieldRef.VALIDATE(OptionAsInteger); IF NOT CompanySetupRun THEN FieldRef.VALIDATE; END; ...