Repaso general
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@239 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
bb48e1e248
commit
d9c1370ba7
Binary file not shown.
@ -6,8 +6,7 @@ SET SQL DIALECT 3;
|
||||
|
||||
SET NAMES ISO8859_1;
|
||||
|
||||
CREATE DATABASE 'FACTUGES.FDB'
|
||||
PAGE_SIZE 4096
|
||||
CREATE DATABASE 'FACTUGES.FDB' PAGE_SIZE 4096
|
||||
DEFAULT CHARACTER SET ISO8859_1;
|
||||
|
||||
|
||||
@ -144,9 +143,6 @@ SET GENERATOR GEN_FORMAS_PAGO_ID TO 1;
|
||||
CREATE GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID;
|
||||
SET GENERATOR GEN_FORMAS_PAGO_PLAZOS_ID TO 1;
|
||||
|
||||
CREATE GENERATOR GEN_F_PERFILES_ID;
|
||||
SET GENERATOR GEN_F_PERFILES_ID TO 1;
|
||||
|
||||
CREATE GENERATOR GEN_INFORMES_ID;
|
||||
SET GENERATOR GEN_INFORMES_ID TO 1;
|
||||
|
||||
@ -204,260 +200,32 @@ SET GENERATOR GEN_USUARIOS_ID TO 1;
|
||||
CREATE GENERATOR GEN_UNIDADES_MEDIDA_ID;
|
||||
SET GENERATOR GEN_UNIDADES_MEDIDA_ID TO 1;
|
||||
|
||||
CREATE GENERATOR GEN_CLIENTES_GRUPOS_ID;
|
||||
SET GENERATOR GEN_CLIENTES_GRUPOS_ID TO 1;
|
||||
|
||||
SET TERM ^ ;
|
||||
CREATE GENERATOR GEN_PROVEEDORES_GRUPOS_ID;
|
||||
SET GENERATOR GEN_PROVEEDORES_GRUPOS_ID TO 1;
|
||||
|
||||
CREATE GENERATOR GEN_EMPLEADOS_GRUPOS_ID;
|
||||
SET GENERATOR GEN_EMPLEADOS_GRUPOS_ID TO 1;
|
||||
|
||||
CREATE GENERATOR GEN_CONFIGURACION_ID;
|
||||
SET GENERATOR GEN_CONFIGURACION_ID TO 1;
|
||||
|
||||
/******************************************************************************/
|
||||
/**** Stored Procedures ****/
|
||||
/******************************************************************************/
|
||||
CREATE GENERATOR GEN_FAMILIAS_ID;
|
||||
SET GENERATOR GEN_FAMILIAS_ID TO 1;
|
||||
|
||||
SET TERM ^ ;
|
||||
CREATE GENERATOR GEN_EMPRESAS_CONTACTOS_ID;
|
||||
SET GENERATOR GEN_EMPRESAS_CONTACTOS_ID TO 1;
|
||||
|
||||
CREATE PROCEDURE PRO_PRES_CAPITULOS (
|
||||
aid integer)
|
||||
returns (
|
||||
id integer,
|
||||
id_presupuesto integer,
|
||||
posicion integer,
|
||||
tipo_detalle varchar(10),
|
||||
concepto varchar(2000),
|
||||
importe_total numeric(11,2),
|
||||
visible smallint)
|
||||
as
|
||||
declare variable num_filas integer;
|
||||
declare variable contador integer;
|
||||
declare variable existe numeric(11,2);
|
||||
declare variable total_acumulado numeric(11,2);
|
||||
begin
|
||||
existe = 0;
|
||||
total_acumulado = 0.0;
|
||||
contador = 0;
|
||||
num_filas = 0;
|
||||
CREATE GENERATOR GEN_EMPRESAS_USUARIOS_ID;
|
||||
SET GENERATOR GEN_EMPRESAS_USUARIOS_ID TO 1;
|
||||
|
||||
/* ¿Existe el presupuesto? */
|
||||
for select count(*)
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
into :num_filas
|
||||
do
|
||||
begin
|
||||
if (num_filas = 0) then
|
||||
suspend;
|
||||
end
|
||||
CREATE GENERATOR GEN_PERMISOS_ID;
|
||||
SET GENERATOR GEN_PERMISOS_ID TO 1;
|
||||
|
||||
/* Ver si hay conceptos al principio sin capitulos */
|
||||
for select id, id_presupuesto, posicion, tipo_detalle
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
rows 1
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE
|
||||
do
|
||||
begin
|
||||
if (TIPO_DETALLE = 'Concepto') then
|
||||
EXISTE = 1;
|
||||
end
|
||||
|
||||
if (existe = 1) then
|
||||
begin
|
||||
contador = 0;
|
||||
/* Existen conceptos sin capitulo */
|
||||
for select tipo_detalle, importe_total, coalesce(visible, 1)
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
into :TIPO_DETALLE, :IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
begin
|
||||
contador = contador + 1;
|
||||
if ((tipo_detalle <> 'Concepto') or (contador = num_filas)) then
|
||||
begin
|
||||
importe_total = total_acumulado;
|
||||
tipo_detalle = 'Titulo';
|
||||
concepto = 'General';
|
||||
visible = 1;
|
||||
ID = -1;
|
||||
posicion = -1;
|
||||
suspend;
|
||||
break;
|
||||
end
|
||||
else begin
|
||||
if (visible <> 0) then
|
||||
total_acumulado = total_acumulado + importe_total;
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
for select id, id_presupuesto, posicion, tipo_detalle, F_RTFTOTEXT(concepto) as concepto,
|
||||
importe_total, coalesce(visible, 1)
|
||||
from presupuestos_cliente_detalles
|
||||
where tipo_detalle <> 'Concepto' and id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :CONCEPTO,
|
||||
:IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
suspend;
|
||||
|
||||
end^
|
||||
|
||||
SET TERM ; ^
|
||||
GRANT SELECT ON PRESUPUESTOS_CLIENTE_DETALLES TO PROCEDURE PRO_PRES_CAPITULOS;
|
||||
GRANT EXECUTE ON PROCEDURE PRO_PRES_CAPITULOS TO TO "PUBLIC";
|
||||
|
||||
SET TERM ^ ;
|
||||
|
||||
CREATE PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS (
|
||||
aid integer)
|
||||
returns (
|
||||
id integer,
|
||||
id_presupuesto integer,
|
||||
posicion integer,
|
||||
tipo_detalle varchar(10),
|
||||
id_capitulo integer,
|
||||
id_articulo integer,
|
||||
referencia varchar(255),
|
||||
concepto varchar(2000),
|
||||
cantidad integer,
|
||||
importe_unidad numeric(11,2),
|
||||
descuento float,
|
||||
importe_porte numeric(11,2),
|
||||
importe_total numeric(11,2),
|
||||
visible smallint)
|
||||
as
|
||||
declare variable capitulo_actual integer;
|
||||
begin
|
||||
capitulo_actual = -1;
|
||||
ID_CAPITULO = -1;
|
||||
for select pre.id, pre.id_presupuesto, pre.posicion, pre.tipo_detalle,
|
||||
pre.id_articulo, articulos.referencia, pre.concepto, pre.cantidad,
|
||||
pre.importe_unidad, pre.descuento, pre.importe_porte,
|
||||
pre.importe_total, coalesce(pre.visible, 1)
|
||||
from presupuestos_cliente_detalles pre
|
||||
left join articulos on (pre.id_articulo = articulos.id)
|
||||
where pre.id_presupuesto = :AID
|
||||
order by pre.id_presupuesto, pre.posicion
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :ID_ARTICULO,
|
||||
:REFERENCIA, :CONCEPTO, :CANTIDAD, :IMPORTE_UNIDAD, :DESCUENTO,
|
||||
:IMPORTE_PORTE, :IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
begin
|
||||
if (:tipo_detalle <> 'Concepto') then
|
||||
begin
|
||||
capitulo_actual = :ID;
|
||||
ID_CAPITULO = capitulo_actual;
|
||||
end
|
||||
else
|
||||
suspend;
|
||||
end
|
||||
end^
|
||||
|
||||
SET TERM ; ^
|
||||
|
||||
GRANT SELECT ON PRESUPUESTOS_CLIENTE_DETALLES TO PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS;
|
||||
GRANT SELECT ON ARTICULOS TO PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS;
|
||||
GRANT EXECUTE ON PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS TO "PUBLIC";
|
||||
|
||||
|
||||
SET TERM ^ ;
|
||||
|
||||
CREATE PROCEDURE PRO_PRES_RESUMEN (
|
||||
aid integer)
|
||||
returns (
|
||||
id integer,
|
||||
id_presupuesto integer,
|
||||
posicion integer,
|
||||
tipo_detalle varchar(10),
|
||||
concepto varchar(2000),
|
||||
importe_total numeric(11,2),
|
||||
visible smallint)
|
||||
as
|
||||
declare variable num_capitulos integer;
|
||||
declare variable num_filas integer;
|
||||
declare variable contador integer;
|
||||
declare variable existe numeric(11,2);
|
||||
declare variable total_acumulado numeric(11,2);
|
||||
declare variable concepto_capitulo varchar(2000) character set iso8859_1;
|
||||
begin
|
||||
existe = 0;
|
||||
total_acumulado = 0.0;
|
||||
contador = 0;
|
||||
num_filas = 0;
|
||||
num_capitulos = 0;
|
||||
concepto_capitulo = '';
|
||||
|
||||
/* ¿Existe el presupuesto? */
|
||||
for select count(*)
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
into :num_filas
|
||||
do
|
||||
begin
|
||||
if (num_filas = 0) then
|
||||
suspend;
|
||||
end
|
||||
|
||||
/* Ver si hay conceptos al principio sin capitulos */
|
||||
for select id, id_presupuesto, posicion, tipo_detalle
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
rows 1
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE
|
||||
do
|
||||
begin
|
||||
if (TIPO_DETALLE = 'Concepto') then
|
||||
EXISTE = 1;
|
||||
end
|
||||
|
||||
if (existe = 1) then
|
||||
begin
|
||||
contador = 0;
|
||||
/* Existen conceptos sin capitulo */
|
||||
for select tipo_detalle, importe_total, coalesce(visible, 1)
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
into :TIPO_DETALLE, :IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
begin
|
||||
contador = contador + 1;
|
||||
if ((tipo_detalle <> 'Concepto') or (contador = num_filas)) then
|
||||
begin
|
||||
importe_total = total_acumulado;
|
||||
tipo_detalle = 'Titulo';
|
||||
concepto = 'General';
|
||||
visible = 1;
|
||||
ID = -1;
|
||||
posicion = -1;
|
||||
suspend;
|
||||
break;
|
||||
end
|
||||
else begin
|
||||
if (visible <> 0) then
|
||||
total_acumulado = total_acumulado + importe_total;
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
/* Tratar el resto de las filas */
|
||||
for select id, id_presupuesto, posicion, tipo_detalle, F_RTFTOTEXT(concepto) as concepto,
|
||||
importe_total, coalesce(visible, 1)
|
||||
from presupuestos_cliente_detalles
|
||||
where tipo_detalle = 'Subtotal' and id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :CONCEPTO,
|
||||
:IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
suspend;
|
||||
end^
|
||||
|
||||
SET TERM ; ^
|
||||
GRANT SELECT ON PRESUPUESTOS_CLIENTE_DETALLES TO PROCEDURE PRO_PRES_RESUMEN;
|
||||
GRANT EXECUTE ON PROCEDURE PRO_PRES_RESUMEN TO "PUBLIC";
|
||||
CREATE GENERATOR GEN_PERMISOSEX_ID;
|
||||
SET GENERATOR GEN_PERMISOSEX_ID TO 1;
|
||||
|
||||
|
||||
/******************************************************************************/
|
||||
@ -482,6 +250,7 @@ CREATE TABLE ALBARANES_CLIENTE (
|
||||
ID_ALMACEN TIPO_ID,
|
||||
ID_PEDIDO TIPO_ID,
|
||||
ID_FACTURA TIPO_ID,
|
||||
TIPO VARCHAR(1),
|
||||
REFERENCIA VARCHAR(255),
|
||||
CALLE VARCHAR(255),
|
||||
CODIGO_POSTAL VARCHAR(10),
|
||||
@ -536,6 +305,7 @@ CREATE TABLE ALBARANES_PROVEEDOR (
|
||||
FECHA_ALBARAN DATE,
|
||||
ID_PEDIDO TIPO_ID,
|
||||
ID_FACTURA TIPO_ID,
|
||||
TIPO VARCHAR(1),
|
||||
REFERENCIA VARCHAR(255),
|
||||
CALLE VARCHAR(255),
|
||||
CODIGO_POSTAL VARCHAR(10),
|
||||
@ -607,7 +377,7 @@ CREATE TABLE ARTICULOS (
|
||||
REFERENCIA VARCHAR(255),
|
||||
DESCRIPCION VARCHAR(255),
|
||||
FAMILIA VARCHAR(255),
|
||||
UNIDAD_MEDIDA VARCHAR(255),
|
||||
UNIDAD_MEDIDA VARCHAR(255),
|
||||
IMAGEN TIPO_BINARIO,
|
||||
COMISIONABLE TIPO_BOOLEANO,
|
||||
ID_PROVEEDOR TIPO_ID,
|
||||
@ -657,6 +427,7 @@ CREATE TABLE CLIENTES_DTOS_PROVEEDORES (
|
||||
|
||||
|
||||
CREATE TABLE CLIENTES_GRUPOS (
|
||||
ID TIPO_ID NOT NULL,
|
||||
DESCRIPCION VARCHAR(255)
|
||||
);
|
||||
|
||||
@ -676,6 +447,7 @@ CREATE TABLE COMISIONES_LIQUIDADAS (
|
||||
|
||||
|
||||
CREATE TABLE CONFIGURACION (
|
||||
ID TIPO_ID NOT NULL,
|
||||
CODIGO VARCHAR(50) NOT NULL,
|
||||
VALOR VARCHAR(255) NOT NULL,
|
||||
ID_EMPRESA TIPO_ID
|
||||
@ -759,7 +531,8 @@ CREATE TABLE EMPLEADOS_DATOS (
|
||||
|
||||
|
||||
CREATE TABLE EMPLEADOS_GRUPOS (
|
||||
DESCRIPCION VARCHAR(255)
|
||||
ID TIPO_ID NOT NULL,
|
||||
DESCRIPCION VARCHAR(255)
|
||||
);
|
||||
|
||||
|
||||
@ -791,8 +564,9 @@ CREATE TABLE EMPRESAS (
|
||||
|
||||
|
||||
CREATE TABLE EMPRESAS_CONTACTOS (
|
||||
ID_EMPRESA TIPO_ID NOT NULL,
|
||||
ID_CONTACTO TIPO_ID NOT NULL
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID NOT NULL,
|
||||
ID_CONTACTO TIPO_ID NOT NULL
|
||||
);
|
||||
|
||||
|
||||
@ -810,6 +584,7 @@ CREATE TABLE EMPRESAS_DATOS_BANCO (
|
||||
|
||||
|
||||
CREATE TABLE EMPRESAS_USUARIOS (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_EMPRESA TIPO_ID NOT NULL,
|
||||
ID_USUARIO TIPO_ID NOT NULL
|
||||
);
|
||||
@ -939,6 +714,7 @@ CREATE TABLE FACTURAS_PROVEEDOR_DETALLES (
|
||||
|
||||
|
||||
CREATE TABLE FAMILIAS (
|
||||
ID TIPO_ID NOT NULL,
|
||||
DESCRIPCION VARCHAR(255)
|
||||
);
|
||||
|
||||
@ -1125,6 +901,7 @@ CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES (
|
||||
|
||||
|
||||
CREATE TABLE PERMISOS (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_USUARIO TIPO_ID,
|
||||
MODULO VARCHAR(50),
|
||||
NOMBRECOMP VARCHAR(50),
|
||||
@ -1133,6 +910,7 @@ CREATE TABLE PERMISOS (
|
||||
|
||||
|
||||
CREATE TABLE PERMISOSEX (
|
||||
ID TIPO_ID NOT NULL,
|
||||
ID_USUARIO TIPO_ID,
|
||||
MODULO VARCHAR(50),
|
||||
NOMBRECOMP VARCHAR(50),
|
||||
@ -1205,7 +983,8 @@ CREATE TABLE PROVEEDORES_DATOS (
|
||||
|
||||
|
||||
CREATE TABLE PROVEEDORES_GRUPOS (
|
||||
DESCRIPCION VARCHAR(255)
|
||||
ID TIPO_ID NOT NULL,
|
||||
DESCRIPCION VARCHAR(255)
|
||||
);
|
||||
|
||||
|
||||
@ -1307,6 +1086,12 @@ CREATE TABLE TIPOS_IVA (
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE UNIDADES_MEDIDA (
|
||||
ID TIPO_ID NOT NULL,
|
||||
DESCRIPCION VARCHAR(255)
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE USUARIOS (
|
||||
ID TIPO_ID NOT NULL,
|
||||
USERNAME VARCHAR(30),
|
||||
@ -1345,11 +1130,6 @@ CREATE TABLE USUARIOS_LOGON (
|
||||
);
|
||||
|
||||
|
||||
CREATE TABLE UNIDADES_MEDIDA (
|
||||
ID TIPO_ID NOT NULL,
|
||||
DESCRIPCION VARCHAR(255)
|
||||
);
|
||||
|
||||
|
||||
|
||||
/******************************************************************************/
|
||||
@ -1389,7 +1169,7 @@ SELECT ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN,
|
||||
SUM (COALESCE(ALBARANES_PROVEEDOR_DETALLES.CANTIDAD, 0)) AS CANTIDAD
|
||||
|
||||
FROM ALBARANES_PROVEEDOR_DETALLES
|
||||
LEFT JOIN ALBARANES_PROVEEDOR
|
||||
INNER JOIN ALBARANES_PROVEEDOR
|
||||
ON (ALBARANES_PROVEEDOR_DETALLES.ID_ALBARAN = ALBARANES_PROVEEDOR.ID)
|
||||
|
||||
/*Mantenemos los articulos inventariables y aquellos que no existan en nuestro catálogo con el fin de no falsear la situación de los pedidos
|
||||
@ -1458,7 +1238,7 @@ SELECT
|
||||
ALBARANES_CLIENTE.FECHA_ALBARAN,
|
||||
ALBARANES_CLIENTE.REFERENCIA,
|
||||
ALBARANES_CLIENTE.REFERENCIA_CLIENTE,
|
||||
CASE WHEN (ALBARANES_CLIENTE.IMPORTE_TOTAL < 0) THEN 'D' ELSE 'A' END AS TIPO,
|
||||
ALBARANES_CLIENTE.TIPO,
|
||||
V_ALB_CLI_SITUACION.SITUACION,
|
||||
ALBARANES_CLIENTE.ID_ALMACEN,
|
||||
ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
|
||||
@ -1548,7 +1328,7 @@ SELECT
|
||||
ALBARANES_PROVEEDOR.FECHA_ALBARAN,
|
||||
ALBARANES_PROVEEDOR.REFERENCIA,
|
||||
ALBARANES_PROVEEDOR.REFERENCIA_PROVEEDOR,
|
||||
CASE WHEN (ALBARANES_PROVEEDOR.IMPORTE_TOTAL < 0) THEN 'D' ELSE 'A' END AS TIPO,
|
||||
ALBARANES_PROVEEDOR.TIPO,
|
||||
ALBARANES_PROVEEDOR.ID_ALMACEN,
|
||||
ALMACENES.NOMBRE AS NOMBRE_ALMACEN,
|
||||
ALBARANES_PROVEEDOR.ID_PEDIDO,
|
||||
@ -1593,7 +1373,7 @@ CREATE VIEW V_ARTICULOS(
|
||||
ID_EMPRESA,
|
||||
REFERENCIA,
|
||||
DESCRIPCION,
|
||||
UNIDAD_MEDIDA,
|
||||
UNIDAD_MEDIDA,
|
||||
FAMILIA,
|
||||
IMAGEN,
|
||||
COMISIONABLE,
|
||||
@ -2406,10 +2186,10 @@ SELECT
|
||||
PEDIDOS_PROVEEDOR.ID_FORMA_PAGO
|
||||
FROM
|
||||
PEDIDOS_PROVEEDOR
|
||||
LEFT OUTER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID)
|
||||
INNER JOIN V_PROVEEDORES ON (PEDIDOS_PROVEEDOR.ID_PROVEEDOR = V_PROVEEDORES.ID)
|
||||
INNER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID)
|
||||
LEFT OUTER JOIN ALMACENES ON (ALMACENES.ID = PEDIDOS_PROVEEDOR.ID_ALMACEN)
|
||||
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE)
|
||||
LEFT OUTER JOIN V_PED_PROV_SITUACION ON (V_PED_PROV_SITUACION.ID_PEDIDO = PEDIDOS_PROVEEDOR.ID)
|
||||
LEFT OUTER JOIN PEDIDOS_CLIENTE ON (PEDIDOS_CLIENTE.ID = PEDIDOS_PROVEEDOR.ID_PEDIDO_CLIENTE)
|
||||
;
|
||||
|
||||
|
||||
@ -2693,9 +2473,9 @@ ALTER TABLE CONTACTOS_DATOS_BANCO ADD CONSTRAINT PK_CONTACTOS_DATOS_BANCO PRIMAR
|
||||
ALTER TABLE CONTACTOS_DIRECCIONES ADD CONSTRAINT PK_CONTACTOS_DIR PRIMARY KEY (ID);
|
||||
ALTER TABLE EMPLEADOS_DATOS ADD CONSTRAINT PK_EMPLEADOS_DATOS PRIMARY KEY (ID_EMPLEADO);
|
||||
ALTER TABLE EMPRESAS ADD CONSTRAINT PK_EMPRESAS PRIMARY KEY (ID);
|
||||
ALTER TABLE EMPRESAS_CONTACTOS ADD CONSTRAINT PK_EMPRESAS_CONTACTOS PRIMARY KEY (ID_EMPRESA, ID_CONTACTO);
|
||||
ALTER TABLE EMPRESAS_CONTACTOS ADD CONSTRAINT PK_EMPRESAS_CONTACTOS PRIMARY KEY (ID);
|
||||
ALTER TABLE EMPRESAS_DATOS_BANCO ADD CONSTRAINT PK_EMPRESAS_DATOS_BANCO PRIMARY KEY (ID);
|
||||
ALTER TABLE EMPRESAS_USUARIOS ADD CONSTRAINT PK_EMPRESAS_USUARIOS PRIMARY KEY (ID_EMPRESA, ID_USUARIO);
|
||||
ALTER TABLE EMPRESAS_USUARIOS ADD CONSTRAINT PK_EMPRESAS_USUARIOS PRIMARY KEY (ID);
|
||||
ALTER TABLE FACTURAS_CLIENTE ADD CONSTRAINT PK_FACTURAS_CLIENTE PRIMARY KEY (ID);
|
||||
ALTER TABLE FACTURAS_CLIENTE_DETALLES ADD CONSTRAINT PK_FACTURAS_CLIENTE_DETALLES PRIMARY KEY (ID);
|
||||
ALTER TABLE FACTURAS_PROVEEDOR ADD CONSTRAINT PK_FACTURAS_PROVEEDOR PRIMARY KEY (ID);
|
||||
@ -2724,6 +2504,13 @@ ALTER TABLE TIPOS_IVA ADD PRIMARY KEY (ID);
|
||||
ALTER TABLE USUARIOS ADD CONSTRAINT PK_USUARIOS PRIMARY KEY (ID);
|
||||
ALTER TABLE USUARIOS_LOGON ADD CONSTRAINT PK_USUARIOS_LOGON PRIMARY KEY (LOGONID);
|
||||
ALTER TABLE UNIDADES_MEDIDA ADD PRIMARY KEY (ID);
|
||||
ALTER TABLE CLIENTES_GRUPOS ADD CONSTRAINT PK_CLIENTES_GRUPOS PRIMARY KEY (ID);
|
||||
ALTER TABLE PROVEEDORES_GRUPOS ADD CONSTRAINT PK_PROVEEDORES_GRUPOS PRIMARY KEY (ID);
|
||||
ALTER TABLE CONFIGURACION ADD CONSTRAINT PK_CONFIGURACION PRIMARY KEY (ID);
|
||||
ALTER TABLE EMPLEADOS_GRUPOS ADD CONSTRAINT PK_EMPLEADOS_GRUPOS PRIMARY KEY (ID);
|
||||
ALTER TABLE FAMILIAS ADD CONSTRAINT PK_FAMILIAS PRIMARY KEY (ID);
|
||||
ALTER TABLE PERMISOS ADD CONSTRAINT PK_PERMISOS PRIMARY KEY (ID);
|
||||
ALTER TABLE PERMISOSEX ADD CONSTRAINT PK_PERMISOSEX PRIMARY KEY (ID);
|
||||
|
||||
|
||||
/******************************************************************************/
|
||||
@ -2770,11 +2557,13 @@ ALTER TABLE TIENDA_WEB ADD CONSTRAINT FK_EMPRESAS_TIENDA_WEB FOREIGN KEY (ID_EMP
|
||||
|
||||
CREATE INDEX IDX_AGENTES_COMISIONES1 ON AGENTES_COMISIONES (ID_AGENTE);
|
||||
CREATE INDEX IDX_AGENTES_COMISIONES2 ON AGENTES_COMISIONES (ID_PROVEEDOR);
|
||||
CREATE INDEX IDX_ALBARANES_CLIENTE ON ALBARANES_CLIENTE (ID_FORMA_PAGO);
|
||||
CREATE INDEX IDX_ALBARANES_CLIENTE1 ON ALBARANES_CLIENTE (ID_FORMA_PAGO);
|
||||
CREATE INDEX IDX_ALBARANES_CLIENTE2 ON ALBARANES_CLIENTE (TIPO);
|
||||
CREATE INDEX IDX_ALBARANES_CLIENTE_DETALLES ON ALBARANES_CLIENTE_DETALLES (ID_ARTICULO);
|
||||
CREATE INDEX IDX_ALBARANES_CLIENTE_DETALLES1 ON ALBARANES_CLIENTE_DETALLES (ID_ALBARAN);
|
||||
CREATE INDEX IDX_ALBARANES_PROVEEDOR ON ALBARANES_PROVEEDOR (ID_ALMACEN);
|
||||
CREATE INDEX IDX_ALBARANES_PROVEEDOR1 ON ALBARANES_PROVEEDOR (ID_FORMA_PAGO);
|
||||
CREATE INDEX IDX_ALBARANES_PROVEEDOR1 ON ALBARANES_PROVEEDOR (ID_ALMACEN);
|
||||
CREATE INDEX IDX_ALBARANES_PROVEEDOR2 ON ALBARANES_PROVEEDOR (ID_FORMA_PAGO);
|
||||
CREATE INDEX IDX_ALBARANES_PROVEEDOR3 ON ALBARANES_PROVEEDOR (TIPO);
|
||||
CREATE INDEX IDX_ALBARANES_PROV_DETALLES ON ALBARANES_PROVEEDOR_DETALLES (ID_ALBARAN);
|
||||
CREATE INDEX IDX_ALBARANES_PROV_DETALLES1 ON ALBARANES_PROVEEDOR_DETALLES (ID_ARTICULO);
|
||||
CREATE INDEX IDX_ARTICULOS ON ARTICULOS (ID_PROVEEDOR);
|
||||
@ -2789,6 +2578,8 @@ CREATE INDEX IDX_CONTACTOS_CATEGORIAS ON CONTACTOS_CATEGORIAS (ID_CONTACTO);
|
||||
CREATE INDEX IDX_CONTACTOS_CATEGORIAS1 ON CONTACTOS_CATEGORIAS (ID_CATEGORIA);
|
||||
CREATE INDEX IDX_CONTACTOS_DATOS_BANCO ON CONTACTOS_DATOS_BANCO (ID_CONTACTO);
|
||||
CREATE INDEX IDX_CONTACTOS_DIR_ID_CONTACTO ON CONTACTOS_DIRECCIONES (ID_CONTACTO);
|
||||
CREATE INDEX IDX_EMPRESAS_CONTACTOS ON EMPRESAS_CONTACTOS (ID_EMPRESA, ID_CONTACTO);
|
||||
CREATE INDEX IDX_EMPRESAS_USUARIOS ON EMPRESAS_USUARIOS (ID_EMPRESA, ID_USUARIO);
|
||||
CREATE INDEX IDX_FACTURAS_CLIENTE ON FACTURAS_CLIENTE (ID_FORMA_PAGO);
|
||||
CREATE INDEX IDX_FACTURAS_CLIENTE1 ON FACTURAS_CLIENTE (ID_TIPO_IVA);
|
||||
CREATE INDEX IDX_FACTURAS_CLIENTE2 ON FACTURAS_CLIENTE (ID_COMISION_LIQUIDADA);
|
||||
@ -2799,9 +2590,9 @@ CREATE INDEX IDX_FACTURAS_PROVEEDOR ON FACTURAS_PROVEEDOR (ID_PROVEEDOR);
|
||||
CREATE INDEX IDX_FACTURAS_PROVEEDOR1 ON FACTURAS_PROVEEDOR (ID_FORMA_PAGO);
|
||||
CREATE INDEX IDX_FACTURAS_PROVEEDOR2 ON FACTURAS_PROVEEDOR (ID_TIPO_IVA);
|
||||
CREATE INDEX IDX_FACTURAS_PROVEEDOR_DETALLES ON FACTURAS_PROVEEDOR_DETALLES (ID_ARTICULO);
|
||||
CREATE INDEX FORMAS_PAGO_PLAZOS_IDX1 ON FORMAS_PAGO_PLAZOS (ID_FORMA_PAGO);
|
||||
CREATE INDEX IDX_FORMAS_PAGO_PLAZOS ON FORMAS_PAGO_PLAZOS (ID_FORMA_PAGO);
|
||||
CREATE INDEX IDX_INFORMES ON INFORMES (ID_EMPRESA);
|
||||
CREATE INDEX MOVIMIENTOS_IDX1 ON MOVIMIENTOS (TIPO);
|
||||
CREATE INDEX IDX_MOVIMIENTOS ON MOVIMIENTOS (TIPO);
|
||||
CREATE INDEX IDX_PEDIDOS_CLIENTE ON PEDIDOS_CLIENTE (ID_FORMA_PAGO);
|
||||
CREATE INDEX IDX_PEDIDOS_CLIENTE_DETALLES ON PEDIDOS_CLIENTE_DETALLES (ID_PEDIDO);
|
||||
CREATE INDEX IDX_PEDIDOS_CLIENTE_DETALLES1 ON PEDIDOS_CLIENTE_DETALLES (ID_ARTICULO);
|
||||
@ -2825,17 +2616,17 @@ CREATE INDEX IDX_REMESAS_PROVEEDOR ON REMESAS_PROVEEDOR (ID_DATOS_BANCO);
|
||||
|
||||
SET TERM ^ ;
|
||||
|
||||
ALTER PROCEDURE PRO_PRES_CAPITULOS (
|
||||
AID INTEGER)
|
||||
RETURNS (
|
||||
ID INTEGER,
|
||||
ID_PRESUPUESTO INTEGER,
|
||||
POSICION INTEGER,
|
||||
TIPO_DETALLE VARCHAR(10),
|
||||
CONCEPTO VARCHAR(2000),
|
||||
IMPORTE_TOTAL NUMERIC(11,2),
|
||||
VISIBLE SMALLINT)
|
||||
AS
|
||||
CREATE PROCEDURE PRO_PRES_CAPITULOS (
|
||||
aid integer)
|
||||
returns (
|
||||
id integer,
|
||||
id_presupuesto integer,
|
||||
posicion integer,
|
||||
tipo_detalle varchar(10),
|
||||
concepto varchar(2000),
|
||||
importe_total numeric(11,2),
|
||||
visible smallint)
|
||||
as
|
||||
declare variable num_filas integer;
|
||||
declare variable contador integer;
|
||||
declare variable existe numeric(11,2);
|
||||
@ -2904,34 +2695,40 @@ begin
|
||||
for select id, id_presupuesto, posicion, tipo_detalle, F_RTFTOTEXT(concepto) as concepto,
|
||||
importe_total, coalesce(visible, 1)
|
||||
from presupuestos_cliente_detalles
|
||||
where tipo_detalle <> 'Concepto' and id_presupuesto = :AID
|
||||
where tipo_detalle = 'Titulo' and id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :CONCEPTO,
|
||||
:IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
suspend;
|
||||
|
||||
end
|
||||
^
|
||||
end^
|
||||
|
||||
ALTER PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS (
|
||||
AID INTEGER)
|
||||
RETURNS (
|
||||
ID INTEGER,
|
||||
ID_PRESUPUESTO INTEGER,
|
||||
POSICION INTEGER,
|
||||
TIPO_DETALLE VARCHAR(10),
|
||||
ID_CAPITULO INTEGER,
|
||||
ID_ARTICULO INTEGER,
|
||||
REFERENCIA VARCHAR(255),
|
||||
CONCEPTO VARCHAR(2000),
|
||||
CANTIDAD INTEGER,
|
||||
IMPORTE_UNIDAD NUMERIC(11,2),
|
||||
DESCUENTO FLOAT,
|
||||
IMPORTE_PORTE NUMERIC(11,2),
|
||||
IMPORTE_TOTAL NUMERIC(11,2),
|
||||
VISIBLE SMALLINT)
|
||||
AS
|
||||
SET TERM ; ^
|
||||
|
||||
GRANT SELECT ON PRESUPUESTOS_CLIENTE_DETALLES TO PROCEDURE PRO_PRES_CAPITULOS;
|
||||
GRANT EXECUTE ON PROCEDURE PRO_PRES_CAPITULOS TO "PUBLIC";
|
||||
|
||||
SET TERM ^ ;
|
||||
|
||||
CREATE PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS (
|
||||
aid integer)
|
||||
returns (
|
||||
id integer,
|
||||
id_presupuesto integer,
|
||||
posicion integer,
|
||||
tipo_detalle varchar(10),
|
||||
id_capitulo integer,
|
||||
id_articulo integer,
|
||||
referencia varchar(255),
|
||||
concepto varchar(2000),
|
||||
cantidad integer,
|
||||
importe_unidad numeric(11,2),
|
||||
descuento float,
|
||||
importe_porte numeric(11,2),
|
||||
importe_total numeric(11,2),
|
||||
visible smallint)
|
||||
as
|
||||
declare variable capitulo_actual integer;
|
||||
begin
|
||||
capitulo_actual = -1;
|
||||
@ -2957,8 +2754,109 @@ do
|
||||
else
|
||||
suspend;
|
||||
end
|
||||
end
|
||||
^
|
||||
end^
|
||||
|
||||
SET TERM ; ^
|
||||
|
||||
GRANT SELECT ON PRESUPUESTOS_CLIENTE_DETALLES TO PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS;
|
||||
GRANT SELECT ON ARTICULOS TO PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS;
|
||||
GRANT EXECUTE ON PROCEDURE PRO_PRES_CAPITULOS_CONCEPTOS TO "PUBLIC";
|
||||
|
||||
SET TERM ^ ;
|
||||
|
||||
CREATE PROCEDURE PRO_PRES_RESUMEN (
|
||||
aid integer)
|
||||
returns (
|
||||
id integer,
|
||||
id_presupuesto integer,
|
||||
posicion integer,
|
||||
tipo_detalle varchar(10),
|
||||
concepto varchar(2000),
|
||||
importe_total numeric(11,2),
|
||||
visible smallint)
|
||||
as
|
||||
declare variable num_capitulos integer;
|
||||
declare variable num_filas integer;
|
||||
declare variable contador integer;
|
||||
declare variable existe numeric(11,2);
|
||||
declare variable total_acumulado numeric(11,2);
|
||||
declare variable concepto_capitulo varchar(2000) character set iso8859_1;
|
||||
begin
|
||||
existe = 0;
|
||||
total_acumulado = 0.0;
|
||||
contador = 0;
|
||||
num_filas = 0;
|
||||
num_capitulos = 0;
|
||||
concepto_capitulo = '';
|
||||
|
||||
/* ¿Existe el presupuesto? */
|
||||
for select count(*)
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
into :num_filas
|
||||
do
|
||||
begin
|
||||
if (num_filas = 0) then
|
||||
suspend;
|
||||
end
|
||||
|
||||
/* Ver si hay conceptos al principio sin capitulos */
|
||||
for select id, id_presupuesto, posicion, tipo_detalle
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
rows 1
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE
|
||||
do
|
||||
begin
|
||||
if (TIPO_DETALLE = 'Concepto') then
|
||||
EXISTE = 1;
|
||||
end
|
||||
|
||||
if (existe = 1) then
|
||||
begin
|
||||
contador = 0;
|
||||
/* Existen conceptos sin capitulo */
|
||||
for select tipo_detalle, importe_total, coalesce(visible, 1)
|
||||
from presupuestos_cliente_detalles
|
||||
where id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
into :TIPO_DETALLE, :IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
begin
|
||||
contador = contador + 1;
|
||||
if ((tipo_detalle <> 'Concepto') or (contador = num_filas)) then
|
||||
begin
|
||||
importe_total = total_acumulado;
|
||||
tipo_detalle = 'Titulo';
|
||||
concepto = 'General';
|
||||
visible = 1;
|
||||
ID = -1;
|
||||
posicion = -1;
|
||||
suspend;
|
||||
break;
|
||||
end
|
||||
else begin
|
||||
if (visible <> 0) then
|
||||
total_acumulado = total_acumulado + importe_total;
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
|
||||
SET TERM ; ^
|
||||
/* Tratar el resto de las filas */
|
||||
for select id, id_presupuesto, posicion, tipo_detalle, F_RTFTOTEXT(concepto) as concepto,
|
||||
importe_total, coalesce(visible, 1)
|
||||
from presupuestos_cliente_detalles
|
||||
where tipo_detalle = 'Subtotal' and id_presupuesto = :AID
|
||||
order by id_presupuesto, posicion
|
||||
into :ID, :ID_PRESUPUESTO, :POSICION, :TIPO_DETALLE, :CONCEPTO,
|
||||
:IMPORTE_TOTAL, :VISIBLE
|
||||
do
|
||||
suspend;
|
||||
end^
|
||||
|
||||
SET TERM ; ^
|
||||
|
||||
GRANT SELECT ON PRESUPUESTOS_CLIENTE_DETALLES TO PROCEDURE PRO_PRES_RESUMEN;
|
||||
GRANT EXECUTE ON PROCEDURE PRO_PRES_RESUMEN TO "PUBLIC";
|
||||
|
||||
@ -117,3 +117,8 @@ INSERT INTO UNIDADES_MEDIDA (ID, DESCRIPCION) VALUES (15, 'COCINA');
|
||||
INSERT INTO UNIDADES_MEDIDA (ID, DESCRIPCION) VALUES (16, 'ARMARIOS');
|
||||
SET GENERATOR GEN_UNIDADES_MEDIDA_ID TO 17;
|
||||
COMMIT WORK;
|
||||
|
||||
|
||||
INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL, IVA) VALUES (1, 'B81747396', 'TECSITEL S.L.', 'TECSITEL S.L.', 'C\ Buendía, 25', 'MADRID', 'MADRID', '28053', '91-507-56-92 / 63', NULL, NULL, NULL, '91-785-96-35', 'tecsitel@tecsitel.com', NULL, 'www.tecsitel.com', '2008-01-14 11:53:52', NULL, 'Administrador', 'Insc. en el Reg. Merc. de Madrid, Tomo 12.291, Libro 0, Folio 131, Sección 8, Hoja M-194886 CIF: B81747396', NULL);
|
||||
SET GENERATOR GEN_EMPRESAS_ID TO 2;
|
||||
COMMIT WORK;
|
||||
|
||||
@ -44,8 +44,6 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">True</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
|
||||
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">Base.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
@ -55,57 +53,57 @@
|
||||
<DelphiCompile Include="Base.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxGridD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
|
||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
@ -15,8 +15,7 @@ BEGIN
|
||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||
VALUE "FileVersion", "1.0.0.0\0"
|
||||
VALUE "InternalName", "FactuGES\0"
|
||||
VALUE "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "2.1.4\0"
|
||||
VALUE "ProductVersion", "1.0.0.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
@ -58,22 +58,22 @@
|
||||
<DelphiCompile Include="GUIBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Base.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dxBarD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dxBarExtItemsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dxLayoutControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dxPScxCommonD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dxPScxGrid6LnkD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dxPsPrVwAdvD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\frx11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\frxe11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\fs11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvAppFrmD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
|
||||
<DCCReference Include="uDialogBase.pas">
|
||||
<Form>fDialogBase</Form>
|
||||
</DCCReference>
|
||||
|
||||
@ -577,6 +577,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Name = 'FECHA_ALBARAN'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
Value = ''
|
||||
@ -700,22 +704,22 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
TargetTable = 'ALBARANES_CLIENTE'
|
||||
SQL =
|
||||
'INSERT'#10' INTO ALBARANES_CLIENTE'#10' (ID, ID_EMPRESA, ID_CLIENTE,' +
|
||||
' FECHA_ALBARAN, REFERENCIA,'#10' REFERENCIA_CLIENTE, ID_ALMACEN,' +
|
||||
' ID_PEDIDO, ID_FACTURA, CALLE,'#10' CODIGO_POSTAL, POBLACION, PR' +
|
||||
'OVINCIA, PERSONA_CONTACTO, '#10' TELEFONO, IMPORTE_NETO, IMPORTE' +
|
||||
'_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE, IVA,' +
|
||||
' IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10' INCIDENCIAS, I' +
|
||||
'NCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFICACION, '#10' USUARI' +
|
||||
'O, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA_ENVIO, '#10' FECHA' +
|
||||
'_RECEPCION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :FECHA_' +
|
||||
'ALBARAN, :REFERENCIA,'#10' :REFERENCIA_CLIENTE, :ID_ALMACEN, :ID' +
|
||||
'_PEDIDO, :ID_FACTURA, :CALLE,'#10' :CODIGO_POSTAL, :POBLACION, :' +
|
||||
'PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :IMPORTE_NETO, :IM' +
|
||||
'PORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :BASE_IMPONIBL' +
|
||||
'E, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACIONES,'#10' :INC' +
|
||||
'IDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA_MODIFICACION' +
|
||||
','#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_ENVIO, :FECHA_E' +
|
||||
'NVIO, :FECHA_RECEPCION)'#10' '#10' '#10#10
|
||||
' FECHA_ALBARAN, TIPO, REFERENCIA,'#10' REFERENCIA_CLIENTE, ID_AL' +
|
||||
'MACEN, ID_PEDIDO, ID_FACTURA, CALLE,'#10' CODIGO_POSTAL, POBLACI' +
|
||||
'ON, PROVINCIA, PERSONA_CONTACTO, '#10' TELEFONO, IMPORTE_NETO, I' +
|
||||
'MPORTE_PORTE, DESCUENTO, IMPORTE_DESCUENTO, '#10' BASE_IMPONIBLE' +
|
||||
', IVA, IMPORTE_IVA, IMPORTE_TOTAL, OBSERVACIONES, '#10' INCIDENC' +
|
||||
'IAS, INCIDENCIAS_ACTIVAS, FECHA_ALTA, FECHA_MODIFICACION, '#10' ' +
|
||||
'USUARIO, ID_FORMA_PAGO, FECHA_PREVISTA_ENVIO, FECHA_ENVIO, '#10' ' +
|
||||
' FECHA_RECEPCION)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CLIENTE, :' +
|
||||
'FECHA_ALBARAN, :TIPO, :REFERENCIA,'#10' :REFERENCIA_CLIENTE, :ID' +
|
||||
'_ALMACEN, :ID_PEDIDO, :ID_FACTURA, :CALLE,'#10' :CODIGO_POSTAL, ' +
|
||||
':POBLACION, :PROVINCIA, :PERSONA_CONTACTO,'#10' :TELEFONO, :IMPO' +
|
||||
'RTE_NETO, :IMPORTE_PORTE, :DESCUENTO, :IMPORTE_DESCUENTO,'#10' :' +
|
||||
'BASE_IMPONIBLE, :IVA, :IMPORTE_IVA, :IMPORTE_TOTAL, :OBSERVACION' +
|
||||
'ES,'#10' :INCIDENCIAS, :INCIDENCIAS_ACTIVAS, :FECHA_ALTA, :FECHA' +
|
||||
'_MODIFICACION,'#10' :USUARIO, :ID_FORMA_PAGO, :FECHA_PREVISTA_EN' +
|
||||
'VIO, :FECHA_ENVIO, :FECHA_RECEPCION)'#10' '#10' '#10#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -740,10 +744,6 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
end
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
Value = ''
|
||||
@ -756,6 +756,10 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Name = 'FECHA_ALBARAN'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'TIPO'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'REFERENCIA'
|
||||
Value = ''
|
||||
@ -882,25 +886,25 @@ object srvAlbaranesCliente: TsrvAlbaranesCliente
|
||||
Default = True
|
||||
TargetTable = 'ALBARANES_CLIENTE'
|
||||
SQL =
|
||||
'UPDATE ALBARANES_CLIENTE'#10' SET '#10' ID = :ID,'#10' ID_EMPRESA = :' +
|
||||
'ID_EMPRESA, '#10' ID_CLIENTE = :ID_CLIENTE, '#10' FECHA_ALBARAN = ' +
|
||||
':FECHA_ALBARAN,'#10' REFERENCIA = :REFERENCIA, '#10' REFERENCIA_CL' +
|
||||
'IENTE = :REFERENCIA_CLIENTE, '#10' ID_ALMACEN = :ID_ALMACEN,'#10' ' +
|
||||
'ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' CALLE ' +
|
||||
'= :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' POBLACION = :' +
|
||||
'POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' PERSONA_CONTACTO = ' +
|
||||
':PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' IMPORTE_NETO ' +
|
||||
'= :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DESCU' +
|
||||
'ENTO = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENTO, ' +
|
||||
#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' IMP' +
|
||||
'ORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL, '#10' ' +
|
||||
' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCIDENCI' +
|
||||
'AS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FECHA_' +
|
||||
'ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACIO' +
|
||||
'N, '#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PAGO,' +
|
||||
' '#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO, '#10' FECHA_E' +
|
||||
'NVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION'#10' W' +
|
||||
'HERE'#10' (ID = :OLD_ID)'#10
|
||||
'UPDATE ALBARANES_CLIENTE'#10' SET '#10' ID_EMPRESA = :ID_EMPRESA,'#10' ' +
|
||||
' ID_CLIENTE = :ID_CLIENTE, '#10' FECHA_ALBARAN = :FECHA_ALBARAN,' +
|
||||
#10' TIPO = :TIPO,'#10' REFERENCIA = :REFERENCIA, '#10' REFERENCIA' +
|
||||
'_CLIENTE = :REFERENCIA_CLIENTE, '#10' ID_ALMACEN = :ID_ALMACEN,'#10' ' +
|
||||
' ID_PEDIDO = :ID_PEDIDO,'#10' ID_FACTURA = :ID_FACTURA,'#10' CAL' +
|
||||
'LE = :CALLE,'#10' CODIGO_POSTAL = :CODIGO_POSTAL, '#10' POBLACION ' +
|
||||
'= :POBLACION, '#10' PROVINCIA = :PROVINCIA, '#10' PERSONA_CONTACTO' +
|
||||
' = :PERSONA_CONTACTO, '#10' TELEFONO = :TELEFONO, '#10' IMPORTE_NE' +
|
||||
'TO = :IMPORTE_NETO, '#10' IMPORTE_PORTE = :IMPORTE_PORTE, '#10' DE' +
|
||||
'SCUENTO = :DESCUENTO, '#10' IMPORTE_DESCUENTO = :IMPORTE_DESCUENT' +
|
||||
'O, '#10' BASE_IMPONIBLE = :BASE_IMPONIBLE, '#10' IVA = :IVA, '#10' ' +
|
||||
'IMPORTE_IVA = :IMPORTE_IVA, '#10' IMPORTE_TOTAL = :IMPORTE_TOTAL,' +
|
||||
' '#10' OBSERVACIONES = :OBSERVACIONES, '#10' INCIDENCIAS = :INCIDE' +
|
||||
'NCIAS, '#10' INCIDENCIAS_ACTIVAS = :INCIDENCIAS_ACTIVAS, '#10' FEC' +
|
||||
'HA_ALTA = :FECHA_ALTA, '#10' FECHA_MODIFICACION = :FECHA_MODIFICA' +
|
||||
'CION, '#10' USUARIO = :USUARIO, '#10' ID_FORMA_PAGO = :ID_FORMA_PA' +
|
||||
'GO, '#10' FECHA_PREVISTA_ENVIO = :FECHA_PREVISTA_ENVIO, '#10' FECH' +
|
||||
'A_ENVIO = :FECHA_ENVIO, '#10' FECHA_RECEPCION = :FECHA_RECEPCION'#10 +
|
||||
' WHERE'#10' (ID = :OLD_ID)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
|
||||
@ -473,11 +473,20 @@ inherited DataModuleClientes: TDataModuleClientes
|
||||
object tbl_GruposCliente: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CLIENTES_GRUPOS_ID'
|
||||
Required = True
|
||||
DictionaryEntry = 'GruposCliente_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Descripci'#195#179'n'
|
||||
DisplayLabel = 'Descripci'#243'n'
|
||||
DictionaryEntry = 'GruposCliente_DESCRIPCION'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -386,11 +386,20 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
|
||||
object tbl_GruposEmpleado: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_EMPLEADOS_GRUPOS_ID'
|
||||
Required = True
|
||||
DictionaryEntry = 'GruposEmpleado_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Descripci'#195#179'n'
|
||||
DisplayLabel = 'Descripci'#243'n'
|
||||
DictionaryEntry = 'GruposEmpleado_DESCRIPCION'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -13,11 +13,20 @@ inherited DataModuleProveedores: TDataModuleProveedores
|
||||
object tbl_GruposProveedor: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PROVEEDORES_GRUPOS_ID'
|
||||
Required = True
|
||||
DictionaryEntry = 'GruposProveedor_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Descripci'#195#179'n'
|
||||
DisplayLabel = 'Descripci'#243'n'
|
||||
DictionaryEntry = 'GruposProveedor_DESCRIPCION'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
|
||||
@ -50,17 +50,16 @@
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Utiles\uRegimenIVAUtils.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleClientes.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleContactos.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleEmpleados.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleEtiquetasContactosReport.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleFichasEmpleadoReport.pas" />
|
||||
<DCCReference Include="Data\uIDataModuleProveedores.pas" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="uBizClientesDescuentos.pas" />
|
||||
@ -70,11 +69,12 @@
|
||||
<DCCReference Include="uBizGruposCliente.pas" />
|
||||
<DCCReference Include="uBizGruposEmpleado.pas" />
|
||||
<DCCReference Include="uBizGruposProveedor.pas" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
|
||||
@ -9,17 +9,17 @@ const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Contactos = '{F0F9D3C9-E172-4D98-8BEA-17A208B81ACF}';
|
||||
RID_GruposCliente = '{2766FEF7-E91D-4D20-B91A-BF62CD52718B}';
|
||||
RID_DatosBancarios = '{092DF3B2-DF58-4938-9C03-4AFBDE4C21B9}';
|
||||
RID_Clientes = '{3F704A25-87C5-4703-A36E-F43F35015E87}';
|
||||
RID_Proveedores = '{73F3AD79-2DDE-4EAB-BAB0-E07521564344}';
|
||||
RID_Empleados = '{743452C9-C22F-4046-B7B2-5CABC0560120}';
|
||||
RID_DireccionesContacto = '{8A4FC8D1-7B4C-4AB4-8D88-435D399FF11A}';
|
||||
RID_ClientesDescuentos = '{90395716-B88F-4D46-B90F-9EEAACB04FDA}';
|
||||
RID_GruposProveedor = '{575567BD-E019-4A94-9825-D95AACBA47D0}';
|
||||
RID_GruposEmpleado = '{4F6588DD-9088-4CC3-98D9-7BB02932AA89}';
|
||||
RID_Contactos_Refresh = '{98DB65B8-84D8-4031-A653-528C0AE76035}';
|
||||
RID_Contactos = '{7524FEA7-AF23-402A-9D0A-C8F52F2F1691}';
|
||||
RID_GruposCliente = '{10355BC9-5839-4157-8F51-00D07038D882}';
|
||||
RID_DatosBancarios = '{C1985CC5-5CD0-41F9-819F-4AC322A2F77C}';
|
||||
RID_Clientes = '{7E12D27F-34D5-4D41-913A-AEA7FA728520}';
|
||||
RID_Proveedores = '{361673C9-4F57-45B7-A5B5-5A0F43AF4838}';
|
||||
RID_Empleados = '{E297A33A-3992-4967-8553-0D6ECE9ACFFB}';
|
||||
RID_DireccionesContacto = '{AC2ACC8D-6088-4FF5-9D48-B2905CAB07A4}';
|
||||
RID_ClientesDescuentos = '{CEF21127-4B3B-4ED3-A93D-C465AA1D76C1}';
|
||||
RID_GruposProveedor = '{65C4B656-1AD2-47AF-8C74-5116816CE478}';
|
||||
RID_GruposEmpleado = '{095BF882-6940-4735-BC33-4EFDEA0C1C32}';
|
||||
RID_Contactos_Refresh = '{E99C788D-3782-40C5-B417-30DA01830B78}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Contactos = 'Contactos';
|
||||
@ -85,10 +85,12 @@ const
|
||||
idx_ContactosREFERENCIA = 22;
|
||||
|
||||
{ GruposCliente fields }
|
||||
fld_GruposClienteID = 'ID';
|
||||
fld_GruposClienteDESCRIPCION = 'DESCRIPCION';
|
||||
|
||||
{ GruposCliente field indexes }
|
||||
idx_GruposClienteDESCRIPCION = 0;
|
||||
idx_GruposClienteID = 0;
|
||||
idx_GruposClienteDESCRIPCION = 1;
|
||||
|
||||
{ DatosBancarios fields }
|
||||
fld_DatosBancariosID = 'ID';
|
||||
@ -369,16 +371,20 @@ const
|
||||
idx_ClientesDescuentosDESCUENTO = 4;
|
||||
|
||||
{ GruposProveedor fields }
|
||||
fld_GruposProveedorID = 'ID';
|
||||
fld_GruposProveedorDESCRIPCION = 'DESCRIPCION';
|
||||
|
||||
{ GruposProveedor field indexes }
|
||||
idx_GruposProveedorDESCRIPCION = 0;
|
||||
idx_GruposProveedorID = 0;
|
||||
idx_GruposProveedorDESCRIPCION = 1;
|
||||
|
||||
{ GruposEmpleado fields }
|
||||
fld_GruposEmpleadoID = 'ID';
|
||||
fld_GruposEmpleadoDESCRIPCION = 'DESCRIPCION';
|
||||
|
||||
{ GruposEmpleado field indexes }
|
||||
idx_GruposEmpleadoDESCRIPCION = 0;
|
||||
idx_GruposEmpleadoID = 0;
|
||||
idx_GruposEmpleadoDESCRIPCION = 1;
|
||||
|
||||
{ Contactos_Refresh fields }
|
||||
fld_Contactos_RefreshID = 'ID';
|
||||
@ -429,7 +435,7 @@ const
|
||||
type
|
||||
{ IContactos }
|
||||
IContactos = interface(IDAStronglyTypedDataTable)
|
||||
['{6A311707-BFBF-4A2D-8B23-A1854122C104}']
|
||||
['{FFBE8E82-6FA0-4AB4-B1EE-831FB40CF062}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -728,8 +734,12 @@ type
|
||||
|
||||
{ IGruposCliente }
|
||||
IGruposCliente = interface(IDAStronglyTypedDataTable)
|
||||
['{9CAF03A2-A4F1-4258-B816-6F6F3DD28A5C}']
|
||||
['{B5728E65-DE70-4759-8867-C4E262DEDBAF}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
function GetIDIsNull: Boolean;
|
||||
procedure SetIDIsNull(const aValue: Boolean);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
function GetDESCRIPCIONIsNull: Boolean;
|
||||
@ -737,6 +747,8 @@ type
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
end;
|
||||
@ -746,12 +758,18 @@ type
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
|
||||
@ -763,7 +781,7 @@ type
|
||||
|
||||
{ IDatosBancarios }
|
||||
IDatosBancarios = interface(IDAStronglyTypedDataTable)
|
||||
['{203B76FC-022A-40EE-9D0F-D349854569B2}']
|
||||
['{9319C424-5D7A-4BD1-91D2-9422AFA7AAAE}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -894,7 +912,7 @@ type
|
||||
|
||||
{ IClientes }
|
||||
IClientes = interface(IDAStronglyTypedDataTable)
|
||||
['{F556CA82-15D1-4B12-872D-FA8DDC4D3D1F}']
|
||||
['{08955625-F550-4894-AF03-D4D193A50412}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1325,7 +1343,7 @@ type
|
||||
|
||||
{ IProveedores }
|
||||
IProveedores = interface(IDAStronglyTypedDataTable)
|
||||
['{E78B6920-EA8B-4272-A882-09272EE52570}']
|
||||
['{0EF80197-36C1-48E5-997D-BA1D4D5C16EF}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -1744,7 +1762,7 @@ type
|
||||
|
||||
{ IEmpleados }
|
||||
IEmpleados = interface(IDAStronglyTypedDataTable)
|
||||
['{163A8B9E-63AC-4F3A-940F-B88797257D87}']
|
||||
['{AC8E7491-3335-46A9-9805-AA0FD4F96E7D}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2127,7 +2145,7 @@ type
|
||||
|
||||
{ IDireccionesContacto }
|
||||
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
|
||||
['{B502F150-DACD-4279-B98F-FD8A8697087E}']
|
||||
['{609D235F-9C3A-4FFE-99B1-C0F93382B1EA}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2342,7 +2360,7 @@ type
|
||||
|
||||
{ IClientesDescuentos }
|
||||
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
|
||||
['{460B58FD-1B6D-4262-B98F-CB39420DA154}']
|
||||
['{A8A45324-25C9-452D-AAF5-CA874C78432A}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -2425,8 +2443,12 @@ type
|
||||
|
||||
{ IGruposProveedor }
|
||||
IGruposProveedor = interface(IDAStronglyTypedDataTable)
|
||||
['{2D44AEBA-C652-43E1-B930-414C6BCE4EBD}']
|
||||
['{A2CBFCE6-7B26-4628-8D60-469C83943691}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
function GetIDIsNull: Boolean;
|
||||
procedure SetIDIsNull(const aValue: Boolean);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
function GetDESCRIPCIONIsNull: Boolean;
|
||||
@ -2434,6 +2456,8 @@ type
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
end;
|
||||
@ -2443,12 +2467,18 @@ type
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
|
||||
@ -2460,8 +2490,12 @@ type
|
||||
|
||||
{ IGruposEmpleado }
|
||||
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
|
||||
['{4E36DEE5-8851-466F-835C-EE1AD7C9DEF6}']
|
||||
['{783248AC-A697-4225-942B-69C71017C8DB}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
function GetIDIsNull: Boolean;
|
||||
procedure SetIDIsNull(const aValue: Boolean);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
function GetDESCRIPCIONIsNull: Boolean;
|
||||
@ -2469,6 +2503,8 @@ type
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
end;
|
||||
@ -2478,12 +2514,18 @@ type
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
|
||||
@ -2495,7 +2537,7 @@ type
|
||||
|
||||
{ IContactos_Refresh }
|
||||
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
|
||||
['{48624E43-02C5-408B-8BCE-41C7B43B3DE0}']
|
||||
['{3EE4EBBE-A457-4693-9045-62A567A27318}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
@ -3285,6 +3327,27 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TGruposClienteDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_GruposClienteID].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TGruposClienteDataTableRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_GruposClienteID].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TGruposClienteDataTableRules.GetIDIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_GruposClienteID].IsNull;
|
||||
end;
|
||||
|
||||
procedure TGruposClienteDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_GruposClienteID].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TGruposClienteDataTableRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_GruposClienteDESCRIPCION].AsString;
|
||||
@ -6105,6 +6168,27 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TGruposProveedorDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_GruposProveedorID].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TGruposProveedorDataTableRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_GruposProveedorID].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TGruposProveedorDataTableRules.GetIDIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_GruposProveedorID].IsNull;
|
||||
end;
|
||||
|
||||
procedure TGruposProveedorDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_GruposProveedorID].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TGruposProveedorDataTableRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_GruposProveedorDESCRIPCION].AsString;
|
||||
@ -6138,6 +6222,27 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TGruposEmpleadoDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_GruposEmpleadoID].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TGruposEmpleadoDataTableRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_GruposEmpleadoID].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TGruposEmpleadoDataTableRules.GetIDIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_GruposEmpleadoID].IsNull;
|
||||
end;
|
||||
|
||||
procedure TGruposEmpleadoDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_GruposEmpleadoID].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TGruposEmpleadoDataTableRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_GruposEmpleadoDESCRIPCION].AsString;
|
||||
|
||||
@ -9,22 +9,22 @@ const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_ContactosDelta = '{FFB9CD4C-90FA-40DB-B07C-C6C18831EC43}';
|
||||
RID_GruposClienteDelta = '{32C23F16-1B66-4EB6-9F50-F3E65E65BC0D}';
|
||||
RID_DatosBancariosDelta = '{17A3AD70-D8D9-4075-A99E-4B627BB8C3A3}';
|
||||
RID_ClientesDelta = '{AD8AB540-D8AD-4B64-9208-F11CBD8CD7FC}';
|
||||
RID_ProveedoresDelta = '{4F0CEB42-998A-46BC-91ED-8BF3BA828F3A}';
|
||||
RID_EmpleadosDelta = '{8DC6D05D-7FB8-4433-8FE1-B6E9A79592D6}';
|
||||
RID_DireccionesContactoDelta = '{EF8CED74-9CBE-4A6A-8712-3BFD15E1E1E9}';
|
||||
RID_ClientesDescuentosDelta = '{08E01C92-CB8F-4342-A8A8-97CF6E52E6BF}';
|
||||
RID_GruposProveedorDelta = '{D54FF769-D25B-4923-88CC-9585CBA3D60F}';
|
||||
RID_GruposEmpleadoDelta = '{DE8A4095-7B5A-4351-A924-641C7C8AE938}';
|
||||
RID_Contactos_RefreshDelta = '{00F38C32-1DA2-438A-8AB4-5E1832EEA83F}';
|
||||
RID_ContactosDelta = '{E61E8DAA-56D6-4EAE-87EA-49D277119D7C}';
|
||||
RID_GruposClienteDelta = '{0AE5F9C7-48C6-4925-8691-A17CC4505DBE}';
|
||||
RID_DatosBancariosDelta = '{F64C6E33-2972-4179-9B5D-DC3254359D9C}';
|
||||
RID_ClientesDelta = '{A162BB3F-80E6-4200-99AD-45692DC0A5F0}';
|
||||
RID_ProveedoresDelta = '{AF4315C9-BD9B-49E1-99CF-EFEB66CBC78B}';
|
||||
RID_EmpleadosDelta = '{2592ABD9-DC9D-4CD5-8850-BD4AE48BB5CE}';
|
||||
RID_DireccionesContactoDelta = '{31DBDD24-7EC4-40BE-955C-574291D8C0AB}';
|
||||
RID_ClientesDescuentosDelta = '{667FD725-9E84-4E90-8FF2-F5B332BDC83B}';
|
||||
RID_GruposProveedorDelta = '{4FDC02ED-4392-4BA6-9B79-4F478026AE0A}';
|
||||
RID_GruposEmpleadoDelta = '{8E4B32D4-1504-4A57-B33F-52BAD72056F2}';
|
||||
RID_Contactos_RefreshDelta = '{91609D22-D09E-4BE3-9852-569E468C2A21}';
|
||||
|
||||
type
|
||||
{ IContactosDelta }
|
||||
IContactosDelta = interface(IContactos)
|
||||
['{FFB9CD4C-90FA-40DB-B07C-C6C18831EC43}']
|
||||
['{E61E8DAA-56D6-4EAE-87EA-49D277119D7C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -323,11 +323,13 @@ type
|
||||
|
||||
{ IGruposClienteDelta }
|
||||
IGruposClienteDelta = interface(IGruposCliente)
|
||||
['{32C23F16-1B66-4EB6-9F50-F3E65E65BC0D}']
|
||||
['{0AE5F9C7-48C6-4925-8691-A17CC4505DBE}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
end;
|
||||
|
||||
@ -336,6 +338,12 @@ type
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
function GetOldIDValue: Integer; virtual;
|
||||
function GetOldIDIsNull: Boolean; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
function GetOldDESCRIPCIONValue: String; virtual;
|
||||
@ -344,6 +352,10 @@ type
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
||||
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
@ -357,7 +369,7 @@ type
|
||||
|
||||
{ IDatosBancariosDelta }
|
||||
IDatosBancariosDelta = interface(IDatosBancarios)
|
||||
['{17A3AD70-D8D9-4075-A99E-4B627BB8C3A3}']
|
||||
['{F64C6E33-2972-4179-9B5D-DC3254359D9C}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -487,7 +499,7 @@ type
|
||||
|
||||
{ IClientesDelta }
|
||||
IClientesDelta = interface(IClientes)
|
||||
['{AD8AB540-D8AD-4B64-9208-F11CBD8CD7FC}']
|
||||
['{A162BB3F-80E6-4200-99AD-45692DC0A5F0}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -918,7 +930,7 @@ type
|
||||
|
||||
{ IProveedoresDelta }
|
||||
IProveedoresDelta = interface(IProveedores)
|
||||
['{4F0CEB42-998A-46BC-91ED-8BF3BA828F3A}']
|
||||
['{AF4315C9-BD9B-49E1-99CF-EFEB66CBC78B}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1337,7 +1349,7 @@ type
|
||||
|
||||
{ IEmpleadosDelta }
|
||||
IEmpleadosDelta = interface(IEmpleados)
|
||||
['{8DC6D05D-7FB8-4433-8FE1-B6E9A79592D6}']
|
||||
['{2592ABD9-DC9D-4CD5-8850-BD4AE48BB5CE}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CATEGORIAValue : Integer;
|
||||
@ -1724,7 +1736,7 @@ type
|
||||
|
||||
{ IDireccionesContactoDelta }
|
||||
IDireccionesContactoDelta = interface(IDireccionesContacto)
|
||||
['{EF8CED74-9CBE-4A6A-8712-3BFD15E1E1E9}']
|
||||
['{31DBDD24-7EC4-40BE-955C-574291D8C0AB}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CONTACTOValue : Integer;
|
||||
@ -1939,7 +1951,7 @@ type
|
||||
|
||||
{ IClientesDescuentosDelta }
|
||||
IClientesDescuentosDelta = interface(IClientesDescuentos)
|
||||
['{08E01C92-CB8F-4342-A8A8-97CF6E52E6BF}']
|
||||
['{667FD725-9E84-4E90-8FF2-F5B332BDC83B}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldID_CLIENTEValue : Integer;
|
||||
@ -2021,11 +2033,13 @@ type
|
||||
|
||||
{ IGruposProveedorDelta }
|
||||
IGruposProveedorDelta = interface(IGruposProveedor)
|
||||
['{D54FF769-D25B-4923-88CC-9585CBA3D60F}']
|
||||
['{4FDC02ED-4392-4BA6-9B79-4F478026AE0A}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
end;
|
||||
|
||||
@ -2034,6 +2048,12 @@ type
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
function GetOldIDValue: Integer; virtual;
|
||||
function GetOldIDIsNull: Boolean; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
function GetOldDESCRIPCIONValue: String; virtual;
|
||||
@ -2042,6 +2062,10 @@ type
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
||||
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
@ -2055,11 +2079,13 @@ type
|
||||
|
||||
{ IGruposEmpleadoDelta }
|
||||
IGruposEmpleadoDelta = interface(IGruposEmpleado)
|
||||
['{DE8A4095-7B5A-4351-A924-641C7C8AE938}']
|
||||
['{8E4B32D4-1504-4A57-B33F-52BAD72056F2}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
end;
|
||||
|
||||
@ -2068,6 +2094,12 @@ type
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
function GetOldIDValue: Integer; virtual;
|
||||
function GetOldIDIsNull: Boolean; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
function GetOldDESCRIPCIONValue: String; virtual;
|
||||
@ -2076,6 +2108,10 @@ type
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
||||
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
@ -2089,7 +2125,7 @@ type
|
||||
|
||||
{ IContactos_RefreshDelta }
|
||||
IContactos_RefreshDelta = interface(IContactos_Refresh)
|
||||
['{00F38C32-1DA2-438A-8AB4-5E1832EEA83F}']
|
||||
['{91609D22-D09E-4BE3-9852-569E468C2A21}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldNIF_CIFValue : String;
|
||||
@ -3111,6 +3147,37 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TGruposClienteBusinessProcessorRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteID];
|
||||
end;
|
||||
|
||||
function TGruposClienteBusinessProcessorRules.GetIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteID]);
|
||||
end;
|
||||
|
||||
function TGruposClienteBusinessProcessorRules.GetOldIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteID];
|
||||
end;
|
||||
|
||||
function TGruposClienteBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposClienteID]);
|
||||
end;
|
||||
|
||||
procedure TGruposClienteBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteID] := aValue;
|
||||
end;
|
||||
|
||||
procedure TGruposClienteBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteID] := Null;
|
||||
end;
|
||||
|
||||
function TGruposClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposClienteDESCRIPCION];
|
||||
@ -7219,6 +7286,37 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TGruposProveedorBusinessProcessorRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorID];
|
||||
end;
|
||||
|
||||
function TGruposProveedorBusinessProcessorRules.GetIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorID]);
|
||||
end;
|
||||
|
||||
function TGruposProveedorBusinessProcessorRules.GetOldIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorID];
|
||||
end;
|
||||
|
||||
function TGruposProveedorBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposProveedorID]);
|
||||
end;
|
||||
|
||||
procedure TGruposProveedorBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorID] := aValue;
|
||||
end;
|
||||
|
||||
procedure TGruposProveedorBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorID] := Null;
|
||||
end;
|
||||
|
||||
function TGruposProveedorBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposProveedorDESCRIPCION];
|
||||
@ -7262,6 +7360,37 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TGruposEmpleadoBusinessProcessorRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoID];
|
||||
end;
|
||||
|
||||
function TGruposEmpleadoBusinessProcessorRules.GetIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoID]);
|
||||
end;
|
||||
|
||||
function TGruposEmpleadoBusinessProcessorRules.GetOldIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_GruposEmpleadoID];
|
||||
end;
|
||||
|
||||
function TGruposEmpleadoBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_GruposEmpleadoID]);
|
||||
end;
|
||||
|
||||
procedure TGruposEmpleadoBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoID] := aValue;
|
||||
end;
|
||||
|
||||
procedure TGruposEmpleadoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoID] := Null;
|
||||
end;
|
||||
|
||||
function TGruposEmpleadoBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_GruposEmpleadoDESCRIPCION];
|
||||
|
||||
@ -264,15 +264,26 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end>
|
||||
end>
|
||||
Name = 'GruposCliente'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CLIENTES_GRUPOS_ID'
|
||||
DictionaryEntry = 'GruposCliente_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Descripci'#243'n'
|
||||
DictionaryEntry = 'GruposCliente_DESCRIPCION'
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -1312,8 +1323,8 @@ object srvContactos: TsrvContactos
|
||||
Name = 'REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Referencia'
|
||||
ServerAutoRefresh = True
|
||||
DictionaryEntry = 'Agentes_REFERENCIA'
|
||||
end
|
||||
item
|
||||
Name = 'FECHA_NACIMIENTO'
|
||||
@ -1598,15 +1609,26 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end>
|
||||
end>
|
||||
Name = 'GruposProveedor'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PROVEEDORES_GRUPOS_ID'
|
||||
DictionaryEntry = 'GruposProveedor_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Descripci'#243'n'
|
||||
DictionaryEntry = 'GruposProveedor_DESCRIPCION'
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -1620,15 +1642,26 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end>
|
||||
end>
|
||||
Name = 'GruposEmpleado'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_EMPLEADOS_GRUPOS_ID'
|
||||
DictionaryEntry = 'GruposEmpleado_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Descripci'#243'n'
|
||||
DictionaryEntry = 'GruposEmpleado_DESCRIPCION'
|
||||
end>
|
||||
end
|
||||
item
|
||||
@ -2418,17 +2451,16 @@ object srvContactos: TsrvContactos
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'EMPRESAS_CONTACTOS'
|
||||
SQL =
|
||||
'INSERT INTO EMPRESAS_CONTACTOS'#10' (ID_EMPRESA, ID_CONTACTO)'#10#10'SE' +
|
||||
'LECT ID, :ID_CONTACTO'#10'FROM EMPRESAS'
|
||||
'INSERT INTO EMPRESAS_CONTACTOS'#10' (ID, ID_EMPRESA, ID_CONTACTO)' +
|
||||
#10#10'SELECT (SELECT GEN_ID(GEN_EMPRESAS_CONTACTOS_ID, 1) FROM RDB$D' +
|
||||
'ATABASE), EMPRESAS.ID, :ID_CONTACTO'#10'FROM EMPRESAS'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -3346,24 +3378,26 @@ object srvContactos: TsrvContactos
|
||||
item
|
||||
Params = <
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_EMPRESAS_CONTACTOS_ID'
|
||||
Value = ''
|
||||
end
|
||||
item
|
||||
Name = 'ID_EMPRESA'
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end
|
||||
item
|
||||
Name = 'ID_CONTACTO'
|
||||
DataType = datInteger
|
||||
Value = ''
|
||||
ParamType = daptInput
|
||||
end>
|
||||
Statements = <
|
||||
item
|
||||
Connection = 'IBX'
|
||||
TargetTable = 'EMPRESAS_CONTACTOS'
|
||||
SQL =
|
||||
'INSERT'#10' INTO EMPRESAS_CONTACTOS'#10' (ID_EMPRESA, ID_CONTACTO)'#10' ' +
|
||||
' VALUES'#10' (:ID_EMPRESA, :ID_CONTACTO)'
|
||||
'INSERT'#10' INTO EMPRESAS_CONTACTOS'#10' (ID, ID_EMPRESA, ID_CONTACT' +
|
||||
'O)'#10' VALUES'#10' (:ID, :ID_EMPRESA, :ID_CONTACTO)'#10
|
||||
StatementType = stSQL
|
||||
ColumnMappings = <>
|
||||
end>
|
||||
@ -3895,30 +3929,6 @@ object srvContactos: TsrvContactos
|
||||
Size = 255
|
||||
DisplayLabel = 'Referencia'
|
||||
end
|
||||
item
|
||||
Name = 'Agentes_REFERENCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Referencia'
|
||||
end
|
||||
item
|
||||
Name = 'AgentesComisiones_ID'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'AgentesComisiones_ID_AGENTE'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'AgentesComisiones_ID_PROVEEDOR'
|
||||
DataType = datInteger
|
||||
end
|
||||
item
|
||||
Name = 'AgentesComisiones_COMISION'
|
||||
DataType = datFloat
|
||||
DisplayLabel = 'Comisi'#243'n (%)'
|
||||
Alignment = taRightJustify
|
||||
end
|
||||
item
|
||||
Name = 'ClientesDescuentos_ID'
|
||||
DataType = datAutoInc
|
||||
@ -4106,6 +4116,45 @@ object srvContactos: TsrvContactos
|
||||
Size = 255
|
||||
Required = True
|
||||
DisplayLabel = 'Nombre'
|
||||
end
|
||||
item
|
||||
Name = 'GruposCliente_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_CLIENTES_GRUPOS_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
end
|
||||
item
|
||||
Name = 'GruposCliente_DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Descripci'#243'n'
|
||||
end
|
||||
item
|
||||
Name = 'GruposEmpleado_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_EMPLEADOS_GRUPOS_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
end
|
||||
item
|
||||
Name = 'GruposEmpleado_DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Descripci'#243'n'
|
||||
end
|
||||
item
|
||||
Name = 'GruposProveedor_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_PROVEEDORES_GRUPOS_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
end
|
||||
item
|
||||
Name = 'GruposProveedor_DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Descripci'#243'n'
|
||||
end>
|
||||
Left = 126
|
||||
Top = 14
|
||||
|
||||
@ -16,7 +16,6 @@ inherited frViewClientes: TfrViewClientes
|
||||
Column = cxGridViewNIF_CIF
|
||||
end>
|
||||
inherited cxGridViewICONO: TcxGridDBColumn
|
||||
OnGetCellHint = cxGridViewICONOGetCellHint
|
||||
BestFitMaxWidth = 22
|
||||
MinWidth = 22
|
||||
Options.HorzSizing = False
|
||||
@ -67,6 +66,10 @@ inherited frViewClientes: TfrViewClientes
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 793
|
||||
ExplicitWidth = 793
|
||||
inherited txtFiltroTodo: TcxTextEdit
|
||||
ExplicitWidth = 273
|
||||
Width = 273
|
||||
end
|
||||
inherited edtFechaFinFiltro: TcxDateEdit
|
||||
Left = 335
|
||||
ExplicitLeft = 335
|
||||
|
||||
@ -26,10 +26,20 @@ inherited DataModuleFamilias: TDataModuleFamilias
|
||||
object tbl_Familias: TDAMemDataTable
|
||||
RemoteUpdatesOptions = []
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_EMPRESAS_ID'
|
||||
Required = True
|
||||
DictionaryEntry = 'Familias_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Descripci'#243'n'
|
||||
DictionaryEntry = 'Familias_DESCRIPCION'
|
||||
end>
|
||||
Params = <>
|
||||
StreamingOptions = [soDisableEventsWhileStreaming]
|
||||
@ -37,6 +47,7 @@ inherited DataModuleFamilias: TDataModuleFamilias
|
||||
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
|
||||
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
|
||||
LogicalName = 'Familias'
|
||||
IndexDefs = <>
|
||||
Left = 280
|
||||
Top = 24
|
||||
end
|
||||
|
||||
@ -7,6 +7,7 @@
|
||||
<Projects Include="..\..\ApplicationBase\ApplicationBase.dproj" />
|
||||
<Projects Include="..\..\Base\Base.dproj" />
|
||||
<Projects Include="..\..\GUIBase\GUIBase.dproj" />
|
||||
<Projects Include="..\..\Servidor\FactuGES_Server.dproj" />
|
||||
<Projects Include="Controller\Familias_controller.dproj" />
|
||||
<Projects Include="Data\Familias_data.dproj" />
|
||||
<Projects Include="Model\Familias_model.dproj" />
|
||||
@ -91,14 +92,23 @@
|
||||
<Target Name="Familias_plugin:Make">
|
||||
<MSBuild Projects="Plugin\Familias_plugin.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="FactuGES_Server">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="FactuGES_Server:Clean">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="FactuGES_Server:Make">
|
||||
<MSBuild Projects="..\..\Servidor\FactuGES_Server.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Familias_model;Familias_data;Familias_controller;Familias_view;Familias_plugin" />
|
||||
<CallTarget Targets="Base;GUIBase;ApplicationBase;Familias_model;Familias_data;Familias_controller;Familias_view;Familias_plugin;FactuGES_Server" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Familias_model:Clean;Familias_data:Clean;Familias_controller:Clean;Familias_view:Clean;Familias_plugin:Clean" />
|
||||
<CallTarget Targets="Base:Clean;GUIBase:Clean;ApplicationBase:Clean;Familias_model:Clean;Familias_data:Clean;Familias_controller:Clean;Familias_view:Clean;Familias_plugin:Clean;FactuGES_Server:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Familias_model:Make;Familias_data:Make;Familias_controller:Make;Familias_view:Make;Familias_plugin:Make" />
|
||||
<CallTarget Targets="Base:Make;GUIBase:Make;ApplicationBase:Make;Familias_model:Make;Familias_data:Make;Familias_controller:Make;Familias_view:Make;Familias_plugin:Make;FactuGES_Server:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
@ -34,6 +34,7 @@ requires
|
||||
contains
|
||||
uBizFamilias in 'uBizFamilias.pas',
|
||||
uIDataModuleFamilias in 'Data\uIDataModuleFamilias.pas',
|
||||
schFamiliasClient_Intf in 'schFamiliasClient_Intf.pas';
|
||||
schFamiliasClient_Intf in 'schFamiliasClient_Intf.pas',
|
||||
schFamiliasServer_Intf in 'schFamiliasServer_Intf.pas';
|
||||
|
||||
end.
|
||||
|
||||
@ -57,19 +57,20 @@
|
||||
<DCCReference Include="..\Plugin\GUIBasApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Plugin\GUIBaseApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Plugin\vcldb.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
|
||||
<DCCReference Include="ApplicationBase.dcp" />
|
||||
<DCCReference Include="Base.dcp" />
|
||||
<DCCReference Include="Data\uIDataModuleFamilias.pas" />
|
||||
<DCCReference Include="GUIBase.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="schFamiliasClient_Intf.pas" />
|
||||
<DCCReference Include="schFamiliasServer_Intf.pas" />
|
||||
<DCCReference Include="uBizFamilias.pas" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=1
|
||||
Save Log File=1
|
||||
|
||||
@ -3,34 +3,45 @@ unit schFamiliasClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable;
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_Familias = '{67A67A27-B0E7-4D8B-B283-A6A3B1BCF950}';
|
||||
RID_Familias = '{BF295C1C-0281-4A3D-88CA-BF367A96144B}';
|
||||
|
||||
{ Data table names }
|
||||
nme_Familias = 'Familias';
|
||||
|
||||
{ Familias fields }
|
||||
fld_FamiliasID = 'ID';
|
||||
fld_FamiliasDESCRIPCION = 'DESCRIPCION';
|
||||
|
||||
{ Familias field indexes }
|
||||
idx_FamiliasDESCRIPCION = 0;
|
||||
idx_FamiliasID = 0;
|
||||
idx_FamiliasDESCRIPCION = 1;
|
||||
|
||||
type
|
||||
{ IFamilias }
|
||||
IFamilias = interface(IDAStronglyTypedDataTable)
|
||||
['{A882691E-EE02-4577-943E-E0EAE6291978}']
|
||||
['{8FA3E165-5E9C-4333-8F87-56DED8F3D1EA}']
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer;
|
||||
procedure SetIDValue(const aValue: Integer);
|
||||
function GetIDIsNull: Boolean;
|
||||
procedure SetIDIsNull(const aValue: Boolean);
|
||||
function GetDESCRIPCIONValue: String;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String);
|
||||
function GetDESCRIPCIONIsNull: Boolean;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
end;
|
||||
|
||||
{ TFamiliasDataTableRules }
|
||||
@ -38,11 +49,20 @@ type
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID: Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property DESCRIPCION: String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull: Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aDataTable: TDADataTable); override;
|
||||
@ -52,7 +72,7 @@ type
|
||||
|
||||
implementation
|
||||
|
||||
uses Variants;
|
||||
uses Variants, uROBinaryHelpers;
|
||||
|
||||
{ TFamiliasDataTableRules }
|
||||
constructor TFamiliasDataTableRules.Create(aDataTable: TDADataTable);
|
||||
@ -65,6 +85,27 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TFamiliasDataTableRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FamiliasID].AsInteger;
|
||||
end;
|
||||
|
||||
procedure TFamiliasDataTableRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
DataTable.Fields[idx_FamiliasID].AsInteger := aValue;
|
||||
end;
|
||||
|
||||
function TFamiliasDataTableRules.GetIDIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FamiliasID].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFamiliasDataTableRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FamiliasID].AsVariant := Null;
|
||||
end;
|
||||
|
||||
function TFamiliasDataTableRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FamiliasDESCRIPCION].AsString;
|
||||
@ -75,6 +116,17 @@ begin
|
||||
DataTable.Fields[idx_FamiliasDESCRIPCION].AsString := aValue;
|
||||
end;
|
||||
|
||||
function TFamiliasDataTableRules.GetDESCRIPCIONIsNull: boolean;
|
||||
begin
|
||||
result := DataTable.Fields[idx_FamiliasDESCRIPCION].IsNull;
|
||||
end;
|
||||
|
||||
procedure TFamiliasDataTableRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
DataTable.Fields[idx_FamiliasDESCRIPCION].AsVariant := Null;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterDataTableRules(RID_Familias, TFamiliasDataTableRules);
|
||||
|
||||
@ -3,22 +3,24 @@ unit schFamiliasServer_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, schFamiliasClient_Intf;
|
||||
Classes, DB, SysUtils, uROClasses, uDADataTable, uDABusinessProcessor, FmtBCD, uROXMLIntf, schFamiliasClient_Intf;
|
||||
|
||||
const
|
||||
{ Delta rules ids
|
||||
Feel free to change them to something more human readable
|
||||
but make sure they are unique in the context of your application }
|
||||
RID_FamiliasDelta = '{7935CA4C-99B8-4F96-A8CD-3CE4BCCFC041}';
|
||||
RID_FamiliasDelta = '{CEAAE8BD-8120-4DF5-9246-6C0E96C56111}';
|
||||
|
||||
type
|
||||
{ IFamiliasDelta }
|
||||
IFamiliasDelta = interface(IFamilias)
|
||||
['{7935CA4C-99B8-4F96-A8CD-3CE4BCCFC041}']
|
||||
['{CEAAE8BD-8120-4DF5-9246-6C0E96C56111}']
|
||||
{ Property getters and setters }
|
||||
function GetOldIDValue : Integer;
|
||||
function GetOldDESCRIPCIONValue : String;
|
||||
|
||||
{ Properties }
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
end;
|
||||
|
||||
@ -27,13 +29,28 @@ type
|
||||
private
|
||||
protected
|
||||
{ Property getters and setters }
|
||||
function GetIDValue: Integer; virtual;
|
||||
function GetIDIsNull: Boolean; virtual;
|
||||
function GetOldIDValue: Integer; virtual;
|
||||
function GetOldIDIsNull: Boolean; virtual;
|
||||
procedure SetIDValue(const aValue: Integer); virtual;
|
||||
procedure SetIDIsNull(const aValue: Boolean); virtual;
|
||||
function GetDESCRIPCIONValue: String; virtual;
|
||||
function GetDESCRIPCIONIsNull: Boolean; virtual;
|
||||
function GetOldDESCRIPCIONValue: String; virtual;
|
||||
function GetOldDESCRIPCIONIsNull: Boolean; virtual;
|
||||
procedure SetDESCRIPCIONValue(const aValue: String); virtual;
|
||||
procedure SetDESCRIPCIONIsNull(const aValue: Boolean); virtual;
|
||||
|
||||
{ Properties }
|
||||
property ID : Integer read GetIDValue write SetIDValue;
|
||||
property IDIsNull : Boolean read GetIDIsNull write SetIDIsNull;
|
||||
property OldID : Integer read GetOldIDValue;
|
||||
property OldIDIsNull : Boolean read GetOldIDIsNull;
|
||||
property DESCRIPCION : String read GetDESCRIPCIONValue write SetDESCRIPCIONValue;
|
||||
property DESCRIPCIONIsNull : Boolean read GetDESCRIPCIONIsNull write SetDESCRIPCIONIsNull;
|
||||
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
|
||||
property OldDESCRIPCIONIsNull : Boolean read GetOldDESCRIPCIONIsNull;
|
||||
|
||||
public
|
||||
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
|
||||
@ -44,7 +61,7 @@ type
|
||||
implementation
|
||||
|
||||
uses
|
||||
Variants, uROBinaryHelpers;
|
||||
Variants, uROBinaryHelpers, uDAInterfaces;
|
||||
|
||||
{ TFamiliasBusinessProcessorRules }
|
||||
constructor TFamiliasBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
|
||||
@ -57,21 +74,68 @@ begin
|
||||
inherited;
|
||||
end;
|
||||
|
||||
function TFamiliasBusinessProcessorRules.GetIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FamiliasID];
|
||||
end;
|
||||
|
||||
function TFamiliasBusinessProcessorRules.GetIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FamiliasID]);
|
||||
end;
|
||||
|
||||
function TFamiliasBusinessProcessorRules.GetOldIDValue: Integer;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FamiliasID];
|
||||
end;
|
||||
|
||||
function TFamiliasBusinessProcessorRules.GetOldIDIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FamiliasID]);
|
||||
end;
|
||||
|
||||
procedure TFamiliasBusinessProcessorRules.SetIDValue(const aValue: Integer);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FamiliasID] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFamiliasBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FamiliasID] := Null;
|
||||
end;
|
||||
|
||||
function TFamiliasBusinessProcessorRules.GetDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.NewValueByName[fld_FamiliasDESCRIPCION];
|
||||
end;
|
||||
|
||||
function TFamiliasBusinessProcessorRules.GetDESCRIPCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_FamiliasDESCRIPCION]);
|
||||
end;
|
||||
|
||||
function TFamiliasBusinessProcessorRules.GetOldDESCRIPCIONValue: String;
|
||||
begin
|
||||
result := BusinessProcessor.CurrentChange.OldValueByName[fld_FamiliasDESCRIPCION];
|
||||
end;
|
||||
|
||||
function TFamiliasBusinessProcessorRules.GetOldDESCRIPCIONIsNull: Boolean;
|
||||
begin
|
||||
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_FamiliasDESCRIPCION]);
|
||||
end;
|
||||
|
||||
procedure TFamiliasBusinessProcessorRules.SetDESCRIPCIONValue(const aValue: String);
|
||||
begin
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FamiliasDESCRIPCION] := aValue;
|
||||
end;
|
||||
|
||||
procedure TFamiliasBusinessProcessorRules.SetDESCRIPCIONIsNull(const aValue: Boolean);
|
||||
begin
|
||||
if aValue then
|
||||
BusinessProcessor.CurrentChange.NewValueByName[fld_FamiliasDESCRIPCION] := Null;
|
||||
end;
|
||||
|
||||
|
||||
initialization
|
||||
RegisterBusinessProcessorRules(RID_FamiliasDelta, TFamiliasBusinessProcessorRules);
|
||||
|
||||
@ -18,81 +18,17 @@ object srvFamilias: TsrvFamilias
|
||||
object DataDictionary: TDADataDictionary
|
||||
Fields = <
|
||||
item
|
||||
Name = 'Montajes_ID'
|
||||
DataType = datInteger
|
||||
Name = 'Familias_ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_EMPRESAS_ID'
|
||||
Required = True
|
||||
DisplayLabel = 'ID'
|
||||
end
|
||||
item
|
||||
Name = 'Montajes_ID_EMPRESA'
|
||||
DataType = datInteger
|
||||
DisplayLabel = 'ID_EMPRESA'
|
||||
end
|
||||
item
|
||||
Name = 'Montajes_FECHA_ALTA'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'FECHA_ALTA'
|
||||
end
|
||||
item
|
||||
Name = 'Almacenes_CALLE'
|
||||
Name = 'Familias_DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Almacenes_PROVINCIA'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Almacenes_POBLACION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Almacenes_CODIGO_POSTAL'
|
||||
DataType = datString
|
||||
Size = 10
|
||||
end
|
||||
item
|
||||
Name = 'Almacenes_TELEFONO'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'Almacenes_MOVIL'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'Almacenes_FAX'
|
||||
DataType = datString
|
||||
Size = 25
|
||||
end
|
||||
item
|
||||
Name = 'Almacenes_PERSONACONTACTO'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
end
|
||||
item
|
||||
Name = 'Almacenes_OBSERVACIONES'
|
||||
DataType = datMemo
|
||||
end
|
||||
item
|
||||
Name = 'Montajes_FECHA_MODIFICACION'
|
||||
DataType = datDateTime
|
||||
DisplayLabel = 'FECHA_MODIFICACION'
|
||||
end
|
||||
item
|
||||
Name = 'Montajes_USUARIO'
|
||||
DataType = datString
|
||||
Size = 20
|
||||
DisplayLabel = 'USUARIO'
|
||||
end
|
||||
item
|
||||
Name = 'Montajes_NOMBRE'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DisplayLabel = 'Nombre'
|
||||
DisplayLabel = 'Descripci'#243'n'
|
||||
end>
|
||||
Left = 150
|
||||
Top = 22
|
||||
@ -113,14 +49,26 @@ object srvFamilias: TsrvFamilias
|
||||
item
|
||||
DatasetField = 'DESCRIPCION'
|
||||
TableField = 'DESCRIPCION'
|
||||
end
|
||||
item
|
||||
DatasetField = 'ID'
|
||||
TableField = 'ID'
|
||||
end>
|
||||
end>
|
||||
Name = 'Familias'
|
||||
Fields = <
|
||||
item
|
||||
Name = 'ID'
|
||||
DataType = datAutoInc
|
||||
GeneratorName = 'GEN_EMPRESAS_ID'
|
||||
DictionaryEntry = 'Familias_ID'
|
||||
InPrimaryKey = True
|
||||
end
|
||||
item
|
||||
Name = 'DESCRIPCION'
|
||||
DataType = datString
|
||||
Size = 255
|
||||
DictionaryEntry = 'Familias_DESCRIPCION'
|
||||
end>
|
||||
end>
|
||||
JoinDataTables = <>
|
||||
|
||||
Binary file not shown.
@ -1,236 +1,236 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||
<DCC_DebugVN>True</DCC_DebugVN>
|
||||
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
|
||||
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
|
||||
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion"></VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
||||
<Form>RptAlbaranesCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS" />
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas" />
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas" />
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas" />
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\RegExpr.pas" />
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas" />
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas" />
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas" />
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas" />
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas" />
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas" />
|
||||
</ItemGroup>
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{ebdcd25d-40d7-4146-91ec-a0ea4aa1dcd1}</ProjectGuid>
|
||||
<MainSource>FactuGES_Server.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>..\..\Output\Debug\Servidor\FactuGES_Server.exe</DCC_DependencyCheckOutputName>
|
||||
<DCC_UsePackage>vcl;rtl;vclx;vclactnband;dbrtl;vcldb;vcldbx;bdertl;dsnap;dsnapcon;teeUI;teedb;tee;adortl;vclib;ibxpress;dbxcds;dbexpress;DbxCommonDriver;IndyCore;IndySystem;IndyProtocols;VclSmp;vclie;webdsnap;xmlrtl;inet;inetdbbde;inetdbxpress;RemObjects_BPDX_D11;RemObjects_RODX_D11;RemObjects_Indy_D11;RemObjects_Synapse_D11;RemObjects_WebBroker_D11;DataAbstract_Core_D11;DataAbstract_DBXDriver_D11;DataAbstract_IDE_D11;DataAbstract_Scripting_D11;DataAbstract_SDACDriver_D11;sdac105;dac105;DataAbstract_SQLiteDriver_D11;cxEditorsD10;cxLibraryD10;dxThemeD10;cxDataD10;cxExtEditorsD10;cxGridD10;cxPageControlD10;cxSchedulerD10;cxTreeListD10;cxVerticalGridD10;dxBarD10;dxComnD10;dxBarDBNavD10;dxBarExtDBItemsD10;dxBarExtItemsD10;dxDockingD10;dxLayoutControlD10;dxNavBarD10;dxPSCoreD10;dxsbD10;dxPScxCommonD10;dxPSLnksD10;vclshlctrls;dxPScxExtCommonD10;dxPScxGridLnkD10;dxPScxPCProdD10;dxPScxScheduler2LnkD10;dxPScxTLLnkD10;dxPSdxLCLnkD10;dxPsPrVwAdvD10;pckMD5;pckUCDataConnector;pckUserControl_RT;PluginSDK_D10R;PNG_D10;PngComponentsD10;tb2k_d10;tbx_d10;JclVcl;Jcl;JvXPCtrlsD11R;JvCoreD11R;JvSystemD11R;JvStdCtrlsD11R;JvAppFrmD11R;JvBandsD11R;JvDBD11R;JvDlgsD11R;JvBDED11R;JvCmpD11R;JvCryptD11R;JvCtrlsD11R;JvCustomD11R;JvDockingD11R;JvDotNetCtrlsD11R;JvEDID11R;JvGlobusD11R;JvHMID11R;JvInterpreterD11R;JvJansD11R;JvManagedThreadsD11R;JvMMD11R;JvNetD11R;JvPageCompsD11R;JvPluginD11R;JvPrintPreviewD11R;JvRuntimeDesignD11R;JvTimeFrameworkD11R;JvUIBD11R;JvValidatorsD11R;JvWizardD11R;pckUCADOConn;pckUCBDEConn;pckUCIBXConn;pckUCMidasConn;cxIntlPrintSys3D10;cxExportD10;cxIntl5D10;GUISDK_D11;ccpackD11;JSDialog100;fsTee11;fs11;frx11;frxADO11;frxBDE11;frxDB11;frxDBX11;frxe11;frxIBX11;frxTee11;fsADO11;fsBDE11;fsDB11;fsIBX11;websnap;soaprtl;IntrawebDB_90_100;Intraweb_90_100</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Release\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<DCC_ExeOutput>..\..\Output\Debug\Servidor</DCC_ExeOutput>
|
||||
<DCC_Define>DEBUG;</DCC_Define>
|
||||
<DCC_GenerateStackFrames>True</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>True</DCC_DebugInfoInExe>
|
||||
<DCC_DebugVN>True</DCC_DebugVN>
|
||||
<DCC_UnitSearchPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ResourcePath>
|
||||
<DCC_ObjPath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_ObjPath>
|
||||
<DCC_IncludePath>$(BDS)\lib\Debug;$(BDS)\Lib\Debug\Indy10</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion"></VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\dxPSCoreD10.bpl">ExpressPrinting System by Developer Express Inc.</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets"/>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="FactuGES_Server.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Empresas\Servidor\srvEmpresas_Impl.pas">
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>
|
||||
<DCCReference Include="..\Base\schBase_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Model\uBizAlbaranClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Reports\uRptAlbaranesCliente_Server.pas">
|
||||
<Form>RptAlbaranesCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Servidor\srvAlbaranesCliente_Impl.pas">
|
||||
<Form>srvAlbaranesCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Model\uBizAlbaranProveedorServer.PAS"/>
|
||||
<DCCReference Include="..\Modulos\Albaranes de proveedor\Servidor\srvAlbaranesProveedor_Impl.pas">
|
||||
<Form>srvAlbaranesProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Model\schAlmacenesServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Almacenes\Servidor\srvAlmacenes_Impl.pas">
|
||||
<Form>srvAlmacenes</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Model\schArticulosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Articulos\Servidor\srvArticulos_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\schContactosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizClientesServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizContactosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizEmpleadosServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Model\uBizProveedoresServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Contactos\Servidor\srvContactos_Impl.pas">
|
||||
<Form>srvContactos</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\schFacturasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Model\uBizFacturasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas">
|
||||
<Form>RptFacturasCliente</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de cliente\Servidor\srvFacturasCliente_Impl.pas">
|
||||
<Form>srvFacturasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Model\uBizFacturasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Facturas de proveedor\Servidor\srvFacturasProveedor_Impl.pas">
|
||||
<Form>srvFacturasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Model\schFamiliasServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Familias\Servidor\srvFamilias_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Model\schFormasPagoServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvFormasPago_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Formas de pago\Servidor\srvUnidadesMedida_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Model\schHistoricoMovimientosServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Historico de movimientos\Servidor\srvHistoricoMovimientos_Impl.pas">
|
||||
<Form>srvHistoricoMovimientos</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Model\schInventarioServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Inventario\Servidor\srvInventario_Impl.pas">
|
||||
<Form>srvInventario</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\schPedidosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Model\uBizPedidosProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Pedidos a proveedor\Servidor\srvPedidosProveedor_Impl.pas">
|
||||
<Form>srvPedidosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Reports\uRptPresupuestosCliente_Server.pas">
|
||||
<Form>RptPresupuestosCliente</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas">
|
||||
<Form>srvPresupuestosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Model\schRecibosClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de cliente\Servidor\srvRecibosCliente_Impl.pas">
|
||||
<Form>srvRecibosCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Model\schRecibosProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Recibos de proveedor\Servidor\srvRecibosProveedor_Impl.pas">
|
||||
<Form>srvRecibosProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\schRemesasClienteServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Model\uBizRemesasClienteServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de cliente\Servidor\srvRemesasCliente_Impl.pas">
|
||||
<Form>srvRemesasCliente</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\schRemesasProveedorServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Model\uBizRemesasProveedorServer.pas"/>
|
||||
<DCCReference Include="..\Modulos\Remesas de proveedor\Servidor\srvRemesasProveedor_Impl.pas">
|
||||
<Form>srvRemesasProveedor</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Tipos de IVA\Servidor\srvTiposIVA_Impl.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaClient_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Model\schUnidadesMedidaServer_Intf.pas"/>
|
||||
<DCCReference Include="..\Modulos\Unidades de medida\Servidor\srvUnidadesMedida_Impl.pas">
|
||||
<Form>srvUnidadesMedida</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas"/>
|
||||
<DCCReference Include="..\Servicios\FactuGES_Invk.pas"/>
|
||||
<DCCReference Include="Configuracion\srvConfiguracion_Impl.pas">
|
||||
<Form>srvConfiguracion</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConexionBD.pas">
|
||||
<Form>frConexionBD</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfGeneral.pas">
|
||||
<Form>frConfGeneral</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uConfiguracion.pas">
|
||||
<Form>fConfiguracion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Configuracion\uFrameConfiguracion.pas">
|
||||
<Form>FrameConfiguracion</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvLogin_Impl.pas">
|
||||
<Form>srvLogin</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="srvReferencias_Impl.pas">
|
||||
<Form>srvReferencias</Form>
|
||||
<DesignClass>TDataAbstractService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uAcercaDe.pas">
|
||||
<Form>fAcercaDe</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uDataModuleServer.pas">
|
||||
<Form>dmServer</Form>
|
||||
<DesignClass>TDataModule</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uServerMainForm.pas">
|
||||
<Form>fServerForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="Utiles\RegExpr.pas"/>
|
||||
<DCCReference Include="Utiles\uBusinessUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uDatabaseUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uReferenciasUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uRestriccionesUsuarioUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSchemaUtilsServer.pas"/>
|
||||
<DCCReference Include="Utiles\uServerAppUtils.pas"/>
|
||||
<DCCReference Include="Utiles\uSesionesUtils.pas"/>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
|
||||
@ -14,7 +14,7 @@ BEGIN
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.0.0.0\0"
|
||||
VALUE "ProductVersion", "1.0.0.0\0"
|
||||
VALUE "CompileDate", "lunes, 14 de enero de 2008 16:09\0"
|
||||
VALUE "CompileDate", "domingo, 03 de febrero de 2008 21:59\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Loading…
Reference in New Issue
Block a user