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

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

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

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

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

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

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

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

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

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

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

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

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