diff --git a/Source/GUIBase/GUIBase.dproj b/Source/GUIBase/GUIBase.dproj
index b88cd8bd..37aa08af 100644
--- a/Source/GUIBase/GUIBase.dproj
+++ b/Source/GUIBase/GUIBase.dproj
@@ -58,38 +58,38 @@
MainSource
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
-
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
diff --git a/Source/GUIBase/uEditorDBBase.pas b/Source/GUIBase/uEditorDBBase.pas
index 72ad08c1..927c2457 100644
--- a/Source/GUIBase/uEditorDBBase.pas
+++ b/Source/GUIBase/uEditorDBBase.pas
@@ -33,7 +33,7 @@ type
procedure dsDataTableDataChange(Sender: TObject; Field: TField);
protected
function HayDatos: Boolean;
- function GetModified: Boolean; override;
+// function GetModified: Boolean; override;
procedure RefrescarInterno; override;
procedure CancelarCambiosInterno; override;
end;
@@ -163,7 +163,7 @@ begin
and Assigned(dsDataTable.DataTable) then
(Sender as TAction).Enabled := not dsDataTable.DataTable.ReadOnly;
end;
-
+{
function TfEditorDBBase.GetModified: Boolean;
begin
if ReadOnly then
@@ -171,6 +171,7 @@ begin
else
Result := DataTableModified(dsDataTable.DataTable) or inherited GetModified;
end;
+}
function TfEditorDBBase.HayDatos: Boolean;
begin
diff --git a/Source/GUIBase/uEditorGridBase.pas b/Source/GUIBase/uEditorGridBase.pas
index c1f8eb3b..058e4afd 100644
--- a/Source/GUIBase/uEditorGridBase.pas
+++ b/Source/GUIBase/uEditorGridBase.pas
@@ -102,14 +102,14 @@ type
procedure ImprimirInterno; override;
procedure RefrescarInterno; override;
+ function GetModified: Boolean; override;
+
public
property ListaAnos: TStringList read GetListaAnos write SetListaAnos;
property ViewGrid: IViewGridBase read GetViewGrid write SetViewGrid;
property DynWhereDataTable: WideString read GetDynWhereDataTable write SetDynWhereDataTable;
property MultiSelect : Boolean read GetMultiSelect write SetMultiSelect;
- function GetModified: Boolean; override;
-
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
end;
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 7e8fe486..67d2e318 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index b0c7593d..228a475f 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.3.4.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.3.4.0\0"
- VALUE "CompileDate", "jueves, 09 de julio de 2009 10:31\0"
+ VALUE "CompileDate", "jueves, 09 de julio de 2009 17:15\0"
END
END
BLOCK "VarFileInfo"