84 lines
2.5 KiB
ObjectPascal
84 lines
2.5 KiB
ObjectPascal
|
unit uEditorArticuloProveedor;
|
|||
|
|
|
|||
|
|
interface
|
|||
|
|
|
|||
|
|
uses
|
|||
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|||
|
|
Dialogs, uEditorArticulo, JvAppStorage, JvAppRegistryStorage, JvComponentBase,
|
|||
|
|
JvFormPlacement, DB, uDADataTable, ImgList, PngImageList, StdActns, ActnList,
|
|||
|
|
ComCtrls, TBX, TB2Item, TB2Dock, TB2Toolbar, pngimage, ExtCtrls, JvExControls,
|
|||
|
|
JvComponent, JvNavigationPane,
|
|||
|
|
uIEditorArticuloProveedor, uArticulosController, uBizArticulos, JvExComCtrls,
|
|||
|
|
JvStatusBar, dxLayoutLookAndFeels;
|
|||
|
|
|
|||
|
|
type
|
|||
|
|
TfEditorArticuloProveedor = class(TfEditorArticulo, IEditorArticuloProveedor)
|
|||
|
|
protected
|
|||
|
|
//Si queremos crear otra vista para el editor heredado solo tendriamos que
|
|||
|
|
//sobreescribir este metodo
|
|||
|
|
procedure AsignarVista; override;
|
|||
|
|
|
|||
|
|
procedure SetController (const Value : IArticulosController); override;
|
|||
|
|
procedure SetArticulo(const Value: IBizArticulo); override;
|
|||
|
|
|
|||
|
|
procedure PonerTitulos(const ATitulo: string = ''); override;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
var
|
|||
|
|
fEditorArticuloProveedor: TfEditorArticuloProveedor;
|
|||
|
|
|
|||
|
|
implementation
|
|||
|
|
{$R *.dfm}
|
|||
|
|
|
|||
|
|
uses uViewArticuloProveedor, uBizArticulosProveedor, uArticulosProveedorController,
|
|||
|
|
uViewArticulo;
|
|||
|
|
|
|||
|
|
{ TfEditorArticuloProveedor }
|
|||
|
|
|
|||
|
|
procedure TfEditorArticuloProveedor.AsignarVista;
|
|||
|
|
var
|
|||
|
|
AViewArticuloProveedor: TfrViewArticuloProveedor;
|
|||
|
|
begin
|
|||
|
|
AViewArticuloProveedor := TfrViewArticuloProveedor.create(Self);
|
|||
|
|
with AViewArticuloProveedor do
|
|||
|
|
begin
|
|||
|
|
Parent := pagGeneral;
|
|||
|
|
Align := alClient;
|
|||
|
|
dxLayoutControlArticulo.LookAndFeel := dxLayoutOfficeLookAndFeel1;
|
|||
|
|
end;
|
|||
|
|
ViewArticulo := AViewArticuloProveedor;
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfEditorArticuloProveedor.SetController(const Value: IArticulosController);
|
|||
|
|
begin
|
|||
|
|
inherited;
|
|||
|
|
{ if Assigned(FController) then
|
|||
|
|
(ViewArticulo as IViewArticuloProveedor).ViewDatosProveedor.Controller := (FController as IArticulosProveedorController).DatosProveedorController;}
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfEditorArticuloProveedor.PonerTitulos(const ATitulo: string);
|
|||
|
|
var
|
|||
|
|
FTitulo : String;
|
|||
|
|
begin
|
|||
|
|
if Assigned(Articulo) then
|
|||
|
|
begin
|
|||
|
|
if Articulo.EsNuevo then
|
|||
|
|
FTitulo := 'Nuevo art<72>culo'
|
|||
|
|
else
|
|||
|
|
FTitulo := 'Art<72>culo';
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
inherited PonerTitulos(FTitulo);
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
procedure TfEditorArticuloProveedor.SetArticulo(const Value: IBizArticulo);
|
|||
|
|
begin
|
|||
|
|
inherited;
|
|||
|
|
{ if Assigned(FViewArticulo) then
|
|||
|
|
begin
|
|||
|
|
(ViewArticulo as IViewArticuloProveedor).ViewDatosProveedor.DatosProveedor := (FArticulo as IBizArticuloProveedor).DatosProveedor;
|
|||
|
|
end;}
|
|||
|
|
end;
|
|||
|
|
|
|||
|
|
end.
|