From f35331e504ab6433b4b6c63ecba57ae032b0b158 Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 25 Mar 2008 11:22:20 +0000 Subject: [PATCH] =?UTF-8?q?Quitamos=20la=20posibilidad=20de=20generar=20un?= =?UTF-8?q?=20albaran=20a=20partir=20de=20un=20presupuesto,=20y=20tambien?= =?UTF-8?q?=20quitamos=20el=20aviso,=20cuendo=20elegimos=20un=20cliente=20?= =?UTF-8?q?para=20el=20albar=C3=A1n,=20de=20que=20no=20tiene=20datos=20ban?= =?UTF-8?q?carios?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@177 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Albaranes de cliente/Views/uEditorAlbaranCliente.pas | 4 ++-- .../Views/uEditorAlbaranesCliente.dfm | 1 - .../Views/uEditorAlbaranesCliente.pas | 8 +++++++- 3 files changed, 9 insertions(+), 4 deletions(-) diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas index 2e635e8f..fd31756b 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas @@ -237,8 +237,8 @@ begin AClientesController := TClientesController.Create; try // Avisar si no hay datos bancarios - if not AClientesController.TieneDatosBancarios(FAlbaran.Cliente) then - ShowWarningMessage('Este cliente no tiene datos bancarios en su ficha'); + //if not AClientesController.TieneDatosBancarios(FAlbaran.Cliente) then + // ShowWarningMessage('Este cliente no tiene datos bancarios en su ficha'); // Elegir la dirección de envio case FAlbaran.Cliente.Direcciones.RecordCount of diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm index f37530f8..1fffaaaa 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm @@ -2,7 +2,6 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente Caption = 'Lista de albaranes de cliente' ClientWidth = 583 ExplicitWidth = 591 - ExplicitHeight = 471 PixelsPerInch = 96 TextHeight = 13 inherited JvNavPanelHeader: TJvNavPanelHeader diff --git a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas index 4d9e1d31..47bab0c7 100644 --- a/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas @@ -455,7 +455,12 @@ var begin inherited; - Respuesta := JsNuevoAlbaranDialog.Execute; + if FController.Anadir(Albaranes) then + FController.Ver(Albaranes); + +//Se deshabilita la funcionalidad para poder generar un albarán a partir de un presupuesto + +{ Respuesta := JsNuevoAlbaranDialog.Execute; if Respuesta <> IDCANCEL then begin @@ -470,6 +475,7 @@ begin end; end; end; +} end; procedure TfEditorAlbaranesCliente.PonerTitulos(const ATitulo: string);