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; Label3: TLabel;
private private
FDescuento: Variant; //FDescuento: Variant;
function GetDescuento: Variant; function GetDescuento: Variant;
procedure SetDescuento(const Value: Variant); procedure SetDescuento(const Value: Variant);

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

@ -108,10 +108,10 @@ begin
end; end;
procedure TfrViewDetallesPresupuestoCliente.actAsignarDescuentoExecute(Sender: TObject); procedure TfrViewDetallesPresupuestoCliente.actAsignarDescuentoExecute(Sender: TObject);
var {var
AuxTop, AuxRow:Integer; AuxTop, AuxRow:Integer;
ADescuento: Variant; ADescuento: Variant;
}
begin begin
{ {
ADescuento := (Controller as IDetallesPresupuestoClienteController).PedirDescuento; 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 object cxGridViewREFERENCIA: TcxGridDBColumn
DataBinding.FieldName = 'REFERENCIA' DataBinding.FieldName = 'REFERENCIA'
BestFitMaxWidth = 25 BestFitMaxWidth = 25
Width = 58 Width = 65
end end
object cxGridViewSITUACION: TcxGridDBColumn object cxGridViewSITUACION: TcxGridDBColumn
Caption = 'Situaci'#243'n' Caption = 'Situaci'#243'n'
DataBinding.FieldName = 'SITUACION' DataBinding.FieldName = 'SITUACION'
BestFitMaxWidth = 25 BestFitMaxWidth = 25
Width = 80 Width = 77
end end
object cxGridViewFECHA_PRESUPUESTO: TcxGridDBColumn object cxGridViewFECHA_PRESUPUESTO: TcxGridDBColumn
Caption = 'Fecha presupuesto' Caption = 'Fecha presupuesto'
DataBinding.FieldName = 'FECHA_PRESUPUESTO' DataBinding.FieldName = 'FECHA_PRESUPUESTO'
BestFitMaxWidth = 25 BestFitMaxWidth = 25
Width = 105 Width = 100
end end
object cxGridViewFECHA_DECISION: TcxGridDBColumn object cxGridViewFECHA_DECISION: TcxGridDBColumn
Caption = 'Fecha decisi'#243'n' Caption = 'Fecha decisi'#243'n'
DataBinding.FieldName = 'FECHA_DECISION' DataBinding.FieldName = 'FECHA_DECISION'
BestFitMaxWidth = 25 BestFitMaxWidth = 25
Width = 185 Width = 77
end end
object cxGridViewNIF_CIF: TcxGridDBColumn object cxGridViewNIF_CIF: TcxGridDBColumn
Caption = 'NIF/CIF' Caption = 'NIF/CIF'
DataBinding.FieldName = 'NIF_CIF' DataBinding.FieldName = 'NIF_CIF'
BestFitMaxWidth = 25 BestFitMaxWidth = 25
Width = 75 Width = 88
end end
object cxGridViewNOMBRE: TcxGridDBColumn object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Nombre' Caption = 'Nombre'
DataBinding.FieldName = 'NOMBRE' DataBinding.FieldName = 'NOMBRE'
Width = 161 Width = 271
end end
object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn object cxGridViewIMPORTE_TOTAL: TcxGridDBColumn
Caption = 'Importe total' Caption = 'Importe total'
DataBinding.FieldName = 'IMPORTE_TOTAL' DataBinding.FieldName = 'IMPORTE_TOTAL'
PropertiesClassName = 'TcxCurrencyEditProperties' PropertiesClassName = 'TcxCurrencyEditProperties'
Properties.Alignment.Horz = taRightJustify Properties.Alignment.Horz = taRightJustify
BestFitMaxWidth = 60 BestFitMaxWidth = 25
FooterAlignmentHorz = taRightJustify FooterAlignmentHorz = taRightJustify
HeaderAlignmentHorz = taRightJustify HeaderAlignmentHorz = taRightJustify
Width = 63 Width = 104
end end
object cxGridViewCONTRATO: TcxGridDBColumn object cxGridViewCONTRATO: TcxGridDBColumn
Caption = 'Contrato asociado' Caption = 'Contrato asociado'
DataBinding.FieldName = 'REF_CONTRATO' DataBinding.FieldName = 'REF_CONTRATO'
BestFitMaxWidth = 25 BestFitMaxWidth = 25
Width = 25 Width = 63
end end
end end
inherited cxGridLevel: TcxGridLevel inherited cxGridLevel: TcxGridLevel