121 lines
3.0 KiB
ObjectPascal
121 lines
3.0 KiB
ObjectPascal
unit uDataModuleArticulos;
|
|
|
|
interface
|
|
|
|
uses
|
|
SysUtils, Classes, DB, uDADataTable, uDABINAdapter,
|
|
uDAScriptingProvider, uROWinInetHttpChannel, uROTypes,
|
|
uRORemoteService, uROClient, uROBinMessage,
|
|
uDADesigntimeCall,
|
|
uIDataModuleArticulos, uBizArticulos, uDataModuleBase, uDARemoteDataAdapter,
|
|
uDADataStreamer, uDABin2DataStreamer, uDAInterfaces, uDAMemDataTable;
|
|
|
|
type
|
|
TDataModuleArticulos = class(TDataModuleBase, IDataModuleArticulos)
|
|
RORemoteService: TRORemoteService;
|
|
Bin2DataStreamer: TDABin2DataStreamer;
|
|
rda_Articulos: TDARemoteDataAdapter;
|
|
tbl_Articulos: TDAMemDataTable;
|
|
ds_Articulos: TDADataSource;
|
|
tbl_ArticulosParaCliente: TDAMemDataTable;
|
|
ds_ArticulosParaCliente: TDADataSource;
|
|
procedure DAClientDataModuleCreate(Sender: TObject);
|
|
|
|
protected
|
|
procedure AsignarClaseNegocio(AArticulo: TDADataTable); virtual;
|
|
|
|
public
|
|
function GetItems : IBizArticulo; overload;
|
|
function GetItems (IDCliente: Integer) : IBizArticulo; overload;
|
|
function GetItem(const ID : Integer; AClienteID: Integer = -1) : IBizArticulo;
|
|
function NewItem : IBizArticulo;
|
|
end;
|
|
|
|
implementation
|
|
|
|
{$R *.DFM}
|
|
|
|
uses
|
|
FactuGES_Intf, uDataModuleConexion, uDataTableUtils, cxControls,
|
|
schArticulosClient_Intf;
|
|
|
|
{ TdmArticulos }
|
|
|
|
procedure TDataModuleArticulos.AsignarClaseNegocio(AArticulo: TDADataTable);
|
|
begin
|
|
AArticulo.BusinessRulesID := BIZ_CLIENT_ARTICULO;
|
|
end;
|
|
|
|
procedure TDataModuleArticulos.DAClientDataModuleCreate(Sender: TObject);
|
|
begin
|
|
RORemoteService.Channel := dmConexion.Channel;
|
|
RORemoteService.Message := dmConexion.Message;
|
|
end;
|
|
|
|
function TDataModuleArticulos.NewItem: IBizArticulo;
|
|
begin
|
|
Result := GetItem(ID_NULO)
|
|
end;
|
|
|
|
function TDataModuleArticulos.GetItem(const ID: Integer; AClienteID: Integer = -1): IBizArticulo;
|
|
begin
|
|
ShowHourglassCursor;
|
|
try
|
|
if (AClienteID = -1) then
|
|
Result := Self.GetItems
|
|
else
|
|
Result := Self.GetItems(AClienteID);
|
|
|
|
with Result.DataTable.Where do
|
|
begin
|
|
if NotEmpty then
|
|
AddOperator(opAND);
|
|
OpenBraket;
|
|
AddText('V_ARTICULOS.' + fld_ArticulosID + ' = ' + IntToStr(ID));
|
|
CloseBraket;
|
|
end;
|
|
finally
|
|
HideHourglassCursor;
|
|
end;
|
|
end;
|
|
|
|
function TDataModuleArticulos.GetItems(IDCliente: Integer): IBizArticulo;
|
|
var
|
|
AArticulo : TDAMemDataTable;
|
|
begin
|
|
|
|
ShowHourglassCursor;
|
|
try
|
|
AArticulo := CloneDataTable(tbl_ArticulosParaCliente);
|
|
|
|
AsignarClaseNegocio(AArticulo);
|
|
|
|
AArticulo.ParamByName('ID_CLIENTE').AsInteger := IdCliente;
|
|
Result := (AArticulo as IBizArticulo);
|
|
|
|
finally
|
|
HideHourglassCursor;
|
|
end;
|
|
|
|
end;
|
|
|
|
function TDataModuleArticulos.GetItems: IBizArticulo;
|
|
var
|
|
AArticulo : TDAMemDataTable;
|
|
begin
|
|
ShowHourglassCursor;
|
|
try
|
|
AArticulo := CloneDataTable(tbl_Articulos);
|
|
|
|
AsignarClaseNegocio(AArticulo);
|
|
|
|
Result := (AArticulo as IBizArticulo);
|
|
|
|
finally
|
|
HideHourglassCursor;
|
|
end;
|
|
end;
|
|
|
|
|
|
end.
|