Tecistel/Tecsitel_FactuGES2
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

En los detalles, poner por defecto la columna VISIBLE a 1.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@252 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
David Arranz 2008-02-06 15:53:44 +00:00
parent 97c4d49275
commit f602071e30
6 changed files with 54 additions and 33 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas
View File

@ -16,7 +16,8 @@ type
TBizDetallesAlbaranCliente = class(TAlbaranesCliente_DetallesDataTableRules, IBizDetallesAlbaranCliente) TBizDetallesAlbaranCliente = class(TAlbaranesCliente_DetallesDataTableRules, IBizDetallesAlbaranCliente)
protected protected
procedure BeforeInsert(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override;
end; end;
implementation implementation
@ -36,6 +37,12 @@ begin
AMasterTable.Post; AMasterTable.Post;
end; end;
procedure TBizDetallesAlbaranCliente.OnNewRecord(Sender: TDADataTable);
begin
inherited;
VISIBLE := 1;
end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_DETALLES_ALBARAN_CLIENTE, TBizDetallesAlbaranCliente); RegisterDataTableRules(BIZ_CLIENT_DETALLES_ALBARAN_CLIENTE, TBizDetallesAlbaranCliente);

23
Source/Modulos/Albaranes de proveedor/Model/uBizDetallesAlbaranProveedor.pas
View File

