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