Presupuestos de cliente: corregido error en texto de mensaje.

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

View File

@ -220,7 +220,7 @@ begin
HideHourglassCursor;
end;
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;
end;
@ -357,6 +357,7 @@ begin
if Assigned(FViewPresupuesto) then
begin
FViewPresupuesto.Presupuesto := FPresupuesto;
ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := NIL;
ViewPresupuesto.ViewClientePresupuesto.Cliente := FPresupuesto.Cliente;
ViewPresupuesto.ViewClientePresupuesto.OnClienteChanged := OnClienteChanged;
frViewDetallesPresupuestoCliente1.Detalles := FPresupuesto.Detalles;