@ -15,31 +15,32 @@ type
end; end;
TBizDetallesAlbaranProveedor = class(TAlbaranesProveedor_DetallesDataTableRules, IBizDetallesAlbaranProveedor) TBizDetallesAlbaranProveedor = class(TAlbaranesProveedor_DetallesDataTableRules, IBizDetallesAlbaranProveedor)
private
ContIdAux: Integer;
protected protected
procedure OnNewRecord(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override;
public
constructor Create(aDataTable: TDADataTable); override;
end; end;
implementation implementation
{ TBizDetallesAlbaranProveedor } { TBizDetallesAlbaranProveedor }
constructor TBizDetallesAlbaranProveedor.Create(aDataTable: TDADataTable); uses
DB;
procedure TBizDetallesAlbaranProveedor.BeforeInsert(Sender: TDADataTable);
var
AMasterTable : TDADataTable;
begin begin
inherited Create(aDataTable); inherited;
ContIdAux := -1; AMasterTable := DataTable.GetMasterDataTable;
if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
AMasterTable.Post;
end; end;
procedure TBizDetallesAlbaranProveedor.OnNewRecord(Sender: TDADataTable); procedure TBizDetallesAlbaranProveedor.OnNewRecord(Sender: TDADataTable);
begin begin
inherited; inherited;
ID := ContIdAux; // -1, -2, -3... VISIBLE := 1;
Dec(ContIdAux);
end; end;
initialization initialization

7
Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas
View File

@ -15,6 +15,7 @@ type
TBizDetallesFacturaCliente = class(TFacturasCliente_DetallesDataTableRules, IBizDetallesFacturaCliente) TBizDetallesFacturaCliente = class(TFacturasCliente_DetallesDataTableRules, IBizDetallesFacturaCliente)
protected protected
procedure OnNewRecord(Sender: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override; procedure BeforeInsert(Sender: TDADataTable); override;
end; end;
@ -37,6 +38,12 @@ begin
end; end;
end; end;
procedure TBizDetallesFacturaCliente.OnNewRecord(Sender: TDADataTable);
begin
inherited;
VISIBLE := 1;
end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_DETALLES_FACTURA_CLIENTE, TBizDetallesFacturaCliente); RegisterDataTableRules(BIZ_CLIENT_DETALLES_FACTURA_CLIENTE, TBizDetallesFacturaCliente);

20
Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas
View File

@ -14,32 +14,32 @@ type
end; end;
TBizDetallesFacturaProveedor = class(TFacturasProveedor_DetallesDataTableRules, IBizDetallesFacturaProveedor) TBizDetallesFacturaProveedor = class(TFacturasProveedor_DetallesDataTableRules, IBizDetallesFacturaProveedor)
private
ContIdAux: Integer;
protected protected
procedure OnNewRecord(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
public procedure BeforeInsert(Sender: TDADataTable); override;
constructor Create(aDataTable: TDADataTable); override;
end; end;
implementation implementation
uses uses
SysUtils; SysUtils, DB;
{ TBizDetallesFacturaProveedor } { TBizDetallesFacturaProveedor }
constructor TBizDetallesFacturaProveedor.Create(aDataTable: TDADataTable); procedure TBizDetallesFacturaProveedor.BeforeInsert(Sender: TDADataTable);
var
AMasterTable : TDADataTable;
begin begin
inherited Create(aDataTable); inherited;
ContIdAux := -1; AMasterTable := DataTable.GetMasterDataTable;
if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
AMasterTable.Post;
end; end;
procedure TBizDetallesFacturaProveedor.OnNewRecord(Sender: TDADataTable); procedure TBizDetallesFacturaProveedor.OnNewRecord(Sender: TDADataTable);
begin begin
inherited; inherited;
ID := ContIdAux; // -1, -2, -3... VISIBLE := 1;
Dec(ContIdAux);
end; end;
initialization initialization

21
Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas
View File

@ -19,12 +19,9 @@ type
end; end;
TBizDetallesPedidoProveedor = class(TPedidosProveedor_DetallesDataTableRules, IBizDetallesPedidoProveedor) TBizDetallesPedidoProveedor = class(TPedidosProveedor_DetallesDataTableRules, IBizDetallesPedidoProveedor)
private
ContIdAux: Integer;
protected protected
procedure OnNewRecord(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
public procedure BeforeInsert(Sender: TDADataTable); override;
constructor Create(aDataTable: TDADataTable); override;
end; end;
TBizDetallesPedidoProveedorPend = class(TPedidosProveedor_Articulos_PendientesDataTableRules, IBizDetallesPedidoProveedorPend) TBizDetallesPedidoProveedorPend = class(TPedidosProveedor_Articulos_PendientesDataTableRules, IBizDetallesPedidoProveedorPend)
@ -35,20 +32,22 @@ implementation
{ TBizDetallesPedidoProveedor } { TBizDetallesPedidoProveedor }
uses uses
uDataTableUtils; uDataTableUtils, DB;
procedure TBizDetallesPedidoProveedor.BeforeInsert(Sender: TDADataTable);
constructor TBizDetallesPedidoProveedor.Create(aDataTable: TDADataTable); var
AMasterTable : TDADataTable;
begin begin
inherited Create(aDataTable); inherited;
ContIdAux := -1; AMasterTable := DataTable.GetMasterDataTable;
if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
AMasterTable.Post;
end; end;
procedure TBizDetallesPedidoProveedor.OnNewRecord(Sender: TDADataTable); procedure TBizDetallesPedidoProveedor.OnNewRecord(Sender: TDADataTable);
begin begin
inherited; inherited;
ID := ContIdAux; // -1, -2, -3... VISIBLE := 1;
Dec(ContIdAux);
end; end;
initialization initialization

7
Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas
View File

@ -15,6 +15,7 @@ type
TBizDetallesPresupuestoCliente = class(TPresupuestosCliente_DetallesDataTableRules, IBizDetallesPresupuestoCliente) TBizDetallesPresupuestoCliente = class(TPresupuestosCliente_DetallesDataTableRules, IBizDetallesPresupuestoCliente)
protected protected
procedure OnNewRecord(Sender: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override; procedure BeforeInsert(Sender: TDADataTable); override;
end; end;
@ -37,6 +38,12 @@ begin
AMasterTable.Post; AMasterTable.Post;
end; end;
procedure TBizDetallesPresupuestoCliente.OnNewRecord(Sender: TDADataTable);
begin
inherited;
VISIBLE := 1;
end;
initialization initialization
RegisterDataTableRules(BIZ_CLIENT_DETALLES_PRESUPUESTO_CLIENTE, TBizDetallesPresupuestoCliente); RegisterDataTableRules(BIZ_CLIENT_DETALLES_PRESUPUESTO_CLIENTE, TBizDetallesPresupuestoCliente);