roberto
c9f83b3b4b
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@18 9a1d36f3-7752-2d40-8ccb-50eb49674c68
120 lines
4.1 KiB
ObjectPascal
120 lines
4.1 KiB
ObjectPascal
unit uViewDetallesPresupuesto;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, cxStyles, cxCustomData, cxGraphics,
|
|
cxFilter, cxData, cxDataStorage, cxEdit, DB, cxDBData, cxImageComboBox,
|
|
cxTextEdit, cxSpinEdit, ImgList, PngImageList, uDADataTable, ActnList,
|
|
ComCtrls, ToolWin, cxGridLevel, cxGridCustomTableView, cxGridTableView,
|
|
cxGridDBTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
|
|
cxCheckBox, TB2Item, TBX, TB2Dock, TB2Toolbar, JvExComCtrls, JvToolBar,
|
|
uViewDetallesFamilias, cxMaskEdit, cxCurrencyEdit;
|
|
|
|
type
|
|
TfrViewDetallesPresupuesto = class(TfrViewDetallesFamilias)
|
|
cxGridViewPUNTOS: TcxGridDBColumn;
|
|
cxGridViewIMPORTEPUNTOS: TcxGridDBColumn;
|
|
cxStyle_PUNTOS: TcxStyle;
|
|
procedure cxGridViewEditing(Sender: TcxCustomGridTableView;
|
|
AItem: TcxCustomGridTableItem; var AAllow: Boolean);
|
|
procedure cxGridViewIMPORTEPUNTOSStylesGetContentStyle(
|
|
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
|
|
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
|
|
procedure cxGridViewVISIBLEStylesGetContentStyle(
|
|
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
|
|
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
|
|
procedure cxGridViewVALORADOStylesGetContentStyle(
|
|
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
|
|
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
|
|
private
|
|
{ Private declarations }
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
|
|
implementation
|
|
|
|
uses uBizImportesDetalleBase, uViewContenido;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TfrViewDetallesPresupuesto.cxGridViewEditing(
|
|
Sender: TcxCustomGridTableView; AItem: TcxCustomGridTableItem;
|
|
var AAllow: Boolean);
|
|
var
|
|
IndiceCol : Integer;
|
|
begin
|
|
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_IMPORTEPUNTOS).Index;
|
|
if AItem.Index = IndiceCol then
|
|
begin
|
|
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_TIPODETALLE).Index;
|
|
if (UpperCase(AItem.GridView.Items[IndiceCol].EditValue) = TIPODETALLE_SUBTOTAL) then
|
|
AAllow := False
|
|
else
|
|
AAllow := True
|
|
end
|
|
else
|
|
inherited;
|
|
end;
|
|
|
|
procedure TfrViewDetallesPresupuesto.cxGridViewIMPORTEPUNTOSStylesGetContentStyle(
|
|
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
|
|
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
|
|
var
|
|
IndiceCol : Integer;
|
|
ATipo : String;
|
|
begin
|
|
if Assigned(ARecord) then
|
|
begin
|
|
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_TIPODETALLE).Index;
|
|
ATipo := VarToStr(ARecord.Values[IndiceCol]);
|
|
if ATipo = TIPODETALLE_CONCEPTO then
|
|
AStyle := cxStyle_PUNTOS;
|
|
if ATipo = TIPODETALLE_SUBTOTAL then
|
|
AStyle := cxStyle_SUBTOTAL;
|
|
if ATipo = TIPODETALLE_TITULO then
|
|
AStyle := cxStyle_TITULO;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrViewDetallesPresupuesto.cxGridViewVISIBLEStylesGetContentStyle(
|
|
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
|
|
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
|
|
var
|
|
IndiceCol : Integer;
|
|
ATipo : String;
|
|
begin
|
|
if Assigned(ARecord) then
|
|
begin
|
|
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_TIPODETALLE).Index;
|
|
ATipo := VarToStr(ARecord.Values[IndiceCol]);
|
|
if ATipo = TIPODETALLE_SUBTOTAL then
|
|
AStyle := cxStyle_SUBTOTAL;
|
|
if ATipo = TIPODETALLE_TITULO then
|
|
AStyle := cxStyle_TITULO;
|
|
end;
|
|
end;
|
|
|
|
procedure TfrViewDetallesPresupuesto.cxGridViewVALORADOStylesGetContentStyle(
|
|
Sender: TcxCustomGridTableView; ARecord: TcxCustomGridRecord;
|
|
AItem: TcxCustomGridTableItem; out AStyle: TcxStyle);
|
|
var
|
|
IndiceCol : Integer;
|
|
ATipo : String;
|
|
begin
|
|
if Assigned(ARecord) then
|
|
begin
|
|
IndiceCol := (Sender as TcxGridDBTableView).GetColumnByFieldName(fld_TIPODETALLE).Index;
|
|
ATipo := VarToStr(ARecord.Values[IndiceCol]);
|
|
if ATipo = TIPODETALLE_SUBTOTAL then
|
|
AStyle := cxStyle_SUBTOTAL;
|
|
if ATipo = TIPODETALLE_TITULO then
|
|
AStyle := cxStyle_TITULO;
|
|
end;
|
|
end;
|
|
|
|
end.
|