diff --git a/Database/scripts/factuges.sql b/Database/scripts/factuges.sql index fc1d8a91..80acaadd 100644 --- a/Database/scripts/factuges.sql +++ b/Database/scripts/factuges.sql @@ -136,6 +136,9 @@ SET GENERATOR GEN_CONTACTOS_DIR_ID TO 1; CREATE GENERATOR GEN_CONTACTOS_ID; SET GENERATOR GEN_CONTACTOS_ID TO 1; +CREATE GENERATOR GEN_CONTACTOS_PERSONAL_ID; +SET GENERATOR GEN_CONTACTOS_PERSONAL_ID TO 1; + CREATE GENERATOR GEN_CONT_APUNTES_ID; SET GENERATOR GEN_CONT_APUNTES_ID TO 1; @@ -723,6 +726,19 @@ CREATE TABLE CONTACTOS_CATEGORIAS ( ID_CATEGORIA TIPO_ID NOT NULL ); +CREATE TABLE CONTACTOS_DATOS_PERSONAL ( + ID TIPO_ID NOT NULL, + ID_CONTACTO TIPO_ID NOT NULL, + NOMBRE VARCHAR(255), + PUESTO VARCHAR(255), + TELEFONO VARCHAR(25), + MOVIL VARCHAR(25), + FAX VARCHAR(25), + EMAIL VARCHAR(255), + FECHA_ALTA TIMESTAMP, + FECHA_MODIFICACION TIMESTAMP +); + CREATE TABLE CONTACTOS_DATOS_BANCO ( ID TIPO_ID NOT NULL, ID_CONTACTO TIPO_ID NOT NULL, @@ -3691,6 +3707,7 @@ ALTER TABLE CONTACTOS ADD CONSTRAINT PK_CONTACTOS PRIMARY KEY (ID); ALTER TABLE CONTACTOS_CATEGORIAS ADD CONSTRAINT PK_CONTACTOS_CATEGORIAS PRIMARY KEY (ID_CONTACTO, ID_CATEGORIA); ALTER TABLE CONTACTOS_DATOS_BANCO ADD CONSTRAINT PK_CONTACTOS_DATOS_BANCO PRIMARY KEY (ID); ALTER TABLE CONTACTOS_DIRECCIONES ADD CONSTRAINT PK_CONTACTOS_DIR PRIMARY KEY (ID); +ALTER TABLE CONTACTOS_DATOS_PERSONAL ADD CONSTRAINT PK_CONTACTOS_DATOS_PER PRIMARY KEY (ID); ALTER TABLE CONT_APUNTES ADD CONSTRAINT PK_CONT_APUNTES PRIMARY KEY (ID); ALTER TABLE CONT_ASIENTOS ADD CONSTRAINT PK_CONT_ASIENTOS PRIMARY KEY (ID); ALTER TABLE CONT_BALANCES ADD CONSTRAINT PK_CONT_BALANCES PRIMARY KEY (ID); @@ -3798,6 +3815,7 @@ 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_CONTACTOS_PER_ID_CONTACTO ON CONTACTOS_DATOS_PERSONAL (ID_CONTACTO); CREATE INDEX CONT_APUNTES_IDX1 ON CONT_APUNTES (ID_ASIENTO); CREATE INDEX CONT_APUNTES_IDX2 ON CONT_APUNTES (ID_SUBCUENTA); CREATE INDEX CONT_ASIENTOS_IDX1 ON CONT_ASIENTOS (ID_FACTURA); diff --git a/Database/scripts/factuges_replicador.sql b/Database/scripts/factuges_replicador.sql index 0d99cf30..a8391000 100644 --- a/Database/scripts/factuges_replicador.sql +++ b/Database/scripts/factuges_replicador.sql @@ -71,6 +71,7 @@ INSERT INTO REPL_TABLES (TABLENAME, LOC_ID) VALUES ('CONTACTOS', 1); INSERT INTO REPL_TABLES (TABLENAME, LOC_ID) VALUES ('CONTACTOS_CATEGORIAS', 1); INSERT INTO REPL_TABLES (TABLENAME, LOC_ID) VALUES ('CONTACTOS_DATOS_BANCO', 1); INSERT INTO REPL_TABLES (TABLENAME, LOC_ID) VALUES ('CONTACTOS_DIRECCIONES', 1); +INSERT INTO REPL_TABLES (TABLENAME, LOC_ID) VALUES ('CONTACTOS_DATOS_PERSONAL', 1); INSERT INTO REPL_TABLES (TABLENAME, LOC_ID) VALUES ('VENDEDORES_DATOS', 1); INSERT INTO REPL_TABLES (TABLENAME, LOC_ID) VALUES ('EMPRESAS', 1); INSERT INTO REPL_TABLES (TABLENAME, LOC_ID) VALUES ('EMPRESAS_CONTACTOS', 1); @@ -922,6 +923,45 @@ BEGIN END ^ +CREATE TRIGGER CONTACTOS_DAT_PER_DELETE_REPL FOR CONTACTOS_DATOS_PERSONAL +ACTIVE AFTER DELETE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT OLD.ID,'CONTACTOS_DATOS_PERSONAL','D',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONTACTOS_DATOS_PERSONAL'; + END +END +^ + +CREATE TRIGGER CONTACTOS_DAT_PER_INSERT_REPL FOR CONTACTOS_DATOS_PERSONAL +ACTIVE AFTER INSERT POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONTACTOS_DATOS_PERSONAL','I',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONTACTOS_DATOS_PERSONAL'; + END +END +^ + +CREATE TRIGGER CONTACTOS_DAT_PER_UPDATE_REPL FOR CONTACTOS_DATOS_PERSONAL +ACTIVE AFTER UPDATE POSITION 0 +AS +BEGIN + IF( USER <> 'REPL' ) THEN + BEGIN + INSERT INTO CHANGES(TABLEKEY,TABLENAME,OP,LOC_ID) + SELECT NEW.ID,'CONTACTOS_DATOS_PERSONAL','U',LOC_ID + FROM REPL_TABLES WHERE TABLENAME='CONTACTOS_DATOS_PERSONAL'; + END +END +^ + /* Trigger: CONT_APUNTES_DELETE_REPL */ CREATE TRIGGER CONT_APUNTES_DELETE_REPL FOR CONT_APUNTES diff --git a/Database/scripts/replicador_sysdata.sql b/Database/scripts/replicador_sysdata.sql index 03ba84e3..5c1a2a56 100644 --- a/Database/scripts/replicador_sysdata.sql +++ b/Database/scripts/replicador_sysdata.sql @@ -405,8 +405,13 @@ INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (4 INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (437, 1, 'REFERENCIAS', 'I', 'INSERT INTO REFERENCIAS (ID,CODIGO,DESCRIPCION,ID_EMPRESA,VALOR,ID_TIENDA) VALUES (?,?,?,?,?,?)', 0); INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (438, 1, 'REFERENCIAS', 'U', 'UPDATE REFERENCIAS SET ID=?,CODIGO=?,DESCRIPCION=?,ID_EMPRESA=?,VALOR=?,ID_TIENDA=? WHERE ID=?', 0); INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (439, 1, 'REFERENCIAS', 'D', 'DELETE FROM REFERENCIAS WHERE ID=?', 0); +INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (440, 1, 'CONTACTOS_DATOS_PERSONAL', 'S', 'SELECT ID,ID_CONTACTO,NOMBRE,PUESTO,TELEFONO,FAX,MOVIL,EMAIL,FECHA_ALTA,FECHA_MODIFICACION FROM CONTACTOS_DATOS_PERSONAL', 1); +INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (441, 1, 'CONTACTOS_DATOS_PERSONAL', 'S', ' WHERE ID=?', 2); +INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (442, 1, 'CONTACTOS_DATOS_PERSONAL', 'I', 'INSERT INTO CONTACTOS_DATOS_PERSONAL (ID,ID_CONTACTO,NOMBRE,PUESTO,TELEFONO,FAX,MOVIL,EMAIL,FECHA_ALTA,FECHA_MODIFICACION) VALUES (?,?,?,?,?,?,?,?,?,?)', 0); +INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (443, 1, 'CONTACTOS_DATOS_PERSONAL', 'U', 'UPDATE CONTACTOS_DATOS_PERSONAL SET ID=?,ID_CONTACTO=?,NOMBRE=?,PUESTO=?,TELEFONO=?,FAX=?,MOVIL=?,EMAIL=?,FECHA_ALTA=?,FECHA_MODIFICACION=? WHERE ID=?', 0); +INSERT INTO REPLDEFS (ID, FK_SOURCE, TABLENAME, OPTYPE, SQLSTMT, MORE) VALUES (444, 1, 'CONTACTOS_DATOS_PERSONAL', 'D', 'DELETE FROM CONTACTOS_DATOS_PERSONAL WHERE ID=?', 0); COMMIT WORK; -SET GENERATOR GEN_REPLDEFS_ID TO 440; +SET GENERATOR GEN_REPLDEFS_ID TO 445; diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 6f782dfd..4042672c 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -44,13 +44,6 @@ Package FalseTrueFalseLibreria base de FactuGESFalseFalseFalseTrueFalse1000FalseFalseFalseFalseFalse308212521.0.0.01.0.0.0 - - - - - - - VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components CodeGear SOAP Components @@ -67,7 +60,51 @@ - + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
fConfigurarConexion
TForm @@ -82,44 +119,7 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
DataModuleBase
TDataModule @@ -148,13 +148,6 @@ - - - - - - -