Tecistel/Tecsitel_FactuGES2
0
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.Tecsitel_FactuGES2/trunk@976 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
roberto 2009-11-24 10:21:28 +00:00
parent 52a91e5cc0
commit 6b80bf9238
7 changed files with 66 additions and 68 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
Source/GUIBase/GUIBase.dproj
View File

@ -59,30 +59,30 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Recibos de cliente\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\cxTreeListD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dbrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxBarD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxBarExtItemsD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxComnD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxComnD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxGDIPlusD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxLayoutControlD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxPSCoreD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxPScxCommonD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\dxThemeD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\frx11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\frxe11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\fs11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvAppFrmD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\JvCtrlsD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\rtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcldb.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vcljpg.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Recibos de cliente\vclx.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

38
Source/GUIBase/uEditorBase.pas
View File

@ -263,8 +263,23 @@ procedure TfEditorBase.actImprimirExecute(Sender: TObject);
begin begin
if actImprimir.Enabled then if actImprimir.Enabled then
begin 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;
end; end;
@ -295,8 +310,23 @@ procedure TfEditorBase.actPrevisualizarExecute(Sender: TObject);
begin begin
if actPrevisualizar.Enabled then if actPrevisualizar.Enabled then
begin 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;
end; end;

4
Source/GUIBase/uEditorDBItem.dfm
View File

@ -77,10 +77,6 @@ inherited fEditorDBItem: TfEditorDBItem
TabOrder = 2 TabOrder = 2
object pagGeneral: TTabSheet object pagGeneral: TTabSheet
Caption = 'General' Caption = 'General'
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
end end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar

28
Source/GUIBase/uEditorDBItem.pas
View File

@ -26,8 +26,6 @@ type
procedure lblDesbloquearClick(Sender: TObject); procedure lblDesbloquearClick(Sender: TObject);
protected protected
procedure EliminarInterno; override; procedure EliminarInterno; override;
procedure PrevisualizarInterno; override;
procedure ImprimirInterno; override;
procedure ActualizarEstadoEditor; override; procedure ActualizarEstadoEditor; override;
end; end;
@ -64,19 +62,6 @@ begin
actCerrar.Execute; actCerrar.Execute;
end; 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.' + #13#10 +
'¿Desea guardarlos ahora?') = IDYES) then
actGuardar.Execute
else
ShowInfoMessage('Recuerde guardar los cambios si quiere previsualizar o imprimir.');
end;
end;
procedure TfEditorDBItem.lblDesbloquearClick(Sender: TObject); procedure TfEditorDBItem.lblDesbloquearClick(Sender: TObject);
begin begin
inherited; inherited;
@ -92,19 +77,6 @@ begin
end; end;
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;
initialization initialization
RegisterClass(TfEditorDBItem); RegisterClass(TfEditorDBItem);

14
Source/Modulos/Albaranes de cliente/Views/uViewDatosYSeleccionClienteAlbaran.pas
View File

@ -322,13 +322,13 @@ begin
if FCliente.ID > 0 then if FCliente.ID > 0 then
edtPersonaContacto.Enabled := True; edtPersonaContacto.Enabled := True;
if FCliente.Direcciones.RecordCount > 0 then // if FCliente.Direcciones.RecordCount > 0 then
ElegirDireccionCliente // ElegirDireccionCliente
else begin // else begin
FAlbaran.Edit; // FAlbaran.Edit;
FAlbaran.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO; // FAlbaran.PERSONA_CONTACTO := FCliente.PERSONA_CONTACTO;
RefrescarDireccion; // RefrescarDireccion;
end; // end;
end end
else begin else begin
dsCliente.DataTable := NIL; dsCliente.DataTable := NIL;

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.7.8.0\0" VALUE "FileVersion", "1.7.8.0\0"
VALUE "ProductVersion", "1.7.8.0\0" VALUE "ProductVersion", "1.7.8.0\0"
VALUE "CompileDate", "jueves, 19 de noviembre de 2009 13:03\0" VALUE "CompileDate", "martes, 24 de noviembre de 2009 11:06\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"