david
32153cd070
git-svn-id: https://192.168.0.254/svn/Proyectos.AlonsoYSal_FactuGES/trunk@5 9a1d36f3-7752-2d40-8ccb-50eb49674c68
47 lines
967 B
ObjectPascal
47 lines
967 B
ObjectPascal
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.
|
|
|