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.
|
||
|
|
|