Acana_Interiorismo/FactuGES2
2
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Sincronización entre tiendas: puesta en marcha y modificaciones en el código y en los scripts de base de datos.

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@118 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-01-22 09:46:25 +00:00
parent 366c71afe7
commit e047d68786
29 changed files with 2733 additions and 300 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
Database/RodaxSoftware.FactuGES.Database.proj
View File

@ -27,6 +27,11 @@
<Sql Include="$(SqlScriptsFolder)\factuges_sysdata.sql" />
<Sql Include="$(SqlScriptsFolder)\factuges_sysdata_plan_general_contable.sql" />
<SqlOutput Include="$(OutputPath)\factuges.fdb" />
<SqlReplicador Include="$(SqlScriptsFolder)\replicador.sql" />
<SqlReplicador Include="$(SqlScriptsFolder)\replicador_sysdata.sql" />
<SqlReplicador Include="$(SqlScriptsFolder)\factuges_replicador.sql" />
<SqlOutputReplicador Include="$(OutputPath)\replicate.fdb" />
</ItemGroup>
<Target Name="CreateOutputPath">
@ -46,6 +51,21 @@
<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_sysdata_plan_general_contable.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)"
WorkingDirectory="$(OutputPath)" />
</Target>
<Target Name="BuildReplicador"
Inputs="@(SqlReplicador)"
Outputs="@(SqlOutputReplicador)">
<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\replicador.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q"
WorkingDirectory="$(OutputPath)" />
<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\replicador_sysdata.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\replicate.fdb$(DOUBLE_QUOTES)"
WorkingDirectory="$(OutputPath)" />
<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_replicador.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)"
WorkingDirectory="$(OutputPath)" />
</Target>
<Target Name="Extract"
Inputs="$(OutputPath)\factuges.fdb"
@ -60,6 +80,7 @@
<Target Name="Clean">
<Delete Files="@(SqlOutput)"/>
<Delete Files="@(SqlOutputReplicador)"/>
</Target>
</Project>

116
Database/scripts/factuges.sql
View File

