LuisLeon_FactuGES/Modulos/Articulos proveedor/Data/uDataModuleArticulosProveedor.pas

unit uDataModuleArticulosProveedor;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uDataModuleArticulos, DB, uDADataTable, uDAScriptingProvider,
  uDACDSDataTable, uROClient, uROBinMessage, uROWinInetHttpChannel,
  uDADesigntimeCall, uDABINAdapter, uROServiceComponent, uRORemoteService,
  uIDataModuleArticulosProveedor, uBizArticulosProveedor, uBizDatosProveedores;

type
  TDataModuleArticulosProveedor = class(TDataModuleArticulos, IDataModuleArticulosProveedor)
    tbl_DatosProveedor: TDACDSDataTable;
    ds_DatosProveedor: TDADataSource;
  protected
    function _GetDatosProveedores : IBizDatosProveedores;
    procedure AsignarClaseNegocio(var AArticulo: TDACDSDataTable); override;
    function darNombreGenerador(DataSetName: String): String; override;
  end;


implementation
{$R *.dfm}

uses cxControls, schArticulosClient_Intf;

{ TDataModuleArticulosProveedor }

procedure TDataModuleArticulosProveedor.AsignarClaseNegocio(var AArticulo: TDACDSDataTable);
begin
  AArticulo.BusinessRulesID := BIZ_CLIENT_ARTICULO_PROVEEDOR;

  with TBizArticuloProveedor(AArticulo.BusinessEventsObj) do
  begin
    DatosProveedor := _GetDatosProveedores;
  end;
end;

function TDataModuleArticulosProveedor.darNombreGenerador(DataSetName: String): String;
begin
  Result := inherited darNombreGenerador(DataSetName);

  if DataSetName = nme_DatosProveedor then
  Result := 'GEN_ARTICULOS_DATOS_PROV_ID';
end;

function TDataModuleArticulosProveedor._GetDatosProveedores: IBizDatosProveedores;
var
  ADatosProveedor : TDACDSDataTable;
begin
  ShowHourglassCursor;
  try
    ADatosProveedor := _CloneDataTable(tbl_DatosProveedor);
    with ADatosProveedor do
    begin
      BusinessRulesID := BIZ_CLIENT_ARTICULOS_DATOS_PROVEEDORES;
      DetailOptions := DetailOptions -
        [dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
    end;
    Result := (ADatosProveedor as IBizDatosProveedores);
  finally
    HideHourglassCursor;
  end;
end;

end.