roberto
21a115e205
Tareas #88: Modelos de capítulos Tareas #892: Al añadir un articulo meter todos sus datos (imagen) y dar a guardar falla. (si guardo sin imagen y luego añado la imagen funciona) Tareas #893: Poder establecer las familias en los capitulos git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@561 f4e31baf-9722-1c47-927c-6f952f962d4b
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.
|