Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Quitamos la posibilidad de generar un albaran a partir de un presupuesto, y tambien quitamos el aviso, cuendo elegimos un cliente para el albarán, de que no tiene datos bancarios

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@177 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-03-25 11:22:20 +00:00
parent 96ed6434c2
commit f35331e504
3 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.pas
View File

@ -237,8 +237,8 @@ begin
AClientesController := TClientesController.Create; AClientesController := TClientesController.Create;
try try
// Avisar si no hay datos bancarios // Avisar si no hay datos bancarios
if not AClientesController.TieneDatosBancarios(FAlbaran.Cliente) then //if not AClientesController.TieneDatosBancarios(FAlbaran.Cliente) then
ShowWarningMessage('Este cliente no tiene datos bancarios en su ficha'); // ShowWarningMessage('Este cliente no tiene datos bancarios en su ficha');
// Elegir la dirección de envio // Elegir la dirección de envio
case FAlbaran.Cliente.Direcciones.RecordCount of case FAlbaran.Cliente.Direcciones.RecordCount of

1
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.dfm
View File

@ -2,7 +2,6 @@ inherited fEditorAlbaranesCliente: TfEditorAlbaranesCliente
Caption = 'Lista de albaranes de cliente' Caption = 'Lista de albaranes de cliente'
ClientWidth = 583 ClientWidth = 583
ExplicitWidth = 591 ExplicitWidth = 591
ExplicitHeight = 471
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

8
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranesCliente.pas
View File

@ -455,7 +455,12 @@ var
begin begin
inherited; 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 if Respuesta <> IDCANCEL then
begin begin
@ -470,6 +475,7 @@ begin
end; end;
end; end;
end; end;
}
end; end;
procedure TfEditorAlbaranesCliente.PonerTitulos(const ATitulo: string); procedure TfEditorAlbaranesCliente.PonerTitulos(const ATitulo: string);