unit uBizDetallesPedidoProveedor;

interface

uses
  uDADataTable, schPedidosProveedorClient_Intf;

const
  BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR = 'Client.DetallesPedido.Proveedor';

type
  IBizDetallesPedidoProveedor = interface(IPedidosProveedor_Detalles)
  ['{F868D8B0-18F9-469A-8461-3B1DADCC3B33}']
  end;

  TBizDetallesPedidoProveedor = class(TPedidosProveedor_DetallesDataTableRules, IBizDetallesPedidoProveedor)
  protected
    procedure OnNewRecord(Sender: TDADataTable); override;
    procedure BeforeInsert(Sender: TDADataTable); override;
  end;


implementation

{ TBizDetallesPedidoProveedor }

uses
  DB, uDataTableUtils;


procedure TBizDetallesPedidoProveedor.BeforeInsert(Sender: TDADataTable);
var
  AMasterTable : TDADataTable;
begin
  inherited;
  AMasterTable := DataTable.GetMasterDataTable;
  if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
  begin
    AMasterTable.Post;
  end;
end;

procedure TBizDetallesPedidoProveedor.OnNewRecord(Sender: TDADataTable);
begin
  inherited;
  VISIBLE := 1;
end;

initialization
  RegisterDataTableRules(BIZ_CLIENT_DETALLES_PEDIDO_PROVEEDOR, TBizDetallesPedidoProveedor);
end.