Ficha de presupuesto de cliente: faltaba asignar ID_CLIENTE al presupuesto cuando se empezaba nuevo.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@803 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-12-11 15:50:00 +00:00
parent 1906a07336
commit bcbfe41c5c

View File

@ -284,8 +284,12 @@ end;
procedure TfEditorPresupuestoCliente.OnClienteChanged(Sender: TObject);
begin
if Assigned(FPresupuesto) then
begin
FPresupuesto.Cliente := ViewPresupuesto.ViewClientePresupuesto.Cliente;
if (FPresupuesto.Detalles.RecordCount > 0) then
FController.DetallesController.ActualizarDetalles(FPresupuesto.Detalles, FPresupuesto.Cliente);
end;
end;
procedure TfEditorPresupuestoCliente.pgPaginasChanging(Sender: TObject;