77 lines
2.2 KiB
ObjectPascal
77 lines
2.2 KiB
ObjectPascal
unit uEditorHistorialCargasEDI;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, uEditorGridBase, Menus, DB, uDADataTable, JvAppStorage,
|
||
JvAppRegistryStorage, JvComponentBase, JvFormPlacement, ImgList,
|
||
PngImageList, StdActns, ActnList, ComCtrls, TB2ExtItems, TBXExtItems,
|
||
TBX, TB2Item, TB2Dock, TB2Toolbar, ExtCtrls, JvExControls, JvComponent,
|
||
JvNavigationPane, uBizEDILog, uCustomView, uViewBase,
|
||
uViewHistorialCargasEDI, uViewGrid, uViewGridBase, StdCtrls, uDAInterfaces;
|
||
|
||
type
|
||
IEditorHistorialCargasEDI = interface(IEditorGridBase)
|
||
['{6C84E101-C4FB-48F9-A9A9-93F8606DF4FF}']
|
||
function GetEDILog: IBizEDILog;
|
||
procedure SetEDILog(const Value: IBizEDILog);
|
||
property EDILog: IBizEDILog read GetEDILog write SetEDILog;
|
||
end;
|
||
|
||
TfEditorHistorialCargasEDI = class(TfEditorGridBase, IEditorHistorialCargasEDI)
|
||
frViewHistorialCargasEDI1: TfrViewHistorialCargasEDI;
|
||
procedure CustomEditorCreate(Sender: TObject);
|
||
procedure FormShow(Sender: TObject);
|
||
protected
|
||
FEDILog : IBizEDILog;
|
||
function GetEDILog: IBizEDILog;
|
||
procedure SetEDILog(const Value: IBizEDILog);
|
||
public
|
||
property EDILog: IBizEDILog read GetEDILog write SetEDILog;
|
||
end;
|
||
|
||
var
|
||
fEditorHistorialCargasEDI: TfEditorHistorialCargasEDI;
|
||
|
||
implementation
|
||
|
||
{$R *.dfm}
|
||
|
||
{ TfEditorHistorialCargasEDI }
|
||
|
||
function TfEditorHistorialCargasEDI.GetEDILog: IBizEDILog;
|
||
begin
|
||
Result := FEDILog;
|
||
end;
|
||
|
||
procedure TfEditorHistorialCargasEDI.SetEDILog(const Value: IBizEDILog);
|
||
begin
|
||
FEDILog := Value;
|
||
dsDataTable.DataTable := FEDILog.DataTable;
|
||
if Assigned(ViewGrid) then
|
||
(ViewGrid as IViewHistorialCargasEDI).EDILog := FEDILog;
|
||
end;
|
||
|
||
procedure TfEditorHistorialCargasEDI.CustomEditorCreate(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
ViewGrid := frViewHistorialCargasEDI1;
|
||
end;
|
||
|
||
procedure TfEditorHistorialCargasEDI.FormShow(Sender: TObject);
|
||
begin
|
||
inherited;
|
||
|
||
if not Assigned(ViewGrid) then
|
||
raise Exception.Create('No hay ninguna vista asignada');
|
||
|
||
if not Assigned(FEDILog) then
|
||
raise Exception.Create('No hay ning<6E>n control asignado');
|
||
|
||
FEDILog.DataTable.Active := True;
|
||
ViewGrid.GotoFirst;
|
||
end;
|
||
|
||
end.
|