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 1a5b41fe..60968f57 100644
Binary files a/Source/Servidor/FactuGES_Server.RES and b/Source/Servidor/FactuGES_Server.RES differ
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"