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

- Limpieza de warnings

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@444 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2009-10-06 14:03:13 +00:00
parent 7e4a22909c
commit ac97fc4518
3 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Source/Modulos/Presupuestos de cliente/Views/uEditorAsignarDescuento.pas
View File

@ -20,7 +20,7 @@ type
Label3: TLabel;
private
FDescuento: Variant;
//FDescuento: Variant;
function GetDescuento: Variant;
procedure SetDescuento(const Value: Variant);

4
Source/Modulos/Presupuestos de cliente/Views/uViewDetallesPresupuestoCliente.pas
View File

@ -108,10 +108,10 @@ begin
end;
procedure TfrViewDetallesPresupuestoCliente.actAsignarDescuentoExecute(Sender: TObject);
var
{var
AuxTop, AuxRow:Integer;
ADescuento: Variant;
}
begin
{
ADescuento := (Controller as IDetallesPresupuestoClienteController).PedirDescuento;

18
Source/Modulos/Presupuestos de cliente/Views/uViewPresupuestosCliente.dfm
View File

@ -68,52 +68,52 @@ inherited frViewPresupuestosCliente: TfrViewPresupuestosCliente
object cxGridViewREFERENCIA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA'
BestFitMaxWidth = 25
Width = 58
Width = 65
end
object cxGridViewSITUACION: TcxGridDBColumn
Caption = 'Situaci'#243'n'
DataBinding.FieldName = 'SITUACION'
BestFitMaxWidth = 25
Width = 80
Width = 77
end
object cxGridViewFECHA_PRESUPUESTO: TcxGridDBColumn
Caption = 'Fecha presupuesto'
DataBinding.FieldName = 'FECHA_PRESUPUESTO'
BestFitMaxWidth = 25
Width = 105
Width = 100
end
object cxGridViewFECHA_DECISION: TcxGridDBColumn
Caption = 'Fecha decisi'#243'n'
DataBinding.FieldName = 'FECHA_DECISION'
BestFitMaxWidth = 25
Width = 185
Width = 77
end
object cxGridViewNIF_CIF: TcxGridDBColumn
Caption = 'NIF/CIF'
DataBinding.FieldName = 'NIF_CIF'
BestFitMaxWidth = 25
Width = 75
Width = 88
end
object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Nombre'
DataBinding.FieldName = 'NOMBRE'
Width = 161
Width = 271
end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe total'
DataBinding.FieldName = 'IMPORTE_TOTAL'
PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify
BestFitMaxWidth = 60
BestFitMaxWidth = 25
FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify
Width = 63
Width = 104
end
object cxGridViewCONTRATO: TcxGridDBColumn
Caption = 'Contrato asociado'
DataBinding.FieldName = 'REF_CONTRATO'
BestFitMaxWidth = 25
Width = 25
Width = 63
end
end
inherited cxGridLevel: TcxGridLevel