diff --git a/Build/Build.fbl6 b/Build/Build.fbl6
index 1d9406e..72cfd90 100644
Binary files a/Build/Build.fbl6 and b/Build/Build.fbl6 differ
diff --git a/Build/Build.fbpInf b/Build/Build.fbpInf
index f02fa4c..2bee1df 100644
--- a/Build/Build.fbpInf
+++ b/Build/Build.fbpInf
@@ -14,8 +14,8 @@
     <Notes>
       <![CDATA[]]>
     </Notes>
-    <LastBuildRun>00:05:14</LastBuildRun>
-    <LastBuildStart>22/06/2010 17:34:41</LastBuildStart>
+    <LastBuildRun>00:05:20</LastBuildRun>
+    <LastBuildStart>24/08/2010 10:24:14</LastBuildStart>
     <LastBuildState>True</LastBuildState>
   </properties>
 </project>
diff --git a/Build/Build.fbz6 b/Build/Build.fbz6
index befbde2..70e8046 100644
Binary files a/Build/Build.fbz6 and b/Build/Build.fbz6 differ
diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql
index 298c808..1be7219 100644
--- a/Database/scripts/factuges.sql
+++ b/Database/scripts/factuges.sql
@@ -2230,6 +2230,7 @@ CREATE VIEW V_FACTURAS_CLIENTE(
 	BASE_IMPONIBLE,
 	DESCUENTO,
 	IMPORTE_DESCUENTO,
+	DESCRIPCION_DESCUENTO,
 	IVA,
 	IMPORTE_IVA,
 	RE,
@@ -2273,6 +2274,7 @@ SELECT FACTURAS_CLIENTE.ID,
   FACTURAS_CLIENTE.BASE_IMPONIBLE,
   FACTURAS_CLIENTE.DESCUENTO,
   FACTURAS_CLIENTE.IMPORTE_DESCUENTO,
+  FACTURAS_CLIENTE.DESCRIPCION_DESCUENTO,  
   FACTURAS_CLIENTE.IVA,
   FACTURAS_CLIENTE.IMPORTE_IVA,
   FACTURAS_CLIENTE.RE,
@@ -2954,10 +2956,13 @@ CREATE VIEW V_INVENTARIO(
     REFERENCIA,
     FAMILIA,
     DESCRIPCION,
+    REFERENCIA_PROV,
     REFERENCIA_FAB,
     UNIDAD_MEDIDA,
+    PRECIO_NETO,    
     STOCK,
     UNIDADES_ALMACEN,
+    COSTE_UNIDADES,
     RESERVA,
     PENDIENTE_RECEPCION)
 AS
@@ -2969,17 +2974,18 @@ SELECT ID_ALMACEN,
        ARTICULOS.REFERENCIA,
        ARTICULOS.FAMILIA,
        ARTICULOS.DESCRIPCION,
+       ARTICULOS.REFERENCIA_PROV,
        ARTICULOS.REFERENCIA_FABR,
        ARTICULOS.UNIDAD_MEDIDA,
-/*       COALESCE(ARTICULOS.PRECIO_NETO,0) as PRECIO_NETO,*/
+       COALESCE(ARTICULOS.PRECIO_NETO,0) as PRECIO_NETO,
        (SUM(STOCK) - SUM(RESERVA)) as STOCK,
        SUM(STOCK) as UNIDADES_ALMACEN,
 
        /*Si las unidades son negativas no se tiene en cuenta el coste*/
-/*       CASE WHEN (SUM(STOCK) < 0) THEN 0
+       CASE WHEN (SUM(STOCK) < 0) THEN 0
             ELSE (COALESCE(ARTICULOS.PRECIO_NETO,0) * SUM(STOCK))
        END as COSTE_UNIDADES,
-*/
+
        SUM(RESERVA) as RESERVA,
        SUM(PENDIENTE_RECEPCION) as PENDIENTE_RECEPCION
 
@@ -3001,9 +3007,12 @@ GROUP BY ID_ALMACEN,
          ARTICULOS.REFERENCIA,
          ARTICULOS.FAMILIA,
          ARTICULOS.DESCRIPCION,
+         ARTICULOS.REFERENCIA_PROV,
          ARTICULOS.REFERENCIA_FABR,
-         ARTICULOS.UNIDAD_MEDIDA
-/*         ARTICULOS.PRECIO_NETO*/
+         ARTICULOS.UNIDAD_MEDIDA,
+         ARTICULOS.PRECIO_NETO
+;
+
 
 /*QUITAMOS AQUELLAS TUPLAS DE LAS QUE NO TENEMOS UNIDADES EN EL ALAMCEN, NO HAY RESERVAS NI PEDIDOS PENDIENTES DE RECIBIR*/
 HAVING ((SUM(STOCK) <> 0 ) OR (SUM(RESERVA) <> 0) OR (SUM(PENDIENTE_RECEPCION) <> 0))
@@ -4579,6 +4588,61 @@ end
 
 SET TERM ; ^
 
+
+CREATE PROCEDURE PRO_ANADIR_MARCA_ENVIO_CORREO (
+    tabla varchar(255),
+    id_tabla integer)
+as
+declare variable id integer;
+begin
+  select ID
+  from REGISTRO_CORREOS
+  where ID_TABLA = :ID_TABLA
+  and TABLA = UPPER(:TABLA)
+  into :ID;
+
+  /*En el caso de que ya exista se modifica la cantidad en caso contrario se anade el elemento */
+  if (ID > 0) then
+  begin
+    update REGISTRO_CORREOS
+    set NUM_CORREOS = NUM_CORREOS + 1
+    where ID = :ID;
+  end
+  else
+  begin
+    insert into REGISTRO_CORREOS (ID, TABLA, ID_TABLA, NUM_CORREOS)
+    values (GEN_ID(GEN_REGISTRO_CORREOS_ID, 1), UPPER(:TABLA), :ID_TABLA, 1);
+  end
+  suspend;
+end;
+
+CREATE PROCEDURE PRO_ANADIR_MARCA_IMPRESION (
+    tabla varchar(255),
+    id_tabla integer)
+as
+declare variable id integer;
+begin
+  select ID
+  from IMPRESIONES
+  where ID_TABLA = :ID_TABLA
+  and TABLA = UPPER(:TABLA)
+  into :ID;
+
+  /*En el caso de que ya exista se modifica la cantidad en caso contrario se anade el elemetno*/
+  if (ID > 0) then
+  begin
+    update IMPRESIONES
+    set NUM_COPIAS = NUM_COPIAS + 1
+    where ID = :ID;
+  end
+  else
+  begin
+    insert into IMPRESIONES (ID, TABLA, ID_TABLA, NUM_COPIAS)
+    values (GEN_ID(GEN_IMPRESIONES_ID, 1), UPPER(:TABLA), :ID_TABLA, 1);
+  end
+  suspend;
+end;
+
 /******************************************************************************/
 /****                             Descriptions                             ****/
 /******************************************************************************/