david
acd17b74cc
git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES/trunk@2 c93665c3-c93d-084d-9b98-7d5f4a9c3376
116 lines
3.3 KiB
ObjectPascal
116 lines
3.3 KiB
ObjectPascal
unit uDataModuleInventario;
|
||
|
||
interface
|
||
|
||
uses
|
||
SysUtils, Classes, DB, uDAClientDataModule, uDADataTable, uDABINAdapter,
|
||
uDAScriptingProvider, uDACDSDataTable, uROWinInetHttpChannel, uROTypes,
|
||
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||
uDADesigntimeCall,
|
||
uIDataModuleInventario, uBizInventario;
|
||
|
||
type
|
||
TDataModuleInventario = class(TDAClientDataModule, IDataModuleInventario)
|
||
RORemoteService: TRORemoteService;
|
||
DABinAdapter: TDABINAdapter;
|
||
DADesigntimeCall1: TDADesigntimeCall;
|
||
LoginRemoteService: TRORemoteService;
|
||
ROWinInetHTTPChannel1: TROWinInetHTTPChannel;
|
||
ROBinMessage1: TROBinMessage;
|
||
tbl_INVENTARIO: TDACDSDataTable;
|
||
ds_INVENTARIO: TDADataSource;
|
||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||
|
||
protected
|
||
function _CloneDataTable (const ADataTable : TDACDSDataTable): TDACDSDataTable; overload;
|
||
procedure AsignarClaseNegocio(var AInventario: TDACDSDataTable); virtual;
|
||
function darNombreGenerador(DataSetName: String): String; virtual;
|
||
public
|
||
function GetItems : IBizInventario; overload;
|
||
function GetItems(const ID_ALMACEN : Integer) : IBizInventario; overload;
|
||
function GetNextID(const DataSetName : String) : Integer;
|
||
end;
|
||
|
||
implementation
|
||
|
||
{$R *.DFM}
|
||
|
||
uses
|
||
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls, uDAInterfaces,
|
||
schInventarioClient_Intf;
|
||
|
||
{ TdmArticulos }
|
||
|
||
procedure TDataModuleInventario.AsignarClaseNegocio(var AInventario: TDACDSDataTable);
|
||
begin
|
||
AInventario.BusinessRulesID := BIZ_CLIENT_INVENTARIO;
|
||
end;
|
||
|
||
procedure TDataModuleInventario.DAClientDataModuleCreate(Sender: TObject);
|
||
begin
|
||
RORemoteService.Channel := dmConexion.Channel;
|
||
RORemoteService.Message := dmConexion.Message;
|
||
end;
|
||
|
||
function TDataModuleInventario.darNombreGenerador(DataSetName: String): String;
|
||
begin
|
||
if DataSetName = nme_Inventario then
|
||
Result := 'GEN_MOVIMIENTOS_ID';
|
||
end;
|
||
|
||
function TDataModuleInventario.GetNextID(const DataSetName: String): Integer;
|
||
var
|
||
aGeneratorName : String;
|
||
begin
|
||
//Se usar<61> para dar nuevos ids a la tabla de movimientos (Regularizaciones)
|
||
aGeneratorName := darNombreGenerador(DataSetName);
|
||
Result := (RORemoteService as IsrvInventario).GetNextAutoInc(aGeneratorName)
|
||
end;
|
||
|
||
function TDataModuleInventario._CloneDataTable(const ADataTable : TDACDSDataTable): TDACDSDataTable;
|
||
begin
|
||
Result := NIL;
|
||
|
||
if not Assigned(ADataTable) then
|
||
raise Exception.Create ('No se ha asignado la tabla de origen (CloneDataTable)');
|
||
|
||
Result := TDACDSDataTable.Create(NIL);
|
||
CloneDataTable(ADataTable, Result);
|
||
end;
|
||
|
||
function TDataModuleInventario.GetItems(const ID_ALMACEN: Integer): IBizInventario;
|
||
begin
|
||
ShowHourglassCursor;
|
||
try
|
||
Result := Self.GetItems;
|
||
with Result.DataTable.Where do
|
||
begin
|
||
if NotEmpty then
|
||
AddOperator(opAND);
|
||
|
||
OpenBraket;
|
||
AddText(fld_INVENTARIOID_ALMACEN + ' = ' + IntToStr(ID_ALMACEN));
|
||
CloseBraket;
|
||
end;
|
||
finally
|
||
HideHourglassCursor;
|
||
end;
|
||
end;
|
||
|
||
function TDataModuleInventario.GetItems: IBizInventario;
|
||
var
|
||
AInventario : TDACDSDataTable;
|
||
begin
|
||
ShowHourglassCursor;
|
||
try
|
||
AInventario := _CloneDataTable(tbl_Inventario);
|
||
AsignarClaseNegocio(AInventario);
|
||
Result := (AInventario as IBizInventario);
|
||
finally
|
||
HideHourglassCursor;
|
||
end;
|
||
end;
|
||
|
||
|
||
end.
|