From 764e238793920469ca604d67c1c10badf4571ea6 Mon Sep 17 00:00:00 2001 From: david Date: Mon, 15 Dec 2008 10:48:32 +0000 Subject: [PATCH] =?UTF-8?q?-=20Contactos:=20a=C3=B1adir=20lista=20de=20per?= =?UTF-8?q?sonas=20de=20contacto=20a=20clientes=20y=20proveedores=20-=20Mo?= =?UTF-8?q?strar=20la=20pantalla=20de=20'splash'=20al=20inicio.?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@362 f4e31baf-9722-1c47-927c-6f952f962d4b --- Database/scripts/factuges.sql | 18 + Database/scripts/factuges_replicador.sql | 40 + Database/scripts/replicador_sysdata.sql | 7 +- Source/Base/Base.dproj | 97 +- Source/Cliente/FactuGES.dpr | 1 - Source/Cliente/FactuGES.dproj | 10 +- Source/Cliente/uBootStrap.pas | 2 +- Source/Cliente/uSplash.dfm | 1063 ++++++++++++++++- Source/Cliente/uSplash.pas | 2 +- Source/GUIBase/GUIBase.dproj | 62 +- .../Controller/Contactos_controller.dpk | Bin 2511 -> 2726 bytes .../Controller/Contactos_controller.dproj | 57 +- .../View/uIEditorElegirPersonaContacto.pas | 29 + .../View/uIEditorPersonalContacto.pas | 28 + .../Controller/uContactosController.pas | 32 +- .../uPersonalContactoController.pas | 84 ++ .../Contactos/Data/uDataModuleClientes.dfm | 3 + .../Contactos/Data/uDataModuleClientes.pas | 1 + .../Contactos/Data/uDataModuleContactos.dfm | 92 ++ .../Contactos/Data/uDataModuleContactos.pas | 25 +- .../Contactos/Data/uDataModuleProveedores.dfm | 3 + .../Contactos/Data/uDataModuleProveedores.pas | 1 + .../Contactos/Model/Contactos_model.dpk | Bin 1718 -> 1775 bytes .../Contactos/Model/Contactos_model.dproj | 1 + .../Model/Data/uIDataModuleContactos.pas | 5 +- .../Model/schContactosClient_Intf.pas | 517 +++++++- .../Model/schContactosServer_Intf.pas | 593 ++++++++- .../Modulos/Contactos/Model/uBizContactos.pas | 32 +- .../Contactos/Model/uBizContactosPersonal.pas | 61 + .../Contactos/Servidor/srvContactos_Impl.dfm | 354 ++++++ .../Contactos/Servidor/srvContactos_Impl.pas | 8 +- .../Contactos/Views/Contactos_view.dpk | 46 +- .../Contactos/Views/Contactos_view.dproj | 68 +- .../Views/uContactosViewRegister.pas | 8 +- .../Contactos/Views/uEditorContacto.dfm | 29 +- .../Contactos/Views/uEditorContacto.pas | 9 +- .../Views/uEditorElegirPersonaContacto.dfm | 247 ++++ .../Views/uEditorElegirPersonaContacto.pas | 110 ++ .../Contactos/Views/uEditorPersonal.dfm | 201 ++++ .../Contactos/Views/uEditorPersonal.pas | 124 ++ .../Contactos/Views/uEditorVendedor.dfm | 178 ++- .../Contactos/Views/uEditorVendedor.pas | 2 +- .../Modulos/Contactos/Views/uViewContacto.dfm | 98 +- .../Contactos/Views/uViewPersonalContacto.dfm | 72 ++ .../Contactos/Views/uViewPersonalContacto.pas | 79 ++ .../GestorDocumentos_controller.drc | 2 +- .../Data/GestorDocumentos_data.drc | 2 +- Source/Servidor/FactuGES_Server.RES | Bin 23360 -> 23352 bytes Source/Servidor/FactuGES_Server.rc | 2 +- Source/Servidor/uDataModuleServer.dfm | 4 +- 50 files changed, 4175 insertions(+), 334 deletions(-) create mode 100644 Source/Modulos/Contactos/Controller/View/uIEditorElegirPersonaContacto.pas create mode 100644 Source/Modulos/Contactos/Controller/View/uIEditorPersonalContacto.pas create mode 100644 Source/Modulos/Contactos/Controller/uPersonalContactoController.pas create mode 100644 Source/Modulos/Contactos/Model/uBizContactosPersonal.pas create mode 100644 Source/Modulos/Contactos/Views/uEditorElegirPersonaContacto.dfm create mode 100644 Source/Modulos/Contactos/Views/uEditorElegirPersonaContacto.pas create mode 100644 Source/Modulos/Contactos/Views/uEditorPersonal.dfm create mode 100644 Source/Modulos/Contactos/Views/uEditorPersonal.pas create mode 100644 Source/Modulos/Contactos/Views/uViewPersonalContacto.dfm create mode 100644 Source/Modulos/Contactos/Views/uViewPersonalContacto.pas 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 @@ - - - - - - -