From f602071e3059e26d65e6cc0513ed9e39f3adb7ff Mon Sep 17 00:00:00 2001 From: david Date: Wed, 6 Feb 2008 15:53:44 +0000 Subject: [PATCH] En los detalles, poner por defecto la columna VISIBLE a 1. git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@252 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Model/uBizDetallesAlbaranCliente.pas | 9 +++++++- .../Model/uBizDetallesAlbaranProveedor.pas | 23 ++++++++++--------- .../Model/uBizDetallesFacturaCliente.pas | 7 ++++++ .../Model/uBizDetallesFacturaProveedor.pas | 20 ++++++++-------- .../Model/uBizDetallesPedidoProveedor.pas | 21 ++++++++--------- .../Model/uBizDetallesPresupuestoCliente.pas | 7 ++++++ 6 files changed, 54 insertions(+), 33 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..c1301897 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); +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 diff --git a/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas index f6569aa8..38e2595e 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizDetallesFacturaCliente.pas @@ -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); diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas index 2b6573a8..22e72544 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizDetallesFacturaProveedor.pas @@ -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 diff --git a/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas b/Source/Modulos/Pedidos a proveedor/Model/uBizDetallesPedidoProveedor.pas index 9d5548a0..16b9a35c 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,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 diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas index da3a4aaa..91ca044a 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/uBizDetallesPresupuestoCliente.pas @@ -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);