Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Presupuestos de cliente: corregido error en texto de mensaje.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@520 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-08-20 15:17:37 +00:00
parent 5e7f231f7e
commit 7b5a20b771
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Source/Modulos/Presupuestos de cliente/Views/uEditorPresupuestoCliente.pas
View File

@ -220,7 +220,7 @@ begin
HideHourglassCursor; HideHourglassCursor;
end; end;
if bEsNuevo then if bEsNuevo then
ShowInfoMessage('El Presupuesto se ha dado de alta con el código ' + FPresupuesto.REFERENCIA); ShowInfoMessage('El presupuesto se ha dado de alta con el código ' + FPresupuesto.REFERENCIA);
Modified := False; Modified := False;
end; end;
@ -357,6 +357,7 @@ begin
if Assigned(FViewPresupuesto) then if Assigned(FViewPresupuesto) then
begin begin
FViewPresupuesto.Presupuesto := FPresupuesto; FViewPresupuesto.Presupuesto := FPresupuesto;
ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := NIL;
ViewPresupuesto.ViewClientePresupuesto.Cliente := FPresupuesto.Cliente; ViewPresupuesto.ViewClientePresupuesto.Cliente := FPresupuesto.Cliente;
ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := OnClienteChanged; ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := OnClienteChanged;
frViewDetallesPresupuestoCliente1.Detalles := FPresupuesto.Detalles; frViewDetallesPresupuestoCliente1.Detalles := FPresupuesto.Detalles;