david
3ab47f8d0e
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/tags/1.2.0@6 c93665c3-c93d-084d-9b98-7d5f4a9c3376
122 lines
3.8 KiB
ObjectPascal
122 lines
3.8 KiB
ObjectPascal
unit uEditorEntradaArticulosInventario;
|
||
|
||
interface
|
||
|
||
uses
|
||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||
Dialogs, uEditorDBItem, DB, uDADataTable, JvAppStorage,
|
||
JvAppRegistryStorage, JvComponent, JvFormPlacement, ImgList,
|
||
PngImageList, StdActns, ActnList, ComCtrls, TBX, TB2Item, TB2Dock,
|
||
TB2Toolbar, ExtCtrls, JvExControls, JvNavigationPane, uCustomView,
|
||
uViewBase, uEditorItem, pngimage, uViewGridBase,
|
||
uViewGrid, JvComponentBase, uBizInventario, uViewListaArticulosInventario,
|
||
uIEditorEntradaArticulosInventario, uInventarioController, JvExComCtrls,
|
||
JvStatusBar;
|
||
|
||
type
|
||
TfEditorEntradaArticulosInventario = class(TfEditorDBItem, IEditorEntradaArticulosInventario)
|
||
frViewListaArticulos: TfrViewListaArticulosInventario;
|
||
actAnadirInventario: TAction;
|
||
actEliminarInventario: TAction;
|
||
TBXToolbar1: TTBXToolbar;
|
||
TBXItem33: TTBXItem;
|
||
TBXItem34: TTBXItem;
|
||
TBXSeparatorItem16: TTBXSeparatorItem;
|
||
procedure CustomEditorClose(Sender: TObject; var Action: TCloseAction);
|
||
procedure actAnadirInventarioExecute(Sender: TObject);
|
||
procedure actEliminarInventarioExecute(Sender: TObject);
|
||
private
|
||
FHayCambios: Boolean;
|
||
FController : IInventarioController;
|
||
FArticulos: IBizInventario;
|
||
function GetArticulos: IBizInventario;
|
||
procedure SetArticulos(const Value: IBizInventario);
|
||
function GetController : IInventarioController;
|
||
procedure SetController (const Value : IInventarioController);
|
||
|
||
protected
|
||
procedure GuardarInterno; override;
|
||
|
||
public
|
||
property Controller : IInventarioController read GetController write SetController;
|
||
property Articulos: IBizInventario read GetArticulos write SetArticulos;
|
||
constructor Create(AOwner: TComponent); override;
|
||
end;
|
||
|
||
implementation
|
||
{$R *.dfm}
|
||
|
||
//uses uEditorUtils;
|
||
|
||
{ TfEditorRecibirPedido }
|
||
|
||
function TfEditorEntradaArticulosInventario.GetArticulos: IBizInventario;
|
||
begin
|
||
Result := FArticulos;
|
||
end;
|
||
|
||
function TfEditorEntradaArticulosInventario.GetController: IInventarioController;
|
||
begin
|
||
Result := FController;
|
||
end;
|
||
|
||
procedure TfEditorEntradaArticulosInventario.GuardarInterno;
|
||
begin
|
||
inherited;
|
||
//En este punto se realizar<61> el applyupdates
|
||
FController.GuardarArticulosUnitarios(Articulos);
|
||
FHayCambios:= False;
|
||
end;
|
||
|
||
procedure TfEditorEntradaArticulosInventario.SetArticulos(const Value: IBizInventario);
|
||
begin
|
||
FArticulos := Value;
|
||
|
||
if Assigned(FArticulos) then
|
||
dsDataTable.DataTable := FArticulos.DataTable
|
||
else
|
||
dsDataTable.DataTable := NIL;
|
||
|
||
frViewListaArticulos.dsDataSource.DataTable := dsDataTable.DataTable;
|
||
if FArticulos.IDAlmacenEntrada = -1 then
|
||
FArticulos.IDAlmacenEntrada := frViewListaArticulos.Almacenes.ID;
|
||
|
||
// frViewDatosPedido.Pedido := FArticulos.Pedido;
|
||
end;
|
||
|
||
procedure TfEditorEntradaArticulosInventario.SetController(const Value: IInventarioController);
|
||
begin
|
||
FController := Value
|
||
end;
|
||
|
||
procedure TfEditorEntradaArticulosInventario.actAnadirInventarioExecute(Sender: TObject);
|
||
begin
|
||
//Todos los cambios ser<65>n en cach<63> hasta que el usuario decida guardar
|
||
FController.Anadir(Articulos);
|
||
FHayCambios:= True;
|
||
end;
|
||
|
||
procedure TfEditorEntradaArticulosInventario.CustomEditorClose(Sender: TObject;
|
||
var Action: TCloseAction);
|
||
begin
|
||
inherited;
|
||
if FHayCambios
|
||
then ModalResult := mrOK
|
||
else ModalResult := mrCancel;
|
||
end;
|
||
|
||
procedure TfEditorEntradaArticulosInventario.actEliminarInventarioExecute(Sender: TObject);
|
||
begin
|
||
//Todos los cambios ser<65>n en cach<63> hasta que el usuario decida guardar
|
||
Controller.Eliminar(Articulos, false, false);
|
||
FHayCambios:= True;
|
||
end;
|
||
|
||
constructor TfEditorEntradaArticulosInventario.Create(AOwner: TComponent);
|
||
begin
|
||
inherited;
|
||
FHayCambios:= False;
|
||
end;
|
||
|
||
end.
|