david
19aed4c9ee
git-svn-id: https://192.168.0.254/svn/Proyectos.Varela_PuntosVenta/trunk@108 1c943782-d109-9647-9548-93b3ac332352
113 lines
3.1 KiB
ObjectPascal
113 lines
3.1 KiB
ObjectPascal
unit uDataModuleStock;
|
||
|
||
interface
|
||
|
||
uses {vcl:} SysUtils, Classes, DB, DBClient,
|
||
{RemObjects:} uDAClientDataModule, uDADataTable, uDABINAdapter,
|
||
uROServiceComponent, uRORemoteService, uROClient, uROBinMessage,
|
||
uROWinInetHttpChannel, uDAScriptingProvider, uDACDSDataTable,
|
||
uBizStock, uDARemoteDataAdapter, uDAInterfaces;
|
||
|
||
type
|
||
TdmStock = class(TDAClientDataModule)
|
||
RORemoteService: TRORemoteService;
|
||
tbl_StockEDI: TDACDSDataTable;
|
||
tbl_StockVARELA: TDACDSDataTable;
|
||
tbl_StockPrendasCentros: TDACDSDataTable;
|
||
ds_StockPrendasCentros: TDADataSource;
|
||
tbl_StockEDIInventario: TDACDSDataTable;
|
||
DARemoteDataAdapter: TDARemoteDataAdapter;
|
||
procedure DAClientDataModuleCreate(Sender: TObject);
|
||
public
|
||
function GetItemsStockVarela : IBizStockVARELA;
|
||
function GetItemsStockEDI : IBizStockEDI;
|
||
function GetItemsStockEDIInventario : IBizStockEDIInventario;
|
||
function GetItemsStockPrendasCentros : IBizStockPrendasCentros;
|
||
end;
|
||
|
||
var
|
||
dmStock: TdmStock;
|
||
|
||
implementation
|
||
|
||
{$R *.DFM}
|
||
|
||
uses
|
||
uDMBase, Controls, Forms, cxControls, uDataTableUtils;
|
||
|
||
|
||
procedure TdmStock.DAClientDataModuleCreate(Sender: TObject);
|
||
begin
|
||
RORemoteService.Channel := dmBase.Channel;
|
||
RORemoteService.Message := dmBase.Message;
|
||
end;
|
||
|
||
function TdmStock.GetItemsStockEDI: IBizStockEDI;
|
||
var
|
||
dtItemsStockEDI: TDACDSDataTable;
|
||
begin
|
||
ShowHourglassCursor;
|
||
try
|
||
dtItemsStockEDI := TDACDSDataTable.Create(NIL);
|
||
CloneDataTable(tbl_StockEDI, dtItemsStockEDI);
|
||
dtItemsStockEDI.BusinessRulesID := BIZ_STOCK_EDI;
|
||
Result := (dtItemsStockEDI as IBizStockEDI);
|
||
finally
|
||
HideHourglassCursor;
|
||
end;
|
||
end;
|
||
|
||
function TdmStock.GetItemsStockEDIInventario: IBizStockEDIInventario;
|
||
var
|
||
dtItemsStockEDIInventario: TDACDSDataTable;
|
||
begin
|
||
ShowHourglassCursor;
|
||
try
|
||
dtItemsStockEDIInventario := TDACDSDataTable.Create(NIL);
|
||
CloneDataTable(tbl_StockEDIInventario, dtItemsStockEDIInventario);
|
||
dtItemsStockEDIInventario.BusinessRulesID := BIZ_STOCK_EDIINVENTARIO;
|
||
Result := (dtItemsStockEDIInventario as IBizStockEDIInventario);
|
||
finally
|
||
HideHourglassCursor;
|
||
end;
|
||
end;
|
||
|
||
function TdmStock.GetItemsStockPrendasCentros: IBizStockPrendasCentros;
|
||
var
|
||
dtItemsStock: TDACDSDataTable;
|
||
begin
|
||
ShowHourglassCursor;
|
||
try
|
||
dtItemsStock := TDACDSDataTable.Create(NIL);
|
||
CloneDataTable(tbl_StockPrendasCentros, dtItemsStock);
|
||
dtItemsStock.BusinessRulesID := BIZ_STOCK_PRENDAS_CENTROS;
|
||
Result := (dtItemsStock as IBizStockPrendasCentros);
|
||
finally
|
||
HideHourglassCursor;
|
||
end;
|
||
end;
|
||
|
||
function TdmStock.GetItemsStockVarela: IBizStockVARELA;
|
||
var
|
||
dtItemsStockVARELA: TDACDSDataTable;
|
||
begin
|
||
ShowHourglassCursor;
|
||
try
|
||
dtItemsStockVARELA := TDACDSDataTable.Create(NIL);
|
||
CloneDataTable(tbl_StockVARELA, dtItemsStockVARELA);
|
||
dtItemsStockVARELA.BusinessRulesID := BIZ_STOCK_VARELA;
|
||
Result := (dtItemsStockVARELA as IBizStockVARELA);
|
||
finally
|
||
HideHourglassCursor;
|
||
end;
|
||
end;
|
||
|
||
initialization
|
||
dmStock := TdmStock.Create(nil);
|
||
|
||
finalization
|
||
FreeAndNil(dmStock);
|
||
|
||
end.
|
||
|
||
|