AlonsoYSal_FactuGES/Modulos/Montajes/Reglas/uBizArticulosMontaje.pas

unit uBizArticulosMontaje;

interface

uses uBizArticulos;

type
  IBizArticulosMontaje = interface(IBizArticulosAlmacen)
    ['{CCBB5FDD-5364-4386-9187-5D3946767B22}']
//    procedure Show;
    procedure Delete;
  end;

  TBizArticulosMontaje = class(TBizArticulosAlmacenDataTableRules, IBizArticulosMontaje)
  public
//    procedure Show; override;
    procedure Delete;
  end;


  function DarArticulosMontaje(CodigoMontaje : Integer) : IBizArticulosMontaje;

implementation

uses uDataModuleArticulos, uDADataTable, uDAInterfaces, SysUtils,
  uDACDSDataTable, uDataTableUtils, Dialogs, Controls;

function DarArticulosMontaje(CodigoMontaje : Integer) : IBizArticulosMontaje;
var
  dtArticulos: TDACDSDataTable;
begin
  dtArticulos := dmArticulos.GetDataTableItems;
  with dtArticulos do
  begin
    Where.AddText('(ARTICULOS.CODIGOMONTAJE = ' + IntToStr(CodigoMontaje) + ')');
    BusinessRulesID := 'BizArticulosMontaje';
  end;
  Result := (dtArticulos as IBizArticulosMontaje);
end;

{ TBizArticulosMontaje }

{procedure TBizArticulosMontaje.AnadirPedido;
var
  APedido: IBizPedidosProveedor;
begin
  try
    APedido := dmPedidos.GetItem(0);
    if not APedido.DataTable.Active then
       APedido.DataTable.Active := True;

    APedido.Insert;
    APedido.CODIGOMONTAJE := CODIGOMONTAJE;
    APedido.Montaje := APedido.Montaje;
    APedido.Show;

    //Refrescamos la lista de pedidos del montaje
    Self.DataTable.Refresh;
  finally
  APedido := Nil;
  end;
end;
}

procedure TBizArticulosMontaje.Delete;
begin
  if (MessageDlg('¿Desea liberar este artículo?', mtConfirmation, [mbYes, mbNo], 0) = mrYes) then
  begin
//    Self.DataTable.Delete;
  end;
end;

{procedure TBizArticulosMontaje.Show;
var
  APedido: IBizPedidosProveedor;
begin
  try
    APedido := dmPedidos.GetItem(CODIGO);
    if not APedido.DataTable.Active then
       APedido.DataTable.Active := True;

    APedido.Show;

    //Refrescamos la lista de pedidos del montaje
    Self.DataTable.Refresh;
  finally
  APedido := Nil;
  end;
end;}

initialization
  RegisterDataTableRules('BizArticulosMontaje', TBizArticulosMontaje);

finalization

end.