Tecsitel_FactuGES2/Source/Modulos/Albaranes de cliente/Views/uEditorElegirArticulosAlbaranCliente.pas
david 36a9de5e6d - Repaso general
- Quitar warnings
- Limpieza de PNGImageList en las vistas de grids.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@374 0c75b7a4-871f-7646-8a2f-f78d34cc349f
2008-05-20 18:50:02 +00:00

34 lines
1.1 KiB
ObjectPascal

unit uEditorElegirArticulosAlbaranCliente;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uEditorElegirArticulos, Menus, DB, uDADataTable, JvAppStorage,
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList, PngImageList,
StdActns, ActnList, uCustomView, uViewBase, uViewBarraSeleccion, ComCtrls,
JvExComCtrls, JvStatusBar, TBX, TB2ExtItems, TBXExtItems, TB2Item, TB2Dock,
TB2Toolbar, pngimage, ExtCtrls, JvExControls, JvComponent, JvNavigationPane,
JvgWizardHeader, uIEditorElegirArticulosAlbaranesCliente, uDAInterfaces;
type
TfEditorElegirArticulosAlbaranCliente = class(TfEditorElegirArticulos, IEditorElegirArticulosAlbaranesCliente)
protected
procedure AsignarVista; override;
end;
implementation
{$R *.dfm}
uses uViewElegirArticulosAlbaranesCliente;
{ TfEditorElegirArticulosAlbaranCliente }
procedure TfEditorElegirArticulosAlbaranCliente.AsignarVista;
begin
ViewGrid := CreateView(TfrViewElegirArticulosAlbaranesCliente) as IViewElegirArticulosAlbaranesCliente;
end;
end.