Archivado/Noviseda_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Faltaba esta unidad para compilar

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Noviseda_FactuGES2/trunk@104 f33bb606-9f5c-448d-9c99-757f00063c96
This commit is contained in:
roberto 2010-03-11 11:13:06 +00:00
parent 9ac9ebceb0
commit ac24a11121
1 changed files with 48 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
Source/Modulos/Pedidos de cliente/Model/uBizDetalleColoresPedidoCliente.pas Normal file
View File

@ -0,0 +1,48 @@
unit uBizDetalleColoresPedidoCliente;
interface
uses
uDADataTable, schPedidosClienteClient_Intf;
const
BIZ_CLIENT_DETALLE_COLORES_Pedido_CLIENTE = 'Client.DetalleColoresPedido.Cliente';
type
IBizDetalleColoresPedidoCliente = interface(IPedidosCliente_Detalle_Color)
['{113DFD59-6E81-42AE-BFCE-216C6E08D207}']
end;
TBizDetalleColoresPedidoCliente = class(TPedidosCliente_Detalle_ColorDataTableRules, IBizDetalleColoresPedidoCliente)
protected
procedure OnNewRecord(Sender: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override;
end;
implementation
uses
DB;
{ TBizDetalleColoresPedidoCliente }
procedure TBizDetalleColoresPedidoCliente.BeforeInsert(Sender: TDADataTable);
var
AMasterTable : TDADataTable;
begin
inherited;
AMasterTable := DataTable.GetMasterDataTable;
if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
AMasterTable.Post;
end;
procedure TBizDetalleColoresPedidoCliente.OnNewRecord(Sender: TDADataTable);
begin
inherited;
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_DETALLE_COLORES_PEDIDO_CLIENTE, TBizDetalleColoresPedidoCliente);
end.