From 4a60ef48e57a6a5e80eedddc0eeb46e33401d6c3 Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 9 Jul 2009 15:23:11 +0000 Subject: [PATCH] =?UTF-8?q?Se=20arregla=20el=20editorgridbase=20para=20que?= =?UTF-8?q?=20su=20getmodified=20siempre=20devuelva=20false=20y=20asi=20no?= =?UTF-8?q?=20salga=20la=20pregunta=20desea=20guardar=20los=20cambios.=20T?= =?UTF-8?q?ambien=20se=20modifica=20viewfiltrobase=20para=20que=20herede?= =?UTF-8?q?=20de=20viewbase=20en=20lugar=20de=20tframe.=20Se=20arreglan=20?= =?UTF-8?q?las=20remesas=20de=20cliente=20y=20proveedor=20para=20que=20la?= =?UTF-8?q?=20lista=20de=20recibos=20a=20a=C3=B1adir=20en=20la=20remesa=20?= =?UTF-8?q?no=20aparezcan=20los=20que=20ya=20est=C3=A9n=20a=C3=B1adidos=20?= =?UTF-8?q?(ya=20que=20todo=20esta=20en=20memosria=20y=20hasta=20que=20no?= =?UTF-8?q?=20se=20guarde=20no=20pasa=20a=20bd=20y=20no=20se=20sabe=20que?= =?UTF-8?q?=20tiene=20o=20no=20tiene=20la=20remesa)?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@427 f4e31baf-9722-1c47-927c-6f952f962d4b --- Source/GUIBase/GUIBase.dproj | 64 ++++++++++++++-------------- Source/GUIBase/uEditorDBBase.pas | 5 ++- Source/GUIBase/uEditorGridBase.pas | 4 +- Source/Servidor/FactuGES_Server.RES | Bin 23344 -> 23344 bytes Source/Servidor/FactuGES_Server.rc | 2 +- 5 files changed, 38 insertions(+), 37 deletions(-) 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 7e8fe48647032ad96987cfe967b9f04bf85a5fdb..67d2e31888949faffb310d21688ed7de139df4a1 100644 GIT binary patch delta 21 bcmdn6jd24IJ&IyCXRu;0WH6olGRhqQU9ktY delta 21 bcmdn6jd24IJ&IyCV6b8^W-y%mGRhqQU0w&R 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"