From ea4aa732cf1cfd0bdd67b99d0c82162045839cfe Mon Sep 17 00:00:00 2001 From: david Date: Sat, 23 Feb 2008 11:51:56 +0000 Subject: [PATCH] En los detalles, poner por defecto la columna VISIBLE a 1. git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@133 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Model/uBizDetallesAlbaranCliente.pas | 9 ++++++- .../Model/uBizDetallesAlbaranProveedor.pas | 27 ++++++++++--------- .../Model/uBizDetallesFacturaCliente.pas | 8 ++++++ .../Model/uBizDetallesFacturaProveedor.pas | 22 ++++++++------- .../Model/uBizDetallesPedidoProveedor.pas | 22 ++++++++------- .../Model/uBizDetallesPresupuestoCliente.pas | 7 +++++ 6 files changed, 61 insertions(+), 34 deletions(-) diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas b/Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas index c22a13e5..c8481bd1 100644 --- a/Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Model/uBizDetallesAlbaranCliente.pas @@ -16,7 +16,8 @@ type TBizDetallesAlbaranCliente = class(TAlbaranesCliente_DetallesDataTableRules, IBizDetallesAlbaranCliente) protected - procedure BeforeInsert(Sender: TDADataTable); override; + procedure OnNewRecord(Sender: TDADataTable); override; + procedure BeforeInsert(Sender: TDADataTable); override; end; implementation @@ -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); diff --git a/Source/Modulos/Albaranes de proveedor/Model/uBizDetallesAlbaranProveedor.pas b/Source/Modulos/Albaranes de proveedor/Model/uBizDetallesAlbaranProveedor.pas index efc314bf..d801df74 100644 --- a/Source/Modulos/Albaranes de proveedor/Model/uBizDetallesAlbaranProveedor.pas +++ b/Source/Modulos/Albaranes de proveedor/Model/uBizDetallesAlbaranProveedor.pas @@ -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); -begin - inherited Create(aDataTable); - ContIdAux := -1; -end; +uses + DB; procedure TBizDetallesAlbaranProveedor.OnNewRecord(Sender: TDADataTable); begin inherited; - ID := ContIdAux; // -1, -2, -3... - Dec(ContIdAux); + VISIBLE := 1; +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; initialization diff --git a/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas index f6569aa8..dab4f957 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas @@ -16,6 +16,7 @@ type TBizDetallesFacturaCliente = class(TFacturasCliente_DetallesDataTableRules, IBizDetallesFacturaCliente) protected procedure BeforeInsert(Sender: TDADataTable); override; + procedure OnNewRecord(Sender: TDADataTable); override; end; implementation @@ -37,6 +38,13 @@ begin end; end; +procedure TBizDetallesFacturaCliente.OnNewRecord(Sender: TDADataTable); +begin + inherited; + VISIBLE := 1; +end; + + initialization RegisterDataTableRules(BIZ_CLIENT_DETALLES_FACTURA_CLIENTE, TBizDetallesFacturaCliente); diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas index 2b6573a8..d6d28df3 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas @@ -14,32 +14,34 @@ 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; + DB, SysUtils; { 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 + begin + AMasterTable.Post; + end; end; procedure TBizDetallesFacturaProveedor.OnNewRecord(Sender: TDADataTable); begin inherited; - ID := ContIdAux; // -1, -2, -3... - Dec(ContIdAux); + VISIBLE := 1; end; initialization diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas index 9d5548a0..36d3441d 100644 --- a/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas +++ b/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas @@ -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,25 @@ implementation { TBizDetallesPedidoProveedor } uses - uDataTableUtils; + DB, uDataTableUtils; -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 + begin + AMasterTable.Post; + end; end; procedure TBizDetallesPedidoProveedor.OnNewRecord(Sender: TDADataTable); begin inherited; - ID := ContIdAux; // -1, -2, -3... - Dec(ContIdAux); + VISIBLE := 1; end; initialization diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas index da3a4aaa..9533e4dc 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas @@ -16,6 +16,7 @@ type TBizDetallesPresupuestoCliente = class(TPresupuestosCliente_DetallesDataTableRules, IBizDetallesPresupuestoCliente) protected procedure BeforeInsert(Sender: TDADataTable); override; + procedure OnNewRecord(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);