Archivado/LuisLeon_FactuGES
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Arreglo en albaranes de cliente para que en la pantalla albarandecliente el botón eliminar este desactivado cuando no se pueda eliminar el albaran

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@279 c93665c3-c93d-084d-9b98-7d5f4a9c3376
This commit is contained in:
roberto 2008-09-17 15:21:33 +00:00
parent 99410f0272
commit ec5e7e3b2d
2 changed files with 45 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
Source/Modulos/Albaranes de cliente/Views/uEditorAlbaranCliente.dfm
View File

@ -181,6 +181,42 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
inherited ToolBar1: TToolBar
Width = 757
ExplicitWidth = 757
inherited UpDown1: TUpDown
Left = 236
ExplicitLeft = 236
end
inherited ToolButton13: TToolButton
Left = 253
ExplicitLeft = 253
end
inherited ToolButton6: TToolButton
Left = 261
ExplicitLeft = 261
end
inherited ToolButton7: TToolButton
Left = 295
ExplicitLeft = 295
end
inherited ToolButton8: TToolButton
Left = 329
ExplicitLeft = 329
end
inherited ToolButton12: TToolButton
Left = 363
ExplicitLeft = 363
end
inherited ToolButton9: TToolButton
Left = 371
ExplicitLeft = 371
end
inherited ToolButton10: TToolButton
Left = 405
ExplicitLeft = 405
end
inherited ToolButton11: TToolButton
Left = 439
ExplicitLeft = 439
end
end
inherited cxGrid: TcxGrid
Width = 757
@ -200,10 +236,6 @@ inherited fEditorAlbaranCliente: TfEditorAlbaranCliente
object pagInicidencias: TTabSheet
Caption = 'Incidencias'
ImageIndex = 2
ExplicitLeft = 0
ExplicitTop = 0
ExplicitWidth = 0
ExplicitHeight = 0
inline frViewIncidenciasCli: TfrViewIncidencias
Left = 0
Top = 0

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

@ -34,6 +34,7 @@ type
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure frViewTotales1edtIVAPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure actEliminarUpdate(Sender: TObject);
private
procedure RecalcularPortePorUnidad;
@ -86,6 +87,14 @@ uses
{
**************************** TfEditorAlbaranCliente ****************************
}
procedure TfEditorAlbaranCliente.actEliminarUpdate(Sender: TObject);
begin
inherited;
if (Sender as TAction).Enabled then
(Sender as TAction).Enabled := (FAlbaran.SITUACION = SITUACION_ALBARAN_PENDIENTE)
and not (FAlbaran.ID_FACTURA > 0)
end;
procedure TfEditorAlbaranCliente.AsignarVista;
var
AViewAlbaranCliente: TfrViewAlbaranCliente;