From 1ee166c21ee8658d95470e492d6d4e554d2bd697 Mon Sep 17 00:00:00 2001
From: david <darranz@rodax-software.com>
Date: Thu, 7 Feb 2008 22:06:07 +0000
Subject: [PATCH] Facturas de cliente y proveedor: la referencia para abonos es
 la misma que una factura.

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@268 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Model/uBizFacturasClienteServer.pas             | 13 ++++---------
 .../Model/uBizFacturasProveedorServer.pas           | 13 ++++---------
 2 files changed, 8 insertions(+), 18 deletions(-)

diff --git a/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas b/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas
index 025fc245..9aff3dac 100644
--- a/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas	
+++ b/Source/Modulos/Facturas de cliente/Model/uBizFacturasClienteServer.pas	
@@ -31,7 +31,6 @@ uses
 
 const
   REF_FACTURAS_CLIENTE = 'REF_FACTURAS_CLIENTE';
-  REF_ABONOS_CLIENTE = 'REF_ABONOS_CLIENTE';
   CTE_TIPO_ABONO = 'A';
   CTE_TIPO_FACTURA = 'F';
 
@@ -78,10 +77,8 @@ function TBizFacturasClienteServer.DarReferencia: String;
 var
   ATipo : String;
 begin
-  if TIPO = CTE_TIPO_FACTURA then
-    ATipo := REF_FACTURAS_CLIENTE
-  else
-    ATipo := REF_ABONOS_CLIENTE;
+  // Aunque sea un abono, la referencia es la misma que una factura
+  ATipo := REF_FACTURAS_CLIENTE;
 
   with TsrvReferencias.Create(NIL) do
     try
@@ -95,10 +92,8 @@ function TBizFacturasClienteServer.IncrementarReferencia: Boolean;
 var
   ATipo : String;
 begin
-  if TIPO = CTE_TIPO_FACTURA then
-    ATipo := REF_FACTURAS_CLIENTE
-  else
-    ATipo := REF_ABONOS_CLIENTE;
+  // Aunque sea un abono, la referencia es la misma que una factura
+  ATipo := REF_FACTURAS_CLIENTE;
 
   with TsrvReferencias.Create(NIL) do
     try
diff --git a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas
index 81d19376..22ecd8e3 100644
--- a/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas	
+++ b/Source/Modulos/Facturas de proveedor/Model/uBizFacturasProveedorServer.pas	
@@ -32,7 +32,6 @@ uses
 
 const
   REF_FACTURAS_PROVEEDOR = 'REF_FACTURAS_PROVEEDOR';
-  REF_ABONOS_PROVEEDOR = 'REF_ABONOS_PROVEEDOR';
   CTE_TIPO_ABONO = 'A';
   CTE_TIPO_FACTURA = 'F';
 
@@ -78,10 +77,8 @@ function TBizFacturasProveedorServer.DarReferencia: String;
 var
   ATipo : String;
 begin
-  if TIPO = CTE_TIPO_FACTURA then
-    ATipo := REF_FACTURAS_PROVEEDOR
-  else
-    ATipo := REF_ABONOS_PROVEEDOR;
+  // Aunque sea un abono, la referencia es la misma que una factura
+  ATipo := REF_FACTURAS_PROVEEDOR;
 
   with TsrvReferencias.Create(NIL) do
     try
@@ -95,10 +92,8 @@ function TBizFacturasProveedorServer.IncrementarReferencia: Boolean;
 var
   ATipo : String;
 begin
-  if TIPO = CTE_TIPO_FACTURA then
-    ATipo := REF_FACTURAS_PROVEEDOR
-  else
-    ATipo := REF_ABONOS_PROVEEDOR;
+  // Aunque sea un abono, la referencia es la misma que una factura
+  ATipo := REF_FACTURAS_PROVEEDOR;
 
   with TsrvReferencias.Create(NIL) do
     try