From 73c51d688e5234fe505034ffd3149943af644404 Mon Sep 17 00:00:00 2001 From: roberto Date: Thu, 27 Nov 2008 09:35:45 +0000 Subject: [PATCH] Se adaptan las clases de negocio para que al elgir un cliente para un documento que no tenga asociado forma de pago ni IVA, no nos quite la forma de pago e IVA asignada por defecto a partir de la empresa git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@782 0c75b7a4-871f-7646-8a2f-f78d34cc349f --- .../Albaranes de cliente/Model/uBizAlbaranesCliente.pas | 3 ++- .../Facturas de cliente/Model/uBizFacturasCliente.pas | 6 ++++-- .../Facturas de proveedor/Model/uBizFacturasProveedor.pas | 6 ++++-- .../Model/uBizPresupuestosCliente.pas | 3 ++- 4 files changed, 12 insertions(+), 6 deletions(-) diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas index db2569f0..096db5ef 100644 --- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas +++ b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranesCliente.pas @@ -235,7 +235,8 @@ begin DataTable.Edit; ID_CLIENTE := FCliente.ID; - ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; + if FCliente.ID_FORMA_PAGO > 0 then + ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; //DESCUENTO := FCliente.DESCUENTO; //No esta activado el descuento general para los albaranes DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de aņadir detalles diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas index 330b8a61..5ea61131 100644 --- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas +++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasCliente.pas @@ -304,8 +304,10 @@ begin CODIGO_POSTAL := FCliente.CODIGO_POSTAL; PROVINCIA := FCliente.PROVINCIA; POBLACION := FCliente.POBLACION; - ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; - ID_TIPO_IVA := FCliente.ID_TIPO_IVA; + if FCliente.ID_FORMA_PAGO > 0 then + ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; + if FCliente.ID_TIPO_IVA > 0 then + ID_TIPO_IVA := FCliente.ID_TIPO_IVA; RECARGO_EQUIVALENCIA := FCliente.RECARGO_EQUIVALENCIA; DESCUENTO := FCliente.DESCUENTO; Post; diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas index 8b1f859e..af8689c9 100644 --- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas +++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedor.pas @@ -319,8 +319,10 @@ begin CODIGO_POSTAL := FProveedor.CODIGO_POSTAL; PROVINCIA := FProveedor.PROVINCIA; POBLACION := FProveedor.POBLACION; - ID_FORMA_PAGO := FProveedor.ID_FORMA_PAGO; - ID_TIPO_IVA := FProveedor.ID_TIPO_IVA; + if FProveedor.ID_FORMA_PAGO > 0 then + ID_FORMA_PAGO := FProveedor.ID_FORMA_PAGO; + if FProveedor.ID_TIPO_IVA > 0 then + ID_TIPO_IVA := FProveedor.ID_TIPO_IVA; // RECARGO_EQUIVALENCIA := FProveedor.RECARGO_EQUIVALENCIA; Post; diff --git a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas index c1811f3e..4a8e2121 100644 --- a/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas +++ b/Source/Modulos/Presupuestos de cliente/Model/uBizPresupuestosCliente.pas @@ -250,7 +250,8 @@ begin DataTable.Edit; ID_CLIENTE := FCliente.ID; - ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; + if FCliente.ID_FORMA_PAGO > 0 then + ID_FORMA_PAGO := FCliente.ID_FORMA_PAGO; DESCUENTO := FCliente.DESCUENTO; DataTable.Post; //Muy importante ya que es necesario hacer un post de la cabecera antes de aņadir detalles