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 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fDialogBase
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"