Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

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.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@468 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2009-11-24 10:21:45 +00:00
parent 03570ff7d8
commit 6d6a242d28
3 changed files with 38 additions and 40 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

38
Source/GUIBase/uEditorBase.pas
View File

@ -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;

12
Source/GUIBase/uEditorDBItem.dfm
View File

@ -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

28
Source/GUIBase/uEditorDBItem.pas
View File

@ -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;