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);