Ajustes (#374)

ajuste para uso de mais de um ServerContext no mesmo DataModule
ajuste de compatibilidade para Delphi-12-Athenas

Author: Ronierys2

CORE/Source/Basic/uRESTDWBasic.pas

@@ -5514,6 +5514,7 @@ procedure TRESTServiceBase.Notification(AComponent: TComponent;
        vTagService := False;
        For B := 0 To TRESTDWServerContext(ServerMethodsClass.Components[i]).ContextList.Count -1 Do
         Begin
+         Error   := False;  //29/11/2023 - roniery ajuste para uso de mais de um ServerContext		
          If LowerCase(urlContext) = LowerCase(TRESTDWServerContext(ServerMethodsClass.Components[i]).ContextList[B].BaseURL) Then
           vTagService := LowerCase(TRESTDWServerContext(ServerMethodsClass.Components[i]).ContextList[B].ContextName) = LowerCase(Pooler);
          If vTagService Then

CORE/Source/utils/uRESTDWMassiveBuffer.pas

@@ -1591,7 +1591,7 @@ implementation
          Except
          End;
          vTagkey := IntToStr(vLastOpen) + '|' + EncodeStrings(vBookmark{$IFDEF RESTDWLAZARUS}, csUndefined{$ENDIF});
-         MassiveLineBuff.vMassiveValues.Items[MassiveLineBuff.vMassiveValues.Count -1].Value := EncodeStrings(vTagKey{$IFDEF RESTDWLAZARUS}, csUndefined{$ENDIF});
+         TMassiveValue(MassiveLineBuff.vMassiveValues.Items[MassiveLineBuff.vMassiveValues.Count -1]).Value := EncodeStrings(vTagKey{$IFDEF RESTDWLAZARUS}, csUndefined{$ENDIF});
         End;
       End
      Else If Dataset is TRESTDWTable Then
@@ -1603,7 +1603,7 @@ implementation
          Except
          End;
          vTagkey := IntToStr(vLastOpen) + '|' + EncodeStrings(vBookmark{$IFDEF RESTDWLAZARUS}, csUndefined{$ENDIF});
-         MassiveLineBuff.vMassiveValues.Items[MassiveLineBuff.vMassiveValues.Count -1].Value := EncodeStrings(vTagKey{$IFDEF RESTDWLAZARUS}, csUndefined{$ENDIF});
+         TMassiveValue(MassiveLineBuff.vMassiveValues.Items[MassiveLineBuff.vMassiveValues.Count -1]).Value := EncodeStrings(vTagKey{$IFDEF RESTDWLAZARUS}, csUndefined{$ENDIF});
         End;
       End;
     End;