From c0649b21e9a06c56eb49a0d2b373744627472f87 Mon Sep 17 00:00:00 2001
From: roberto <rblanco@rodax-software.com>
Date: Mon, 2 Jun 2008 18:51:00 +0000
Subject: [PATCH] Arreglo de fallo al asignar las referencias de las ordenes de
 devolucion

git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@412 0c75b7a4-871f-7646-8a2f-f78d34cc349f
---
 .../Model/uBizAlbaranClienteServer.pas        |   7 +++++--
 .../Model/uBizAlbaranProveedorServer.PAS      |   7 +++++--
 Source/Servidor/FactuGES_Server.RES           | Bin 23200 -> 23200 bytes
 Source/Servidor/FactuGES_Server.rc            |   2 +-
 4 files changed, 11 insertions(+), 5 deletions(-)

diff --git a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas
index 4f45951c..01ae5cd2 100644
--- a/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas	
+++ b/Source/Modulos/Albaranes de cliente/Model/uBizAlbaranClienteServer.pas	
@@ -9,6 +9,9 @@ uses
 const
   BIZ_SERVER_ALBARAN_CLIENTE = 'Server.AlbaranCliente';
 
+  CTE_TIPO_ALBARAN = 'A';
+  CTE_TIPO_ALBARAN_DEV = 'D';
+
 type
   TBizAlbaranClienteServer = class(TAlbaranesClienteBusinessProcessorRules)
   private
@@ -76,7 +79,7 @@ function TBizAlbaranClienteServer.DarReferencia: String;
 var
   ACodigoReferencia : String;
 begin
-  if (IMPORTE_TOTAL < 0) then
+  if (TIPO = CTE_TIPO_ALBARAN_DEV) then
     ACodigoReferencia := REF_ALBARANES_DEV_CLIENTE
   else
     ACodigoReferencia := REF_ALBARANES_CLIENTE;
@@ -93,7 +96,7 @@ function TBizAlbaranClienteServer.IncrementarReferencia: Boolean;
 var
   ACodigoReferencia : String;
 begin
-  if (IMPORTE_TOTAL < 0) then
+  if (TIPO = CTE_TIPO_ALBARAN_DEV) then
     ACodigoReferencia := REF_ALBARANES_DEV_CLIENTE
   else
     ACodigoReferencia := REF_ALBARANES_CLIENTE;
diff --git a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS
index 628426d4..a62a7800 100644
--- a/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS	
+++ b/Source/Modulos/Albaranes de proveedor/Model/uBizAlbaranProveedorServer.PAS	
@@ -9,6 +9,9 @@ uses
 const
   BIZ_SERVER_ALBARAN_PROVEEDOR = 'Server.AlbaranProveedor';
 
+  CTE_TIPO_ALBARAN = 'A';
+  CTE_TIPO_ALBARAN_DEV = 'D';
+
 type
   TBizAlbaranProveedorServer = class(TFacturasClienteBusinessProcessorRules)
   private
@@ -76,7 +79,7 @@ function TBizAlbaranProveedorServer.DarReferencia: String;
 var
   ACodigoReferencia : String;
 begin
-  if (IMPORTE_TOTAL < 0) then
+  if (TIPO = CTE_TIPO_ALBARAN_DEV) then
     ACodigoReferencia := REF_ALBARANES_DEV_PROVEEDOR
   else
     ACodigoReferencia := REF_ALBARANES_PROVEEDOR;
@@ -93,7 +96,7 @@ function TBizAlbaranProveedorServer.IncrementarReferencia: Boolean;
 var
   ACodigoReferencia : String;
 begin
-  if (IMPORTE_TOTAL < 0) then
+  if (TIPO = CTE_TIPO_ALBARAN_DEV) then
     ACodigoReferencia := REF_ALBARANES_DEV_PROVEEDOR
   else
     ACodigoReferencia := REF_ALBARANES_PROVEEDOR;
diff --git a/Source/Servidor/FactuGES_Server.RES b/Source/Servidor/FactuGES_Server.RES
index 1a5b41fe09775f0c7315bd86f91692de236996eb..60968f57967a5805b0894b7ac0673005f1e14d3c 100644
GIT binary patch
delta 17
YcmZ3mm2tsV#tk7+%q9#Llf$Dt0X+Ez2LJ#7

delta 17
YcmZ3mm2tsV#tk7+%mxgGlf$Dt0X(_|`~Uy|

diff --git a/Source/Servidor/FactuGES_Server.rc b/Source/Servidor/FactuGES_Server.rc
index c156596f..fb6a2375 100644
--- a/Source/Servidor/FactuGES_Server.rc
+++ b/Source/Servidor/FactuGES_Server.rc
@@ -14,7 +14,7 @@ BEGIN
          BEGIN
               VALUE "FileVersion", "1.0.4.0\0"
               VALUE "ProductVersion", "1.0.4.0\0"
-              VALUE "CompileDate", "lunes, 02 de junio de 2008 20:01\0"
+              VALUE "CompileDate", "lunes, 02 de junio de 2008 20:48\0"
          END
     END
     BLOCK "VarFileInfo"