unit uBizMontajesPedido;

interface

uses uBizMontajes;

type
  IBizMontajesPedido = interface(IBizMontaje)
  ['{B1AB23CC-ED9F-486C-A3F1-E72CDC016505}']
  end;

  TBizMontajesPedido = class(TBizMontajeDataTableRules, IBizMontajesPedido)
  public
  end;

//  function DarPedidosMontaje(CodigoMontaje : Integer) : IBizPedidosMontaje;

implementation

uses uDADataTable;

{function DarPedidosMontaje(CodigoMontaje : Integer) : IBizPedidosMontaje;
var
  dtPedidos: TDACDSDataTable;
begin
  dtPedidos := dmPedidos.GetDataTableItems;
  with dtPedidos do
  begin
    if not Where.Empty then
      Where.AddOperator(opAND);
    Where.AddText('(CODIGOMONTAJE = ' + IntToStr(CodigoMontaje) + ')');

    BusinessRulesID := 'BizPedidosMontaje';
  end;
  Result := (dtPedidos as IBizPedidosMontaje);
end;}

{ TBizMontajesPedido }

initialization
  RegisterDataTableRules('BizMontajesPedido', TBizMontajesPedido);

finalization

end.