david
3ab47f8d0e
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/tags/1.2.0@6 c93665c3-c93d-084d-9b98-7d5f4a9c3376
56 lines
1.7 KiB
ObjectPascal
56 lines
1.7 KiB
ObjectPascal
unit uViewArticulosProveedor;
|
|
|
|
interface
|
|
|
|
uses
|
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
|
Dialogs, uViewArticulos, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
|
|
cxDataStorage, cxEdit, DB, cxDBData, dxPSGlbl, dxPSUtl, dxPSEngn, dxPrnPg,
|
|
dxBkgnd, dxWrap, dxPrnDev, dxPSCompsProvider, dxPSFillPatterns,
|
|
dxPSEdgePatterns, ImgList, PngImageList, cxGridCustomPopupMenu,
|
|
cxGridPopupMenu, dxPSCore, dxPScxCommon, dxPScxGridLnk, uDADataTable,
|
|
cxGridLevel, cxGridCustomTableView, cxGridTableView, cxGridDBTableView,
|
|
uBizArticulos,
|
|
cxClasses, cxControls, cxGridCustomView, cxGrid, uBizArticulosProveedor,
|
|
Grids, DBGrids;
|
|
|
|
type
|
|
IViewArticulosProveedor = interface(IViewArticulos)
|
|
['{55EF70A6-F758-4603-AFB9-38BC4BDFBA27}']
|
|
end;
|
|
|
|
TfrViewArticulosProveedor = class(TfrViewArticulos, IViewArticulosProveedor)
|
|
cxGridViewID: TcxGridDBColumn;
|
|
cxGridViewCOMISIONABLE: TcxGridDBColumn;
|
|
cxGridViewREFERENCIA_PROVEEDOR: TcxGridDBColumn;
|
|
cxGridViewPRECIO_COSTE: TcxGridDBColumn;
|
|
cxGridViewPRECIO_PORTE: TcxGridDBColumn;
|
|
cxGridViewDESCUENTO: TcxGridDBColumn;
|
|
cxGridViewNOMBRE_PROVEEDOR: TcxGridDBColumn;
|
|
protected
|
|
FArticulosProveedor: IBizArticuloProveedor;
|
|
public
|
|
procedure SetArticulos(const Value: IBizArticulo); override;
|
|
end;
|
|
|
|
implementation
|
|
|
|
uses
|
|
schArticulosClient_Intf, uViewGridBase, uViewGrid;
|
|
|
|
{$R *.dfm}
|
|
|
|
procedure TfrViewArticulosProveedor.SetArticulos(const Value: IBizArticulo);
|
|
begin
|
|
inherited;
|
|
if Assigned(FArticulos) then
|
|
begin
|
|
FArticulosProveedor := (FArticulos as IBizArticuloProveedor);
|
|
end
|
|
else begin
|
|
FArticulosProveedor := nil;
|
|
end;
|
|
end;
|
|
|
|
end.
|