Archivado/LuisLeon_FactuGES2
Archived
0
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

git-svn-id: https://192.168.0.254/svn/Proyectos.LuisLeon_FactuGES2/trunk@50 b2cfbe5a-eba1-4a0c-8b32-7feea0a119f2

Browse Source
This commit is contained in:
roberto 2010-08-26 17:14:08 +00:00
parent 75237ef4c4
commit 42519b64b1
4 changed files with 71 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

BIN
Build/Build.fbl6
View File

Binary file not shown.

4
Build/Build.fbpInf
View File

@ -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>

BIN
Build/Build.fbz6
View File

Binary file not shown.

74
Database/scripts/factuges.sql
View File

@ -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 ****/
/******************************************************************************/