Acana_Interiorismo/FactuGES2
2
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.Acana_FactuGES2/trunk@133 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-02-23 11:51:56 +00:00
parent a6279a9305
commit ea4aa732cf
6 changed files with 61 additions and 34 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);

27
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
begin DB;
inherited Create(aDataTable);
ContIdAux := -1;
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;
procedure TBizDetallesAlbaranProveedor.BeforeInsert(Sender: TDADataTable);
var
AMasterTable : TDADataTable;
begin
inherited;
AMasterTable := DataTable.GetMasterDataTable;
if Assigned(AMasterTable) and (AMasterTable.State = dsInsert) then
AMasterTable.Post;
end; end;
initialization initialization

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

@ -16,6 +16,7 @@ type
TBizDetallesFacturaCliente = class(TFacturasCliente_DetallesDataTableRules, IBizDetallesFacturaCliente) TBizDetallesFacturaCliente = class(TFacturasCliente_DetallesDataTableRules, IBizDetallesFacturaCliente)
protected protected
procedure BeforeInsert(Sender: TDADataTable); override; procedure BeforeInsert(Sender: TDADataTable); override;
procedure OnNewRecord(Sender: TDADataTable); override;
end; end;
implementation implementation
@ -37,6 +38,13 @@ 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);

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

@ -14,32 +14,34 @@ 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; DB, SysUtils;
{ 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
begin
AMasterTable.Post;
end;
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

22
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,25 @@ implementation
{ TBizDetallesPedidoProveedor } { TBizDetallesPedidoProveedor }
uses uses
uDataTableUtils; DB, uDataTableUtils;
constructor TBizDetallesPedidoProveedor.Create(aDataTable: TDADataTable); procedure TBizDetallesPedidoProveedor.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
begin
AMasterTable.Post;
end;
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

@ -16,6 +16,7 @@ type
TBizDetallesPresupuestoCliente = class(TPresupuestosCliente_DetallesDataTableRules, IBizDetallesPresupuestoCliente) TBizDetallesPresupuestoCliente = class(TPresupuestosCliente_DetallesDataTableRules, IBizDetallesPresupuestoCliente)
protected protected
procedure BeforeInsert(Sender: TDADataTable); override; procedure BeforeInsert(Sender: TDADataTable); override;
procedure OnNewRecord(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);