roberto
38e48889ef
Tareas #787: al aceptar un presupuesto con linea de concepto libre se crea un capitulo de cocinas Tareas #846: Se arregla fallo de selección en el grid al cambiar de estado una linea seleccionada sobre un grid filtrado Tareas #898: En el informe de varios y obras quitar las lineas de los conceptos Tareas #914: En los informes internos sale acana home en lugar de Abeto Design Tareas #919: Se activan las familias y articulos para que salgan en las propiedades y valores de los presupuestos y contratos git-svn-id: https://192.168.0.254/svn/Proyectos.AbetoDesign_FactuGES/trunk@50 93f398dd-4eb6-7a46-baf6-13f46f578da2
65 lines
2.1 KiB
ObjectPascal
65 lines
2.1 KiB
ObjectPascal
unit uViewConfiguracionCapitulo;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewDetallesArticulos, cxStyles, cxCustomData, cxGraphics, cxFilter,
|
|
cxData, cxDataStorage, cxEdit, DB, cxDBData, cxImageComboBox, cxTextEdit,
|
|
cxRichEdit, cxCurrencyEdit, cxCheckBox, ImgList, PngImageList, uDAInterfaces,
|
|
uDADataTable, StdActns, ExtActns, ActnList, TB2Item, TBX, TB2Dock, TB2Toolbar,
|
|
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
|
cxClasses, cxControls, cxGridCustomView, cxGrid, ComCtrls, StdCtrls,
|
|
JvExStdCtrls, JvCombobox, JvColorCombo, ToolWin, cxContainer, cxMaskEdit,
|
|
cxDropDownEdit, cxLookupEdit, cxDBLookupEdit, cxDBLookupComboBox, uBizDetallesPresupuestoCliente;
|
|
|
|
type
|
|
TfrViewConfiguracionCapitulo = class(TfrViewDetallesArticulos)
|
|
cxLookupComboBox: TcxLookupComboBox;
|
|
DAPropiedades: TDADataSource;
|
|
procedure CustomViewShow(Sender: TObject);
|
|
procedure cxGridViewDESCRIPCIONGetPropertiesForEdit(
|
|
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
|
|
var AProperties: TcxCustomEditProperties);
|
|
procedure CustomViewDestroy(Sender: TObject);
|
|
protected
|
|
FPropiedades: IBizPropiedades;
|
|
public
|
|
{ Public declarations }
|
|
end;
|
|
|
|
implementation
|
|
{$R *.dfm}
|
|
|
|
uses uDetallesPresupuestoClienteController;
|
|
|
|
procedure TfrViewConfiguracionCapitulo.CustomViewDestroy(Sender: TObject);
|
|
begin
|
|
FPropiedades := Nil;
|
|
inherited;
|
|
end;
|
|
|
|
procedure TfrViewConfiguracionCapitulo.CustomViewShow(Sender: TObject);
|
|
begin
|
|
inherited;
|
|
if not Assigned(FPropiedades) then
|
|
begin
|
|
FPropiedades := (Controller as IDetallesPresupuestoClienteController).DarPropiedades;
|
|
FPropiedades.DataTable.Active := True;
|
|
DAPropiedades.DataTable := FPropiedades.DataTable;
|
|
end;
|
|
|
|
if Assigned(Detalles) then
|
|
Detalles.Active := True;
|
|
end;
|
|
|
|
procedure TfrViewConfiguracionCapitulo.cxGridViewDESCRIPCIONGetPropertiesForEdit(
|
|
Sender: TcxCustomGridTableItem; ARecord: TcxCustomGridRecord;
|
|
var AProperties: TcxCustomEditProperties);
|
|
begin
|
|
inherited;
|
|
AProperties := cxLookupComboBox.Properties;
|
|
end;
|
|
|
|
end.
|