150 lines
4.0 KiB
ObjectPascal
150 lines
4.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;
|
|
function darNombreGenerador(DataSetName: String): String; virtual;
|
|
public
|
|
function GetItems : IBizArticulo; overload;
|
|
function GetItems (IDCliente: Integer) : IBizArticulo; overload;
|
|
function GetItem(const ID : Integer; AClienteID: Integer = -1) : IBizArticulo;
|
|
function GetNextID(const DataSetName : String) : Integer;
|
|
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.darNombreGenerador(DataSetName: String): String;
|
|
begin
|
|
if DataSetName = nme_Articulos then
|
|
Result := 'GEN_ARTICULOS_ID';
|
|
end;
|
|
|
|
function TDataModuleArticulos.GetNextID(const DataSetName: String): Integer;
|
|
var
|
|
aGeneratorName : String;
|
|
begin
|
|
// aGeneratorName := darNombreGenerador(DataSetName);
|
|
// Result := (RORemoteService as IsrvArticulos).GetNextAutoInc(aGeneratorName)
|
|
end;
|
|
|
|
function TDataModuleArticulos.NewItem: IBizArticulo;
|
|
begin
|
|
Result := GetItem(ID_NULO)
|
|
end;
|
|
|
|
{
|
|
function TDataModuleArticulos._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 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);
|
|
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);
|
|
AArticulo := CloneDataTable(tbl_Articulos);
|
|
|
|
AsignarClaseNegocio(AArticulo);
|
|
|
|
Result := (AArticulo as IBizArticulo);
|
|
|
|
finally
|
|
HideHourglassCursor;
|
|
end;
|
|
end;
|
|
|
|
|
|
end.
|