From 6d6a242d2824ac6c9ae5212c7e40beaad167a949 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Tue, 24 Nov 2009 10:21:45 +0000
Subject: [PATCH] =?UTF-8?q?Se=20adapta=20la=20base=20para=20que=20la=20pre?=
 =?UTF-8?q?gunta=20de=20si=20desea=20guardar=20los=20cambios=20(al=20previ?=
 =?UTF-8?q?sualizar=20o=20imprimir)=20se=20haga=20en=20el=20action=20y=20n?=
 =?UTF-8?q?o=20en=20el=20precedimiento=20interno=20(PrevisualizarInterno,?=
 =?UTF-8?q?=20ImprimirInterno)=20para=20que=20as=C3=AD=20no=20se=20llame?=
 =?UTF-8?q?=20a=20imprimir=20o=20previsualizar=20interno=20si=20no=20se=20?=
 =?UTF-8?q?guarda.?=
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@468 f4e31baf-9722-1c47-927c-6f952f962d4b
---
 Source/GUIBase/uEditorBase.pas   | 38 ++++++++++++++++++++++++++++----
 Source/GUIBase/uEditorDBItem.dfm | 12 ++++------
 Source/GUIBase/uEditorDBItem.pas | 28 -----------------------
 3 files changed, 38 insertions(+), 40 deletions(-)

diff --git a/Source/GUIBase/uEditorBase.pas b/Source/GUIBase/uEditorBase.pas
index 63dded46..19111186 100644
--- a/Source/GUIBase/uEditorBase.pas
+++ b/Source/GUIBase/uEditorBase.pas
@@ -243,8 +243,23 @@ procedure TfEditorBase.actImprimirExecute(Sender: TObject);
 begin
   if actImprimir.Enabled then
   begin
-    ImprimirInterno;
-    ActualizarEstadoEditor;
+    if Modified then
+    begin
+      if (ShowConfirmMessage('Se han producido cambios', 'Se han producido cambios y no se puede previsualizar hasta que no se guarden.' + #10#13 +
+        '¿Desea guardarlos ahora?') = IDYES) then
+      begin
+        GuardarInterno;
+        ImprimirInterno;
+        ActualizarEstadoEditor;
+      end
+      else
+        ShowInfoMessage('Recuerde guardar los cambios si quiere previsualizar o imprimir.');
+    end
+    else
+    begin
+      ImprimirInterno;
+      ActualizarEstadoEditor;
+    end
   end;
 end;
 
@@ -275,8 +290,23 @@ procedure TfEditorBase.actPrevisualizarExecute(Sender: TObject);
 begin
   if actPrevisualizar.Enabled then
   begin
-    PrevisualizarInterno;
-    ActualizarEstadoEditor;
+    if Modified then
+    begin
+      if (ShowConfirmMessage('Se han producido cambios', 'Se han producido cambios y no se puede previsualizar hasta que no se guarden.' + #10#13 +
+        '¿Desea guardarlos ahora?') = IDYES) then
+      begin
+        GuardarInterno;
+        PrevisualizarInterno;
+        ActualizarEstadoEditor;
+      end
+      else
+        ShowInfoMessage('Recuerde guardar los cambios si quiere previsualizar o imprimir.');
+    end
+    else
+    begin
+      PrevisualizarInterno;
+      ActualizarEstadoEditor;
+    end;
   end;
 end;
 
diff --git a/Source/GUIBase/uEditorDBItem.dfm b/Source/GUIBase/uEditorDBItem.dfm
index 4782b216..e20006f4 100644
--- a/Source/GUIBase/uEditorDBItem.dfm
+++ b/Source/GUIBase/uEditorDBItem.dfm
@@ -83,14 +83,8 @@ inherited fEditorDBItem: TfEditorDBItem
     ActivePage = pagGeneral
     Align = alClient
     TabOrder = 2
-    ExplicitTop = 117
-    ExplicitHeight = 320
     object pagGeneral: TTabSheet
       Caption = 'General'
-      ExplicitLeft = 0
-      ExplicitTop = 0
-      ExplicitWidth = 0
-      ExplicitHeight = 292
     end
   end
   object PnlComentario: TPanel [4]
@@ -109,12 +103,14 @@ inherited fEditorDBItem: TfEditorDBItem
       AlignWithMargins = True
       Left = 6
       Top = 4
-      Width = 55
-      Height = 13
+      Width = 640
+      Height = 25
       Margins.Left = 5
       Align = alClient
       Caption = 'Comentario'
       WordWrap = True
+      ExplicitWidth = 55
+      ExplicitHeight = 13
     end
   end
   inherited EditorActionList: TActionList
diff --git a/Source/GUIBase/uEditorDBItem.pas b/Source/GUIBase/uEditorDBItem.pas
index 48098dc5..9e344841 100644
--- a/Source/GUIBase/uEditorDBItem.pas
+++ b/Source/GUIBase/uEditorDBItem.pas
@@ -32,8 +32,6 @@ type
     procedure SetComentario(const Value: Variant);
 
     procedure EliminarInterno; override;
-    procedure PrevisualizarInterno; override;
-    procedure ImprimirInterno; override;
     procedure ActualizarEstadoEditor; override;
 
   public
@@ -82,32 +80,6 @@ begin
   Result := FComentario;
 end;
 
-procedure TfEditorDBItem.ImprimirInterno;
-begin
-  inherited;
-  if Modified then
-  begin
-    if (ShowConfirmMessage('Se han producido cambios', 'Se han producido cambios y no se puede imprimir hasta que no se guarden.' + #10#13 +
-      '¿Desea guardarlos ahora?') = IDYES) then
-      actGuardar.Execute
-    else
-      ShowInfoMessage('Recuerde guardar los cambios si quiere previsualizar o imprimir.');
-  end;
-end;
-
-procedure TfEditorDBItem.PrevisualizarInterno;
-begin
-  inherited;
-  if Modified then
-  begin
-    if (ShowConfirmMessage('Se han producido cambios', 'Se han producido cambios y no se puede previsualizar hasta que no se guarden.' + #10#13 +
-      '¿Desea guardarlos ahora?') = IDYES) then
-      actGuardar.Execute
-    else
-      ShowInfoMessage('Recuerde guardar los cambios si quiere previsualizar o imprimir.');
-  end;
-end;
-
 procedure TfEditorDBItem.SetComentario(const Value: Variant);
 begin
   FComentario := Value;