Ajustes gerais

* Ajuste na validação IsOptional
  - Se for True, ele não continua a validação daquele validate específico

* Se o valor do JSON for null. ele entende como vazio.

Author: dliocode

src/core/DataValidator.ItemBase.pas

@@ -155,8 +155,15 @@ function TDataValidatorItemBase.GetValueAsString: string;
 
     if Assigned(LJSONPair) then
     begin
-      LValue := LJSONPair.JsonValue.ToString.Trim(['"']);
-      Result := StringReplace(LValue, '\/', '/', [rfReplaceAll]);
+      if LJSONPair.JsonValue is TJSONNull then
+      begin
+        Result := LValue;
+      end
+      else
+      begin
+        LValue := LJSONPair.JsonValue.ToString.Trim(['"']);
+        Result := StringReplace(LValue, '\/', '/', [rfReplaceAll]);
+      end;
     end;
   end
   else

src/validators/Validator.IsOptional.pas

@@ -62,16 +62,12 @@ function TValidatorIsOptional.Check: IDataValidatorResult;
 var
   LValue: string;
   R: Boolean;
-  LIsOptional: Boolean;
 begin
   LValue := GetValueAsString;
-  R := False;
-  LIsOptional := True;
 
   if Assigned(FOptionalExecute) then
-    LIsOptional := FOptionalExecute(LValue);
-
-  if LIsOptional then
+    R := FOptionalExecute(LValue)
+  else
     R := LValue.IsEmpty;
 
   if FIsNot then