@ -174,9 +174,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;
@ -231,6 +228,36 @@ 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;
CREATE GENERATOR GEN_PROVEEDORES_GRUPOS_ID;
SET GENERATOR GEN_PROVEEDORES_GRUPOS_ID TO 1;
CREATE GENERATOR GEN_CLIENTES_PROCEDENCIAS_ID;
SET GENERATOR GEN_CLIENTES_PROCEDENCIAS_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;
CREATE GENERATOR GEN_FAMILIAS_ID;
SET GENERATOR GEN_FAMILIAS_ID TO 1;
CREATE GENERATOR GEN_EMPRESAS_CONTACTOS_ID;
SET GENERATOR GEN_EMPRESAS_CONTACTOS_ID TO 1;
CREATE GENERATOR GEN_EMPRESAS_USUARIOS_ID;
SET GENERATOR GEN_EMPRESAS_USUARIOS_ID TO 1;
CREATE GENERATOR GEN_PERMISOS_ID;
SET GENERATOR GEN_PERMISOS_ID TO 1;
CREATE GENERATOR GEN_PERMISOSEX_ID;
SET GENERATOR GEN_PERMISOSEX_ID TO 1;
SET TERM ^ ;
@ -550,12 +577,14 @@ CREATE TABLE CLIENTES_DTOS_PROVEEDORES (
CREATE TABLE CLIENTES_GRUPOS (
DESCRIPCION VARCHAR(255)
ID TIPO_ID NOT NULL,
DESCRIPCION VARCHAR(255)
);
CREATE TABLE CLIENTES_PROCEDENCIAS (
DESCRIPCION VARCHAR(255)
ID TIPO_ID NOT NULL,
DESCRIPCION VARCHAR(255)
);
@ -574,6 +603,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
@ -747,7 +777,8 @@ CREATE TABLE EMPLEADOS_DATOS (
CREATE TABLE EMPLEADOS_GRUPOS (
DESCRIPCION VARCHAR(255)
ID TIPO_ID NOT NULL,
DESCRIPCION VARCHAR(255)
);
@ -779,8 +810,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
);
@ -817,32 +849,12 @@ CREATE TABLE EMPRESAS_TIENDAS (
CREATE TABLE EMPRESAS_USUARIOS (
ID TIPO_ID NOT NULL,
ID_EMPRESA TIPO_ID NOT NULL,
ID_USUARIO TIPO_ID NOT NULL
);
CREATE TABLE F_PERFILES (
ID TIPO_ID NOT NULL,
PERFIL TIPO_PERFIL NOT NULL
);
CREATE TABLE F_PERFILES_USUARIOS (
ID_PERFIL TIPO_ID NOT NULL,
ID_USUARIO TIPO_ID NOT NULL
);
CREATE TABLE F_USUARIOS (
ID TIPO_ID NOT NULL,
USUARIO TIPO_USUARIO NOT NULL,
ACTIVO TIPO_BOOLEANO,
LAST_LOGIN TIMESTAMP,
PASS VARCHAR(10)
);
CREATE TABLE FACTURAS_CLIENTE (
ID TIPO_ID NOT NULL,
ID_EMPRESA TIPO_ID,
@ -950,6 +962,7 @@ CREATE TABLE FACTURAS_PROVEEDOR_DETALLES (
CREATE TABLE FAMILIAS (
ID TIPO_ID NOT NULL,
DESCRIPCION VARCHAR(255)
);
@ -1140,6 +1153,7 @@ CREATE TABLE PEDIDOS_PROVEEDOR_DETALLES (
CREATE TABLE PERMISOS (
ID TIPO_ID NOT NULL,
ID_USUARIO TIPO_ID,
MODULO VARCHAR(50),
NOMBRECOMP VARCHAR(50),
@ -1148,6 +1162,7 @@ CREATE TABLE PERMISOS (
CREATE TABLE PERMISOSEX (
ID TIPO_ID NOT NULL,
ID_USUARIO TIPO_ID,
MODULO VARCHAR(50),
NOMBRECOMP VARCHAR(50),
@ -1223,7 +1238,8 @@ CREATE TABLE PROVEEDORES_DATOS (
CREATE TABLE PROVEEDORES_GRUPOS (
DESCRIPCION VARCHAR(255)
ID TIPO_ID NOT NULL,
DESCRIPCION VARCHAR(255)
);
@ -3613,17 +3629,16 @@ ALTER TABLE CONT_EPIGRAFES ADD CONSTRAINT PK_CONT_EPIGRAFES PRIMARY KEY (ID);
ALTER TABLE CONT_SUBCUENTAS ADD CONSTRAINT PK_CONT_SUBCUENTAS 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_TIENDAS ADD CONSTRAINT PK_EMPRESAS_TIENDAS 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);
ALTER TABLE FACTURAS_PROVEEDOR_DETALLES ADD CONSTRAINT PK_FACTURAS_PROVEEDOR_DETALLES PRIMARY KEY (ID);
ALTER TABLE FORMAS_PAGO ADD PRIMARY KEY (ID);
ALTER TABLE FORMAS_PAGO_PLAZOS ADD PRIMARY KEY (ID);
ALTER TABLE F_PERFILES_USUARIOS ADD CONSTRAINT PK_PERFILES_USUARIOS PRIMARY KEY (ID_PERFIL, ID_USUARIO);
ALTER TABLE INFORMES ADD CONSTRAINT PK_INFORMES PRIMARY KEY (ID);
ALTER TABLE MOVIMIENTOS ADD CONSTRAINT PK_MOVIMIENTOS PRIMARY KEY (ID);
ALTER TABLE PAGOS_CLIENTE ADD CONSTRAINT PK_PAGOS_CLIENTE PRIMARY KEY (ID);
@ -3644,17 +3659,22 @@ 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 CLIENTES_PROCEDENCIAS ADD CONSTRAINT PK_CLIENTES_PROCEDENCIAS 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);
/******************************************************************************/
/**** Foreign Keys ****/
/******************************************************************************/
ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT FK_ALBARANES_CLIENTE_1 FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE CASCADE ON UPDATE CASCADE;
ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT FK_ALBARANES_CLIENTE_2 FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_CLIENTE (ID) ON DELETE SET NULL ON UPDATE SET NULL;
ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT FK_ALBARAN_CLIENTE2 FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION;
ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT FK_ALBARAN_CLIENTE4 FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_CLIENTE (ID) ON DELETE SET NULL ON UPDATE SET NULL;
ALTER TABLE ALBARANES_PROVEEDOR ADD CONSTRAINT FK_ALBARAN_PROVEEDOR2 FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION;
ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT FK_ALBARANES_CLIENTE_1 FOREIGN KEY (ID_FACTURA) REFERENCES FACTURAS_CLIENTE (ID) ON DELETE SET NULL ON UPDATE SET NULL;
ALTER TABLE ALBARANES_CLIENTE ADD CONSTRAINT FK_ALBARAN_CLIENTE_2 FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION;
ALTER TABLE ALBARANES_PROVEEDOR ADD CONSTRAINT FK_ALBARAN_PROVEEDOR_2 FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION;
ALTER TABLE ALMACENES ADD CONSTRAINT FK_ALMACENES_EMPRESAS FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION;
ALTER TABLE ARTICULOS ADD CONSTRAINT FK_ARTICULOS_EMPRESA FOREIGN KEY (ID_EMPRESA) REFERENCES EMPRESAS (ID) ON DELETE NO ACTION ON UPDATE NO ACTION;
ALTER TABLE CONT_CUENTAS ADD CONSTRAINT FK_CONT_CUENTAS_1 FOREIGN KEY (ID_EJERCICIO) REFERENCES CONT_EJERCICIOS (ID) ON DELETE CASCADE ON UPDATE CASCADE;
@ -3684,10 +3704,12 @@ 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_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_CLIENTE_DETALLES1 ON ALBARANES_CLIENTE_DETALLES (ID_ARTICULO);
CREATE INDEX IDX_ALBARANES_CLIENTE_DETALLES2 ON ALBARANES_CLIENTE_DETALLES (ID_ALBARAN);
CREATE INDEX IDX_ALBARANES_PROVEEDOR_1 ON ALBARANES_PROVEEDOR (ID_ALMACEN);
CREATE INDEX IDX_ALBARANES_PROVEEDOR_2 ON ALBARANES_PROVEEDOR (ID_FORMA_PAGO);
CREATE INDEX IDX_ALBARANES_PROVEEDOR_3 ON ALBARANES_PROVEEDOR (ID_PEDIDO);
CREATE INDEX IDX_ALBARANES_PROVEEDOR_4 ON ALBARANES_PROVEEDOR (ID_FACTURA);
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);
@ -3702,6 +3724,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);
@ -3712,9 +3736,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);
@ -3729,6 +3753,8 @@ CREATE INDEX IDX_RECIBOS_PROVEEDOR ON RECIBOS_PROVEEDOR (ID_RECIBO_COMPENSADO);
CREATE INDEX IDX_REFERENCIAS ON REFERENCIAS (ID_EMPRESA);
CREATE INDEX IDX_REMESAS_CLIENTE ON REMESAS_CLIENTE (ID_DATOS_BANCO);
CREATE INDEX IDX_REMESAS_PROVEEDOR ON REMESAS_PROVEEDOR (ID_DATOS_BANCO);
CREATE INDEX IDX_PERMISOS ON PERMISOS (ID_USUARIO);
CREATE INDEX IDX_PERMISOSEX ON PERMISOSEX (ID_USUARIO);
/******************************************************************************/

1484
Database/scripts/factuges_replicador.sql Normal file
View File

File diff suppressed because it is too large Load Diff

159
Database/scripts/replicador.sql Normal file
View File

@ -0,0 +1,159 @@
SET SQL DIALECT 3;
SET NAMES ISO8859_1;
CREATE DATABASE 'REPLICATE.FDB'
PAGE_SIZE 4096
DEFAULT CHARACTER SET ISO8859_1;
/******************************************************************************/
/**** Domains ****/
/******************************************************************************/
CREATE DOMAIN GENSMALLINT AS
SMALLINT
DEFAULT 0
NOT NULL;
CREATE DOMAIN OP AS
CHAR(1);
CREATE DOMAIN PATH AS
VARCHAR(255);
CREATE DOMAIN PKID AS
INTEGER
NOT NULL;
CREATE DOMAIN PKIDBIG AS
BIGINT
NOT NULL;
CREATE DOMAIN TABLENAME AS
VARCHAR(32);
CREATE DOMAIN USERNAME AS
VARCHAR(50);
/******************************************************************************/
/**** Generators ****/
/******************************************************************************/
CREATE GENERATOR GEN_LOC_ID;
CREATE GENERATOR GEN_REPLDEFS_ID;
CREATE GENERATOR GEN_SOURCE_LOCATION_ID;
/******************************************************************************/
/**** Tables ****/
/******************************************************************************/
CREATE TABLE LOCATIONS (
LOC_ID PKID NOT NULL,
LOC_PATH PATH,
RAS_SERVICENAME USERNAME,
RAS_USER USERNAME,
RAS_PASSWORD USERNAME,
USERNAME USERNAME,
PASSWD USERNAME
);
CREATE TABLE REPLDEFS (
ID PKID NOT NULL,
FK_SOURCE PKID NOT NULL,
TABLENAME TABLENAME,
OPTYPE OP,
SQLSTMT PATH,
MORE GENSMALLINT
);
CREATE TABLE SOURCE_LOCATION (
ID PKID NOT NULL,
SOURCE_SERVER PATH,
SOURCE_PATH PATH,
USERNAME USERNAME,
PASSWD USERNAME,
REPLUSER USERNAME,
REPLPASSWD USERNAME
);
/******************************************************************************/
/**** Primary Keys ****/
/******************************************************************************/
ALTER TABLE LOCATIONS ADD PRIMARY KEY (LOC_ID);
ALTER TABLE REPLDEFS ADD CONSTRAINT PK_REPLDEFS PRIMARY KEY (ID);
ALTER TABLE SOURCE_LOCATION ADD PRIMARY KEY (ID);
/******************************************************************************/
/**** Foreign Keys ****/
/******************************************************************************/
ALTER TABLE REPLDEFS ADD CONSTRAINT FK_REPLDEFS FOREIGN KEY (FK_SOURCE) REFERENCES SOURCE_LOCATION (ID) ON DELETE CASCADE;
/******************************************************************************/
/**** Indices ****/
/******************************************************************************/
CREATE INDEX REPLDEFS_IDXTABLENAME ON REPLDEFS (TABLENAME);
/******************************************************************************/
/**** Triggers ****/
/******************************************************************************/
SET TERM ^ ;
/******************************************************************************/
/**** Triggers for tables ****/
/******************************************************************************/
/* Trigger: INSERT_LOCATIONS */
CREATE TRIGGER INSERT_LOCATIONS FOR LOCATIONS
ACTIVE BEFORE INSERT POSITION 0
AS
BEGIN
NEW.LOC_ID = GEN_ID( GEN_LOC_ID, 1 );
END
^
/* Trigger: REPLDEFS_BI */
CREATE TRIGGER REPLDEFS_BI FOR REPLDEFS
ACTIVE BEFORE INSERT POSITION 0
AS BEGIN
IF (NEW.ID IS NULL) THEN
NEW.ID = GEN_ID(GEN_REPLDEFS_ID,1);
END
^
/* Trigger: SOURCE_LOCATION_BI */
CREATE TRIGGER SOURCE_LOCATION_BI FOR SOURCE_LOCATION
ACTIVE BEFORE INSERT POSITION 0
AS BEGIN
IF (NEW.ID IS NULL) THEN
NEW.ID = GEN_ID(GEN_SOURCE_LOCATION_ID,1);
END
^
SET TERM ; ^

206
Database/scripts/replicador_sysdata.sql Normal file
View File

@ -0,0 +1,206 @@
SET SQL DIALECT 3;
SET NAMES NONE;
INSERT INTO LOCATIONS (LOC_ID, LOC_PATH, RAS_SERVICENAME, RAS_USER, RAS_PASSWORD, USERNAME, PASSWD) VALUES (1, 'david_vm_tecsitel:C:\Documents and Settings\Usuario\Escritorio\Replicación Acana\factuges.fdb', '', '', '', 'sysdba', 'masterkey');
COMMIT WORK;
SET GENERATOR GEN_LOC_ID TO 2;
INSERT INTO SOURCE_LOCATION (ID, SOURCE_SERVER, SOURCE_PATH, USERNAME, PASSWD, REPLUSER, REPLPASSWD) VALUES (1, 'localhost', 'C:\Codigo Acana\Output\Debug\Database\FACTUGES.FDB', 'SYSDBA', 'masterkey', 'SYSDBA', 'masterkey');
COMMIT WORK;
SET GENERATOR GEN_SOURCE_LOCATION_ID TO 1;
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (1, 1, 'AGENTES_COMISIONES', 'S', 'SELECT ID,ID_AGENTE,ID_PROVEEDOR,COMISION FROM AGENTES_COMISIONES', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (2, 1, 'AGENTES_COMISIONES', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (3, 1, 'AGENTES_COMISIONES', 'I', 'INSERT INTO AGENTES_COMISIONES (ID,ID_AGENTE,ID_PROVEEDOR,COMISION) VALUES (?,?,?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (4, 1, 'AGENTES_COMISIONES', 'U', 'UPDATE AGENTES_COMISIONES SET ID=?,ID_AGENTE=?,ID_PROVEEDOR=?,COMISION=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (5, 1, 'AGENTES_COMISIONES', 'D', 'DELETE FROM AGENTES_COMISIONES WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (6, 1, 'ALBARANES_CLIENTE', 'S', 'SELECT ID,BASE_IMPONIBLE,CALLE,CODIGO_POSTAL,DESCUENTO,FECHA_ALBARAN,FECHA_ALTA,FECHA_ENVIO,FECHA_MODIFICACION,FECHA_PREVISTA_ENVIO,FECHA_RECEPCION,ID_ALMACEN,ID_CLIENTE,ID_EMPRESA,ID_FACTURA,ID_FORMA_PAGO', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (7, 1, 'ALBARANES_CLIENTE', 'S', ',ID_PEDIDO,ID_TIENDA,IMPORTE_DESCUENTO,IMPORTE_IVA,IMPORTE_NETO,IMPORTE_PORTE,IMPORTE_TOTAL,INCIDENCIAS,INCIDENCIAS_ACTIVAS,IVA,OBSERVACIONES,PERSONA_CONTACTO,POBLACION,PROVINCIA,REFERENCIA,REFERENCIA_CLIENTE', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (8, 1, 'ALBARANES_CLIENTE', 'S', ',TELEFONO,USUARIO FROM ALBARANES_CLIENTE', 3);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (9, 1, 'ALBARANES_CLIENTE', 'S', ' WHERE ID=?', 4);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (10, 1, 'ALBARANES_CLIENTE', 'I', 'INSERT INTO ALBARANES_CLIENTE (ID,BASE_IMPONIBLE,CALLE,CODIGO_POSTAL,DESCUENTO,FECHA_ALBARAN,FECHA_ALTA,FECHA_ENVIO,FECHA_MODIFICACION,FECHA_PREVISTA_ENVIO,FECHA_RECEPCION,ID_ALMACEN,ID_CLIENTE,ID_EMPRESA', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (11, 1, 'ALBARANES_CLIENTE', 'I', ',ID_FACTURA,ID_FORMA_PAGO,ID_PEDIDO,ID_TIENDA,IMPORTE_DESCUENTO,IMPORTE_IVA,IMPORTE_NETO,IMPORTE_PORTE,IMPORTE_TOTAL,INCIDENCIAS,INCIDENCIAS_ACTIVAS,IVA,OBSERVACIONES,PERSONA_CONTACTO,POBLACION,PROVINCIA', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (12, 1, 'ALBARANES_CLIENTE', 'I', ',REFERENCIA,REFERENCIA_CLIENTE,TELEFONO,USUARIO ) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)', 3);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (13, 1, 'ALBARANES_CLIENTE', 'U', 'UPDATE ALBARANES_CLIENTE SET ID=?,BASE_IMPONIBLE=?,CALLE=?,CODIGO_POSTAL=?,DESCUENTO=?,FECHA_ALBARAN=?,FECHA_ALTA=?,FECHA_ENVIO=?,FECHA_MODIFICACION=?,FECHA_PREVISTA_ENVIO=?,FECHA_RECEPCION=?,ID_ALMACEN=?', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (14, 1, 'ALBARANES_CLIENTE', 'U', ',ID_CLIENTE=?,ID_EMPRESA=?,ID_FACTURA=?,ID_FORMA_PAGO=?,ID_PEDIDO=?,ID_TIENDA=?,IMPORTE_DESCUENTO=?,IMPORTE_IVA=?,IMPORTE_NETO=?,IMPORTE_PORTE=?,IMPORTE_TOTAL=?,INCIDENCIAS=?,INCIDENCIAS_ACTIVAS=?,IVA=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (15, 1, 'ALBARANES_CLIENTE', 'U', ',OBSERVACIONES=?,PERSONA_CONTACTO=?,POBLACION=?,PROVINCIA=?,REFERENCIA=?,REFERENCIA_CLIENTE=?,TELEFONO=?,USUARIO =? WHERE ID=?', 3);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (16, 1, 'ALBARANES_CLIENTE', 'D', 'DELETE FROM ALBARANES_CLIENTE WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (17, 1, 'ALBARANES_CLIENTE_DETALLES', 'S', 'SELECT ID,CANTIDAD,CONCEPTO,DESCUENTO,FECHA_ALTA,FECHA_MODIFICACION,ID_ALBARAN,ID_ARTICULO,IMPORTE_PORTE,IMPORTE_TOTAL,IMPORTE_UNIDAD,POSICION,TIPO_DETALLE,VISIBLE FROM ALBARANES_CLIENTE_DETALLES', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (18, 1, 'ALBARANES_CLIENTE_DETALLES', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (19, 1, 'ALBARANES_CLIENTE_DETALLES', 'I', 'INSERT INTO ALBARANES_CLIENTE_DETALLES (ID,CANTIDAD,CONCEPTO,DESCUENTO,FECHA_ALTA,FECHA_MODIFICACION,ID_ALBARAN,ID_ARTICULO,IMPORTE_PORTE,IMPORTE_TOTAL,IMPORTE_UNIDAD,POSICION,TIPO_DETALLE,VISIBLE) VALUES (?', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (20, 1, 'ALBARANES_CLIENTE_DETALLES', 'I', ',?,?,?,?,?,?,?,?,?,?,?,?,?)', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (21, 1, 'ALBARANES_CLIENTE_DETALLES', 'U', 'UPDATE ALBARANES_CLIENTE_DETALLES SET ID=?,CANTIDAD=?,CONCEPTO=?,DESCUENTO=?,FECHA_ALTA=?,FECHA_MODIFICACION=?,ID_ALBARAN=?,ID_ARTICULO=?,IMPORTE_PORTE=?,IMPORTE_TOTAL=?,IMPORTE_UNIDAD=?,POSICION=?,TIPO_DETALLE=?', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (22, 1, 'ALBARANES_CLIENTE_DETALLES', 'U', ',VISIBLE=? WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (23, 1, 'ALBARANES_CLIENTE_DETALLES', 'D', 'DELETE FROM ALBARANES_CLIENTE_DETALLES WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (24, 1, 'ALBARANES_PROVEEDOR', 'S', 'SELECT ID,BASE_IMPONIBLE,CALLE,CODIGO_POSTAL,DESCUENTO,FECHA_ALBARAN,FECHA_ALTA,FECHA_MODIFICACION,ID_ALMACEN,ID_EMPRESA,ID_FACTURA,ID_FORMA_PAGO,ID_PEDIDO,ID_PROVEEDOR,ID_TIENDA,IMPORTE_DESCUENTO,IMPORTE_IVA', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (25, 1, 'ALBARANES_PROVEEDOR', 'S', ',IMPORTE_NETO,IMPORTE_PORTE,IMPORTE_TOTAL,INCIDENCIAS,INCIDENCIAS_ACTIVAS,IVA,OBSERVACIONES,PERSONA_CONTACTO,POBLACION,PROVINCIA,REF_FACTURA_PROV,REFERENCIA,REFERENCIA_PROVEEDOR,TELEFONO,USUARIO FROM ALBARANES_PROVEEDOR', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (26, 1, 'ALBARANES_PROVEEDOR', 'S', ' WHERE ID=?', 3);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (27, 1, 'ALBARANES_PROVEEDOR', 'I', 'INSERT INTO ALBARANES_PROVEEDOR (ID,BASE_IMPONIBLE,CALLE,CODIGO_POSTAL,DESCUENTO,FECHA_ALBARAN,FECHA_ALTA,FECHA_MODIFICACION,ID_ALMACEN,ID_EMPRESA,ID_FACTURA,ID_FORMA_PAGO,ID_PEDIDO,ID_PROVEEDOR,ID_TIENDA', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (28, 1, 'ALBARANES_PROVEEDOR', 'I', ',IMPORTE_DESCUENTO,IMPORTE_IVA,IMPORTE_NETO,IMPORTE_PORTE,IMPORTE_TOTAL,INCIDENCIAS,INCIDENCIAS_ACTIVAS,IVA,OBSERVACIONES,PERSONA_CONTACTO,POBLACION,PROVINCIA,REF_FACTURA_PROV,REFERENCIA,REFERENCIA_PROVEEDOR', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (29, 1, 'ALBARANES_PROVEEDOR', 'I', ',TELEFONO,USUARIO ) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)', 3);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (30, 1, 'ALBARANES_PROVEEDOR', 'U', 'UPDATE ALBARANES_PROVEEDOR SET ID=?,BASE_IMPONIBLE=?,CALLE=?,CODIGO_POSTAL=?,DESCUENTO=?,FECHA_ALBARAN=?,FECHA_ALTA=?,FECHA_MODIFICACION=?,ID_ALMACEN=?,ID_EMPRESA=?,ID_FACTURA=?,ID_FORMA_PAGO=?,ID_PEDIDO=?', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (31, 1, 'ALBARANES_PROVEEDOR', 'U', ',ID_PROVEEDOR=?,ID_TIENDA=?,IMPORTE_DESCUENTO=?,IMPORTE_IVA=?,IMPORTE_NETO=?,IMPORTE_PORTE=?,IMPORTE_TOTAL=?,INCIDENCIAS=?,INCIDENCIAS_ACTIVAS=?,IVA=?,OBSERVACIONES=?,PERSONA_CONTACTO=?,POBLACION=?,PROVINCIA=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (32, 1, 'ALBARANES_PROVEEDOR', 'U', ',REF_FACTURA_PROV=?,REFERENCIA=?,REFERENCIA_PROVEEDOR=?,TELEFONO=?,USUARIO =? WHERE ID=?', 3);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (33, 1, 'ALBARANES_PROVEEDOR', 'D', 'DELETE FROM ALBARANES_PROVEEDOR WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (34, 1, 'ALBARANES_PROVEEDOR_DETALLES', 'S', 'SELECT ID,CANTIDAD,CONCEPTO,DESCUENTO,FECHA_ALTA,FECHA_MODIFICACION,ID_ALBARAN,ID_ARTICULO,IMPORTE_PORTE,IMPORTE_TOTAL,IMPORTE_UNIDAD,POSICION,TIPO_DETALLE,VISIBLE FROM ALBARANES_PROVEEDOR_DETALLES', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (35, 1, 'ALBARANES_PROVEEDOR_DETALLES', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (36, 1, 'ALBARANES_PROVEEDOR_DETALLES', 'I', 'INSERT INTO ALBARANES_PROVEEDOR_DETALLES (ID,CANTIDAD,CONCEPTO,DESCUENTO,FECHA_ALTA,FECHA_MODIFICACION,ID_ALBARAN,ID_ARTICULO,IMPORTE_PORTE,IMPORTE_TOTAL,IMPORTE_UNIDAD,POSICION,TIPO_DETALLE,VISIBLE) VALUES (?', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (37, 1, 'ALBARANES_PROVEEDOR_DETALLES', 'I', ',?,?,?,?,?,?,?,?,?,?,?,?,?)', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (38, 1, 'ALBARANES_PROVEEDOR_DETALLES', 'U', 'UPDATE ALBARANES_PROVEEDOR_DETALLES SET ID=?,CANTIDAD=?,CONCEPTO=?,DESCUENTO=?,FECHA_ALTA=?,FECHA_MODIFICACION=?,ID_ALBARAN=?,ID_ARTICULO=?,IMPORTE_PORTE=?,IMPORTE_TOTAL=?,IMPORTE_UNIDAD=?,POSICION=?,TIPO_DETALLE=?', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (39, 1, 'ALBARANES_PROVEEDOR_DETALLES', 'U', ',VISIBLE=? WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (40, 1, 'ALBARANES_PROVEEDOR_DETALLES', 'D', 'DELETE FROM ALBARANES_PROVEEDOR_DETALLES WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (41, 1, 'ALMACENES', 'S', 'SELECT ID,CALLE,CODIGO_POSTAL,FAX,FECHA_ALTA,FECHA_MODIFICACION,ID_EMPRESA,MOVIL,NOMBRE,OBSERVACIONES,PERSONA_CONTACTO,POBLACION,PROVINCIA,TELEFONO,USUARIO FROM ALMACENES', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (42, 1, 'ALMACENES', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (43, 1, 'ALMACENES', 'I', 'INSERT INTO ALMACENES (ID,CALLE,CODIGO_POSTAL,FAX,FECHA_ALTA,FECHA_MODIFICACION,ID_EMPRESA,MOVIL,NOMBRE,OBSERVACIONES,PERSONA_CONTACTO,POBLACION,PROVINCIA,TELEFONO,USUARIO) VALUES (?,?,?,?,?,?,?,?,?,?,?', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (44, 1, 'ALMACENES', 'I', ',?,?,?,?)', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (45, 1, 'ALMACENES', 'U', 'UPDATE ALMACENES SET ID=?,CALLE=?,CODIGO_POSTAL=?,FAX=?,FECHA_ALTA=?,FECHA_MODIFICACION=?,ID_EMPRESA=?,MOVIL=?,NOMBRE=?,OBSERVACIONES=?,PERSONA_CONTACTO=?,POBLACION=?,PROVINCIA=?,TELEFONO=?,USUARIO=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (46, 1, 'ALMACENES', 'D', 'DELETE FROM ALMACENES WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (47, 1, 'ARTICULOS', 'S', 'SELECT ID,COMISIONABLE,DESCRIPCION,DESCUENTO,ELIMINADO,FAMILIA,FECHA_ALTA,FECHA_MODIFICACION,ID_EMPRESA,ID_PROVEEDOR,IMAGEN,INVENTARIABLE,PRECIO_COSTE,PRECIO_NETO,PRECIO_PORTE,REFERENCIA,REFERENCIA_PROV', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (48, 1, 'ARTICULOS', 'S', ',USUARIO FROM ARTICULOS', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (49, 1, 'ARTICULOS', 'S', ' WHERE ID=?', 3);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (50, 1, 'ARTICULOS', 'I', 'INSERT INTO ARTICULOS (ID,COMISIONABLE,DESCRIPCION,DESCUENTO,ELIMINADO,FAMILIA,FECHA_ALTA,FECHA_MODIFICACION,ID_EMPRESA,ID_PROVEEDOR,IMAGEN,INVENTARIABLE,PRECIO_COSTE,PRECIO_NETO,PRECIO_PORTE,REFERENCIA', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (51, 1, 'ARTICULOS', 'I', ',REFERENCIA_PROV,USUARIO ) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (52, 1, 'ARTICULOS', 'U', 'UPDATE ARTICULOS SET ID=?,COMISIONABLE=?,DESCRIPCION=?,DESCUENTO=?,ELIMINADO=?,FAMILIA=?,FECHA_ALTA=?,FECHA_MODIFICACION=?,ID_EMPRESA=?,ID_PROVEEDOR=?,IMAGEN=?,INVENTARIABLE=?,PRECIO_COSTE=?,PRECIO_NETO=?', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (53, 1, 'ARTICULOS', 'U', ',PRECIO_PORTE=?,REFERENCIA=?,REFERENCIA_PROV=?,USUARIO =? WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (54, 1, 'ARTICULOS', 'D', 'DELETE FROM ARTICULOS WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (55, 1, 'CATEGORIAS', 'S', 'SELECT ID,CATEGORIA FROM CATEGORIAS', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (56, 1, 'CATEGORIAS', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (57, 1, 'CATEGORIAS', 'I', 'INSERT INTO CATEGORIAS (ID,CATEGORIA) VALUES (?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (58, 1, 'CATEGORIAS', 'U', 'UPDATE CATEGORIAS SET ID=?,CATEGORIA=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (59, 1, 'CATEGORIAS', 'D', 'DELETE FROM CATEGORIAS WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (60, 1, 'CLIENTES_DATOS', 'S', 'SELECT ID_CLIENTE,BLOQUEADO,CODIGO_ASIGNADO,DESCUENTO,GRUPO_CLIENTE,ID_AGENTE,ID_FORMA_PAGO,ID_TIPO_IVA,IGNORAR_CONTABILIDAD,MOTIVO_BLOQUEO,NOMBRE_COMERCIAL,PROCEDENCIA_CLIENTE,RECARGO_EQUIVALENCIA,REGIMEN_IVA', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (61, 1, 'CLIENTES_DATOS', 'S', ',TIENDA_WEB,VENCIMIENTO_FACTURAS FROM CLIENTES_DATOS', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (62, 1, 'CLIENTES_DATOS', 'S', ' WHERE ID_CLIENTE=?', 3);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (63, 1, 'CLIENTES_DATOS', 'I', 'INSERT INTO CLIENTES_DATOS (ID_CLIENTE,BLOQUEADO,CODIGO_ASIGNADO,DESCUENTO,GRUPO_CLIENTE,ID_AGENTE,ID_FORMA_PAGO,ID_TIPO_IVA,IGNORAR_CONTABILIDAD,MOTIVO_BLOQUEO,NOMBRE_COMERCIAL,PROCEDENCIA_CLIENTE,RECARGO_EQUIVALENCIA', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (64, 1, 'CLIENTES_DATOS', 'I', ',REGIMEN_IVA,TIENDA_WEB,VENCIMIENTO_FACTURAS ) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (65, 1, 'CLIENTES_DATOS', 'U', 'UPDATE CLIENTES_DATOS SET ID_CLIENTE=?,BLOQUEADO=?,CODIGO_ASIGNADO=?,DESCUENTO=?,GRUPO_CLIENTE=?,ID_AGENTE=?,ID_FORMA_PAGO=?,ID_TIPO_IVA=?,IGNORAR_CONTABILIDAD=?,MOTIVO_BLOQUEO=?,NOMBRE_COMERCIAL=?,PROCEDENCIA_CLIENTE=?', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (66, 1, 'CLIENTES_DATOS', 'U', ',RECARGO_EQUIVALENCIA=?,REGIMEN_IVA=?,TIENDA_WEB=?,VENCIMIENTO_FACTURAS =? WHERE ID_CLIENTE=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (67, 1, 'CLIENTES_DATOS', 'D', 'DELETE FROM CLIENTES_DATOS WHERE ID_CLIENTE=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (68, 1, 'CLIENTES_DTOS_PROVEEDORES', 'S', 'SELECT ID,DESCUENTO,ID_CLIENTE,ID_PROVEEDOR FROM CLIENTES_DTOS_PROVEEDORES', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (69, 1, 'CLIENTES_DTOS_PROVEEDORES', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (70, 1, 'CLIENTES_DTOS_PROVEEDORES', 'I', 'INSERT INTO CLIENTES_DTOS_PROVEEDORES (ID,DESCUENTO,ID_CLIENTE,ID_PROVEEDOR) VALUES (?,?,?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (71, 1, 'CLIENTES_DTOS_PROVEEDORES', 'U', 'UPDATE CLIENTES_DTOS_PROVEEDORES SET ID=?,DESCUENTO=?,ID_CLIENTE=?,ID_PROVEEDOR=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (72, 1, 'CLIENTES_DTOS_PROVEEDORES', 'D', 'DELETE FROM CLIENTES_DTOS_PROVEEDORES WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (73, 1, 'CLIENTES_GRUPOS', 'S', 'SELECT ID,DESCRIPCION FROM CLIENTES_GRUPOS', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (74, 1, 'CLIENTES_GRUPOS', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (75, 1, 'CLIENTES_GRUPOS', 'I', 'INSERT INTO CLIENTES_GRUPOS (ID,DESCRIPCION) VALUES (?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (76, 1, 'CLIENTES_GRUPOS', 'U', 'UPDATE CLIENTES_GRUPOS SET ID=?,DESCRIPCION=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (77, 1, 'CLIENTES_GRUPOS', 'D', 'DELETE FROM CLIENTES_GRUPOS WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (78, 1, 'CLIENTES_PROCEDENCIAS', 'S', 'SELECT ID,DESCRIPCION FROM CLIENTES_PROCEDENCIAS', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (79, 1, 'CLIENTES_PROCEDENCIAS', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (80, 1, 'CLIENTES_PROCEDENCIAS', 'I', 'INSERT INTO CLIENTES_PROCEDENCIAS (ID,DESCRIPCION) VALUES (?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (81, 1, 'CLIENTES_PROCEDENCIAS', 'U', 'UPDATE CLIENTES_PROCEDENCIAS SET ID=?,DESCRIPCION=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (82, 1, 'CLIENTES_PROCEDENCIAS', 'D', 'DELETE FROM CLIENTES_PROCEDENCIAS WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (83, 1, 'COMISIONES_LIQUIDADAS', 'S', 'SELECT ID,DESCRIPCION,FECHA,FECHA_ALTA,FECHA_MODIFICACION,ID_AGENTE,ID_EMPRESA,IMPORTE_TOTAL,REFERENCIA,USUARIO FROM COMISIONES_LIQUIDADAS', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (84, 1, 'COMISIONES_LIQUIDADAS', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (85, 1, 'COMISIONES_LIQUIDADAS', 'I', 'INSERT INTO COMISIONES_LIQUIDADAS (ID,DESCRIPCION,FECHA,FECHA_ALTA,FECHA_MODIFICACION,ID_AGENTE,ID_EMPRESA,IMPORTE_TOTAL,REFERENCIA,USUARIO) VALUES (?,?,?,?,?,?,?,?,?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (86, 1, 'COMISIONES_LIQUIDADAS', 'U', 'UPDATE COMISIONES_LIQUIDADAS SET ID=?,DESCRIPCION=?,FECHA=?,FECHA_ALTA=?,FECHA_MODIFICACION=?,ID_AGENTE=?,ID_EMPRESA=?,IMPORTE_TOTAL=?,REFERENCIA=?,USUARIO=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (87, 1, 'COMISIONES_LIQUIDADAS', 'D', 'DELETE FROM COMISIONES_LIQUIDADAS WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (88, 1, 'CONFIGURACION', 'S', 'SELECT ID,CODIGO,ID_EMPRESA,VALOR FROM CONFIGURACION', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (89, 1, 'CONFIGURACION', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (90, 1, 'CONFIGURACION', 'I', 'INSERT INTO CONFIGURACION (ID,CODIGO,ID_EMPRESA,VALOR) VALUES (?,?,?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (91, 1, 'CONFIGURACION', 'U', 'UPDATE CONFIGURACION SET ID=?,CODIGO=?,ID_EMPRESA=?,VALOR=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (92, 1, 'CONFIGURACION', 'D', 'DELETE FROM CONFIGURACION WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (93, 1, 'CONT_APUNTES', 'S', 'SELECT ID,CONCEPTO,DEBE,DOCUMENTO,HABER,ID_ASIENTO,ID_SUBCUENTA,NUM_ORDEN,PUNTEADO FROM CONT_APUNTES', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (94, 1, 'CONT_APUNTES', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (95, 1, 'CONT_APUNTES', 'I', 'INSERT INTO CONT_APUNTES (ID,CONCEPTO,DEBE,DOCUMENTO,HABER,ID_ASIENTO,ID_SUBCUENTA,NUM_ORDEN,PUNTEADO) VALUES (?,?,?,?,?,?,?,?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (96, 1, 'CONT_APUNTES', 'U', 'UPDATE CONT_APUNTES SET ID=?,CONCEPTO=?,DEBE=?,DOCUMENTO=?,HABER=?,ID_ASIENTO=?,ID_SUBCUENTA=?,NUM_ORDEN=?,PUNTEADO=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (97, 1, 'CONT_APUNTES', 'D', 'DELETE FROM CONT_APUNTES WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (98, 1, 'CONT_ASIENTOS', 'S', 'SELECT ID,FECHA_ASIENTO,ID_FACTURA,ID_PAGO,ORDEN,TIPO FROM CONT_ASIENTOS', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (99, 1, 'CONT_ASIENTOS', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (100, 1, 'CONT_ASIENTOS', 'I', 'INSERT INTO CONT_ASIENTOS (ID,FECHA_ASIENTO,ID_FACTURA,ID_PAGO,ORDEN,TIPO) VALUES (?,?,?,?,?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (101, 1, 'CONT_ASIENTOS', 'U', 'UPDATE CONT_ASIENTOS SET ID=?,FECHA_ASIENTO=?,ID_FACTURA=?,ID_PAGO=?,ORDEN=?,TIPO=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (102, 1, 'CONT_ASIENTOS', 'D', 'DELETE FROM CONT_ASIENTOS WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (103, 1, 'CONT_BALANCES', 'S', 'SELECT ID,DESCRIPCION1,DESCRIPCION2,DESCRIPCION3,NATURALEZA,NIVEL1,NIVEL2,NIVEL3,REF_BALANCE FROM CONT_BALANCES', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (104, 1, 'CONT_BALANCES', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (105, 1, 'CONT_BALANCES', 'I', 'INSERT INTO CONT_BALANCES (ID,DESCRIPCION1,DESCRIPCION2,DESCRIPCION3,NATURALEZA,NIVEL1,NIVEL2,NIVEL3,REF_BALANCE) VALUES (?,?,?,?,?,?,?,?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (106, 1, 'CONT_BALANCES', 'U', 'UPDATE CONT_BALANCES SET ID=?,DESCRIPCION1=?,DESCRIPCION2=?,DESCRIPCION3=?,NATURALEZA=?,NIVEL1=?,NIVEL2=?,NIVEL3=?,REF_BALANCE=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (107, 1, 'CONT_BALANCES', 'D', 'DELETE FROM CONT_BALANCES WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (108, 1, 'CONT_CUENTAS', 'S', 'SELECT ID,DESCRIPCION,ID_BALANCE,ID_CUENTA_ESPECIAL,ID_EJERCICIO,ID_EPIGRAFE,REF_CUENTA FROM CONT_CUENTAS', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (109, 1, 'CONT_CUENTAS', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (110, 1, 'CONT_CUENTAS', 'I', 'INSERT INTO CONT_CUENTAS (ID,DESCRIPCION,ID_BALANCE,ID_CUENTA_ESPECIAL,ID_EJERCICIO,ID_EPIGRAFE,REF_CUENTA) VALUES (?,?,?,?,?,?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (111, 1, 'CONT_CUENTAS', 'U', 'UPDATE CONT_CUENTAS SET ID=?,DESCRIPCION=?,ID_BALANCE=?,ID_CUENTA_ESPECIAL=?,ID_EJERCICIO=?,ID_EPIGRAFE=?,REF_CUENTA=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (112, 1, 'CONT_CUENTAS', 'D', 'DELETE FROM CONT_CUENTAS WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (113, 1, 'CONT_CUENTAS_ESPECIALES', 'S', 'SELECT ID,DESCRIPCION,REFERENCIA FROM CONT_CUENTAS_ESPECIALES', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (114, 1, 'CONT_CUENTAS_ESPECIALES', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (115, 1, 'CONT_CUENTAS_ESPECIALES', 'I', 'INSERT INTO CONT_CUENTAS_ESPECIALES (ID,DESCRIPCION,REFERENCIA) VALUES (?,?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (116, 1, 'CONT_CUENTAS_ESPECIALES', 'U', 'UPDATE CONT_CUENTAS_ESPECIALES SET ID=?,DESCRIPCION=?,REFERENCIA=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (117, 1, 'CONT_CUENTAS_ESPECIALES', 'D', 'DELETE FROM CONT_CUENTAS_ESPECIALES WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (118, 1, 'CONT_EJERCICIOS', 'S', 'SELECT ID,ACTIVO,ESTADO,FECHA_FIN,FECHA_INICIO,ID_ASIENTO_APERTURA,ID_ASIENTO_CIERRE,ID_ASIENTO_PERYGAN,ID_EMPRESA,LONG_SUB_CUENTA,NOMBRE FROM CONT_EJERCICIOS', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (119, 1, 'CONT_EJERCICIOS', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (120, 1, 'CONT_EJERCICIOS', 'I', 'INSERT INTO CONT_EJERCICIOS (ID,ACTIVO,ESTADO,FECHA_FIN,FECHA_INICIO,ID_ASIENTO_APERTURA,ID_ASIENTO_CIERRE,ID_ASIENTO_PERYGAN,ID_EMPRESA,LONG_SUB_CUENTA,NOMBRE) VALUES (?,?,?,?,?,?,?,?,?,?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (121, 1, 'CONT_EJERCICIOS', 'U', 'UPDATE CONT_EJERCICIOS SET ID=?,ACTIVO=?,ESTADO=?,FECHA_FIN=?,FECHA_INICIO=?,ID_ASIENTO_APERTURA=?,ID_ASIENTO_CIERRE=?,ID_ASIENTO_PERYGAN=?,ID_EMPRESA=?,LONG_SUB_CUENTA=?,NOMBRE=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (122, 1, 'CONT_EJERCICIOS', 'D', 'DELETE FROM CONT_EJERCICIOS WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (123, 1, 'CONT_EPIGRAFES', 'S', 'SELECT ID,DESCRIPCION,ID_EJERCICIO,ID_PADRE,REF_EPIGRAFE FROM CONT_EPIGRAFES', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (124, 1, 'CONT_EPIGRAFES', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (125, 1, 'CONT_EPIGRAFES', 'I', 'INSERT INTO CONT_EPIGRAFES (ID,DESCRIPCION,ID_EJERCICIO,ID_PADRE,REF_EPIGRAFE) VALUES (?,?,?,?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (126, 1, 'CONT_EPIGRAFES', 'U', 'UPDATE CONT_EPIGRAFES SET ID=?,DESCRIPCION=?,ID_EJERCICIO=?,ID_PADRE=?,REF_EPIGRAFE=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (127, 1, 'CONT_EPIGRAFES', 'D', 'DELETE FROM CONT_EPIGRAFES WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (128, 1, 'CONT_SUBCUENTAS', 'S', 'SELECT ID,DESCRIPCION,ID_CONTACTO,ID_CUENTA,ID_EJERCICIO,REF_SUBCUENTA FROM CONT_SUBCUENTAS', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (129, 1, 'CONT_SUBCUENTAS', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (130, 1, 'CONT_SUBCUENTAS', 'I', 'INSERT INTO CONT_SUBCUENTAS (ID,DESCRIPCION,ID_CONTACTO,ID_CUENTA,ID_EJERCICIO,REF_SUBCUENTA) VALUES (?,?,?,?,?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (131, 1, 'CONT_SUBCUENTAS', 'U', 'UPDATE CONT_SUBCUENTAS SET ID=?,DESCRIPCION=?,ID_CONTACTO=?,ID_CUENTA=?,ID_EJERCICIO=?,REF_SUBCUENTA=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (132, 1, 'CONT_SUBCUENTAS', 'D', 'DELETE FROM CONT_SUBCUENTAS WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (133, 1, 'CONTACTOS', 'S', 'SELECT ID,CALLE,CODIGO_POSTAL,EMAIL_1,EMAIL_2,FAX,FECHA_ALTA,FECHA_MODIFICACION,ID_TIENDA,MOVIL_1,MOVIL_2,NIF_CIF,NOMBRE,NOTAS,PAGINA_WEB,PERSONA_CONTACTO,POBLACION,PROVINCIA,REFERENCIA,TELEFONO_1,TELEFONO_2', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (134, 1, 'CONTACTOS', 'S', ',USUARIO FROM CONTACTOS', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (135, 1, 'CONTACTOS', 'S', ' WHERE ID=?', 3);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (136, 1, 'CONTACTOS', 'I', 'INSERT INTO CONTACTOS (ID,CALLE,CODIGO_POSTAL,EMAIL_1,EMAIL_2,FAX,FECHA_ALTA,FECHA_MODIFICACION,ID_TIENDA,MOVIL_1,MOVIL_2,NIF_CIF,NOMBRE,NOTAS,PAGINA_WEB,PERSONA_CONTACTO,POBLACION,PROVINCIA,REFERENCIA', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (137, 1, 'CONTACTOS', 'I', ',TELEFONO_1,TELEFONO_2,USUARIO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (138, 1, 'CONTACTOS', 'U', 'UPDATE CONTACTOS SET ID=?,CALLE=?,CODIGO_POSTAL=?,EMAIL_1=?,EMAIL_2=?,FAX=?,FECHA_ALTA=?,FECHA_MODIFICACION=?,ID_TIENDA=?,MOVIL_1=?,MOVIL_2=?,NIF_CIF=?,NOMBRE=?,NOTAS=?,PAGINA_WEB=?,PERSONA_CONTACTO=?,POBLACION=?', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (139, 1, 'CONTACTOS', 'U', ',PROVINCIA=?,REFERENCIA=?,TELEFONO_1=?,TELEFONO_2=?,USUARIO=? WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (140, 1, 'CONTACTOS', 'D', 'DELETE FROM CONTACTOS WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (141, 1, 'CONTACTOS_CATEGORIAS', 'S', 'SELECT ID_CONTACTO,ID_CATEGORIA FROM CONTACTOS_CATEGORIAS', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (142, 1, 'CONTACTOS_CATEGORIAS', 'S', ' WHERE ID_CONTACTO=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (143, 1, 'CONTACTOS_CATEGORIAS', 'I', 'INSERT INTO CONTACTOS_CATEGORIAS (ID_CONTACTO,ID_CATEGORIA) VALUES (?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (144, 1, 'CONTACTOS_CATEGORIAS', 'U', 'UPDATE CONTACTOS_CATEGORIAS SET ID_CONTACTO=?,ID_CATEGORIA=? WHERE ID_CONTACTO=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (145, 1, 'CONTACTOS_CATEGORIAS', 'D', 'DELETE FROM CONTACTOS_CATEGORIAS WHERE ID_CONTACTO=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (146, 1, 'CONTACTOS_DATOS_BANCO', 'S', 'SELECT ID,CUENTA,DC,ENTIDAD,FECHA_ALTA,FECHA_MODIFICACION,ID_CONTACTO,SUCURSAL,TITULAR FROM CONTACTOS_DATOS_BANCO', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (147, 1, 'CONTACTOS_DATOS_BANCO', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (148, 1, 'CONTACTOS_DATOS_BANCO', 'I', 'INSERT INTO CONTACTOS_DATOS_BANCO (ID,CUENTA,DC,ENTIDAD,FECHA_ALTA,FECHA_MODIFICACION,ID_CONTACTO,SUCURSAL,TITULAR) VALUES (?,?,?,?,?,?,?,?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (149, 1, 'CONTACTOS_DATOS_BANCO', 'U', 'UPDATE CONTACTOS_DATOS_BANCO SET ID=?,CUENTA=?,DC=?,ENTIDAD=?,FECHA_ALTA=?,FECHA_MODIFICACION=?,ID_CONTACTO=?,SUCURSAL=?,TITULAR=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (150, 1, 'CONTACTOS_DATOS_BANCO', 'D', 'DELETE FROM CONTACTOS_DATOS_BANCO WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (151, 1, 'CONTACTOS_DIRECCIONES', 'S', 'SELECT ID,CALLE,CODIGO_POSTAL,EMAIL,FAX,FECHA_ALTA,FECHA_MODIFICACION,ID_CONTACTO,MOVIL,NOMBRE,NOTAS,PERSONA_CONTACTO,POBLACION,PORTE,PROVINCIA,TELEFONO FROM CONTACTOS_DIRECCIONES', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (152, 1, 'CONTACTOS_DIRECCIONES', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (153, 1, 'CONTACTOS_DIRECCIONES', 'I', 'INSERT INTO CONTACTOS_DIRECCIONES (ID,CALLE,CODIGO_POSTAL,EMAIL,FAX,FECHA_ALTA,FECHA_MODIFICACION,ID_CONTACTO,MOVIL,NOMBRE,NOTAS,PERSONA_CONTACTO,POBLACION,PORTE,PROVINCIA,TELEFONO) VALUES (?,?,?,?,?,?', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (154, 1, 'CONTACTOS_DIRECCIONES', 'I', ',?,?,?,?,?,?,?,?,?,?)', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (155, 1, 'CONTACTOS_DIRECCIONES', 'U', 'UPDATE CONTACTOS_DIRECCIONES SET ID=?,CALLE=?,CODIGO_POSTAL=?,EMAIL=?,FAX=?,FECHA_ALTA=?,FECHA_MODIFICACION=?,ID_CONTACTO=?,MOVIL=?,NOMBRE=?,NOTAS=?,PERSONA_CONTACTO=?,POBLACION=?,PORTE=?,PROVINCIA=?,TELEFONO=?', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (156, 1, 'CONTACTOS_DIRECCIONES', 'U', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (157, 1, 'CONTACTOS_DIRECCIONES', 'D', 'DELETE FROM CONTACTOS_DIRECCIONES WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (158, 1, 'EMPLEADOS_DATOS', 'S', 'SELECT ID_EMPLEADO,CATEGORIA,EXPERIENCIA,FECHA_ALTA_EMPRESA,FECHA_NACIMIENTO,FORMACION_BASE,FORMACION_COMPLE,FORMACION_RECIBIDA,ID_USUARIO FROM EMPLEADOS_DATOS', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (159, 1, 'EMPLEADOS_DATOS', 'S', ' WHERE ID_EMPLEADO=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (160, 1, 'EMPLEADOS_DATOS', 'I', 'INSERT INTO EMPLEADOS_DATOS (ID_EMPLEADO,CATEGORIA,EXPERIENCIA,FECHA_ALTA_EMPRESA,FECHA_NACIMIENTO,FORMACION_BASE,FORMACION_COMPLE,FORMACION_RECIBIDA,ID_USUARIO) VALUES (?,?,?,?,?,?,?,?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (161, 1, 'EMPLEADOS_DATOS', 'U', 'UPDATE EMPLEADOS_DATOS SET ID_EMPLEADO=?,CATEGORIA=?,EXPERIENCIA=?,FECHA_ALTA_EMPRESA=?,FECHA_NACIMIENTO=?,FORMACION_BASE=?,FORMACION_COMPLE=?,FORMACION_RECIBIDA=?,ID_USUARIO=? WHERE ID_EMPLEADO=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (162, 1, 'EMPLEADOS_DATOS', 'D', 'DELETE FROM EMPLEADOS_DATOS WHERE ID_EMPLEADO=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (163, 1, 'EMPLEADOS_GRUPOS', 'S', 'SELECT ID,DESCRIPCION FROM EMPLEADOS_GRUPOS', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (164, 1, 'EMPLEADOS_GRUPOS', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (165, 1, 'EMPLEADOS_GRUPOS', 'I', 'INSERT INTO EMPLEADOS_GRUPOS (ID,DESCRIPCION) VALUES (?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (166, 1, 'EMPLEADOS_GRUPOS', 'U', 'UPDATE EMPLEADOS_GRUPOS SET ID=?,DESCRIPCION=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (167, 1, 'EMPLEADOS_GRUPOS', 'D', 'DELETE FROM EMPLEADOS_GRUPOS WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (168, 1, 'EMPRESAS', 'S', 'SELECT ID,CALLE,CODIGO_POSTAL,EMAIL_1,EMAIL_2,FAX,FECHA_ALTA,FECHA_MODIFICACION,IVA,LOGOTIPO,MOVIL_1,MOVIL_2,NIF_CIF,NOMBRE,NOTAS,PAGINA_WEB,POBLACION,PROVINCIA,RAZON_SOCIAL,REGISTRO_MERCANTIL,TELEFONO_1', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (169, 1, 'EMPRESAS', 'S', ',TELEFONO_2,USUARIO FROM EMPRESAS', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (170, 1, 'EMPRESAS', 'S', ' WHERE ID=?', 3);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (171, 1, 'EMPRESAS', 'I', 'INSERT INTO EMPRESAS (ID,CALLE,CODIGO_POSTAL,EMAIL_1,EMAIL_2,FAX,FECHA_ALTA,FECHA_MODIFICACION,IVA,LOGOTIPO,MOVIL_1,MOVIL_2,NIF_CIF,NOMBRE,NOTAS,PAGINA_WEB,POBLACION,PROVINCIA,RAZON_SOCIAL,REGISTRO_MERCANTIL', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (172, 1, 'EMPRESAS', 'I', ',TELEFONO_1,TELEFONO_2,USUARIO) VALUES (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (173, 1, 'EMPRESAS', 'U', 'UPDATE EMPRESAS SET ID=?,CALLE=?,CODIGO_POSTAL=?,EMAIL_1=?,EMAIL_2=?,FAX=?,FECHA_ALTA=?,FECHA_MODIFICACION=?,IVA=?,LOGOTIPO=?,MOVIL_1=?,MOVIL_2=?,NIF_CIF=?,NOMBRE=?,NOTAS=?,PAGINA_WEB=?,POBLACION=?,PROVINCIA=?', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (174, 1, 'EMPRESAS', 'U', ',RAZON_SOCIAL=?,REGISTRO_MERCANTIL=?,TELEFONO_1=?,TELEFONO_2=?,USUARIO=? WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (175, 1, 'EMPRESAS', 'D', 'DELETE FROM EMPRESAS WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (176, 1, 'EMPRESAS_CONTACTOS', 'S', 'SELECT ID,ID_CONTACTO,ID_EMPRESA FROM EMPRESAS_CONTACTOS', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (177, 1, 'EMPRESAS_CONTACTOS', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (178, 1, 'EMPRESAS_CONTACTOS', 'I', 'INSERT INTO EMPRESAS_CONTACTOS (ID,ID_CONTACTO,ID_EMPRESA) VALUES (?,?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (179, 1, 'EMPRESAS_CONTACTOS', 'U', 'UPDATE EMPRESAS_CONTACTOS SET ID=?,ID_CONTACTO=?,ID_EMPRESA=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (180, 1, 'EMPRESAS_CONTACTOS', 'D', 'DELETE FROM EMPRESAS_CONTACTOS WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (181, 1, 'EMPRESAS_DATOS_BANCO', 'S', 'SELECT ID,CUENTA,DC,ENTIDAD,ID_EMPRESA,NOMBRE,SUCURSAL,SUFIJO_N19,SUFIJO_N58 FROM EMPRESAS_DATOS_BANCO', 1);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (182, 1, 'EMPRESAS_DATOS_BANCO', 'S', ' WHERE ID=?', 2);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (183, 1, 'EMPRESAS_DATOS_BANCO', 'I', 'INSERT INTO EMPRESAS_DATOS_BANCO (ID,CUENTA,DC,ENTIDAD,ID_EMPRESA,NOMBRE,SUCURSAL,SUFIJO_N19,SUFIJO_N58) VALUES (?,?,?,?,?,?,?,?,?)', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (184, 1, 'EMPRESAS_DATOS_BANCO', 'U', 'UPDATE EMPRESAS_DATOS_BANCO SET ID=?,CUENTA=?,DC=?,ENTIDAD=?,ID_EMPRESA=?,NOMBRE=?,SUCURSAL=?,SUFIJO_N19=?,SUFIJO_N58=? WHERE ID=?', 0);
INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (185, 1, 'EMPRESAS_DATOS_BANCO', 'D', 'DELETE FROM EMPRESAS_DATOS_BANCO WHERE ID=?', 0);
COMMIT WORK;
SET GENERATOR GEN_REPLDEFS_ID TO 186;

15
RodaxSoftware.FactuGES.proj
View File

@ -159,10 +159,16 @@
<Target Name="BuildDatabase">
<MSBuild Projects="@(SqlProjects)"
Targets="$(BuildTargets)"
Targets="Build"
Properties="Configuration=$(Configuration);SqlCmdRunner=$(SqlCmdRunner);DBServer=$(DBServer);DBUser=$(DBUser);DBPassword=$(DBPassword);"/>
</Target>
<Target Name="BuildReplicador">
<MSBuild Projects="@(SqlProjects)"
Targets="BuildReplicador"
Properties="Configuration=$(Configuration);SqlCmdRunner=$(SqlCmdRunner);DBServer=$(DBServer);DBUser=$(DBUser);DBPassword=$(DBPassword);"/>
</Target>
<Target Name="ExtractDatabase">
<MSBuild Projects="@(SqlProjects)"
Targets="Extract"
@ -235,6 +241,11 @@
<Message Text="-> ExtractDatabase" />
<Message Text="$(TAB)Extrae el metadata de la BD actual y lo deja en un script SQL" />
<Message Text=" " />
<Message Text="-> BuildReplicador" />
<Message Text="$(TAB)Construye la base de datos para la replicación e inserta los datos necesarios" />
</Target>
</Project>

103
Source/Base/Base.dproj
View File

@ -44,13 +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\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -65,61 +58,47 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PlRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PluginRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PluginSDKRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PluginSDK_D10RemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PluginSDK_D10RRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PluginSDK_D1RemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PluginSDK_DRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PluginSDK_RemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PluginSDRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PluginSRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PlugiRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PlugRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PluRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PRemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\adortl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\designide.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dsnap.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\Jcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PluginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\xmlrtl.dcp" />
<DCCReference Include="..\Modulos\Familias\adortl.dcp" />
<DCCReference Include="..\Modulos\Familias\cxIntl6D11.dcp" />
<DCCReference Include="..\Modulos\Familias\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\Modulos\Familias\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Familias\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Familias\dclIndyCore.dcp" />
<DCCReference Include="..\Modulos\Familias\designide.dcp" />
<DCCReference Include="..\Modulos\Familias\dsnap.dcp" />
<DCCReference Include="..\Modulos\Familias\GUISDK_D11.dcp" />
<DCCReference Include="..\Modulos\Familias\IndyCore.dcp" />
<DCCReference Include="..\Modulos\Familias\IndyProtocols.dcp" />
<DCCReference Include="..\Modulos\Familias\IndySystem.dcp" />
<DCCReference Include="..\Modulos\Familias\Jcl.dcp" />
<DCCReference Include="..\Modulos\Familias\JclVcl.dcp" />
<DCCReference Include="..\Modulos\Familias\JSDialog100.dcp" />
<DCCReference Include="..\Modulos\Familias\JvCmpD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvCoreD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvDlgsD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvMMD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvNetD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\JvSystemD11R.dcp" />
<DCCReference Include="..\Modulos\Familias\pckMD5.dcp" />
<DCCReference Include="..\Modulos\Familias\pckUCDataConnector.dcp" />
<DCCReference Include="..\Modulos\Familias\pckUserControl_RT.dcp" />
<DCCReference Include="..\Modulos\Familias\PluginSDK_D10R.dcp" />
<DCCReference Include="..\Modulos\Familias\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Familias\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Familias\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Modulos\Familias\rtl.dcp" />
<DCCReference Include="..\Modulos\Familias\TB2k_D10.dcp" />
<DCCReference Include="..\Modulos\Familias\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Familias\vcl.dcp" />
<DCCReference Include="..\Modulos\Familias\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Familias\vcldb.dcp" />
<DCCReference Include="..\Modulos\Familias\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Familias\VclSmp.dcp" />
<DCCReference Include="..\Modulos\Familias\vclx.dcp" />
<DCCReference Include="..\Modulos\Familias\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>

BIN
Source/Base/Base.res
View File

Binary file not shown.

21
Source/Modulos/Contactos/Data/uDataModuleClientes.dfm
View File

@ -346,11 +346,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]
@ -436,10 +445,20 @@ inherited DataModuleClientes: TDataModuleClientes
object tbl_ProcedenciasCliente: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CLIENTES_PROCEDENCIAS_ID'
Required = True
DictionaryEntry = 'ProcedenciasCliente_ID'
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'ProcedenciasCliente_DESCRIPCION'
DictionaryEntry = 'ProcedenciasCliente_DESCRIPCION'
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

11
Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm
View File

@ -244,11 +244,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]

12
Source/Modulos/Contactos/Data/uDataModuleProveedores.dfm
View File

@ -13,11 +13,21 @@ inherited DataModuleProveedores: TDataModuleProveedores
object tbl_GruposProveedor: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_PROVEEDORES_GRUPOS_ID'
Required = True
DisplayLabel = 'GruposProveedor_ID'
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]

200
Source/Modulos/Contactos/Model/schContactosClient_Intf.pas
View File

@ -9,19 +9,19 @@ 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_SubCuentasContacto = '{BC709B14-569A-481A-AF2D-082B06DAD5BC}';
RID_Contactos = '{62A32748-9F85-4236-8D26-B9B3D8F9D108}';
RID_GruposCliente = '{FBBCA246-CCE1-444E-82B6-D3A03BCEF3AB}';
RID_DatosBancarios = '{7A84A957-75FA-4633-87DF-342160EB8A63}';
RID_Clientes = '{19780EDE-5603-4077-ACCF-78AECDFB2CF4}';
RID_Proveedores = '{FEE8B919-B708-440E-A7AC-206D6094BA05}';
RID_Empleados = '{4ADF005C-5C53-47EE-B005-0F6B2C592984}';
RID_DireccionesContacto = '{9A348CA2-7CD2-4F33-B87D-77ECACF35AA7}';
RID_ClientesDescuentos = '{7DD9C4C4-EBA3-4754-AE48-6D7C717FA906}';
RID_ProcedenciasCliente = '{11DAEA2C-AE68-4B21-AE46-0047E2AD0AD9}';
RID_GruposProveedor = '{D0D6EDF8-E981-4A4A-B9A4-E53845E7C94D}';
RID_GruposEmpleado = '{F23C537D-81CD-49B4-8582-99DCB92191F9}';
RID_Contactos_Refresh = '{DE1F8BFE-AB5E-44F2-83D4-DE83EAE66507}';
RID_SubCuentasContacto = '{DB425E13-FAB7-4F65-BCE6-7F635A0F5087}';
RID_Contactos = '{2FD53D3B-9549-4D57-BF96-0D7E015194DA}';
RID_GruposCliente = '{5BA10D11-88C1-43FF-8164-6365407C5849}';
RID_DatosBancarios = '{125083CD-E155-4AEF-A32C-154D8196330F}';
RID_Clientes = '{56F0C91A-FE41-49AA-8071-36AE7986DDC4}';
RID_Proveedores = '{77D19C57-45FD-402D-88B3-AF41C35B7AE6}';
RID_Empleados = '{F993E9F9-C0BF-41C4-ACB6-1201725A4C1A}';
RID_DireccionesContacto = '{6E17DC2B-C076-4E99-937F-20A25A74E550}';
RID_ClientesDescuentos = '{DC74ADAE-B7D8-4425-AB10-965FCF37492D}';
RID_ProcedenciasCliente = '{203DC6C2-0EAC-4E13-B0EB-9AE674DEE436}';
RID_GruposProveedor = '{90396FB9-2C83-477A-A234-2D3130349CD7}';
RID_GruposEmpleado = '{ED8857AA-842E-4F29-ADB1-F0E3011FE149}';
RID_Contactos_Refresh = '{1580AAF8-32C8-468C-9DD1-E092DEEBB24F}';
{ Data table names }
nme_SubCuentasContacto = 'SubCuentasContacto';
@ -109,10 +109,12 @@ const
idx_ContactosTIENDA = 24;
{ 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';
@ -413,22 +415,28 @@ const
idx_ClientesDescuentosDESCUENTO = 4;
{ ProcedenciasCliente fields }
fld_ProcedenciasClienteID = 'ID';
fld_ProcedenciasClienteDESCRIPCION = 'DESCRIPCION';
{ ProcedenciasCliente field indexes }
idx_ProcedenciasClienteDESCRIPCION = 0;
idx_ProcedenciasClienteID = 0;
idx_ProcedenciasClienteDESCRIPCION = 1;
{ 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';
@ -479,7 +487,7 @@ const
type
{ ISubCuentasContacto }
ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
['{9DB21B89-AE1E-4FB7-8A9F-C6B9DBB35E27}']
['{84D42B58-F588-4B95-9754-F9CA59801A9A}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -574,7 +582,7 @@ type
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
['{0D74753B-294F-4295-A957-25252E811EED}']
['{FAB53326-3794-4F50-BE06-9918634F36E1}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -897,8 +905,12 @@ type
{ IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable)
['{4B0A05E7-9028-47AD-8D6D-3A7C891B918C}']
['{F40E5B41-61DE-49C4-A34D-FB8ED5677356}']
{ 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;
@ -906,6 +918,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;
@ -915,12 +929,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;
@ -932,7 +952,7 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{BD57663C-3BAB-4814-8F32-F8E965ED0085}']
['{BD7055CC-8133-4ECE-8D7B-2AF3152C7D73}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1063,7 +1083,7 @@ type
{ IClientes }
IClientes = interface(IDAStronglyTypedDataTable)
['{CAFA7702-80A7-42E8-855B-472153773022}']
['{C3AF11E9-4107-41AE-8713-9AB3A4C89963}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1542,7 +1562,7 @@ type
{ IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable)
['{D1A6AABD-216D-4562-BB15-C73522794C41}']
['{9029B819-5D9B-4720-9239-CB73E5522DA2}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1997,7 +2017,7 @@ type
{ IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable)
['{DE0C5E2A-7D5A-47DD-8291-E63789580ADC}']
['{953D050A-130F-4BA1-A7C3-7471CF2E01B7}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2416,7 +2436,7 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{BE6D59E5-167C-4905-BD43-8DE05B45368B}']
['{F13BCCC1-D68C-483C-95CA-0FDCCD665F41}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2631,7 +2651,7 @@ type
{ IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{33EE7628-C3FF-4420-A217-CF598B6022BE}']
['{6D86E654-37C2-46B7-8C4E-283A75761CF4}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2714,8 +2734,12 @@ type
{ IProcedenciasCliente }
IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
['{D39B7429-57BD-4158-B428-6A2B02909F4A}']
['{F4EA7D47-1958-40FD-98CF-85A7EFD46925}']
{ 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;
@ -2723,6 +2747,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;
@ -2732,12 +2758,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;
@ -2749,8 +2781,12 @@ type
{ IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{287BAF88-0611-4200-B0F7-6CCEB75EB333}']
['{5949BE7B-062B-4353-8F42-652DCB437F31}']
{ 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;
@ -2758,6 +2794,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;
@ -2767,12 +2805,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;
@ -2784,8 +2828,12 @@ type
{ IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{4295FDEB-FC3A-4FAB-B32F-6C313505585B}']
['{2CA5FDD6-5EC3-4890-B749-3447C670D7E4}']
{ 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;
@ -2793,6 +2841,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;
@ -2802,12 +2852,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;
@ -2819,7 +2875,7 @@ type
{ IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{89529E22-0411-4186-8C29-4050253D8C78}']
['{AD126981-A1FB-4732-AD78-7B4DB9764976}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -3789,6 +3845,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;
@ -6819,6 +6896,27 @@ begin
inherited;
end;
function TProcedenciasClienteDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_ProcedenciasClienteID].AsInteger;
end;
procedure TProcedenciasClienteDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_ProcedenciasClienteID].AsInteger := aValue;
end;
function TProcedenciasClienteDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_ProcedenciasClienteID].IsNull;
end;
procedure TProcedenciasClienteDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_ProcedenciasClienteID].AsVariant := Null;
end;
function TProcedenciasClienteDataTableRules.GetDESCRIPCIONValue: String;
begin
result := DataTable.Fields[idx_ProcedenciasClienteDESCRIPCION].AsString;
@ -6852,6 +6950,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;
@ -6885,6 +7004,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;

224
Source/Modulos/Contactos/Model/schContactosServer_Intf.pas
View File

@ -9,24 +9,24 @@ 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_SubCuentasContactoDelta = '{ABF020CE-2FFD-47BE-8F94-AAE06B9AC4E0}';
RID_ContactosDelta = '{F25558D1-84A6-4464-AFCE-6FC6D2B2FE0A}';
RID_GruposClienteDelta = '{FB40F5F1-F9F8-47DF-95D1-59B5A95674DD}';
RID_DatosBancariosDelta = '{5D618E3A-6F82-4437-881C-770F62608B2C}';
RID_ClientesDelta = '{D44360F9-227E-478E-BD3B-E0E0F3507908}';
RID_ProveedoresDelta = '{D7DD8B5C-4584-4D3E-9B36-53755442F86C}';
RID_EmpleadosDelta = '{6E12E3F2-A061-423F-816D-F11E35BABEEC}';
RID_DireccionesContactoDelta = '{21432D98-82C1-4473-916A-7A6D1E3C3ADB}';
RID_ClientesDescuentosDelta = '{B9412AD0-C06C-4A90-BCF5-01881A1418D9}';
RID_ProcedenciasClienteDelta = '{D2811841-6506-4B82-B5BE-52F1951EA033}';
RID_GruposProveedorDelta = '{F28BC584-D730-4A7D-A2EC-AFD829F64FD5}';
RID_GruposEmpleadoDelta = '{36D5667B-1688-4F2A-8ECC-BE8E120223FB}';
RID_Contactos_RefreshDelta = '{2283997F-19D7-4845-ACCD-4E3BCF0E1B80}';
RID_SubCuentasContactoDelta = '{C6BE81D5-C1AD-4485-A854-06F9D2CFA1B1}';
RID_ContactosDelta = '{FCAB8D51-56C4-40CF-BD46-8F7DCF7B742E}';
RID_GruposClienteDelta = '{3AB1D597-F64F-4FB9-AF9E-0BEF56CA0978}';
RID_DatosBancariosDelta = '{EC6C167C-F8EA-4ADD-8A46-3BA7FFA8C946}';
RID_ClientesDelta = '{6FF774A7-7540-41D7-ACA9-35E54028F8AC}';
RID_ProveedoresDelta = '{A34837B4-64E6-4ABC-9319-B4D794E1C74E}';
RID_EmpleadosDelta = '{DF65F592-6966-4033-818C-E275BE726562}';
RID_DireccionesContactoDelta = '{34BB9A5D-75AF-43EB-8985-3C76C607DDB1}';
RID_ClientesDescuentosDelta = '{B3DB0447-3DD5-4403-968D-5F536F0AA50A}';
RID_ProcedenciasClienteDelta = '{D6D98B8C-F89A-4BEF-AE78-777D8050F310}';
RID_GruposProveedorDelta = '{A7D22925-DA53-4285-A4D9-EDA4EE179413}';
RID_GruposEmpleadoDelta = '{B7AF0091-09D2-4309-A8B1-AAA0108642BA}';
RID_Contactos_RefreshDelta = '{DD99CA2A-4B98-4535-B43C-D17EAB8D9915}';
type
{ ISubCuentasContactoDelta }
ISubCuentasContactoDelta = interface(ISubCuentasContacto)
['{ABF020CE-2FFD-47BE-8F94-AAE06B9AC4E0}']
['{C6BE81D5-C1AD-4485-A854-06F9D2CFA1B1}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String;
@ -120,7 +120,7 @@ type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
['{F25558D1-84A6-4464-AFCE-6FC6D2B2FE0A}']
['{FCAB8D51-56C4-40CF-BD46-8F7DCF7B742E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -443,11 +443,13 @@ type
{ IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente)
['{FB40F5F1-F9F8-47DF-95D1-59B5A95674DD}']
['{3AB1D597-F64F-4FB9-AF9E-0BEF56CA0978}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
end;
@ -456,6 +458,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;
@ -464,6 +472,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;
@ -477,7 +489,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
['{5D618E3A-6F82-4437-881C-770F62608B2C}']
['{EC6C167C-F8EA-4ADD-8A46-3BA7FFA8C946}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -607,7 +619,7 @@ type
{ IClientesDelta }
IClientesDelta = interface(IClientes)
['{D44360F9-227E-478E-BD3B-E0E0F3507908}']
['{6FF774A7-7540-41D7-ACA9-35E54028F8AC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1086,7 +1098,7 @@ type
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
['{D7DD8B5C-4584-4D3E-9B36-53755442F86C}']
['{A34837B4-64E6-4ABC-9319-B4D794E1C74E}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1541,7 +1553,7 @@ type
{ IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados)
['{6E12E3F2-A061-423F-816D-F11E35BABEEC}']
['{DF65F592-6966-4033-818C-E275BE726562}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1964,7 +1976,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
['{21432D98-82C1-4473-916A-7A6D1E3C3ADB}']
['{34BB9A5D-75AF-43EB-8985-3C76C607DDB1}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -2179,7 +2191,7 @@ type
{ IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos)
['{B9412AD0-C06C-4A90-BCF5-01881A1418D9}']
['{B3DB0447-3DD5-4403-968D-5F536F0AA50A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@ -2261,11 +2273,13 @@ type
{ IProcedenciasClienteDelta }
IProcedenciasClienteDelta = interface(IProcedenciasCliente)
['{D2811841-6506-4B82-B5BE-52F1951EA033}']
['{D6D98B8C-F89A-4BEF-AE78-777D8050F310}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
end;
@ -2274,6 +2288,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;
@ -2282,6 +2302,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;
@ -2295,11 +2319,13 @@ type
{ IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor)
['{F28BC584-D730-4A7D-A2EC-AFD829F64FD5}']
['{A7D22925-DA53-4285-A4D9-EDA4EE179413}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
end;
@ -2308,6 +2334,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;
@ -2316,6 +2348,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;
@ -2329,11 +2365,13 @@ type
{ IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{36D5667B-1688-4F2A-8ECC-BE8E120223FB}']
['{B7AF0091-09D2-4309-A8B1-AAA0108642BA}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldDESCRIPCION : String read GetOldDESCRIPCIONValue;
end;
@ -2342,6 +2380,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;
@ -2350,6 +2394,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;
@ -2363,7 +2411,7 @@ type
{ IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh)
['{2283997F-19D7-4845-ACCD-4E3BCF0E1B80}']
['{DD99CA2A-4B98-4535-B43C-D17EAB8D9915}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -3645,6 +3693,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];
@ -8063,6 +8142,37 @@ begin
inherited;
end;
function TProcedenciasClienteBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteID];
end;
function TProcedenciasClienteBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteID]);
end;
function TProcedenciasClienteBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_ProcedenciasClienteID];
end;
function TProcedenciasClienteBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_ProcedenciasClienteID]);
end;
procedure TProcedenciasClienteBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteID] := aValue;
end;
procedure TProcedenciasClienteBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteID] := Null;
end;
function TProcedenciasClienteBusinessProcessorRules.GetDESCRIPCIONValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_ProcedenciasClienteDESCRIPCION];
@ -8106,6 +8216,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];
@ -8149,6 +8290,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];

124
Source/Modulos/Contactos/Servidor/srvContactos_Impl.dfm
View File

@ -358,15 +358,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
@ -1795,14 +1806,26 @@ object srvContactos: TsrvContactos
item
DatasetField = 'DESCRIPCION'
TableField = 'DESCRIPCION'
end
item
DatasetField = 'ID'
TableField = 'ID'
end>
end>
Name = 'ProcedenciasCliente'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CLIENTES_PROCEDENCIAS_ID'
DictionaryEntry = 'ProcedenciasCliente_ID'
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'ProcedenciasCliente_DESCRIPCION'
end>
end
item
@ -1816,15 +1839,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
@ -1838,15 +1872,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
@ -2535,17 +2580,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>
@ -3426,24 +3470,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>
@ -4369,6 +4415,56 @@ object srvContactos: TsrvContactos
Name = 'Contactos_TIENDA'
DataType = datString
Size = 255
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
end
item
Name = 'GruposProveedor_DESCRIPCION'
DataType = datString
Size = 255
DisplayLabel = 'Descripci'#243'n'
end
item
Name = 'ProcedenciasCliente_ID'
DataType = datAutoInc
GeneratorName = 'GEN_CLIENTES_PROCEDENCIAS_ID'
Required = True
DisplayLabel = 'ID'
end
item
Name = 'ProcedenciasCliente_DESCRIPCION'
DataType = datString
Size = 255
end>
Left = 126
Top = 14

15
Source/Modulos/Familias/Data/uDataModuleFamilias.dfm
View File

@ -1,7 +1,7 @@
inherited DataModuleFamilias: TDataModuleFamilias
OnCreate = DAClientDataModuleCreate
Height = 195
Width = 390
Height = 179
Width = 357
object RORemoteService: TRORemoteService
Message = dmConexion.ROMessage
Channel = dmConexion.ROChannel
@ -26,10 +26,20 @@ inherited DataModuleFamilias: TDataModuleFamilias
object tbl_Familias: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_FAMILIAS_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

16
Source/Modulos/Familias/Familias_Group.groupproj
View File

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

3
Source/Modulos/Familias/Model/Familias_model.dpk
View File

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

22
Source/Modulos/Familias/Model/Familias_model.dproj
View File

@ -46,25 +46,15 @@
<DelphiCompile Include="Familias_model.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\Plugin\adortl.dcp" />
<DCCReference Include="..\Plugin\dbrtl.dcp" />
<DCCReference Include="..\Plugin\dsnap.dcp" />
<DCCReference Include="..\Plugin\GApplicationBase.dcp" />
<DCCReference Include="..\Plugin\GUApplicationBase.dcp" />
<DCCReference Include="..\Plugin\GUIApplicationBase.dcp" />
<DCCReference Include="..\Plugin\GUIBaApplicationBase.dcp" />
<DCCReference Include="..\Plugin\GUIBApplicationBase.dcp" />
<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

BIN
Source/Modulos/Familias/Model/Familias_model.res
View File

Binary file not shown.

62
Source/Modulos/Familias/Model/schFamiliasClient_Intf.pas
View File

@ -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 = '{5E0E521B-7290-449D-9894-03C398EAC16B}';
{ 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}']
['{2AE94E1A-10A4-49E9-9644-4D2DD29A7C1E}']
{ 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);

72
Source/Modulos/Familias/Model/schFamiliasServer_Intf.pas
View File

@ -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 = '{40100251-026E-43C3-8E18-67EA817A9BA4}';
type
{ IFamiliasDelta }
IFamiliasDelta = interface(IFamilias)
['{7935CA4C-99B8-4F96-A8CD-3CE4BCCFC041}']
['{40100251-026E-43C3-8E18-67EA817A9BA4}']
{ 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);

94
Source/Modulos/Familias/Servidor/srvFamilias_Impl.dfm
View File

@ -11,90 +11,26 @@ object srvFamilias: TsrvFamilias
Height = 249
Width = 343
object Diagrams: TDADiagrams
Left = 150
Top = 82
Left = 142
Top = 90
DiagramData = '<Diagrams>'#13#10'</Diagrams>'#13#10
end
object DataDictionary: TDADataDictionary
Fields = <
item
Name = 'Montajes_ID'
DataType = datInteger
Name = 'Familias_ID'
DataType = datAutoInc
GeneratorName = 'GEN_FAMILIAS_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
Left = 142
Top = 22
end
object schFamilias: TDASchema
@ -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_FAMILIAS_ID'
DictionaryEntry = 'Familias_ID'
InPrimaryKey = True
end
item
Name = 'DESCRIPCION'
DataType = datString
Size = 255
DictionaryEntry = 'Familias_DESCRIPCION'
end>
end>
JoinDataTables = <>
@ -155,6 +103,6 @@ object srvFamilias: TsrvFamilias
end
object Bin2DataStreamer: TDABin2DataStreamer
Left = 48
Top = 80
Top = 88
end
end

22
Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.rc
View File

@ -0,0 +1,22 @@
1 VERSIONINFO
FILEVERSION 1,0,0,0
PRODUCTVERSION 1,0,0,0
FILEFLAGSMASK 0x3FL
FILEFLAGS 0x00L
FILEOS 0x40004L
FILETYPE 0x1L
FILESUBTYPE 0x0L
BEGIN
BLOCK "StringFileInfo"
BEGIN
BLOCK "0C0A04E4"
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
END
END
BLOCK "VarFileInfo"
BEGIN
VALUE "Translation", 0x0C0A, 1252
END
END

BIN
Source/Modulos/Relaciones/Albaranes de cliente - Facturas de cliente/AlbCli_FacCli_relation.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

18
Source/Servidor/FactuGES_Server.cfg
View File

@ -1,7 +1,7 @@
-$A8
-$B-
-$C+
-$D+
-$D-
-$E-
-$F-
-$G+
@ -9,7 +9,7 @@
-$I+
-$J-
-$K-
-$L+
-$L-
-$M-
-$N+
-$O+
@ -22,16 +22,18 @@
-$V+
-$W-
-$X+
-$YD
-$Y-
-$Z1
-GD
-cg
-AWinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;
-H+
-W+
-M
-$M16384,1048576
-K$00400000
-E"..\..\Output\Debug\Servidor"
-LE"C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl"
-LN"C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Dcp"
-E"C:\Codigo Acana\Output\Debug\Servidor"
-N".\"
-U"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Acana\Lib";"C:\Codigo Acana\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Acana\Lib\RemObjects\Data_Abstract";"C:\Codigo Acana\Lib\CCPack";"C:\Codigo Acana\Lib\CFPack";"C:\Codigo Acana\Lib\GUISDK";"C:\Codigo Acana\Lib\PluginSDK";"C:\Codigo Acana\Lib\DevExpressVCL";"C:\Codigo Acana\Lib\FastReport4";"C:\Codigo Acana\Lib\JCL";"C:\Codigo Acana\Lib\JVCL";"C:\Codigo Acana\Lib\PngComponents";"C:\Codigo Acana\Lib\cxIntl6";"C:\Codigo Acana\Lib\cxIntlPrintSys3";"C:\Codigo Acana\Lib\TB2k+TBX";"C:\Codigo Acana\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Acana\Lib\Mustangpeak\EasyListview";"C:\Codigo Acana\Lib\JSDialog";"C:\Codigo Acana\Lib\UserControl";;"C:\Codigo Acana\Source\Lib";
-O"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Acana\Lib";"C:\Codigo Acana\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Acana\Lib\RemObjects\Data_Abstract";"C:\Codigo Acana\Lib\CCPack";"C:\Codigo Acana\Lib\CFPack";"C:\Codigo Acana\Lib\GUISDK";"C:\Codigo Acana\Lib\PluginSDK";"C:\Codigo Acana\Lib\DevExpressVCL";"C:\Codigo Acana\Lib\FastReport4";"C:\Codigo Acana\Lib\JCL";"C:\Codigo Acana\Lib\JVCL";"C:\Codigo Acana\Lib\PngComponents";"C:\Codigo Acana\Lib\cxIntl6";"C:\Codigo Acana\Lib\cxIntlPrintSys3";"C:\Codigo Acana\Lib\TB2k+TBX";"C:\Codigo Acana\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Acana\Lib\Mustangpeak\EasyListview";"C:\Codigo Acana\Lib\JSDialog";"C:\Codigo Acana\Lib\UserControl";;"C:\Codigo Acana\Source\Lib";
-I"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Acana\Lib";"C:\Codigo Acana\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Acana\Lib\RemObjects\Data_Abstract";"C:\Codigo Acana\Lib\CCPack";"C:\Codigo Acana\Lib\CFPack";"C:\Codigo Acana\Lib\GUISDK";"C:\Codigo Acana\Lib\PluginSDK";"C:\Codigo Acana\Lib\DevExpressVCL";"C:\Codigo Acana\Lib\FastReport4";"C:\Codigo Acana\Lib\JCL";"C:\Codigo Acana\Lib\JVCL";"C:\Codigo Acana\Lib\PngComponents";"C:\Codigo Acana\Lib\cxIntl6";"C:\Codigo Acana\Lib\cxIntlPrintSys3";"C:\Codigo Acana\Lib\TB2k+TBX";"C:\Codigo Acana\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Acana\Lib\Mustangpeak\EasyListview";"C:\Codigo Acana\Lib\JSDialog";"C:\Codigo Acana\Lib\UserControl";;"C:\Codigo Acana\Source\Lib";
-R"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Imports";"C:\Archivos de programa\CodeGear\RAD Studio\5.0\Lib\Indy10";"C:\Codigo Acana\Lib";"C:\Codigo Acana\Lib\RemObjects\RemObjects_SDK";"C:\Codigo Acana\Lib\RemObjects\Data_Abstract";"C:\Codigo Acana\Lib\CCPack";"C:\Codigo Acana\Lib\CFPack";"C:\Codigo Acana\Lib\GUISDK";"C:\Codigo Acana\Lib\PluginSDK";"C:\Codigo Acana\Lib\DevExpressVCL";"C:\Codigo Acana\Lib\FastReport4";"C:\Codigo Acana\Lib\JCL";"C:\Codigo Acana\Lib\JVCL";"C:\Codigo Acana\Lib\PngComponents";"C:\Codigo Acana\Lib\cxIntl6";"C:\Codigo Acana\Lib\cxIntlPrintSys3";"C:\Codigo Acana\Lib\TB2k+TBX";"C:\Codigo Acana\Lib\Mustangpeak\MPCommonLib";"C:\Codigo Acana\Lib\Mustangpeak\EasyListview";"C:\Codigo Acana\Lib\JSDialog";"C:\Codigo Acana\Lib\UserControl";;"C:\Codigo Acana\Source\Lib";
-GD

6
Source/Servidor/FactuGES_Server.dpr
View File

@ -111,10 +111,10 @@ uses
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas';
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "martes, 15 de enero de 2008 19:32\0"
VALUE "CompileDate", "martes, 22 de enero de 2008 10:27\0"
END
END
BLOCK "VarFileInfo"

5
Source/Servidor/uDataModuleServer.dfm
View File

@ -39,8 +39,9 @@ object dmServer: TdmServer
item
Name = 'IBX'
ConnectionString =
'IBX?Server=localhost;Database=C:\Codigo Acana\Database\ACANA.FDB' +
';UserID=sysdba;Password=masterkey;Dialect=3;Charset=ISO8859_1;'
'IBX?Server=localhost;Database=C:\Codigo Acana\Output\Debug\Datab' +
'ase\FACTUGES.FDB;UserID=sysdba;Password=masterkey;Dialect=3;Char' +
'set=ISO8859_1;'
ConnectionType = 'Interbase'
Default = True
end>