david
3ab47f8d0e
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/tags/1.2.0@6 c93665c3-c93d-084d-9b98-7d5f4a9c3376
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.
|