Se adapta la base para que la pregunta de si desea guardar los cambios (al previsualizar o imprimir) se haga en el action y no en el precedimiento interno (PrevisualizarInterno, ImprimirInterno) para que así no se llame a imprimir o previsualizar interno si no se guarda.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@468 f4e31baf-9722-1c47-927c-6f952f962d4b

Source/GUIBase/uEditorBase.pas

@@ -243,8 +243,23 @@ procedure TfEditorBase.actImprimirExecute(Sender: TObject);
 begin
   if actImprimir.Enabled then
   begin
-    ImprimirInterno;
+    if Modified then
-    ActualizarEstadoEditor;
+    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;
+    if Modified then
-    ActualizarEstadoEditor;
+    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;
 

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
+      Width = 640
-      Height = 13
+      Height = 25
       Margins.Left = 5
       Align = alClient
       Caption = 'Comentario'
       WordWrap = True
+      ExplicitWidth = 55
+      ExplicitHeight = 13
     end
   end
   inherited EditorActionList: TActionList

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;