diff --git a/Source/Base/Utiles/uDataTableUtils.pas b/Source/Base/Utiles/uDataTableUtils.pas
index 71d91c83..9d82981a 100644
--- a/Source/Base/Utiles/uDataTableUtils.pas
+++ b/Source/Base/Utiles/uDataTableUtils.pas
@@ -87,12 +87,17 @@ begin
     if ASource.Active then
       ASource.Close;
 
-    for i := 0 to AObj.SelectedRecords.Count - 1 do
-    begin
-      if (i > 0) then
-        ASource.Filter := ASource.Filter + ' or ';
-      ASource.Filter := ASource.Filter + '(ID = ' + IntToStr(AObj.SelectedRecords.Items[i]) + ')';
-    end;
+    //Si no hay elemento seleccionados filtramos para que ATarget se quede vacia
+ 	  if (AObj.SelectedRecords.Count = 0) then
+ 	      ASource.Filter := ASource.Filter + '(ID = ' + IntToStr(ID_NULO) + ')'
+ 	  //En caso contrario filtramos por los elementos seleccionados
+ 	  else
+ 	    for i := 0 to AObj.SelectedRecords.Count - 1 do
+ 	    begin
+ 	      if (i > 0) then
+ 	         ASource.Filter := ASource.Filter + ' or ';
+ 	      ASource.Filter := ASource.Filter + '(ID = ' + IntToStr(AObj.SelectedRecords.Items[i]) + ')';
+ 	    end;
 
     ASource.Filtered := True;
   end;
@@ -369,12 +374,17 @@ begin
     if ASource.Active then
       ASource.Close;
 
-    for i := 0 to AObj.SelectedRecords.Count - 1 do
-    begin
-      if (i > 0) then
-        ASource.Filter := ASource.Filter + ' or ';
-      ASource.Filter := ASource.Filter + '(ID = ' + IntToStr(AObj.SelectedRecords.Items[i]) + ')';
-    end;
+    //Si no hay elemento seleccionados filtramos para que ATarget se quede vacia
+ 	  if (AObj.SelectedRecords.Count = 0) then
+ 	      ASource.Filter := ASource.Filter + '(ID = ' + IntToStr(ID_NULO) + ')'
+ 	  //En caso contrario filtramos por los elementos seleccionados
+ 	  else
+ 	    for i := 0 to AObj.SelectedRecords.Count - 1 do
+ 	    begin
+ 	      if (i > 0) then
+ 	         ASource.Filter := ASource.Filter + ' or ';
+ 	      ASource.Filter := ASource.Filter + '(ID = ' + IntToStr(AObj.SelectedRecords.Items[i]) + ')';
+ 	    end;
 
     ASource.Filtered := True;
   end;