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

- Contactos: añadir lista de personas de contacto a clientes y proveedores

Browse Source 
- Mostrar la pantalla de 'splash' al inicio.

git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@362 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-12-15 10:48:32 +00:00
parent 9b185f2fd3
commit 764e238793
50 changed files with 4175 additions and 334 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
Database/scripts/factuges.sql
View File

@ -136,6 +136,9 @@ SET GENERATOR GEN_CONTACTOS_DIR_ID TO 1;
CREATE GENERATOR GEN_CONTACTOS_ID; CREATE GENERATOR GEN_CONTACTOS_ID;
SET GENERATOR GEN_CONTACTOS_ID TO 1; 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; CREATE GENERATOR GEN_CONT_APUNTES_ID;
SET GENERATOR GEN_CONT_APUNTES_ID TO 1; SET GENERATOR GEN_CONT_APUNTES_ID TO 1;
@ -723,6 +726,19 @@ CREATE TABLE CONTACTOS_CATEGORIAS (
ID_CATEGORIA TIPO_ID NOT NULL 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 ( CREATE TABLE CONTACTOS_DATOS_BANCO (
ID TIPO_ID NOT NULL, ID TIPO_ID NOT NULL,
ID_CONTACTO 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_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_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_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_APUNTES ADD CONSTRAINT PK_CONT_APUNTES PRIMARY KEY (ID);
ALTER TABLE CONT_ASIENTOS ADD CONSTRAINT PK_CONT_ASIENTOS 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); 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_CATEGORIAS1 ON CONTACTOS_CATEGORIAS (ID_CATEGORIA);
CREATE INDEX IDX_CONTACTOS_DATOS_BANCO ON CONTACTOS_DATOS_BANCO (ID_CONTACTO); 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_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_IDX1 ON CONT_APUNTES (ID_ASIENTO);
CREATE INDEX CONT_APUNTES_IDX2 ON CONT_APUNTES (ID_SUBCUENTA); CREATE INDEX CONT_APUNTES_IDX2 ON CONT_APUNTES (ID_SUBCUENTA);
CREATE INDEX CONT_ASIENTOS_IDX1 ON CONT_ASIENTOS (ID_FACTURA); CREATE INDEX CONT_ASIENTOS_IDX1 ON CONT_ASIENTOS (ID_FACTURA);

40
Database/scripts/factuges_replicador.sql
View File

@ -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_CATEGORIAS', 1);
INSERT INTO REPL_TABLES (TABLENAME, LOC_ID) VALUES ('CONTACTOS_DATOS_BANCO', 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_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 ('VENDEDORES_DATOS', 1);
INSERT INTO REPL_TABLES (TABLENAME, LOC_ID) VALUES ('EMPRESAS', 1); INSERT INTO REPL_TABLES (TABLENAME, LOC_ID) VALUES ('EMPRESAS', 1);
INSERT INTO REPL_TABLES (TABLENAME, LOC_ID) VALUES ('EMPRESAS_CONTACTOS', 1); INSERT INTO REPL_TABLES (TABLENAME, LOC_ID) VALUES ('EMPRESAS_CONTACTOS', 1);
@ -922,6 +923,45 @@ BEGIN
END 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 */ /* Trigger: CONT_APUNTES_DELETE_REPL */
CREATE TRIGGER CONT_APUNTES_DELETE_REPL FOR CONT_APUNTES CREATE TRIGGER CONT_APUNTES_DELETE_REPL FOR CONT_APUNTES

7
Database/scripts/replicador_sysdata.sql
View File

@ -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 (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 (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 (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; COMMIT WORK;
SET GENERATOR GEN_REPLDEFS_ID TO 440; SET GENERATOR GEN_REPLDEFS_ID TO 445;

97
Source/Base/Base.dproj
View File

@ -44,13 +44,6 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <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">False</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> <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">False</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\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\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -67,7 +60,51 @@
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxDockingD11.dcp" /> <DCCReference Include="..\Modulos\Presupuestos de cliente\dxDockingD11.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="adortl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\adortl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntl6D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\DataAbstract_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dclIndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\designide.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dsnap.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxNavBarD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\GUISDK_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyCore.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndyProtocols.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\IndySystem.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\Jcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JclVcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JSDialog100.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCmpD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCoreD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvDlgsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvMMD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvNetD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvPageCompsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvStdCtrlsD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\JvSystemD11R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckMD5.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUCDataConnector.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\pckUserControl_RT.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PluginSDK_D10R.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\RemObjects_Core_D11.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\TB2k_D10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\VclSmp.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="C:\Documents and Settings\Usuario\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
@ -82,44 +119,7 @@
</DCCReference> </DCCReference>
<DCCReference Include="Controladores\uControllerBase.pas" /> <DCCReference Include="Controladores\uControllerBase.pas" />
<DCCReference Include="Controladores\uControllerDetallesBase.pas" /> <DCCReference Include="Controladores\uControllerDetallesBase.pas" />
<DCCReference Include="cxIntl6D11.dcp" />
<DCCReference Include="cxIntlPrintSys3D11.dcp" />
<DCCReference Include="cxLibraryD11.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="dclIndyCore.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="dxGDIPlusD11.dcp" />
<DCCReference Include="dxNavBarD11.dcp" />
<DCCReference Include="dxThemeD11.dcp" />
<DCCReference Include="GUISDK_D11.dcp" />
<DCCReference Include="IndyCore.dcp" />
<DCCReference Include="IndyProtocols.dcp" />
<DCCReference Include="IndySystem.dcp" />
<DCCReference Include="Jcl.dcp" />
<DCCReference Include="JclVcl.dcp" />
<DCCReference Include="JSDialog100.dcp" />
<DCCReference Include="JvCmpD11R.dcp" />
<DCCReference Include="JvCoreD11R.dcp" />
<DCCReference Include="JvCtrlsD11R.dcp" />
<DCCReference Include="JvDlgsD11R.dcp" />
<DCCReference Include="JvMMD11R.dcp" />
<DCCReference Include="JvNetD11R.dcp" />
<DCCReference Include="JvPageCompsD11R.dcp" />
<DCCReference Include="JvStdCtrlsD11R.dcp" />
<DCCReference Include="JvSystemD11R.dcp" />
<DCCReference Include="pckMD5.dcp" />
<DCCReference Include="pckUCDataConnector.dcp" />
<DCCReference Include="pckUserControl_RT.dcp" />
<DCCReference Include="PluginSDK_D10R.dcp" />
<DCCReference Include="PngComponentsD10.dcp" />
<DCCReference Include="PNG_D10.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="schBase_Intf.pas" /> <DCCReference Include="schBase_Intf.pas" />
<DCCReference Include="TB2k_D10.dcp" />
<DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="uDataModuleBase.pas"> <DCCReference Include="uDataModuleBase.pas">
<Form>DataModuleBase</Form> <Form>DataModuleBase</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
@ -148,13 +148,6 @@
<DCCReference Include="Utiles\uPasswordUtils.pas" /> <DCCReference Include="Utiles\uPasswordUtils.pas" />
<DCCReference Include="Utiles\uSistemaFunc.pas" /> <DCCReference Include="Utiles\uSistemaFunc.pas" />
<DCCReference Include="Utiles\uStringsUtils.pas" /> <DCCReference Include="Utiles\uStringsUtils.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="VclSmp.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- EurekaLog First Line

1
Source/Cliente/FactuGES.dpr
View File

@ -14,7 +14,6 @@ uses
uMainMenuController in 'uMainMenuController.pas', uMainMenuController in 'uMainMenuController.pas',
uClienteUtils in 'Utiles\uClienteUtils.pas', uClienteUtils in 'Utiles\uClienteUtils.pas',
uBootStrap in 'uBootStrap.pas', uBootStrap in 'uBootStrap.pas',
VCLFlickerReduce in 'Utiles\VCLFlickerReduce.pas',
uNavPaneController in 'uNavPaneController.pas'; uNavPaneController in 'uNavPaneController.pas';
{$R *.res} {$R *.res}

10
Source/Cliente/FactuGES.dproj
View File

@ -57,6 +57,15 @@
<Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages> <Excluded_Packages Name="C:\Documents and Settings\All Users\Documentos\RAD Studio\5.0\Bpl\DataAbstract_SQLiteDriver_D11.bpl">RemObjects Data Abstract - SQLite Driver</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
@ -80,7 +89,6 @@
<DCCReference Include="Utiles\uClienteUtils.pas" /> <DCCReference Include="Utiles\uClienteUtils.pas" />
<DCCReference Include="Utiles\uMenuUtils.pas" /> <DCCReference Include="Utiles\uMenuUtils.pas" />
<DCCReference Include="Utiles\uNavPaneUtils.pas" /> <DCCReference Include="Utiles\uNavPaneUtils.pas" />
<DCCReference Include="Utiles\VCLFlickerReduce.pas" />
<None Include="..\FactuGES.inc" /> <None Include="..\FactuGES.inc" />
</ItemGroup> </ItemGroup>
</Project> </Project>

2
Source/Cliente/uBootStrap.pas
View File

@ -80,7 +80,7 @@ begin
AppFactuGES := TAppFactuGES.Create; AppFactuGES := TAppFactuGES.Create;
with AppFactuGES do with AppFactuGES do
begin begin
//AppSplashForm := TAppSplashForm.Create; AppSplashForm := TAppSplashForm.Create;
DoMainFormEvent := DoAppMainForm; DoMainFormEvent := DoAppMainForm;
DoLoadModulesEvent := DoAppLoadModules; DoLoadModulesEvent := DoAppLoadModules;
end; end;

1063
Source/Cliente/uSplash.dfm
View File

File diff suppressed because it is too large Load Diff

2
Source/Cliente/uSplash.pas
View File

@ -10,7 +10,7 @@ type
TSplashScreen = class(TForm) TSplashScreen = class(TForm)
Panel1: TPanel; Panel1: TPanel;
lblTexto: TLabel; lblTexto: TLabel;
Image1: TImage; Image2: TImage;
procedure FormClose(Sender: TObject; var Action: TCloseAction); procedure FormClose(Sender: TObject; var Action: TCloseAction);
end; end;

62
Source/GUIBase/GUIBase.dproj
View File

@ -58,37 +58,37 @@
<DelphiCompile Include="GUIBase.dpk"> <DelphiCompile Include="GUIBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Presupuestos de cliente\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxDataD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxDataD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxEditorsD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxEditorsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxExportD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxExportD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxLibraryD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxLibraryD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\cxTreeListD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\cxTreeListD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dbrtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxBarD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxBarD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxBarExtItemsD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxBarExtItemsD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxGDIPlusD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxLayoutControlD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPScxCommonD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxCommonD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPScxGrid6LnkD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPScxGrid6LnkD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxPsPrVwAdvD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxPsPrVwAdvD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\dxThemeD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\dxThemeD11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\frx11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\frx11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\frxe11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\frxe11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\fs11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\fs11.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvAppFrmD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvAppFrmD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvCtrlsD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\JvGlobusD11R.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\JvGlobusD11R.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PngComponentsD10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PngComponentsD10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\PNG_D10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\PNG_D10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\rtl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\rtl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\tb2k_d10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\tb2k_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\tbx_d10.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\tbx_d10.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcl.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclactnband.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclactnband.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcldb.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcldb.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vcljpg.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vcljpg.dcp" />
<DCCReference Include="..\Modulos\Presupuestos de cliente\vclx.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\vclx.dcp" />
<DCCReference Include="uDialogBase.pas"> <DCCReference Include="uDialogBase.pas">
<Form>fDialogBase</Form> <Form>fDialogBase</Form>
</DCCReference> </DCCReference>

BIN
Source/Modulos/Contactos/Controller/Contactos_controller.dpk
View File

Binary file not shown.

57
Source/Modulos/Contactos/Controller/Contactos_controller.dproj
View File

@ -57,12 +57,6 @@
@ -77,39 +71,35 @@
<DelphiCompile Include="Contactos_controller.dpk"> <DelphiCompile Include="Contactos_controller.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\..\Cliente\adortl.dcp" />
<DCCReference Include="..\..\..\Cliente\ApplicationBase.dcp" />
<DCCReference Include="..\..\..\Cliente\Base.dcp" />
<DCCReference Include="..\..\..\Cliente\ccpackD11.dcp" />
<DCCReference Include="..\..\..\Cliente\cfpack_d11.dcp" />
<DCCReference Include="..\..\..\Cliente\Contabilidad_controller.dcp" />
<DCCReference Include="..\..\..\Cliente\Contactos_data.dcp" />
<DCCReference Include="..\..\..\Cliente\Contactos_model.dcp" />
<DCCReference Include="..\..\..\Cliente\cxLibraryD11.dcp" />
<DCCReference Include="..\..\..\Cliente\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\..\Cliente\dbrtl.dcp" />
<DCCReference Include="..\..\..\Cliente\designide.dcp" />
<DCCReference Include="..\..\..\Cliente\dsnap.dcp" />
<DCCReference Include="..\..\..\Cliente\dxGDIPlusD11.dcp" />
<DCCReference Include="..\..\..\Cliente\dxThemeD11.dcp" />
<DCCReference Include="..\..\..\Cliente\GUIBase.dcp" />
<DCCReference Include="..\..\..\Cliente\GUISDK_D11.dcp" />
<DCCReference Include="..\..\..\Cliente\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\..\Cliente\rtl.dcp" />
<DCCReference Include="..\..\..\Cliente\vcl.dcp" />
<DCCReference Include="..\..\..\Cliente\vclactnband.dcp" />
<DCCReference Include="..\..\..\Cliente\vcldb.dcp" />
<DCCReference Include="..\..\..\Cliente\vclx.dcp" />
<DCCReference Include="..\..\..\Cliente\xmlrtl.dcp" />
<DCCReference Include="uClientesController.pas" /> <DCCReference Include="uClientesController.pas" />
<DCCReference Include="uContactosController.pas" /> <DCCReference Include="uContactosController.pas" />
<DCCReference Include="uDireccionesContactoController.pas" /> <DCCReference Include="uDireccionesContactoController.pas" />
<DCCReference Include="uEtiquetasContactosReportController.pas" /> <DCCReference Include="uEtiquetasContactosReportController.pas" />
<DCCReference Include="uGruposClienteController.pas" /> <DCCReference Include="uGruposClienteController.pas" />
<DCCReference Include="uGruposProveedorController.pas" /> <DCCReference Include="uGruposProveedorController.pas" />
<DCCReference Include="uPersonalContactoController.pas" />
<DCCReference Include="uProcedenciasClienteController.pas" /> <DCCReference Include="uProcedenciasClienteController.pas" />
<DCCReference Include="uProveedoresController.pas" /> <DCCReference Include="uProveedoresController.pas" />
<DCCReference Include="uVendedoresController.pas" /> <DCCReference Include="uVendedoresController.pas" />
<DCCReference Include="View\adortl.dcp" />
<DCCReference Include="View\ApplicationBase.dcp" />
<DCCReference Include="View\Base.dcp" />
<DCCReference Include="View\ccpackD11.dcp" />
<DCCReference Include="View\cfpack_d11.dcp" />
<DCCReference Include="View\Contabilidad_controller.dcp" />
<DCCReference Include="View\Contactos_data.dcp" />
<DCCReference Include="View\Contactos_model.dcp" />
<DCCReference Include="View\cxLibraryD11.dcp" />
<DCCReference Include="View\DataAbstract_Core_D11.dcp" />
<DCCReference Include="View\dbrtl.dcp" />
<DCCReference Include="View\designide.dcp" />
<DCCReference Include="View\dsnap.dcp" />
<DCCReference Include="View\dxGDIPlusD11.dcp" />
<DCCReference Include="View\dxThemeD11.dcp" />
<DCCReference Include="View\GUIBase.dcp" />
<DCCReference Include="View\GUISDK_D11.dcp" />
<DCCReference Include="View\RemObjects_Core_D11.dcp" />
<DCCReference Include="View\rtl.dcp" />
<DCCReference Include="View\uIEditorCliente.pas" /> <DCCReference Include="View\uIEditorCliente.pas" />
<DCCReference Include="View\uIEditorClientes.pas" /> <DCCReference Include="View\uIEditorClientes.pas" />
<DCCReference Include="View\uIEditorContacto.pas" /> <DCCReference Include="View\uIEditorContacto.pas" />
@ -117,16 +107,23 @@
<DCCReference Include="View\uIEditorDireccionContacto.pas" /> <DCCReference Include="View\uIEditorDireccionContacto.pas" />
<DCCReference Include="View\uIEditorElegirClientes.pas" /> <DCCReference Include="View\uIEditorElegirClientes.pas" />
<DCCReference Include="View\uIEditorElegirContactos.pas" /> <DCCReference Include="View\uIEditorElegirContactos.pas" />
<DCCReference Include="View\uIEditorElegirPersonaContacto.pas" />
<DCCReference Include="View\uIEditorElegirProveedores.pas" /> <DCCReference Include="View\uIEditorElegirProveedores.pas" />
<DCCReference Include="View\uIEditorElegirVendedores.pas" /> <DCCReference Include="View\uIEditorElegirVendedores.pas" />
<DCCReference Include="View\uIEditorEtiquetasContactosPreview.pas" /> <DCCReference Include="View\uIEditorEtiquetasContactosPreview.pas" />
<DCCReference Include="View\uIEditorGruposCliente.pas" /> <DCCReference Include="View\uIEditorGruposCliente.pas" />
<DCCReference Include="View\uIEditorGruposProveedor.pas" /> <DCCReference Include="View\uIEditorGruposProveedor.pas" />
<DCCReference Include="View\uIEditorPersonalContacto.pas" />
<DCCReference Include="View\uIEditorProcedenciasCliente.pas" /> <DCCReference Include="View\uIEditorProcedenciasCliente.pas" />
<DCCReference Include="View\uIEditorProveedor.pas" /> <DCCReference Include="View\uIEditorProveedor.pas" />
<DCCReference Include="View\uIEditorProveedores.pas" /> <DCCReference Include="View\uIEditorProveedores.pas" />
<DCCReference Include="View\uIEditorVendedor.pas" /> <DCCReference Include="View\uIEditorVendedor.pas" />
<DCCReference Include="View\uIEditorVendedores.pas" /> <DCCReference Include="View\uIEditorVendedores.pas" />
<DCCReference Include="View\vcl.dcp" />
<DCCReference Include="View\vclactnband.dcp" />
<DCCReference Include="View\vcldb.dcp" />
<DCCReference Include="View\vclx.dcp" />
<DCCReference Include="View\xmlrtl.dcp" />
<None Include="ModelSupport_Contactos_controller\default.txaPackage" /> <None Include="ModelSupport_Contactos_controller\default.txaPackage" />
</ItemGroup> </ItemGroup>
</Project> </Project>

29
Source/Modulos/Contactos/Controller/View/uIEditorElegirPersonaContacto.pas Normal file
View File

@ -0,0 +1,29 @@
unit uIEditorElegirPersonaContacto;
interface
uses
uBizContactosPersonal, uGUIBase;
type
IEditorElegirPersonaContacto = interface
['{B069A079-BC05-4027-BC1D-D78849F173D0}']
function GetPersonas: IBizContactoPersonal;
procedure SetPersonas(const Value: IBizContactoPersonal);
property Personas: IBizContactoPersonal read GetPersonas write SetPersonas;
procedure SetMensaje (const AValue: String);
function GetMensaje: String;
property Mensaje : String read GetMensaje write SetMensaje;
function GetPersonaSeleccionada: IBizContactoPersonal;
property PersonaSeleccionada: IBizContactoPersonal read GetPersonaSeleccionada;
function ShowModal : Integer;
procedure Release;
end;
implementation
end.

28
Source/Modulos/Contactos/Controller/View/uIEditorPersonalContacto.pas Normal file
View File

@ -0,0 +1,28 @@
unit uIEditorPersonalContacto;
interface
uses
uBizContactosPersonal, uPersonalContactoController;
type
IEditorPersonalContacto = interface
['{2221A124-2ECF-426A-A462-24CC87AC26EC}']
function GetController : IPersonalContactoController;
procedure SetController (const Value : IPersonalContactoController);
property Controller : IPersonalContactoController read GetController
write SetController;
function GetPersonal: IBizContactoPersonal;
procedure SetPersonal(const Value: IBizContactoPersonal);
property Personal: IBizContactoPersonal read GetPersonal write SetPersonal;
function ShowModal : Integer;
procedure Release;
end;
implementation
end.

32
Source/Modulos/Contactos/Controller/uContactosController.pas
View File

@ -7,7 +7,7 @@ uses
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable, Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos, uBizContactos, uBizContactosDatosBancarios, uIDataModuleContactos,
uBizDireccionesContacto, uDireccionesContactoController, uBizDireccionesContacto, uDireccionesContactoController,
uControllerBase; uControllerBase, uBizContactosPersonal;
type type
IContactosController = interface(IControllerBase) IContactosController = interface(IControllerBase)
@ -31,6 +31,8 @@ type
function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto; function ExtraerSeleccionados(AContactos: IBizContacto) : IBizContacto;
// procedure SetID_Tienda (AContacto: IBizContacto; const ID_Tienda: Integer); // procedure SetID_Tienda (AContacto: IBizContacto; const ID_Tienda: Integer);
function ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto; function ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto;
function ElegirPersonaContacto(APersonal: IBizContactoPersonal;
AMensaje: String): IBizContactoPersonal;
end; end;
TContactosController = class(TControllerBase, IContactosController) TContactosController = class(TControllerBase, IContactosController)
@ -63,13 +65,16 @@ type
AMensaje: String; AMultiSelect: Boolean): IBizContacto; virtual; abstract; AMensaje: String; AMultiSelect: Boolean): IBizContacto; virtual; abstract;
// procedure SetID_Tienda (AContacto: IBizContacto; const ID_Tienda: Integer); // procedure SetID_Tienda (AContacto: IBizContacto; const ID_Tienda: Integer);
function ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto; function ElegirDireccion(AContacto: IBizContacto; AMensaje: String): IBizDireccionesContacto;
function ElegirPersonaContacto(APersonal: IBizContactoPersonal;
AMensaje: String): IBizContactoPersonal;
end; end;
implementation implementation
uses uses
Dialogs, uEditorRegistryUtils, cxControls, DB, uDAInterfaces, uDataTableUtils, Dialogs, uEditorRegistryUtils, cxControls, DB, uDAInterfaces, uDataTableUtils,
schContactosClient_Intf, uFactuGES_App, Variants, JSDialogs, JSDialog; schContactosClient_Intf, uFactuGES_App, Variants, JSDialogs, JSDialog,
uIEditorElegirPersonaContacto;
{ TContactosController } { TContactosController }
@ -179,6 +184,29 @@ begin
end; end;
end; end;
function TContactosController.ElegirPersonaContacto(
APersonal: IBizContactoPersonal; AMensaje: String): IBizContactoPersonal;
var
AEditor : IEditorElegirPersonaContacto;
begin
Result := NIL;
CreateEditor('EditorElegirPersonaContacto', IEditorElegirPersonaContacto, AEditor);
if Assigned(AEditor) then
begin
try
AEditor.Personas := APersonal;
AEditor.Mensaje := AMensaje;
if IsPositiveResult(AEditor.ShowModal) then
Result := AEditor.PersonaSeleccionada;
finally
AEditor.Release;
AEditor := NIL;
Application.ProcessMessages;
end;
end;
end;
function TContactosController.Eliminar(AContacto: IBizContacto): Boolean; function TContactosController.Eliminar(AContacto: IBizContacto): Boolean;
begin begin
Result := False; Result := False;

84
Source/Modulos/Contactos/Controller/uPersonalContactoController.pas Normal file
View File

@ -0,0 +1,84 @@
unit uPersonalContactoController;
interface
uses
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDADataTable,
uBizContactos, uBizContactosPersonal, uIDataModuleContactos,
uControllerBase;
type
IPersonalContactoController = interface(IControllerBase)
['{2A848939-9558-40DA-9886-F34D72331DA9}']
procedure Ver(APersonal : IBizContactoPersonal);
function Localizar(APersonal: IBizContactoPersonal; const ID : Integer): Boolean;
end;
TPersonalContactoController = class(TControllerBase, IPersonalContactoController)
private
FDataModule : IDataModuleContactos;
public
procedure Ver(APersonal : IBizContactoPersonal);
function Localizar(APersonal: IBizContactoPersonal; const ID : Integer): Boolean;
constructor Create; override;
destructor Destroy; override;
end;
implementation
{ TPersonalContactoController }
uses
uDataModuleContactos, schContactosClient_Intf, uIEditorPersonalContacto,
uEditorRegistryUtils, cxControls;
constructor TPersonalContactoController.Create;
begin
inherited;
FDataModule := TDataModuleContactos.Create(Nil);
end;
destructor TPersonalContactoController.Destroy;
begin
FDataModule := Nil;
inherited;
end;
function TPersonalContactoController.Localizar(
APersonal: IBizContactoPersonal; const ID: Integer): Boolean;
begin
Result := True;
ShowHourglassCursor;
try
with APersonal.DataTable do
begin
DisableControls;
First;
if not Locate(fld_PersonalContactoID, ID, []) then
Result := False;
EnableControls;
end;
finally
HideHourglassCursor;
end;
end;
procedure TPersonalContactoController.Ver(
APersonal: IBizContactoPersonal);
var
AEditor : IEditorPersonalContacto;
begin
AEditor := NIL;
CreateEditor('EditorPersonalContacto', IEditorPersonalContacto, AEditor);
if Assigned(AEditor) then
try
AEditor.Personal := APersonal;
AEditor.Controller := Self;
AEditor.ShowModal;
finally
AEditor.Release;
end;
end;
end.

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

@ -16,6 +16,9 @@ inherited DataModuleClientes: TDataModuleClientes
inherited ds_DatosBancarios: TDADataSource inherited ds_DatosBancarios: TDADataSource
DataSet = tbl_DatosBancarios.Dataset DataSet = tbl_DatosBancarios.Dataset
end end
inherited ds_PersonalContacto: TDADataSource
DataSet = tbl_PersonalContacto.Dataset
end
object tbl_Clientes: TDAMemDataTable object tbl_Clientes: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <

1
Source/Modulos/Contactos/Data/uDataModuleClientes.pas
View File

@ -98,6 +98,7 @@ begin
begin begin
DatosBancarios := _GetDatosBancarios; DatosBancarios := _GetDatosBancarios;
Direcciones := _GetDirecciones; Direcciones := _GetDirecciones;
Personal := _GetPersonal;
Descuentos := _GetDescuentos; Descuentos := _GetDescuentos;
SubCuentas := _GetSubCuentas; SubCuentas := _GetSubCuentas;
end; end;

92
Source/Modulos/Contactos/Data/uDataModuleContactos.dfm
View File

@ -426,4 +426,96 @@ inherited DataModuleContactos: TDataModuleContactos
Left = 176 Left = 176
Top = 232 Top = 232
end end
object tbl_PersonalContacto: TDAMemDataTable
RemoteUpdatesOptions = []
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_PERSONAL_ID'
Required = True
DisplayLabel = 'PersonalContacto_ID'
DictionaryEntry = 'PersonalContacto_ID'
InPrimaryKey = True
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
DisplayLabel = 'PersonalContacto_ID_CONTACTO'
DictionaryEntry = 'PersonalContacto_ID_CONTACTO'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DisplayLabel = 'Nombre'
DictionaryEntry = 'PersonalContacto_NOMBRE'
end
item
Name = 'PUESTO'
DataType = datString
Size = 255
DisplayLabel = 'Puesto'
DictionaryEntry = 'PersonalContacto_PUESTO'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
DisplayLabel = 'Tel'#195#169'fono'
DictionaryEntry = 'PersonalContacto_TELEFONO'
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
DisplayLabel = 'M'#195#179'vil'
DictionaryEntry = 'PersonalContacto_MOVIL'
end
item
Name = 'FAX'
DataType = datString
Size = 25
DisplayLabel = 'Fax'
DictionaryEntry = 'PersonalContacto_FAX'
end
item
Name = 'EMAIL'
DataType = datString
Size = 255
DisplayLabel = 'E-mail'
DictionaryEntry = 'PersonalContacto_EMAIL'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DisplayLabel = 'PersonalContacto_FECHA_ALTA'
DictionaryEntry = 'PersonalContacto_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DisplayLabel = 'PersonalContacto_FECHA_MODIFICACION'
DictionaryEntry = 'PersonalContacto_FECHA_MODIFICACION'
end>
Params = <>
MasterMappingMode = mmWhere
StreamingOptions = [soDisableEventsWhileStreaming]
RemoteDataAdapter = rda_Contactos
MasterSource = ds_Contactos
MasterFields = 'ID'
DetailFields = 'ID_CONTACTO'
DetailOptions = [dtCascadeOpenClose, dtCascadeApplyUpdates, dtAutoFetch, dtCascadeDelete, dtCascadeUpdate, dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates, dtIncludeInAllInOneFetch]
MasterOptions = [moCascadeOpenClose, moCascadeApplyUpdates, moCascadeDelete, moCascadeUpdate, moDisableLogOfCascadeDeletes, moDisableLogOfCascadeUpdates]
LogicalName = 'PersonalContacto'
IndexDefs = <>
Left = 296
Top = 16
end
object ds_PersonalContacto: TDADataSource
DataSet = tbl_PersonalContacto.Dataset
DataTable = tbl_PersonalContacto
Left = 296
Top = 80
end
end end

25
Source/Modulos/Contactos/Data/uDataModuleContactos.pas
View File

@ -11,7 +11,7 @@ uses
uBizDireccionesContacto, uIDataModuleEtiquetasContactosReport, uBizDireccionesContacto, uIDataModuleEtiquetasContactosReport,
uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest, uIDataModuleContactos, uDADesigntimeCall, uROTypes, uRODynamicRequest,
uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer, uDAInterfaces, uDADataStreamer, uDARemoteDataAdapter, uDABin2DataStreamer,
uDAMemDataTable, uDataModuleBase; uDAMemDataTable, uDataModuleBase, uBizContactosPersonal;
type type
TDataModuleContactos = class(TDataModuleBase, IDataModuleContactos, IDataModuleEtiquetasContactosReport) TDataModuleContactos = class(TDataModuleBase, IDataModuleContactos, IDataModuleEtiquetasContactosReport)
@ -24,11 +24,14 @@ type
ds_DireccionesContacto: TDADataSource; ds_DireccionesContacto: TDADataSource;
tbl_DatosBancarios: TDAMemDataTable; tbl_DatosBancarios: TDAMemDataTable;
ds_DatosBancarios: TDADataSource; ds_DatosBancarios: TDADataSource;
tbl_PersonalContacto: TDAMemDataTable;
ds_PersonalContacto: TDADataSource;
procedure DAClientDataModuleCreate(Sender: TObject); procedure DAClientDataModuleCreate(Sender: TObject);
procedure DataModuleDestroy(Sender: TObject); procedure DataModuleDestroy(Sender: TObject);
public public
function _GetDatosBancarios : IBizContactosDatosBancarios; function _GetDatosBancarios : IBizContactosDatosBancarios;
function _GetDirecciones: IBizDireccionesContacto; function _GetDirecciones: IBizDireccionesContacto;
function _GetPersonal: IBizContactoPersonal;
function _GetItems (IDCategoria : Integer): IBizContacto; virtual; function _GetItems (IDCategoria : Integer): IBizContacto; virtual;
// Report // Report
@ -118,6 +121,7 @@ begin
begin begin
DatosBancarios := _GetDatosBancarios; DatosBancarios := _GetDatosBancarios;
Direcciones := _GetDirecciones; Direcciones := _GetDirecciones;
Personal := _GetPersonal;
end; end;
Result := (AContacto as IBizContacto); Result := (AContacto as IBizContacto);
@ -126,4 +130,23 @@ begin
end; end;
end; end;
function TDataModuleContactos._GetPersonal: IBizContactoPersonal;
var
APersonal : TDAMemDataTable;
begin
ShowHourglassCursor;
try
APersonal := CloneDataTable(tbl_PersonalContacto);
with APersonal do
begin
BusinessRulesID := BIZ_CLIENT_CONTACTO_PERSONAL;
DetailOptions := DetailOptions -
[dtDisableLogOfCascadeDeletes, dtDisableLogOfCascadeUpdates];
end;
Result := (APersonal as IBizContactoPersonal);
finally
HideHourglassCursor;
end;
end;
end. end.

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

@ -10,6 +10,9 @@ inherited DataModuleProveedores: TDataModuleProveedores
inherited ds_DatosBancarios: TDADataSource inherited ds_DatosBancarios: TDADataSource
DataSet = tbl_DatosBancarios.Dataset DataSet = tbl_DatosBancarios.Dataset
end end
inherited ds_PersonalContacto: TDADataSource
DataSet = tbl_PersonalContacto.Dataset
end
object tbl_GruposProveedor: TDAMemDataTable object tbl_GruposProveedor: TDAMemDataTable
RemoteUpdatesOptions = [] RemoteUpdatesOptions = []
Fields = < Fields = <

1
Source/Modulos/Contactos/Data/uDataModuleProveedores.pas
View File

@ -90,6 +90,7 @@ begin
begin begin
DatosBancarios := _GetDatosBancarios; DatosBancarios := _GetDatosBancarios;
Direcciones := _GetDirecciones; Direcciones := _GetDirecciones;
Personal := _GetPersonal;
SubCuentas := _GetSubCuentas; SubCuentas := _GetSubCuentas;
end; end;

BIN
Source/Modulos/Contactos/Model/Contactos_model.dpk
View File

Binary file not shown.

1
Source/Modulos/Contactos/Model/Contactos_model.dproj
View File

@ -73,6 +73,7 @@
<DCCReference Include="uBizClientesDescuentos.pas" /> <DCCReference Include="uBizClientesDescuentos.pas" />
<DCCReference Include="uBizContactos.pas" /> <DCCReference Include="uBizContactos.pas" />
<DCCReference Include="uBizContactosDatosBancarios.pas" /> <DCCReference Include="uBizContactosDatosBancarios.pas" />
<DCCReference Include="uBizContactosPersonal.pas" />
<DCCReference Include="uBizDireccionesContacto.pas" /> <DCCReference Include="uBizDireccionesContacto.pas" />
<DCCReference Include="uBizGruposCliente.pas" /> <DCCReference Include="uBizGruposCliente.pas" />
<DCCReference Include="uBizGruposProveedor.pas" /> <DCCReference Include="uBizGruposProveedor.pas" />

5
Source/Modulos/Contactos/Model/Data/uIDataModuleContactos.pas
View File

@ -4,13 +4,16 @@ interface
uses uses
SysUtils, Classes, SysUtils, Classes,
uBizContactos, uBizContactosDatosBancarios; uBizContactos, uBizContactosDatosBancarios, uBizDireccionesContacto,
uBizContactosPersonal;
type type
IDataModuleContactos = interface IDataModuleContactos = interface
['{835FFC4D-1AE9-4020-A042-C9D84EC25A2C}'] ['{835FFC4D-1AE9-4020-A042-C9D84EC25A2C}']
function _GetItems (IDCategoria : Integer): IBizContacto; function _GetItems (IDCategoria : Integer): IBizContacto;
function _GetDatosBancarios : IBizContactosDatosBancarios; function _GetDatosBancarios : IBizContactosDatosBancarios;
function _GetDirecciones: IBizDireccionesContacto;
function _GetPersonal: IBizContactoPersonal;
end; end;
implementation implementation

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

@ -9,20 +9,24 @@ const
{ Data table rules ids { Data table rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_SubCuentasContacto = '{CC9EE4B4-B577-49F7-B275-BC0A6CF63AC5}'; RID_PersonalContacto = '{72AC6BFD-BAC4-42A3-9D57-8A39C408F0B6}';
RID_Contactos = '{16D21143-E694-47EA-9467-621D4851C43B}'; RID_DarTiendaDeUsuario = '{C60E8268-B657-4D79-8D39-FB2BBD7C9A9C}';
RID_GruposCliente = '{F9300EF0-056F-498D-AE37-DB2CB4F6870B}'; RID_SubCuentasContacto = '{1E056E61-ADFD-4989-AB59-03B790458F58}';
RID_DatosBancarios = '{A9788B1C-6A85-488C-9F09-5E300A8E75BD}'; RID_Contactos = '{98A3BC5C-8827-4E10-AF42-E0697B8B2A48}';
RID_Clientes = '{F568B674-AFEB-4F7A-BD7C-B45BBB30F78D}'; RID_GruposCliente = '{0C8C6F79-4D64-4EC3-BB36-D4C152D61256}';
RID_Proveedores = '{C78B9948-EE8F-4725-91EC-A980E3385249}'; RID_DatosBancarios = '{C1CC001F-5BD9-4DD4-B687-5E1B091D3430}';
RID_Vendedores = '{B2FCD778-9E76-49C1-8632-B6CE97BDC6ED}'; RID_Clientes = '{1B75257E-3A1B-42D4-83C3-214A06582B5D}';
RID_DireccionesContacto = '{5C183BE4-9EDC-46F7-BC2C-94D326E81C90}'; RID_Proveedores = '{A8E52EFB-F601-4D35-8AEF-875312B435D1}';
RID_ClientesDescuentos = '{5A145F0C-1C2A-4511-BE09-75D3C0C58751}'; RID_Vendedores = '{094768D6-A0E0-4FEA-BEF6-60FC3E569425}';
RID_ProcedenciasCliente = '{353BB29B-0BE0-4112-8DDC-0AE044276DF9}'; RID_DireccionesContacto = '{8060C203-A78C-4000-8DAA-8C1F677F4481}';
RID_GruposProveedor = '{CC25D327-EF88-4BF8-9569-EED9DC0DE629}'; RID_ClientesDescuentos = '{05FF232F-E798-4FFD-8CF2-99687BE644B7}';
RID_Contactos_Refresh = '{5A6A7F2A-5645-4518-8F38-3BFA0C2F2BD8}'; RID_ProcedenciasCliente = '{7E7AE2C9-9D29-472B-954B-AFEF756ADD5B}';
RID_GruposProveedor = '{0D48BF67-135E-47F2-9105-E833DB8035C5}';
RID_Contactos_Refresh = '{BA3C07F7-9B68-4D45-ADCD-2EB0F9A3B4F9}';
{ Data table names } { Data table names }
nme_PersonalContacto = 'PersonalContacto';
nme_DarTiendaDeUsuario = 'DarTiendaDeUsuario';
nme_SubCuentasContacto = 'SubCuentasContacto'; nme_SubCuentasContacto = 'SubCuentasContacto';
nme_Contactos = 'Contactos'; nme_Contactos = 'Contactos';
nme_GruposCliente = 'GruposCliente'; nme_GruposCliente = 'GruposCliente';
@ -36,6 +40,36 @@ const
nme_GruposProveedor = 'GruposProveedor'; nme_GruposProveedor = 'GruposProveedor';
nme_Contactos_Refresh = 'Contactos_Refresh'; nme_Contactos_Refresh = 'Contactos_Refresh';
{ PersonalContacto fields }
fld_PersonalContactoID = 'ID';
fld_PersonalContactoID_CONTACTO = 'ID_CONTACTO';
fld_PersonalContactoNOMBRE = 'NOMBRE';
fld_PersonalContactoPUESTO = 'PUESTO';
fld_PersonalContactoTELEFONO = 'TELEFONO';
fld_PersonalContactoMOVIL = 'MOVIL';
fld_PersonalContactoFAX = 'FAX';
fld_PersonalContactoEMAIL = 'EMAIL';
fld_PersonalContactoFECHA_ALTA = 'FECHA_ALTA';
fld_PersonalContactoFECHA_MODIFICACION = 'FECHA_MODIFICACION';
{ PersonalContacto field indexes }
idx_PersonalContactoID = 0;
idx_PersonalContactoID_CONTACTO = 1;
idx_PersonalContactoNOMBRE = 2;
idx_PersonalContactoPUESTO = 3;
idx_PersonalContactoTELEFONO = 4;
idx_PersonalContactoMOVIL = 5;
idx_PersonalContactoFAX = 6;
idx_PersonalContactoEMAIL = 7;
idx_PersonalContactoFECHA_ALTA = 8;
idx_PersonalContactoFECHA_MODIFICACION = 9;
{ DarTiendaDeUsuario fields }
fld_DarTiendaDeUsuarioID_TIENDA = 'ID_TIENDA';
{ DarTiendaDeUsuario field indexes }
idx_DarTiendaDeUsuarioID_TIENDA = 0;
{ SubCuentasContacto fields } { SubCuentasContacto fields }
fld_SubCuentasContactoID = 'ID'; fld_SubCuentasContactoID = 'ID';
fld_SubCuentasContactoREF_SUBCUENTA = 'REF_SUBCUENTA'; fld_SubCuentasContactoREF_SUBCUENTA = 'REF_SUBCUENTA';
@ -473,9 +507,187 @@ const
idx_Contactos_RefreshPERSONA_CONTACTO = 20; idx_Contactos_RefreshPERSONA_CONTACTO = 20;
type type
{ IPersonalContacto }
IPersonalContacto = interface(IDAStronglyTypedDataTable)
['{2A8A2DA0-3149-4746-B9E1-4A11C5277976}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
function GetIDIsNull: Boolean;
procedure SetIDIsNull(const aValue: Boolean);
function GetID_CONTACTOValue: Integer;
procedure SetID_CONTACTOValue(const aValue: Integer);
function GetID_CONTACTOIsNull: Boolean;
procedure SetID_CONTACTOIsNull(const aValue: Boolean);
function GetNOMBREValue: String;
procedure SetNOMBREValue(const aValue: String);
function GetNOMBREIsNull: Boolean;
procedure SetNOMBREIsNull(const aValue: Boolean);
function GetPUESTOValue: String;
procedure SetPUESTOValue(const aValue: String);
function GetPUESTOIsNull: Boolean;
procedure SetPUESTOIsNull(const aValue: Boolean);
function GetTELEFONOValue: String;
procedure SetTELEFONOValue(const aValue: String);
function GetTELEFONOIsNull: Boolean;
procedure SetTELEFONOIsNull(const aValue: Boolean);
function GetMOVILValue: String;
procedure SetMOVILValue(const aValue: String);
function GetMOVILIsNull: Boolean;
procedure SetMOVILIsNull(const aValue: Boolean);
function GetFAXValue: String;
procedure SetFAXValue(const aValue: String);
function GetFAXIsNull: Boolean;
procedure SetFAXIsNull(const aValue: Boolean);
function GetEMAILValue: String;
procedure SetEMAILValue(const aValue: String);
function GetEMAILIsNull: Boolean;
procedure SetEMAILIsNull(const aValue: Boolean);
function GetFECHA_ALTAValue: DateTime;
procedure SetFECHA_ALTAValue(const aValue: DateTime);
function GetFECHA_ALTAIsNull: Boolean;
procedure SetFECHA_ALTAIsNull(const aValue: Boolean);
function GetFECHA_MODIFICACIONValue: DateTime;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime);
function GetFECHA_MODIFICACIONIsNull: Boolean;
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property PUESTO: String read GetPUESTOValue write SetPUESTOValue;
property PUESTOIsNull: Boolean read GetPUESTOIsNull write SetPUESTOIsNull;
property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
property MOVIL: String read GetMOVILValue write SetMOVILValue;
property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull;
property FAX: String read GetFAXValue write SetFAXValue;
property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
property EMAIL: String read GetEMAILValue write SetEMAILValue;
property EMAILIsNull: Boolean read GetEMAILIsNull write SetEMAILIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
end;
{ TPersonalContactoDataTableRules }
TPersonalContactoDataTableRules = class(TIntfObjectDADataTableRules, IPersonalContacto)
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 GetID_CONTACTOValue: Integer; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
function GetID_CONTACTOIsNull: Boolean; virtual;
procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
function GetNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetPUESTOValue: String; virtual;
procedure SetPUESTOValue(const aValue: String); virtual;
function GetPUESTOIsNull: Boolean; virtual;
procedure SetPUESTOIsNull(const aValue: Boolean); virtual;
function GetTELEFONOValue: String; virtual;
procedure SetTELEFONOValue(const aValue: String); virtual;
function GetTELEFONOIsNull: Boolean; virtual;
procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
function GetMOVILValue: String; virtual;
procedure SetMOVILValue(const aValue: String); virtual;
function GetMOVILIsNull: Boolean; virtual;
procedure SetMOVILIsNull(const aValue: Boolean); virtual;
function GetFAXValue: String; virtual;
procedure SetFAXValue(const aValue: String); virtual;
function GetFAXIsNull: Boolean; virtual;
procedure SetFAXIsNull(const aValue: Boolean); virtual;
function GetEMAILValue: String; virtual;
procedure SetEMAILValue(const aValue: String); virtual;
function GetEMAILIsNull: Boolean; virtual;
procedure SetEMAILIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
procedure SetFECHA_MODIFICACIONIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
property IDIsNull: Boolean read GetIDIsNull write SetIDIsNull;
property ID_CONTACTO: Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull: Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property NOMBRE: String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull: Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property PUESTO: String read GetPUESTOValue write SetPUESTOValue;
property PUESTOIsNull: Boolean read GetPUESTOIsNull write SetPUESTOIsNull;
property TELEFONO: String read GetTELEFONOValue write SetTELEFONOValue;
property TELEFONOIsNull: Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
property MOVIL: String read GetMOVILValue write SetMOVILValue;
property MOVILIsNull: Boolean read GetMOVILIsNull write SetMOVILIsNull;
property FAX: String read GetFAXValue write SetFAXValue;
property FAXIsNull: Boolean read GetFAXIsNull write SetFAXIsNull;
property EMAIL: String read GetEMAILValue write SetEMAILValue;
property EMAILIsNull: Boolean read GetEMAILIsNull write SetEMAILIsNull;
property FECHA_ALTA: DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull: Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property FECHA_MODIFICACION: DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property FECHA_MODIFICACIONIsNull: Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ IDarTiendaDeUsuario }
IDarTiendaDeUsuario = interface(IDAStronglyTypedDataTable)
['{EB039772-223A-40A0-B5D2-C89B476B082E}']
{ Property getters and setters }
function GetID_TIENDAValue: Integer;
procedure SetID_TIENDAValue(const aValue: Integer);
function GetID_TIENDAIsNull: Boolean;
procedure SetID_TIENDAIsNull(const aValue: Boolean);
{ Properties }
property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
end;
{ TDarTiendaDeUsuarioDataTableRules }
TDarTiendaDeUsuarioDataTableRules = class(TIntfObjectDADataTableRules, IDarTiendaDeUsuario)
private
protected
{ Property getters and setters }
function GetID_TIENDAValue: Integer; virtual;
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
function GetID_TIENDAIsNull: Boolean; virtual;
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
destructor Destroy; override;
end;
{ ISubCuentasContacto } { ISubCuentasContacto }
ISubCuentasContacto = interface(IDAStronglyTypedDataTable) ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
['{AB8B5EBB-B500-40E1-AFF9-C511CD47F7BD}'] ['{1FB29B7D-89ED-45D7-80CD-702E245E14F0}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -570,7 +782,7 @@ type
{ IContactos } { IContactos }
IContactos = interface(IDAStronglyTypedDataTable) IContactos = interface(IDAStronglyTypedDataTable)
['{E3D05B32-BA92-4609-9A11-2B6DF99B5E89}'] ['{5E99E772-2F16-4796-BCC8-3C547E65DF87}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -893,7 +1105,7 @@ type
{ IGruposCliente } { IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable) IGruposCliente = interface(IDAStronglyTypedDataTable)
['{8D566B37-96A1-4A6A-B697-DF383A017953}'] ['{88BEFB2C-1CFD-4887-98B8-F59A4EEBAC41}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -940,7 +1152,7 @@ type
{ IDatosBancarios } { IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable) IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{79CB7A1E-5490-4AA5-B263-90D1171FD13B}'] ['{DCA7CB6A-F958-45AE-B309-9EA1D1C5BB08}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1071,7 +1283,7 @@ type
{ IClientes } { IClientes }
IClientes = interface(IDAStronglyTypedDataTable) IClientes = interface(IDAStronglyTypedDataTable)
['{BAA4200F-4BD4-4D69-938D-EAC7C1512ADD}'] ['{85F251D9-E428-4D10-A4E8-EB207D2DD0BF}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -1562,7 +1774,7 @@ type
{ IProveedores } { IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable) IProveedores = interface(IDAStronglyTypedDataTable)
['{290E08FC-0816-4AAC-9398-71A32CBDBD11}'] ['{A746CF89-1F05-4785-9ACD-C7FAA8986B7B}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2053,7 +2265,7 @@ type
{ IVendedores } { IVendedores }
IVendedores = interface(IDAStronglyTypedDataTable) IVendedores = interface(IDAStronglyTypedDataTable)
['{FD8BE30A-94B4-487A-B585-9076D2684FCD}'] ['{AC791BCF-44E7-4C31-AAB0-991AC21F4D09}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2400,7 +2612,7 @@ type
{ IDireccionesContacto } { IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable) IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{84E83F78-07BB-43FE-AB4F-0453EC77A5A7}'] ['{98C623D9-465F-44A7-AFBF-BB6A7CDD9EBA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2627,7 +2839,7 @@ type
{ IClientesDescuentos } { IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable) IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{FCAB4926-E8F9-4AAA-83D8-90585778BAEB}'] ['{9A9DB00C-8F08-4F5A-AC2B-43BC2B4D30CA}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2710,7 +2922,7 @@ type
{ IProcedenciasCliente } { IProcedenciasCliente }
IProcedenciasCliente = interface(IDAStronglyTypedDataTable) IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
['{BC39AE1B-5CBF-41A3-9BF8-F2A8AC15621E}'] ['{830CA7BC-63BD-42FE-B404-35F104D4CF4A}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2757,7 +2969,7 @@ type
{ IGruposProveedor } { IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable) IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{7CA706FD-ACD4-4CF5-B1B8-289ED3A35992}'] ['{EABF7056-21C6-484A-90A5-2AB4EAE1D3D8}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -2804,7 +3016,7 @@ type
{ IContactos_Refresh } { IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable) IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{63249705-C6AE-406B-894C-2C82F8002D91}'] ['{B271D47C-045D-4B48-ACE6-5F36B7D42236}']
{ Property getters and setters } { Property getters and setters }
function GetIDValue: Integer; function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer); procedure SetIDValue(const aValue: Integer);
@ -3081,6 +3293,261 @@ implementation
uses Variants, uROBinaryHelpers; uses Variants, uROBinaryHelpers;
{ TPersonalContactoDataTableRules }
constructor TPersonalContactoDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TPersonalContactoDataTableRules.Destroy;
begin
inherited;
end;
function TPersonalContactoDataTableRules.GetIDValue: Integer;
begin
result := DataTable.Fields[idx_PersonalContactoID].AsInteger;
end;
procedure TPersonalContactoDataTableRules.SetIDValue(const aValue: Integer);
begin
DataTable.Fields[idx_PersonalContactoID].AsInteger := aValue;
end;
function TPersonalContactoDataTableRules.GetIDIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoID].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoID].AsVariant := Null;
end;
function TPersonalContactoDataTableRules.GetID_CONTACTOValue: Integer;
begin
result := DataTable.Fields[idx_PersonalContactoID_CONTACTO].AsInteger;
end;
procedure TPersonalContactoDataTableRules.SetID_CONTACTOValue(const aValue: Integer);
begin
DataTable.Fields[idx_PersonalContactoID_CONTACTO].AsInteger := aValue;
end;
function TPersonalContactoDataTableRules.GetID_CONTACTOIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoID_CONTACTO].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetID_CONTACTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoID_CONTACTO].AsVariant := Null;
end;
function TPersonalContactoDataTableRules.GetNOMBREValue: String;
begin
result := DataTable.Fields[idx_PersonalContactoNOMBRE].AsString;
end;
procedure TPersonalContactoDataTableRules.SetNOMBREValue(const aValue: String);
begin
DataTable.Fields[idx_PersonalContactoNOMBRE].AsString := aValue;
end;
function TPersonalContactoDataTableRules.GetNOMBREIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoNOMBRE].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoNOMBRE].AsVariant := Null;
end;
function TPersonalContactoDataTableRules.GetPUESTOValue: String;
begin
result := DataTable.Fields[idx_PersonalContactoPUESTO].AsString;
end;
procedure TPersonalContactoDataTableRules.SetPUESTOValue(const aValue: String);
begin
DataTable.Fields[idx_PersonalContactoPUESTO].AsString := aValue;
end;
function TPersonalContactoDataTableRules.GetPUESTOIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoPUESTO].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetPUESTOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoPUESTO].AsVariant := Null;
end;
function TPersonalContactoDataTableRules.GetTELEFONOValue: String;
begin
result := DataTable.Fields[idx_PersonalContactoTELEFONO].AsString;
end;
procedure TPersonalContactoDataTableRules.SetTELEFONOValue(const aValue: String);
begin
DataTable.Fields[idx_PersonalContactoTELEFONO].AsString := aValue;
end;
function TPersonalContactoDataTableRules.GetTELEFONOIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoTELEFONO].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetTELEFONOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoTELEFONO].AsVariant := Null;
end;
function TPersonalContactoDataTableRules.GetMOVILValue: String;
begin
result := DataTable.Fields[idx_PersonalContactoMOVIL].AsString;
end;
procedure TPersonalContactoDataTableRules.SetMOVILValue(const aValue: String);
begin
DataTable.Fields[idx_PersonalContactoMOVIL].AsString := aValue;
end;
function TPersonalContactoDataTableRules.GetMOVILIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoMOVIL].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetMOVILIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoMOVIL].AsVariant := Null;
end;
function TPersonalContactoDataTableRules.GetFAXValue: String;
begin
result := DataTable.Fields[idx_PersonalContactoFAX].AsString;
end;
procedure TPersonalContactoDataTableRules.SetFAXValue(const aValue: String);
begin
DataTable.Fields[idx_PersonalContactoFAX].AsString := aValue;
end;
function TPersonalContactoDataTableRules.GetFAXIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoFAX].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetFAXIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoFAX].AsVariant := Null;
end;
function TPersonalContactoDataTableRules.GetEMAILValue: String;
begin
result := DataTable.Fields[idx_PersonalContactoEMAIL].AsString;
end;
procedure TPersonalContactoDataTableRules.SetEMAILValue(const aValue: String);
begin
DataTable.Fields[idx_PersonalContactoEMAIL].AsString := aValue;
end;
function TPersonalContactoDataTableRules.GetEMAILIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoEMAIL].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetEMAILIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoEMAIL].AsVariant := Null;
end;
function TPersonalContactoDataTableRules.GetFECHA_ALTAValue: DateTime;
begin
result := DataTable.Fields[idx_PersonalContactoFECHA_ALTA].AsDateTime;
end;
procedure TPersonalContactoDataTableRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PersonalContactoFECHA_ALTA].AsDateTime := aValue;
end;
function TPersonalContactoDataTableRules.GetFECHA_ALTAIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoFECHA_ALTA].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoFECHA_ALTA].AsVariant := Null;
end;
function TPersonalContactoDataTableRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := DataTable.Fields[idx_PersonalContactoFECHA_MODIFICACION].AsDateTime;
end;
procedure TPersonalContactoDataTableRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
DataTable.Fields[idx_PersonalContactoFECHA_MODIFICACION].AsDateTime := aValue;
end;
function TPersonalContactoDataTableRules.GetFECHA_MODIFICACIONIsNull: boolean;
begin
result := DataTable.Fields[idx_PersonalContactoFECHA_MODIFICACION].IsNull;
end;
procedure TPersonalContactoDataTableRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_PersonalContactoFECHA_MODIFICACION].AsVariant := Null;
end;
{ TDarTiendaDeUsuarioDataTableRules }
constructor TDarTiendaDeUsuarioDataTableRules.Create(aDataTable: TDADataTable);
begin
inherited;
end;
destructor TDarTiendaDeUsuarioDataTableRules.Destroy;
begin
inherited;
end;
function TDarTiendaDeUsuarioDataTableRules.GetID_TIENDAValue: Integer;
begin
result := DataTable.Fields[idx_DarTiendaDeUsuarioID_TIENDA].AsInteger;
end;
procedure TDarTiendaDeUsuarioDataTableRules.SetID_TIENDAValue(const aValue: Integer);
begin
DataTable.Fields[idx_DarTiendaDeUsuarioID_TIENDA].AsInteger := aValue;
end;
function TDarTiendaDeUsuarioDataTableRules.GetID_TIENDAIsNull: boolean;
begin
result := DataTable.Fields[idx_DarTiendaDeUsuarioID_TIENDA].IsNull;
end;
procedure TDarTiendaDeUsuarioDataTableRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_DarTiendaDeUsuarioID_TIENDA].AsVariant := Null;
end;
{ TSubCuentasContactoDataTableRules } { TSubCuentasContactoDataTableRules }
constructor TSubCuentasContactoDataTableRules.Create(aDataTable: TDADataTable); constructor TSubCuentasContactoDataTableRules.Create(aDataTable: TDADataTable);
begin begin
@ -7342,6 +7809,8 @@ end;
initialization initialization
RegisterDataTableRules(RID_PersonalContacto, TPersonalContactoDataTableRules);
RegisterDataTableRules(RID_DarTiendaDeUsuario, TDarTiendaDeUsuarioDataTableRules);
RegisterDataTableRules(RID_SubCuentasContacto, TSubCuentasContactoDataTableRules); RegisterDataTableRules(RID_SubCuentasContacto, TSubCuentasContactoDataTableRules);
RegisterDataTableRules(RID_Contactos, TContactosDataTableRules); RegisterDataTableRules(RID_Contactos, TContactosDataTableRules);
RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules); RegisterDataTableRules(RID_GruposCliente, TGruposClienteDataTableRules);

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

@ -9,23 +9,201 @@ const
{ Delta rules ids { Delta rules ids
Feel free to change them to something more human readable Feel free to change them to something more human readable
but make sure they are unique in the context of your application } but make sure they are unique in the context of your application }
RID_SubCuentasContactoDelta = '{49545BFB-5042-4146-81AA-76148471960B}'; RID_PersonalContactoDelta = '{845C4940-7BFD-40A8-9E33-AD056E3C2A27}';
RID_ContactosDelta = '{49724045-D605-4B96-A76E-B26220CD4766}'; RID_DarTiendaDeUsuarioDelta = '{D50280BB-652F-4F52-A3E1-0C8EC19492DF}';
RID_GruposClienteDelta = '{DA7AE60F-29A3-4D06-8EC9-1A4A063A7BC3}'; RID_SubCuentasContactoDelta = '{69B0CFEF-1D7B-49D6-AF7E-2D023A0822A5}';
RID_DatosBancariosDelta = '{9D270E62-EE9D-48C7-941C-36860E0B2742}'; RID_ContactosDelta = '{763B21A0-1CDE-4A11-97FE-86A7D488BCA2}';
RID_ClientesDelta = '{BFA06032-16F6-45E6-9374-E206E6D46C1F}'; RID_GruposClienteDelta = '{E08A27A2-0C3D-4880-A705-8E9E599A094A}';
RID_ProveedoresDelta = '{F9B779EC-4468-48FD-9687-8C4063B37A7B}'; RID_DatosBancariosDelta = '{3B9A634C-4586-4A72-B982-AB25BF2E6C24}';
RID_VendedoresDelta = '{20A73085-6BB8-406F-BAB0-AC664009A5A5}'; RID_ClientesDelta = '{4192433E-E014-410F-BDE6-1D0D1CC50823}';
RID_DireccionesContactoDelta = '{5E20C888-08BA-4E30-8584-E1F82C01AFAC}'; RID_ProveedoresDelta = '{061A9581-0319-4275-A02F-F56419EA77D7}';
RID_ClientesDescuentosDelta = '{1D113362-E6C6-4F13-9B60-C814CEFFA145}'; RID_VendedoresDelta = '{57099FD5-396F-4C40-B270-5652ECB6D973}';
RID_ProcedenciasClienteDelta = '{081E32EA-401B-4589-B698-734A85B16F71}'; RID_DireccionesContactoDelta = '{E6EAE8E3-FC4C-4FA3-9309-5BA66CAEC684}';
RID_GruposProveedorDelta = '{2A341469-E8B6-4873-BFFD-7B8A53007AE6}'; RID_ClientesDescuentosDelta = '{BE063743-BB6D-49A0-AD45-0D7F8BA11FC5}';
RID_Contactos_RefreshDelta = '{7310E07E-3E8E-4E99-84D6-F16623D372E4}'; RID_ProcedenciasClienteDelta = '{33C3D07B-35C3-4B41-85C3-05B8F8ECF5C9}';
RID_GruposProveedorDelta = '{DDE12288-B000-45AA-A36C-24C4555CA432}';
RID_Contactos_RefreshDelta = '{F7D74B95-D7FE-4362-AC9B-433041EB9053}';
type type
{ IPersonalContactoDelta }
IPersonalContactoDelta = interface(IPersonalContacto)
['{845C4940-7BFD-40A8-9E33-AD056E3C2A27}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
function GetOldNOMBREValue : String;
function GetOldPUESTOValue : String;
function GetOldTELEFONOValue : String;
function GetOldMOVILValue : String;
function GetOldFAXValue : String;
function GetOldEMAILValue : String;
function GetOldFECHA_ALTAValue : DateTime;
function GetOldFECHA_MODIFICACIONValue : DateTime;
{ Properties }
property OldID : Integer read GetOldIDValue;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldPUESTO : String read GetOldPUESTOValue;
property OldTELEFONO : String read GetOldTELEFONOValue;
property OldMOVIL : String read GetOldMOVILValue;
property OldFAX : String read GetOldFAXValue;
property OldEMAIL : String read GetOldEMAILValue;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
end;
{ TPersonalContactoBusinessProcessorRules }
TPersonalContactoBusinessProcessorRules = class(TDABusinessProcessorRules, IPersonalContacto, IPersonalContactoDelta)
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 GetID_CONTACTOValue: Integer; virtual;
function GetID_CONTACTOIsNull: Boolean; virtual;
function GetOldID_CONTACTOValue: Integer; virtual;
function GetOldID_CONTACTOIsNull: Boolean; virtual;
procedure SetID_CONTACTOValue(const aValue: Integer); virtual;
procedure SetID_CONTACTOIsNull(const aValue: Boolean); virtual;
function GetNOMBREValue: String; virtual;
function GetNOMBREIsNull: Boolean; virtual;
function GetOldNOMBREValue: String; virtual;
function GetOldNOMBREIsNull: Boolean; virtual;
procedure SetNOMBREValue(const aValue: String); virtual;
procedure SetNOMBREIsNull(const aValue: Boolean); virtual;
function GetPUESTOValue: String; virtual;
function GetPUESTOIsNull: Boolean; virtual;
function GetOldPUESTOValue: String; virtual;
function GetOldPUESTOIsNull: Boolean; virtual;
procedure SetPUESTOValue(const aValue: String); virtual;
procedure SetPUESTOIsNull(const aValue: Boolean); virtual;
function GetTELEFONOValue: String; virtual;
function GetTELEFONOIsNull: Boolean; virtual;
function GetOldTELEFONOValue: String; virtual;
function GetOldTELEFONOIsNull: Boolean; virtual;
procedure SetTELEFONOValue(const aValue: String); virtual;
procedure SetTELEFONOIsNull(const aValue: Boolean); virtual;
function GetMOVILValue: String; virtual;
function GetMOVILIsNull: Boolean; virtual;
function GetOldMOVILValue: String; virtual;
function GetOldMOVILIsNull: Boolean; virtual;
procedure SetMOVILValue(const aValue: String); virtual;
procedure SetMOVILIsNull(const aValue: Boolean); virtual;
function GetFAXValue: String; virtual;
function GetFAXIsNull: Boolean; virtual;
function GetOldFAXValue: String; virtual;
function GetOldFAXIsNull: Boolean; virtual;
procedure SetFAXValue(const aValue: String); virtual;
procedure SetFAXIsNull(const aValue: Boolean); virtual;
function GetEMAILValue: String; virtual;
function GetEMAILIsNull: Boolean; virtual;
function GetOldEMAILValue: String; virtual;
function GetOldEMAILIsNull: Boolean; virtual;
procedure SetEMAILValue(const aValue: String); virtual;
procedure SetEMAILIsNull(const aValue: Boolean); virtual;
function GetFECHA_ALTAValue: DateTime; virtual;
function GetFECHA_ALTAIsNull: Boolean; virtual;
function GetOldFECHA_ALTAValue: DateTime; virtual;
function GetOldFECHA_ALTAIsNull: Boolean; virtual;
procedure SetFECHA_ALTAValue(const aValue: DateTime); virtual;
procedure SetFECHA_ALTAIsNull(const aValue: Boolean); virtual;
function GetFECHA_MODIFICACIONValue: DateTime; virtual;
function GetFECHA_MODIFICACIONIsNull: Boolean; virtual;
function GetOldFECHA_MODIFICACIONValue: DateTime; virtual;
function GetOldFECHA_MODIFICACIONIsNull: Boolean; virtual;
procedure SetFECHA_MODIFICACIONValue(const aValue: DateTime); virtual;
procedure SetFECHA_MODIFICACIONIsNull(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 ID_CONTACTO : Integer read GetID_CONTACTOValue write SetID_CONTACTOValue;
property ID_CONTACTOIsNull : Boolean read GetID_CONTACTOIsNull write SetID_CONTACTOIsNull;
property OldID_CONTACTO : Integer read GetOldID_CONTACTOValue;
property OldID_CONTACTOIsNull : Boolean read GetOldID_CONTACTOIsNull;
property NOMBRE : String read GetNOMBREValue write SetNOMBREValue;
property NOMBREIsNull : Boolean read GetNOMBREIsNull write SetNOMBREIsNull;
property OldNOMBRE : String read GetOldNOMBREValue;
property OldNOMBREIsNull : Boolean read GetOldNOMBREIsNull;
property PUESTO : String read GetPUESTOValue write SetPUESTOValue;
property PUESTOIsNull : Boolean read GetPUESTOIsNull write SetPUESTOIsNull;
property OldPUESTO : String read GetOldPUESTOValue;
property OldPUESTOIsNull : Boolean read GetOldPUESTOIsNull;
property TELEFONO : String read GetTELEFONOValue write SetTELEFONOValue;
property TELEFONOIsNull : Boolean read GetTELEFONOIsNull write SetTELEFONOIsNull;
property OldTELEFONO : String read GetOldTELEFONOValue;
property OldTELEFONOIsNull : Boolean read GetOldTELEFONOIsNull;
property MOVIL : String read GetMOVILValue write SetMOVILValue;
property MOVILIsNull : Boolean read GetMOVILIsNull write SetMOVILIsNull;
property OldMOVIL : String read GetOldMOVILValue;
property OldMOVILIsNull : Boolean read GetOldMOVILIsNull;
property FAX : String read GetFAXValue write SetFAXValue;
property FAXIsNull : Boolean read GetFAXIsNull write SetFAXIsNull;
property OldFAX : String read GetOldFAXValue;
property OldFAXIsNull : Boolean read GetOldFAXIsNull;
property EMAIL : String read GetEMAILValue write SetEMAILValue;
property EMAILIsNull : Boolean read GetEMAILIsNull write SetEMAILIsNull;
property OldEMAIL : String read GetOldEMAILValue;
property OldEMAILIsNull : Boolean read GetOldEMAILIsNull;
property FECHA_ALTA : DateTime read GetFECHA_ALTAValue write SetFECHA_ALTAValue;
property FECHA_ALTAIsNull : Boolean read GetFECHA_ALTAIsNull write SetFECHA_ALTAIsNull;
property OldFECHA_ALTA : DateTime read GetOldFECHA_ALTAValue;
property OldFECHA_ALTAIsNull : Boolean read GetOldFECHA_ALTAIsNull;
property FECHA_MODIFICACION : DateTime read GetFECHA_MODIFICACIONValue write SetFECHA_MODIFICACIONValue;
property FECHA_MODIFICACIONIsNull : Boolean read GetFECHA_MODIFICACIONIsNull write SetFECHA_MODIFICACIONIsNull;
property OldFECHA_MODIFICACION : DateTime read GetOldFECHA_MODIFICACIONValue;
property OldFECHA_MODIFICACIONIsNull : Boolean read GetOldFECHA_MODIFICACIONIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ IDarTiendaDeUsuarioDelta }
IDarTiendaDeUsuarioDelta = interface(IDarTiendaDeUsuario)
['{D50280BB-652F-4F52-A3E1-0C8EC19492DF}']
{ Property getters and setters }
function GetOldID_TIENDAValue : Integer;
{ Properties }
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
end;
{ TDarTiendaDeUsuarioBusinessProcessorRules }
TDarTiendaDeUsuarioBusinessProcessorRules = class(TDABusinessProcessorRules, IDarTiendaDeUsuario, IDarTiendaDeUsuarioDelta)
private
protected
{ Property getters and setters }
function GetID_TIENDAValue: Integer; virtual;
function GetID_TIENDAIsNull: Boolean; virtual;
function GetOldID_TIENDAValue: Integer; virtual;
function GetOldID_TIENDAIsNull: Boolean; virtual;
procedure SetID_TIENDAValue(const aValue: Integer); virtual;
procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue;
property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull;
property OldID_TIENDA : Integer read GetOldID_TIENDAValue;
property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
destructor Destroy; override;
end;
{ ISubCuentasContactoDelta } { ISubCuentasContactoDelta }
ISubCuentasContactoDelta = interface(ISubCuentasContacto) ISubCuentasContactoDelta = interface(ISubCuentasContacto)
['{49545BFB-5042-4146-81AA-76148471960B}'] ['{69B0CFEF-1D7B-49D6-AF7E-2D023A0822A5}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String; function GetOldREF_SUBCUENTAValue : String;
@ -119,7 +297,7 @@ type
{ IContactosDelta } { IContactosDelta }
IContactosDelta = interface(IContactos) IContactosDelta = interface(IContactos)
['{49724045-D605-4B96-A76E-B26220CD4766}'] ['{763B21A0-1CDE-4A11-97FE-86A7D488BCA2}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -442,7 +620,7 @@ type
{ IGruposClienteDelta } { IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente) IGruposClienteDelta = interface(IGruposCliente)
['{DA7AE60F-29A3-4D06-8EC9-1A4A063A7BC3}'] ['{E08A27A2-0C3D-4880-A705-8E9E599A094A}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -488,7 +666,7 @@ type
{ IDatosBancariosDelta } { IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios) IDatosBancariosDelta = interface(IDatosBancarios)
['{9D270E62-EE9D-48C7-941C-36860E0B2742}'] ['{3B9A634C-4586-4A72-B982-AB25BF2E6C24}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -618,7 +796,7 @@ type
{ IClientesDelta } { IClientesDelta }
IClientesDelta = interface(IClientes) IClientesDelta = interface(IClientes)
['{BFA06032-16F6-45E6-9374-E206E6D46C1F}'] ['{4192433E-E014-410F-BDE6-1D0D1CC50823}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1109,7 +1287,7 @@ type
{ IProveedoresDelta } { IProveedoresDelta }
IProveedoresDelta = interface(IProveedores) IProveedoresDelta = interface(IProveedores)
['{F9B779EC-4468-48FD-9687-8C4063B37A7B}'] ['{061A9581-0319-4275-A02F-F56419EA77D7}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1600,7 +1778,7 @@ type
{ IVendedoresDelta } { IVendedoresDelta }
IVendedoresDelta = interface(IVendedores) IVendedoresDelta = interface(IVendedores)
['{20A73085-6BB8-406F-BAB0-AC664009A5A5}'] ['{57099FD5-396F-4C40-B270-5652ECB6D973}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer; function GetOldID_CATEGORIAValue : Integer;
@ -1947,7 +2125,7 @@ type
{ IDireccionesContactoDelta } { IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto) IDireccionesContactoDelta = interface(IDireccionesContacto)
['{5E20C888-08BA-4E30-8584-E1F82C01AFAC}'] ['{E6EAE8E3-FC4C-4FA3-9309-5BA66CAEC684}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer; function GetOldID_CONTACTOValue : Integer;
@ -2174,7 +2352,7 @@ type
{ IClientesDescuentosDelta } { IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos) IClientesDescuentosDelta = interface(IClientesDescuentos)
['{1D113362-E6C6-4F13-9B60-C814CEFFA145}'] ['{BE063743-BB6D-49A0-AD45-0D7F8BA11FC5}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer; function GetOldID_CLIENTEValue : Integer;
@ -2256,7 +2434,7 @@ type
{ IProcedenciasClienteDelta } { IProcedenciasClienteDelta }
IProcedenciasClienteDelta = interface(IProcedenciasCliente) IProcedenciasClienteDelta = interface(IProcedenciasCliente)
['{081E32EA-401B-4589-B698-734A85B16F71}'] ['{33C3D07B-35C3-4B41-85C3-05B8F8ECF5C9}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2302,7 +2480,7 @@ type
{ IGruposProveedorDelta } { IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor) IGruposProveedorDelta = interface(IGruposProveedor)
['{2A341469-E8B6-4873-BFFD-7B8A53007AE6}'] ['{DDE12288-B000-45AA-A36C-24C4555CA432}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldDESCRIPCIONValue : String; function GetOldDESCRIPCIONValue : String;
@ -2348,7 +2526,7 @@ type
{ IContactos_RefreshDelta } { IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh) IContactos_RefreshDelta = interface(IContactos_Refresh)
['{7310E07E-3E8E-4E99-84D6-F16623D372E4}'] ['{F7D74B95-D7FE-4362-AC9B-433041EB9053}']
{ Property getters and setters } { Property getters and setters }
function GetOldIDValue : Integer; function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String; function GetOldNIF_CIFValue : String;
@ -2626,6 +2804,371 @@ implementation
uses uses
Variants, uROBinaryHelpers, uDAInterfaces; Variants, uROBinaryHelpers, uDAInterfaces;
{ TPersonalContactoBusinessProcessorRules }
constructor TPersonalContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TPersonalContactoBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TPersonalContactoBusinessProcessorRules.GetIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID];
end;
function TPersonalContactoBusinessProcessorRules.GetIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldIDValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID];
end;
function TPersonalContactoBusinessProcessorRules.GetOldIDIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetIDValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetIDIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID] := Null;
end;
function TPersonalContactoBusinessProcessorRules.GetID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO];
end;
function TPersonalContactoBusinessProcessorRules.GetID_CONTACTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldID_CONTACTOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID_CONTACTO];
end;
function TPersonalContactoBusinessProcessorRules.GetOldID_CONTACTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoID_CONTACTO]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetID_CONTACTOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetID_CONTACTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoID_CONTACTO] := Null;
end;
function TPersonalContactoBusinessProcessorRules.GetNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE];
end;
function TPersonalContactoBusinessProcessorRules.GetNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldNOMBREValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoNOMBRE];
end;
function TPersonalContactoBusinessProcessorRules.GetOldNOMBREIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoNOMBRE]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetNOMBREValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetNOMBREIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoNOMBRE] := Null;
end;
function TPersonalContactoBusinessProcessorRules.GetPUESTOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO];
end;
function TPersonalContactoBusinessProcessorRules.GetPUESTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldPUESTOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoPUESTO];
end;
function TPersonalContactoBusinessProcessorRules.GetOldPUESTOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoPUESTO]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetPUESTOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetPUESTOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoPUESTO] := Null;
end;
function TPersonalContactoBusinessProcessorRules.GetTELEFONOValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO];
end;
function TPersonalContactoBusinessProcessorRules.GetTELEFONOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldTELEFONOValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoTELEFONO];
end;
function TPersonalContactoBusinessProcessorRules.GetOldTELEFONOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoTELEFONO]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetTELEFONOValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetTELEFONOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoTELEFONO] := Null;
end;
function TPersonalContactoBusinessProcessorRules.GetMOVILValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL];
end;
function TPersonalContactoBusinessProcessorRules.GetMOVILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldMOVILValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoMOVIL];
end;
function TPersonalContactoBusinessProcessorRules.GetOldMOVILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoMOVIL]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetMOVILValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetMOVILIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoMOVIL] := Null;
end;
function TPersonalContactoBusinessProcessorRules.GetFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX];
end;
function TPersonalContactoBusinessProcessorRules.GetFAXIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldFAXValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFAX];
end;
function TPersonalContactoBusinessProcessorRules.GetOldFAXIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFAX]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetFAXValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetFAXIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFAX] := Null;
end;
function TPersonalContactoBusinessProcessorRules.GetEMAILValue: String;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL];
end;
function TPersonalContactoBusinessProcessorRules.GetEMAILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldEMAILValue: String;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoEMAIL];
end;
function TPersonalContactoBusinessProcessorRules.GetOldEMAILIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoEMAIL]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetEMAILValue(const aValue: String);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetEMAILIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoEMAIL] := Null;
end;
function TPersonalContactoBusinessProcessorRules.GetFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA];
end;
function TPersonalContactoBusinessProcessorRules.GetFECHA_ALTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldFECHA_ALTAValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_ALTA];
end;
function TPersonalContactoBusinessProcessorRules.GetOldFECHA_ALTAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_ALTA]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetFECHA_ALTAValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetFECHA_ALTAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_ALTA] := Null;
end;
function TPersonalContactoBusinessProcessorRules.GetFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION];
end;
function TPersonalContactoBusinessProcessorRules.GetFECHA_MODIFICACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION]);
end;
function TPersonalContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONValue: DateTime;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_MODIFICACION];
end;
function TPersonalContactoBusinessProcessorRules.GetOldFECHA_MODIFICACIONIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_PersonalContactoFECHA_MODIFICACION]);
end;
procedure TPersonalContactoBusinessProcessorRules.SetFECHA_MODIFICACIONValue(const aValue: DateTime);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION] := aValue;
end;
procedure TPersonalContactoBusinessProcessorRules.SetFECHA_MODIFICACIONIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_PersonalContactoFECHA_MODIFICACION] := Null;
end;
{ TDarTiendaDeUsuarioBusinessProcessorRules }
constructor TDarTiendaDeUsuarioBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin
inherited;
end;
destructor TDarTiendaDeUsuarioBusinessProcessorRules.Destroy;
begin
inherited;
end;
function TDarTiendaDeUsuarioBusinessProcessorRules.GetID_TIENDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_DarTiendaDeUsuarioID_TIENDA];
end;
function TDarTiendaDeUsuarioBusinessProcessorRules.GetID_TIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_DarTiendaDeUsuarioID_TIENDA]);
end;
function TDarTiendaDeUsuarioBusinessProcessorRules.GetOldID_TIENDAValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_DarTiendaDeUsuarioID_TIENDA];
end;
function TDarTiendaDeUsuarioBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_DarTiendaDeUsuarioID_TIENDA]);
end;
procedure TDarTiendaDeUsuarioBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_DarTiendaDeUsuarioID_TIENDA] := aValue;
end;
procedure TDarTiendaDeUsuarioBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_DarTiendaDeUsuarioID_TIENDA] := Null;
end;
{ TSubCuentasContactoBusinessProcessorRules } { TSubCuentasContactoBusinessProcessorRules }
constructor TSubCuentasContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); constructor TSubCuentasContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);
begin begin
@ -8833,6 +9376,8 @@ end;
initialization initialization
RegisterBusinessProcessorRules(RID_PersonalContactoDelta, TPersonalContactoBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_DarTiendaDeUsuarioDelta, TDarTiendaDeUsuarioBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_SubCuentasContactoDelta, TSubCuentasContactoBusinessProcessorRules); RegisterBusinessProcessorRules(RID_SubCuentasContactoDelta, TSubCuentasContactoBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules); RegisterBusinessProcessorRules(RID_ContactosDelta, TContactosBusinessProcessorRules);
RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules); RegisterBusinessProcessorRules(RID_GruposClienteDelta, TGruposClienteBusinessProcessorRules);

32
Source/Modulos/Contactos/Model/uBizContactos.pas
View File

@ -3,7 +3,7 @@ unit uBizContactos;
interface interface
uses uses
uDAInterfaces, uDADataTable, uROClasses, uDAInterfaces, uDADataTable, uROClasses, uBizContactosPersonal,
schContactosClient_Intf, uBizContactosDatosBancarios, uBizSubCuentasContacto, schContactosClient_Intf, uBizContactosDatosBancarios, uBizSubCuentasContacto,
uDBSelectionListUtils, uBizDireccionesContacto, uBizClientesDescuentos; uDBSelectionListUtils, uBizDireccionesContacto, uBizClientesDescuentos;
@ -26,6 +26,11 @@ type
property DatosBancarios : IBizContactosDatosBancarios read GetDatosBancarios property DatosBancarios : IBizContactosDatosBancarios read GetDatosBancarios
write SetDatosBancarios; write SetDatosBancarios;
procedure SetPersonal(AValue : IBizContactoPersonal);
function GetPersonal : IBizContactoPersonal;
property Personal : IBizContactoPersonal read GetPersonal
write SetPersonal;
function GetCategoria : String; function GetCategoria : String;
property Categoria : String read GetCategoria; property Categoria : String read GetCategoria;
@ -185,6 +190,8 @@ type
FDatosBancariosLink : TDADataSource; FDatosBancariosLink : TDADataSource;
FDirecciones : IBizDireccionesContacto; FDirecciones : IBizDireccionesContacto;
FDireccionesLink : TDADataSource; FDireccionesLink : TDADataSource;
FPersonal : IBizContactoPersonal;
FPersonalLink : TDADataSource;
FSeleccionableInterface : ISeleccionable; FSeleccionableInterface : ISeleccionable;
@ -196,6 +203,9 @@ type
function GetCategoria : String; function GetCategoria : String;
procedure SetPersonal(AValue : IBizContactoPersonal);
function GetPersonal : IBizContactoPersonal;
procedure OnNewRecord(Sender: TDADataTable); override; procedure OnNewRecord(Sender: TDADataTable); override;
public public
function EsNuevo : Boolean; function EsNuevo : Boolean;
@ -204,6 +214,9 @@ type
destructor Destroy; override; destructor Destroy; override;
property Categoria : String read GetCategoria; property Categoria : String read GetCategoria;
property Personal : IBizContactoPersonal read GetPersonal
write SetPersonal;
property DatosBancarios : IBizContactosDatosBancarios read GetDatosBancarios property DatosBancarios : IBizContactosDatosBancarios read GetDatosBancarios
write SetDatosBancarios; write SetDatosBancarios;
@ -403,6 +416,9 @@ begin
FDireccionesLink := TDADataSource.Create(NIL); FDireccionesLink := TDADataSource.Create(NIL);
FDireccionesLink.DataTable := aDataTable; FDireccionesLink.DataTable := aDataTable;
FPersonalLink := TDADataSource.Create(NIL);
FPersonalLink.DataTable := aDataTable;
FSeleccionableInterface := TSeleccionable.Create(aDataTable); FSeleccionableInterface := TSeleccionable.Create(aDataTable);
end; end;
@ -414,6 +430,9 @@ begin
FDirecciones := NIL; FDirecciones := NIL;
FDireccionesLink.Free; FDireccionesLink.Free;
FPersonal := NIL;
FPersonalLink.Free;
FSeleccionableInterface := NIL; FSeleccionableInterface := NIL;
inherited; inherited;
end; end;
@ -443,6 +462,11 @@ begin
Result := FDirecciones; Result := FDirecciones;
end; end;
function TBizContacto.GetPersonal: IBizContactoPersonal;
begin
Result := FPersonal;
end;
procedure TBizContacto.IniciarValoresContactoNuevo; procedure TBizContacto.IniciarValoresContactoNuevo;
begin begin
USUARIO := AppFactuGES.UsuarioActivo.UserName; USUARIO := AppFactuGES.UsuarioActivo.UserName;
@ -469,6 +493,12 @@ begin
end; end;
procedure TBizContacto.SetPersonal(AValue: IBizContactoPersonal);
begin
FPersonal := AValue;
EnlazarMaestroDetalle(FPersonalLink, FPersonal);
end;
{ TBizCliente } { TBizCliente }
constructor TBizCliente.Create(aDataTable: TDADataTable); constructor TBizCliente.Create(aDataTable: TDADataTable);

61
Source/Modulos/Contactos/Model/uBizContactosPersonal.pas Normal file
View File

@ -0,0 +1,61 @@
unit uBizContactosPersonal;
interface
uses
uDAInterfaces, uDADataTable,
schContactosClient_Intf;
const
BIZ_CLIENT_CONTACTO_PERSONAL = 'Client.ContactosPersonal';
type
IBizContactoPersonal = interface (IPersonalContacto)
['{9FFEFD2E-1EED-4FA2-80D7-81B1541B122C}']
end;
TBizContactoPersonal = class(TPersonalContactoDataTableRules, IBizContactoPersonal)
private
ContIdAux: Integer;
protected
procedure OnNewRecord(Sender: TDADataTable); override;
procedure BeforeInsert(Sender: TDADataTable); override;
public
constructor Create(aDataTable: TDADataTable); override;
end;
implementation
{ TBizContactoPersonal }
uses
DB;
procedure TBizContactoPersonal.BeforeInsert(Sender: TDADataTable);
var
AMasterTable : TDADataTable;
begin
inherited;
AMasterTable := DataTable.GetMasterDataTable;
if Assigned(AMasterTable) and (AMasterTable.State in dsEditModes) then
AMasterTable.Post;
end;
constructor TBizContactoPersonal.Create(aDataTable: TDADataTable);
begin
inherited;
ContIdAux := -1;
end;
procedure TBizContactoPersonal.OnNewRecord(Sender: TDADataTable);
begin
inherited;
ID := ContIdAux; // -1, -2, -3...
Dec(ContIdAux);
end;
initialization
RegisterDataTableRules(BIZ_CLIENT_CONTACTO_PERSONAL, TBizContactoPersonal);
end.

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

@ -14,6 +14,117 @@ object srvContactos: TsrvContactos
DataDictionary = DataDictionary DataDictionary = DataDictionary
Diagrams = Diagrams Diagrams = Diagrams
Datasets = < Datasets = <
item
Params = <>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONTACTOS_DATOS_PERSONAL'
StatementType = stAutoSQL
ColumnMappings = <
item
DatasetField = 'ID'
TableField = 'ID'
end
item
DatasetField = 'ID_CONTACTO'
TableField = 'ID_CONTACTO'
end
item
DatasetField = 'NOMBRE'
TableField = 'NOMBRE'
end
item
DatasetField = 'PUESTO'
TableField = 'PUESTO'
end
item
DatasetField = 'TELEFONO'
TableField = 'TELEFONO'
end
item
DatasetField = 'MOVIL'
TableField = 'MOVIL'
end
item
DatasetField = 'FAX'
TableField = 'FAX'
end
item
DatasetField = 'EMAIL'
TableField = 'EMAIL'
end
item
DatasetField = 'FECHA_ALTA'
TableField = 'FECHA_ALTA'
end
item
DatasetField = 'FECHA_MODIFICACION'
TableField = 'FECHA_MODIFICACION'
end>
end>
Name = 'PersonalContacto'
Fields = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_PERSONAL_ID'
DictionaryEntry = 'PersonalContacto_ID'
InPrimaryKey = True
end
item
Name = 'ID_CONTACTO'
DataType = datInteger
DictionaryEntry = 'PersonalContacto_ID_CONTACTO'
end
item
Name = 'NOMBRE'
DataType = datString
Size = 255
DictionaryEntry = 'PersonalContacto_NOMBRE'
end
item
Name = 'PUESTO'
DataType = datString
Size = 255
DictionaryEntry = 'PersonalContacto_PUESTO'
end
item
Name = 'TELEFONO'
DataType = datString
Size = 25
DictionaryEntry = 'PersonalContacto_TELEFONO'
end
item
Name = 'MOVIL'
DataType = datString
Size = 25
DictionaryEntry = 'PersonalContacto_MOVIL'
end
item
Name = 'FAX'
DataType = datString
Size = 25
DictionaryEntry = 'PersonalContacto_FAX'
end
item
Name = 'EMAIL'
DataType = datString
Size = 255
DictionaryEntry = 'PersonalContacto_EMAIL'
end
item
Name = 'FECHA_ALTA'
DataType = datDateTime
DictionaryEntry = 'PersonalContacto_FECHA_ALTA'
end
item
Name = 'FECHA_MODIFICACION'
DataType = datDateTime
DictionaryEntry = 'PersonalContacto_FECHA_MODIFICACION'
end>
end
item item
IsPublic = False IsPublic = False
Params = < Params = <
@ -3481,8 +3592,165 @@ object srvContactos: TsrvContactos
ColumnMappings = <> ColumnMappings = <>
end> end>
Name = 'Update_SubCuentasContacto' Name = 'Update_SubCuentasContacto'
end
item
Params = <
item
Name = 'ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_PERSONAL_ID'
Value = ''
end
item
Name = 'ID_CONTACTO'
Value = ''
end
item
Name = 'NOMBRE'
Value = ''
end
item
Name = 'PUESTO'
Value = ''
end
item
Name = 'TELEFONO'
Value = ''
end
item
Name = 'MOVIL'
Value = ''
end
item
Name = 'FAX'
Value = ''
end
item
Name = 'EMAIL'
Value = ''
end>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONTACTOS_DATOS_PERSONAL'
SQL =
'INSERT'#10' INTO CONTACTOS_DATOS_PERSONAL'#10' (ID, ID_CONTACTO, NOM' +
'BRE, PUESTO, TELEFONO, MOVIL, FAX,'#10' EMAIL, FECHA_ALTA)'#10' VAL' +
'UES'#10' (:ID, :ID_CONTACTO, :NOMBRE, :PUESTO, :TELEFONO, :MOVIL,' +
#10' :FAX, :EMAIL, CURRENT_TIME)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Insert_PersonalContacto'
end
item
Params = <
item
Name = 'OLD_ID'
DataType = datAutoInc
Value = '0'
end>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONTACTOS_DATOS_PERSONAL'
SQL =
'DELETE '#10' FROM'#10' CONTACTOS_DATOS_PERSONAL'#10' WHERE'#10' (ID = :O' +
'LD_ID)'
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Delete_PersonalContacto'
end
item
Params = <
item
Name = 'ID_CONTACTO'
Value = ''
end
item
Name = 'NOMBRE'
Value = ''
end
item
Name = 'PUESTO'
Value = ''
end
item
Name = 'TELEFONO'
Value = ''
end
item
Name = 'MOVIL'
Value = ''
end
item
Name = 'FAX'
Value = ''
end
item
Name = 'EMAIL'
Value = ''
end
item
Name = 'FECHA_MODIFICACION'
Value = ''
end
item
Name = 'OLD_ID'
Value = ''
end>
Statements = <
item
ConnectionType = 'Interbase'
Default = True
TargetTable = 'CONTACTOS_DATOS_PERSONAL'
SQL =
'UPDATE CONTACTOS_DATOS_PERSONAL'#10' SET '#10' ID_CONTACTO = :ID_CON' +
'TACTO, '#10' NOMBRE = :NOMBRE, '#10' PUESTO = :PUESTO, '#10' TELEFO' +
'NO = :TELEFONO, '#10' MOVIL = :MOVIL, '#10' FAX = :FAX, '#10' EMAIL' +
' = :EMAIL, '#10' FECHA_MODIFICACION = :FECHA_MODIFICACION'#10' WHERE' +
#10' (ID = :OLD_ID)'#10
StatementType = stSQL
ColumnMappings = <>
end>
Name = 'Update_PersonalContacto'
end> end>
RelationShips = < RelationShips = <
item
Name = 'FK_PersonalContacto_Empleados'
MasterDatasetName = 'Vendedores'
MasterFields = 'ID'
DetailDatasetName = 'PersonalContacto'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_PersonalContacto_Proveedores'
MasterDatasetName = 'Proveedores'
MasterFields = 'ID'
DetailDatasetName = 'PersonalContacto'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_PersonalContacto_Clientes'
MasterDatasetName = 'Clientes'
MasterFields = 'ID'
DetailDatasetName = 'PersonalContacto'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item
Name = 'FK_PersonalContacto_Contactos'
MasterDatasetName = 'Contactos'
MasterFields = 'ID'
DetailDatasetName = 'PersonalContacto'
DetailFields = 'ID_CONTACTO'
RelationshipType = rtForeignKey
end
item item
Name = 'FK_ClientesDescuentos_Clientes' Name = 'FK_ClientesDescuentos_Clientes'
MasterDatasetName = 'Clientes' MasterDatasetName = 'Clientes'
@ -3664,6 +3932,20 @@ object srvContactos: TsrvContactos
DatasetName = 'DireccionesContacto' DatasetName = 'DireccionesContacto'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end end
item
Name = 'Insert PersonalContacto'
DoUpdate = False
DoDelete = False
DatasetName = 'PersonalContacto'
FailureBehavior = fbRaiseException
end
item
Name = 'Update PersonalContacto'
DoInsert = False
DoDelete = False
DatasetName = 'PersonalContacto'
FailureBehavior = fbRaiseException
end
item item
Name = 'Insert AgentesComisiones' Name = 'Insert AgentesComisiones'
DoUpdate = False DoUpdate = False
@ -3727,6 +4009,13 @@ object srvContactos: TsrvContactos
DatasetName = 'AgentesComisiones' DatasetName = 'AgentesComisiones'
FailureBehavior = fbRaiseException FailureBehavior = fbRaiseException
end end
item
Name = 'Delete PersonalContacto'
DoUpdate = False
DoInsert = False
DatasetName = 'PersonalContacto'
FailureBehavior = fbRaiseException
end
item item
Name = 'Delete DireccionesContacto' Name = 'Delete DireccionesContacto'
DoUpdate = False DoUpdate = False
@ -4361,6 +4650,60 @@ object srvContactos: TsrvContactos
Name = 'ProcedenciasCliente_DESCRIPCION' Name = 'ProcedenciasCliente_DESCRIPCION'
DataType = datString DataType = datString
Size = 255 Size = 255
end
item
Name = 'PersonalContacto_ID'
DataType = datAutoInc
GeneratorName = 'GEN_CONTACTOS_PERSONAL_ID'
Required = True
end
item
Name = 'PersonalContacto_ID_CONTACTO'
DataType = datInteger
end
item
Name = 'PersonalContacto_NOMBRE'
DataType = datString
Size = 255
DisplayLabel = 'Nombre'
end
item
Name = 'PersonalContacto_PUESTO'
DataType = datString
Size = 255
DisplayLabel = 'Puesto'
end
item
Name = 'PersonalContacto_TELEFONO'
DataType = datString
Size = 25
DisplayLabel = 'Tel'#233'fono'
end
item
Name = 'PersonalContacto_MOVIL'
DataType = datString
Size = 25
DisplayLabel = 'M'#243'vil'
end
item
Name = 'PersonalContacto_FAX'
DataType = datString
Size = 25
DisplayLabel = 'Fax'
end
item
Name = 'PersonalContacto_EMAIL'
DataType = datString
Size = 255
DisplayLabel = 'E-mail'
end
item
Name = 'PersonalContacto_FECHA_ALTA'
DataType = datDateTime
end
item
Name = 'PersonalContacto_FECHA_MODIFICACION'
DataType = datDateTime
end> end>
Left = 126 Left = 126
Top = 14 Top = 14
@ -4467,4 +4810,15 @@ object srvContactos: TsrvContactos
Left = 96 Left = 96
Top = 207 Top = 207
end end
object bpPersonalContacto: TDABusinessProcessor
Schema = schContactos
InsertCommandName = 'Insert_PersonalContacto'
DeleteCommandName = 'Delete_PersonalContacto'
UpdateCommandName = 'Update_PersonalContacto'
ReferencedDataset = 'PersonalContacto'
ProcessorOptions = [poAutoGenerateRefreshDataset, poPrepareCommands]
UpdateMode = updWhereKeyOnly
Left = 224
Top = 143
end
end end

8
Source/Modulos/Contactos/Servidor/srvContactos_Impl.pas
View File

@ -30,6 +30,7 @@ type
bpProveedores: TDABusinessProcessor; bpProveedores: TDABusinessProcessor;
bpDireccionesContacto: TDABusinessProcessor; bpDireccionesContacto: TDABusinessProcessor;
bpClientesDescuentos: TDABusinessProcessor; bpClientesDescuentos: TDABusinessProcessor;
bpPersonalContacto: TDABusinessProcessor;
Bin2DataStreamer: TDABin2DataStreamer; Bin2DataStreamer: TDABin2DataStreamer;
bpSubCuentasContacto: TDABusinessProcessor; bpSubCuentasContacto: TDABusinessProcessor;
schContactos: TDASchema; schContactos: TDASchema;
@ -65,12 +66,7 @@ procedure TsrvContactos.DARemoteServiceBeforeGetDatasetData(
const Dataset: IDADataset; const IncludeSchema: Boolean; const Dataset: IDADataset; const IncludeSchema: Boolean;
const MaxRecords: Integer); const MaxRecords: Integer);
begin begin
if (DataSet.Name <> nme_DatosBancarios) and if Assigned(Dataset.FindField(fld_ContactosID_EMPRESA)) then
(DataSet.Name <> nme_DireccionesContacto) and
(DataSet.Name <> nme_ProcedenciasCliente) and
(DataSet.Name <> nme_GruposCliente) and
(DataSet.Name <> nme_GruposProveedor) and
(DataSet.Name <> nme_ClientesDescuentos) then
begin begin
{ Aquí se asegura que el usuario sólo accede a contactos { Aquí se asegura que el usuario sólo accede a contactos
de las empresas a las que tiene permiso para acceder de las empresas a las que tiene permiso para acceder

46
Source/Modulos/Contactos/Views/Contactos_view.dpk
View File

@ -25,8 +25,6 @@ package Contactos_view;
{$IMPLICITBUILD OFF} {$IMPLICITBUILD OFF}
requires requires
rtl,
vcl,
Base, Base,
GUIBase, GUIBase,
ApplicationBase, ApplicationBase,
@ -35,44 +33,7 @@ requires
TiposIVA_model, TiposIVA_model,
TiposIVA_controller, TiposIVA_controller,
Contactos_model, Contactos_model,
Contactos_controller, Contactos_controller;
JvGlobusD11R,
dbrtl,
vcldb,
DataAbstract_Core_D11,
dsnap,
adortl,
RemObjects_Core_D11,
GUISDK_D11,
xmlrtl,
cfpack_d11,
vclx,
vclactnband,
designide,
ccpackD11,
PNG_D10,
PngComponentsD10,
tb2k_d10,
tbx_d10,
JvCoreD11R,
vcljpg,
Jcl,
JclVcl,
JvSystemD11R,
JvStdCtrlsD11R,
bdertl,
JvPageCompsD11R,
JSDialog100,
cxLibraryD11,
dxThemeD11,
dxGDIPlusD11,
cxEditorsD11,
cxDataD11,
dxLayoutControlD11,
dxComnD11,
JvMMD11R,
JvCtrlsD11R,
cxExtEditorsD11;
contains contains
uContactosViewRegister in 'uContactosViewRegister.pas', uContactosViewRegister in 'uContactosViewRegister.pas',
@ -107,7 +68,10 @@ contains
uViewSubCuentaContacto in 'uViewSubCuentaContacto.pas' {frViewSubCuentaContacto: TCustomView}, uViewSubCuentaContacto in 'uViewSubCuentaContacto.pas' {frViewSubCuentaContacto: TCustomView},
uEditorProcedenciasCliente in 'uEditorProcedenciasCliente.pas' {fEditorProcedenciasCliente: TCustomEditor}, uEditorProcedenciasCliente in 'uEditorProcedenciasCliente.pas' {fEditorProcedenciasCliente: TCustomEditor},
uEditorElegirVendedores in 'uEditorElegirVendedores.pas' {fEditorElegirVendedores: TCustomEditor}, uEditorElegirVendedores in 'uEditorElegirVendedores.pas' {fEditorElegirVendedores: TCustomEditor},
uViewPersonalContacto in 'uViewPersonalContacto.pas' {frViewPersonalContacto: TFrame},
uEditorVendedor in 'uEditorVendedor.pas' {fEditorVendedor: TCustomEditor}, uEditorVendedor in 'uEditorVendedor.pas' {fEditorVendedor: TCustomEditor},
uViewConfiguracionContactos in 'uViewConfiguracionContactos.pas' {frViewConfiguracionContactos}; uViewConfiguracionContactos in 'uViewConfiguracionContactos.pas' {frViewConfiguracionContactos},
uEditorPersonal in 'uEditorPersonal.pas' {fEditorPersonal: TCustomEditor},
uEditorElegirPersonaContacto in 'uEditorElegirPersonaContacto.pas' {fEditorElegirPersonaContacto: TCustomEditor};
end. end.

68
Source/Modulos/Contactos/Views/Contactos_view.dproj
View File

@ -49,54 +49,15 @@
<DelphiCompile Include="Contactos_view.dpk"> <DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Data\adortl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\ApplicationBase.dcp" />
<DCCReference Include="..\Data\ApplicationBase.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Base.dcp" />
<DCCReference Include="..\Data\Base.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_controller.dcp" />
<DCCReference Include="..\Data\bdertl.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\Contactos_model.dcp" />
<DCCReference Include="..\Data\ccpackD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_controller.dcp" />
<DCCReference Include="..\Data\cfpack_d11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\FormasPago_model.dcp" />
<DCCReference Include="..\Data\Contactos_controller.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\GUIBase.dcp" />
<DCCReference Include="..\Data\Contactos_model.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_controller.dcp" />
<DCCReference Include="..\Data\cxDataD11.dcp" /> <DCCReference Include="C:\Documents and Settings\Usuario\TiposIVA_model.dcp" />
<DCCReference Include="..\Data\cxEditorsD11.dcp" />
<DCCReference Include="..\Data\cxExtEditorsD11.dcp" />
<DCCReference Include="..\Data\cxLibraryD11.dcp" />
<DCCReference Include="..\Data\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\Data\dbrtl.dcp" />
<DCCReference Include="..\Data\designide.dcp" />
<DCCReference Include="..\Data\dsnap.dcp" />
<DCCReference Include="..\Data\dxComnD11.dcp" />
<DCCReference Include="..\Data\dxGDIPlusD11.dcp" />
<DCCReference Include="..\Data\dxLayoutControlD11.dcp" />
<DCCReference Include="..\Data\dxThemeD11.dcp" />
<DCCReference Include="..\Data\FormasPago_controller.dcp" />
<DCCReference Include="..\Data\FormasPago_model.dcp" />
<DCCReference Include="..\Data\GUIBase.dcp" />
<DCCReference Include="..\Data\GUISDK_D11.dcp" />
<DCCReference Include="..\Data\Jcl.dcp" />
<DCCReference Include="..\Data\JclVcl.dcp" />
<DCCReference Include="..\Data\JSDialog100.dcp" />
<DCCReference Include="..\Data\JvCoreD11R.dcp" />
<DCCReference Include="..\Data\JvCtrlsD11R.dcp" />
<DCCReference Include="..\Data\JvGlobusD11R.dcp" />
<DCCReference Include="..\Data\JvMMD11R.dcp" />
<DCCReference Include="..\Data\JvPageCompsD11R.dcp" />
<DCCReference Include="..\Data\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\Data\JvSystemD11R.dcp" />
<DCCReference Include="..\Data\PngComponentsD10.dcp" />
<DCCReference Include="..\Data\PNG_D10.dcp" />
<DCCReference Include="..\Data\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\Data\rtl.dcp" />
<DCCReference Include="..\Data\tb2k_d10.dcp" />
<DCCReference Include="..\Data\tbx_d10.dcp" />
<DCCReference Include="..\Data\TiposIVA_controller.dcp" />
<DCCReference Include="..\Data\TiposIVA_model.dcp" />
<DCCReference Include="..\Data\vcl.dcp" />
<DCCReference Include="..\Data\vclactnband.dcp" />
<DCCReference Include="..\Data\vcldb.dcp" />
<DCCReference Include="..\Data\vcljpg.dcp" />
<DCCReference Include="..\Data\vclx.dcp" />
<DCCReference Include="..\Data\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" /> <DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas"> <DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form> <Form>fEditorCliente</Form>
@ -153,10 +114,6 @@
<Form>fEditorProveedores</Form> <Form>fEditorProveedores</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uEditorVendedor.pas">
<Form>fEditorVendedor</Form>
<DesignClass>TCustomEditor</DesignClass>
</DCCReference>
<DCCReference Include="uEditorVendedores.pas"> <DCCReference Include="uEditorVendedores.pas">
<Form>fEditorVendedores</Form> <Form>fEditorVendedores</Form>
<DesignClass>TCustomEditor</DesignClass> <DesignClass>TCustomEditor</DesignClass>
@ -177,9 +134,6 @@
<Form>frViewClientes</Form> <Form>frViewClientes</Form>
<DesignClass>TCustomView</DesignClass> <DesignClass>TCustomView</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewConfiguracionContactos.pas">
<Form>frViewConfiguracionContactos</Form>
</DCCReference>
<DCCReference Include="uViewContacto.pas"> <DCCReference Include="uViewContacto.pas">
<Form>frViewContacto</Form> <Form>frViewContacto</Form>
<DesignClass>TCustomView</DesignClass> <DesignClass>TCustomView</DesignClass>
@ -204,6 +158,10 @@
<Form>frViewDireccionesEntrega</Form> <Form>frViewDireccionesEntrega</Form>
<DesignClass>TFrame</DesignClass> <DesignClass>TFrame</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="uViewPersonalContacto.pas">
<Form>frViewPersonalContacto</Form>
<DesignClass>TFrame</DesignClass>
</DCCReference>
<DCCReference Include="uViewProveedor.pas"> <DCCReference Include="uViewProveedor.pas">
<Form>frViewProveedor</Form> <Form>frViewProveedor</Form>
<DesignClass>TCustomView</DesignClass> <DesignClass>TCustomView</DesignClass>

8
Source/Modulos/Contactos/Views/uContactosViewRegister.pas
View File

@ -15,7 +15,7 @@ uses
uEditorVendedor, uEditorElegirProveedores, uEditorDireccion, uEditorVendedor, uEditorElegirProveedores, uEditorDireccion,
uEditorElegirVendedores, uEditorGruposCliente, uEditorProcedenciasCliente, uEditorElegirVendedores, uEditorGruposCliente, uEditorProcedenciasCliente,
uEditorGruposProveedor, uEditorEtiquetasContactosReport, uEditorGruposProveedor, uEditorEtiquetasContactosReport,
uViewConfiguracionContactos; uViewConfiguracionContactos, uEditorPersonal, uEditorElegirPersonaContacto;
procedure RegisterViews; procedure RegisterViews;
begin begin
@ -39,6 +39,9 @@ begin
EditorRegistry.RegisterClass(TfEditorEtiquetasContactosPreview, 'EditorEtiquetasContactosPreview'); EditorRegistry.RegisterClass(TfEditorEtiquetasContactosPreview, 'EditorEtiquetasContactosPreview');
EditorRegistry.RegisterClass(TfEditorPersonal, 'EditorPersonalContacto');
EditorRegistry.RegisterClass(TfEditorElegirPersonaContacto, 'EditorElegirPersonaContacto');
ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionContactos, 'Contactos'); ViewConfiguracionRegistry.RegisterClass(TfrViewConfiguracionContactos, 'Contactos');
end; end;
@ -64,6 +67,9 @@ begin
EditorRegistry.UnRegisterClass(TfEditorEtiquetasContactosPreview); EditorRegistry.UnRegisterClass(TfEditorEtiquetasContactosPreview);
EditorRegistry.UnRegisterClass(TfEditorPersonal);
EditorRegistry.UnRegisterClass(TfEditorElegirPersonaContacto);
ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionContactos); ViewConfiguracionRegistry.UnRegisterClass(TfrViewConfiguracionContactos);
end; end;

29
Source/Modulos/Contactos/Views/uEditorContacto.dfm
View File

@ -7,7 +7,6 @@ inherited fEditorContacto: TfEditorContacto
ClientWidth = 632 ClientWidth = 632
Scaled = False Scaled = False
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -75,6 +74,7 @@ inherited fEditorContacto: TfEditorContacto
end end
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 626 Width = 626
ActivePage = pagPersonal
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
ExplicitWidth = 626 ExplicitWidth = 626
@ -161,6 +161,33 @@ inherited fEditorContacto: TfEditorContacto
end end
end end
end end
object pagPersonal: TTabSheet
Caption = 'Contactos'
ImageIndex = 2
inline frViewPersonalContacto1: TfrViewPersonalContacto
Left = 0
Top = 0
Width = 618
Height = 330
Align = alClient
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitTop = -134
inherited cxGrid: TcxGrid
Width = 618
Height = 305
end
inherited ToolBar1: TToolBar
Width = 618
end
end
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Width = 632 Width = 632

9
Source/Modulos/Contactos/Views/uEditorContacto.pas
View File

@ -14,7 +14,7 @@ uses
uIEditorContacto, uContactosController, TBXStatusBars, JvExComCtrls, uIEditorContacto, uContactosController, TBXStatusBars, JvExComCtrls,
JvStatusBar, uViewContactoDatosBancarios, dxLayoutLookAndFeels, JvLabel, JvStatusBar, uViewContactoDatosBancarios, dxLayoutLookAndFeels, JvLabel,
uDAInterfaces; uDAInterfaces, uViewPersonalContacto, uViewDetallesGenerico;
type type
TfEditorContacto = class(TfEditorDBItem, IEditorContacto) TfEditorContacto = class(TfEditorDBItem, IEditorContacto)
@ -22,6 +22,8 @@ type
frViewClienteDatosBancarios: TfrViewClienteDatosBancarios; frViewClienteDatosBancarios: TfrViewClienteDatosBancarios;
dxLayoutLookAndFeel: TdxLayoutLookAndFeelList; dxLayoutLookAndFeel: TdxLayoutLookAndFeelList;
dxLayoutOfficeLookAndFeel: TdxLayoutOfficeLookAndFeel; dxLayoutOfficeLookAndFeel: TdxLayoutOfficeLookAndFeel;
pagPersonal: TTabSheet;
frViewPersonalContacto1: TfrViewPersonalContacto;
procedure FormShow(Sender: TObject); procedure FormShow(Sender: TObject);
procedure dsDataTableDataChange(Sender: TObject; Field: TField); procedure dsDataTableDataChange(Sender: TObject; Field: TField);
protected protected
@ -120,6 +122,11 @@ begin
begin begin
FViewContacto.Contacto := Contacto; FViewContacto.Contacto := Contacto;
frViewClienteDatosBancarios.dsDatosBancarios.DataTable := FContacto.DatosBancarios.DataTable; frViewClienteDatosBancarios.dsDatosBancarios.DataTable := FContacto.DatosBancarios.DataTable;
if Assigned(FContacto.Personal) then
frViewPersonalContacto1.dsDetalles.DataTable := FContacto.Personal.DataTable
else
frViewPersonalContacto1.dsDetalles.DataTable := NIL;
end end
else else
frViewClienteDatosBancarios.dsDatosBancarios.DataTable := NIL; frViewClienteDatosBancarios.dsDatosBancarios.DataTable := NIL;

247
Source/Modulos/Contactos/Views/uEditorElegirPersonaContacto.dfm Normal file
View File

@ -0,0 +1,247 @@
object fEditorElegirPersonaContacto: TfEditorElegirPersonaContacto
Left = 227
Top = 108
BorderStyle = bsDialog
Caption = 'Elegir una direcciones de cliente'
ClientHeight = 383
ClientWidth = 599
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
Position = poOwnerFormCenter
PixelsPerInch = 96
TextHeight = 13
object JvgWizardHeader1: TJvgWizardHeader
Left = 0
Top = 0
Width = 599
Height = 60
CaptionFont.Charset = DEFAULT_CHARSET
CaptionFont.Color = clWindowText
CaptionFont.Height = -11
CaptionFont.Name = 'Tahoma'
CaptionFont.Style = [fsBold]
CommentFont.Charset = DEFAULT_CHARSET
CommentFont.Color = clWindowText
CommentFont.Height = -11
CommentFont.Name = 'Tahoma'
CommentFont.Style = []
SymbolFont.Charset = DEFAULT_CHARSET
SymbolFont.Color = clHighlightText
SymbolFont.Height = -35
SymbolFont.Name = 'Wingdings'
SymbolFont.Style = [fsBold]
Captions.Strings = (
'Seleccione una persona de contacto')
Comments.Strings = (
'El cliente dispone de personas de contacto dadas de alta en su f' +
'icha. Seleccione la que quiere utilizar.')
Gradient.FromColor = clHighlight
Gradient.ToColor = clWindow
Gradient.Active = False
Gradient.Orientation = fgdVertical
BufferedDraw = False
ExplicitLeft = -57
ExplicitTop = 27
ExplicitWidth = 656
end
inline frViewBarraSeleccion1: TfrViewBarraSeleccion
Left = 0
Top = 334
Width = 599
Height = 49
Align = alBottom
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
ParentFont = False
TabOrder = 0
ReadOnly = False
ExplicitTop = 334
ExplicitWidth = 599
inherited JvFooter1: TJvFooter
Width = 599
ExplicitWidth = 599
inherited bSeleccionar: TJvFooterBtn
Left = 387
ExplicitLeft = 387
end
inherited bCancelar: TJvFooterBtn
Left = 491
ExplicitLeft = 491
end
end
inherited BarraSeleccionActionList: TActionList
Top = 11
inherited actSeleccionar: TAction
OnExecute = frViewBarraSeleccion1actSeleccionarExecute
end
inherited actCancelar: TAction
OnExecute = frViewBarraSeleccion1actCancelarExecute
end
end
end
object DBCtrlGrid1: TDBCtrlGrid
Left = 8
Top = 66
Width = 583
Height = 261
Margins.Left = 10
Margins.Top = 10
Margins.Right = 10
Margins.Bottom = 0
AllowDelete = False
AllowInsert = False
Color = clBtnFace
DataSource = dsPersonas
PanelHeight = 87
PanelWidth = 566
ParentColor = False
TabOrder = 1
SelectedColor = clHighlight
OnDblClick = DBCtrlGrid1DblClick
object ePuesto: TDBText
Left = 58
Top = 28
Width = 502
Height = 17
DataField = 'PUESTO'
DataSource = dsPersonas
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
object eTelefono: TDBText
Left = 70
Top = 47
Width = 187
Height = 17
DataField = 'TELEFONO'
DataSource = dsPersonas
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
object eNombre: TDBText
Left = 8
Top = 7
Width = 537
Height = 17
DataField = 'NOMBRE'
DataSource = dsPersonas
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
object Label1: TLabel
Left = 15
Top = 28
Width = 37
Height = 13
Caption = 'Puesto:'
OnDblClick = ComponenteDblClick
end
object Label2: TLabel
Left = 15
Top = 47
Width = 46
Height = 13
Caption = 'Tel'#233'fono:'
OnDblClick = ComponenteDblClick
end
object Label3: TLabel
Left = 281
Top = 47
Width = 47
Height = 13
Caption = 'Tlf. m'#243'vil:'
OnDblClick = ComponenteDblClick
end
object eMovil: TDBText
Left = 334
Top = 47
Width = 187
Height = 17
DataField = 'MOVIL'
DataSource = dsPersonas
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
object Label4: TLabel
Left = 16
Top = 66
Width = 48
Height = 13
Caption = 'N'#250'm. fax:'
OnDblClick = ComponenteDblClick
end
object eFax: TDBText
Left = 70
Top = 66
Width = 187
Height = 17
DataField = 'FAX'
DataSource = dsPersonas
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
object Label5: TLabel
Left = 281
Top = 66
Width = 32
Height = 13
Caption = 'E-mail:'
OnDblClick = ComponenteDblClick
end
object eEMail: TDBText
Left = 334
Top = 66
Width = 187
Height = 17
DataField = 'EMAIL'
DataSource = dsPersonas
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
OnDblClick = ComponenteDblClick
end
end
object dsPersonas: TDADataSource
Left = 24
Top = 286
end
end

110
Source/Modulos/Contactos/Views/uEditorElegirPersonaContacto.pas Normal file
View File

@ -0,0 +1,110 @@
unit uEditorElegirPersonaContacto;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable,
cxControls, cxContainer, cxEdit, cxTextEdit, cxDBEdit,
uIEditorElegirPersonaContacto, uCustomView,
uViewBase, uViewBarraSeleccion, JvExControls, JvComponent, JvgWizardHeader,
DBCGrids, uBizContactosPersonal, uDAInterfaces;
type
TfEditorElegirPersonaContacto = class(TForm, IEditorElegirPersonaContacto)
dsPersonas: TDADataSource;
frViewBarraSeleccion1: TfrViewBarraSeleccion;
JvgWizardHeader1: TJvgWizardHeader;
DBCtrlGrid1: TDBCtrlGrid;
ePuesto: TDBText;
eTelefono: TDBText;
eNombre: TDBText;
Label1: TLabel;
Label2: TLabel;
Label3: TLabel;
eMovil: TDBText;
Label4: TLabel;
eFax: TDBText;
Label5: TLabel;
eEMail: TDBText;
procedure frViewBarraSeleccion1actSeleccionarExecute(Sender: TObject);
procedure frViewBarraSeleccion1actCancelarExecute(Sender: TObject);
procedure DBCtrlGrid1DblClick(Sender: TObject);
procedure ComponenteDblClick(Sender: TObject);
protected
FPersonas: IBizContactoPersonal;
function GetPersonas: IBizContactoPersonal;
procedure SetPersonas(const Value: IBizContactoPersonal);
function GetPersonaSeleccionada: IBizContactoPersonal;
procedure SetMensaje (const AValue: String);
function GetMensaje: String;
public
property Mensaje : String read GetMensaje write SetMensaje;
property Personas: IBizContactoPersonal read GetPersonas write SetPersonas;
property PersonaSeleccionada: IBizContactoPersonal read GetPersonaSeleccionada;
end;
implementation
{$R *.dfm}
uses
uDireccionesContactoController;
{ TfEditorDireccionEntrega }
procedure TfEditorElegirPersonaContacto.DBCtrlGrid1DblClick(Sender: TObject);
begin
frViewBarraSeleccion1.actSeleccionar.Execute;
end;
procedure TfEditorElegirPersonaContacto.ComponenteDblClick(Sender: TObject);
begin
DBCtrlGrid1DblClick(Sender);
end;
procedure TfEditorElegirPersonaContacto.frViewBarraSeleccion1actCancelarExecute(
Sender: TObject);
begin
ModalResult := mrCancel;
end;
procedure TfEditorElegirPersonaContacto.frViewBarraSeleccion1actSeleccionarExecute(
Sender: TObject);
begin
ModalResult := mrOk;
end;
function TfEditorElegirPersonaContacto.GetPersonas: IBizContactoPersonal;
begin
Result := FPersonas;
end;
function TfEditorElegirPersonaContacto.GetPersonaSeleccionada: IBizContactoPersonal;
begin
// Devuelvo el mismo objeto que recibo pero con el punto de lectura
// posicionado en la dirección elegida.
Result := FPersonas;
end;
function TfEditorElegirPersonaContacto.GetMensaje: String;
begin
Result := JvgWizardHeader1.Comments.Text;
end;
procedure TfEditorElegirPersonaContacto.SetPersonas(const Value: IBizContactoPersonal);
begin
FPersonas := Value;
if Assigned(FPersonas) then
dsPersonas.DataTable := FPersonas.DataTable
else
dsPersonas.DataTable := NIL;
end;
procedure TfEditorElegirPersonaContacto.SetMensaje(const AValue: String);
begin
JvgWizardHeader1.Comments.Text := AValue;
end;
end.

201
Source/Modulos/Contactos/Views/uEditorPersonal.dfm Normal file
View File

@ -0,0 +1,201 @@
object fEditorPersonal: TfEditorPersonal
Left = 227
Top = 108
ActiveControl = eNombre
BorderStyle = bsDialog
Caption = 'Datos del contacto'
ClientHeight = 205
ClientWidth = 527
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
Position = poOwnerFormCenter
DesignSize = (
527
205)
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 8
Top = 8
Width = 430
Height = 185
Anchors = [akLeft, akTop, akRight]
Shape = bsFrame
ExplicitWidth = 329
end
object Label5: TLabel
Left = 20
Top = 27
Width = 110
Height = 13
AutoSize = False
Caption = 'Nombre completo:'
end
object Label6: TLabel
Left = 20
Top = 55
Width = 109
Height = 13
AutoSize = False
Caption = 'Puesto:'
end
object Label7: TLabel
Left = 20
Top = 90
Width = 109
Height = 13
AutoSize = False
Caption = 'Tel'#233'fono:'
end
object Label11: TLabel
Left = 20
Top = 113
Width = 109
Height = 13
AutoSize = False
Caption = 'Movil:'
end
object Label12: TLabel
Left = 20
Top = 137
Width = 109
Height = 13
AutoSize = False
Caption = 'Fax:'
end
object PngSpeedButton3: TPngSpeedButton
Left = 401
Top = 154
Width = 23
Height = 22
Anchors = [akTop, akRight]
OnClick = PngSpeedButton3Click
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
610000000970485973000017120000171201679FD252000001964944415478DA
63FCFFFF3F03232323033A58BCE9F87F647EAC9F258622B05E6C068034873B8A
80D92019C62F8F194C1356339CDF399D91A0014B361FFB1FE6208AA299E1F323
306D52F90CC5100C03566E3DFC3FD04E02A2F9F727064690462066006A66FC02
64FFFAC8603451096E088A01CB361FFDFF8F819981183077D11A86FDAB7B18E1
062CDD7CE27F14573FC3B2EF450CD13E86181ABE7DFFCDF0F5DB6F866FDFFE30
1CB97897218AB38FC1B85B98E1DC8E698C600396000D8861696058FAB7116CC0
94C5FBB0DAEC6CAECF70EED6238668E67AB057500CF8F0E10383A0A0208A0B90
6D06B1BF01D9379E3C67387AFE09C389A37BD15CE06B01B47907434EAC13C3EF
3F7F19662E3F8862BB898606C3EFDFFF1896EF3DCFA0A5C0CD306FE9265403FC
9D20362F5CB71F4CE7C47AA01890D5BC164C7716F980D56018606BAC0656B079
EF2986F82047AC6150DEB785A13CD911AC06C300234D05867DC72F30B8D818E1
8DC2494B0E63F702281075D455884A07576EDEC134404A5480E1DAED07441900
021806F44D5D44B46618801B400900007F4518F05E90AAF20000000049454E44
AE426082}
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
ExplicitLeft = 302
end
object Label8: TLabel
Left = 20
Top = 158
Width = 109
Height = 13
AutoSize = False
Caption = 'Correo electr'#243'nico:'
end
object OKBtn: TButton
Left = 444
Top = 7
Width = 75
Height = 25
Anchors = [akTop, akRight]
Caption = '&Aceptar'
ModalResult = 1
TabOrder = 0
end
object CancelBtn: TButton
Left = 444
Top = 38
Width = 75
Height = 25
Anchors = [akTop, akRight]
Cancel = True
Caption = '&Cancelar'
ModalResult = 2
TabOrder = 1
OnClick = CancelBtnClick
end
object eNombre: TDBEdit
Left = 135
Top = 24
Width = 290
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'NOMBRE'
DataSource = dsPersonal
TabOrder = 2
end
object ePuesto: TDBEdit
Left = 135
Top = 55
Width = 290
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'PUESTO'
DataSource = dsPersonal
TabOrder = 3
end
object eTelefono: TDBEdit
Left = 135
Top = 87
Width = 290
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'TELEFONO'
DataSource = dsPersonal
TabOrder = 4
end
object eMovil: TDBEdit
Left = 135
Top = 109
Width = 290
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'MOVIL'
DataSource = dsPersonal
TabOrder = 5
end
object eFax: TDBEdit
Left = 135
Top = 132
Width = 290
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'FAX'
DataSource = dsPersonal
TabOrder = 6
end
object eMail: TcxDBHyperLinkEdit
Left = 135
Top = 155
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'EMAIL'
DataBinding.DataSource = dsPersonal
Properties.OnEditValueChanged = eMailPropertiesEditValueChanged
Properties.OnValidate = eMailPropertiesValidate
Properties.Prefix = 'mailto:'
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Width = 261
end
object dsPersonal: TDADataSource
Left = 440
Top = 72
end
end

124
Source/Modulos/Contactos/Views/uEditorPersonal.pas Normal file
View File

@ -0,0 +1,124 @@
unit uEditorPersonal;
interface
uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable, PngSpeedButton,
cxControls, cxContainer, cxEdit, cxTextEdit, cxHyperLinkEdit, cxDBEdit,
uPersonalContactoController, uBizContactosPersonal,
uDAInterfaces, uIEditorPersonalContacto;
type
TfEditorPersonal = class(TForm, IEditorPersonalContacto)
OKBtn: TButton;
CancelBtn: TButton;
Bevel1: TBevel;
dsPersonal: TDADataSource;
Label5: TLabel;
eNombre: TDBEdit;
Label6: TLabel;
ePuesto: TDBEdit;
Label7: TLabel;
eTelefono: TDBEdit;
Label11: TLabel;
eMovil: TDBEdit;
Label12: TLabel;
eFax: TDBEdit;
eMail: TcxDBHyperLinkEdit;
PngSpeedButton3: TPngSpeedButton;
Label8: TLabel;
procedure PngSpeedButton3Click(Sender: TObject);
procedure eMailPropertiesEditValueChanged(Sender: TObject);
procedure eMailPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure CancelBtnClick(Sender: TObject);
protected
FController : IPersonalContactoController;
FPersonal: IBizContactoPersonal;
function GetController : IPersonalContactoController;
procedure SetController (const Value : IPersonalContactoController);
function GetPersonal: IBizContactoPersonal;
procedure SetPersonal(const Value: IBizContactoPersonal);
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property Controller : IPersonalContactoController read GetController
write SetController;
property Personal: IBizContactoPersonal read GetPersonal write SetPersonal;
end;
implementation
uses
Variants;
type
THackcxDBHyperLinkEdit = class(TcxDBHyperLinkEdit);
{$R *.dfm}
{ TfEditorPersonal }
procedure TfEditorPersonal.CancelBtnClick(Sender: TObject);
begin
if FPersonal.DataTable.Editing then
FPersonal.Cancel;
end;
constructor TfEditorPersonal.Create(AOwner: TComponent);
begin
inherited;
FController := NIL;
end;
destructor TfEditorPersonal.Destroy;
begin
FController := NIL;
inherited;
end;
procedure TfEditorPersonal.eMailPropertiesEditValueChanged(Sender: TObject);
begin
if not VarIsNull((Sender as TcxDBHyperLinkEdit).EditValue) then
(Sender as TcxDBHyperLinkEdit).EditValue := StringReplace((Sender as TcxDBHyperLinkEdit).EditValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []);
end;
procedure TfEditorPersonal.eMailPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
begin
if not VarIsNull(DisplayValue) then
DisplayValue := StringReplace(DisplayValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []);
end;
function TfEditorPersonal.GetController: IPersonalContactoController;
begin
Result := FController;
end;
function TfEditorPersonal.GetPersonal: IBizContactoPersonal;
begin
Result := FPersonal;
end;
procedure TfEditorPersonal.PngSpeedButton3Click(Sender: TObject);
begin
THackcxDBHyperLinkEdit(eMail).DoStart;
end;
procedure TfEditorPersonal.SetController(
const Value: IPersonalContactoController);
begin
FController := Value;
end;
procedure TfEditorPersonal.SetPersonal(const Value: IBizContactoPersonal);
begin
FPersonal := Value;
if Assigned(FPersonal) then
dsPersonal.DataTable := FPersonal.DataTable
else
dsPersonal.DataTable := NIL;
end;
end.

178
Source/Modulos/Contactos/Views/uEditorVendedor.dfm
View File

@ -60,6 +60,7 @@ inherited fEditorVendedor: TfEditorVendedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 670 Width = 670
Height = 475 Height = 475
ActivePage = pagDatosBancarios
ExplicitWidth = 670 ExplicitWidth = 670
ExplicitHeight = 475 ExplicitHeight = 475
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -106,31 +107,51 @@ inherited fEditorVendedor: TfEditorVendedor
ExplicitTop = 162 ExplicitTop = 162
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 189 Top = 162
ExplicitTop = 189 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 162
ExplicitWidth = 174 ExplicitWidth = 174
Width = 174 Width = 174
end end
inherited cbProvincia: TcxDBComboBox inherited cbProvincia: TcxDBComboBox
Top = 216 Top = 189
ExplicitTop = 216 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 189
ExplicitWidth = 144 ExplicitWidth = 144
Width = 144 Width = 144
end end
inherited cbPoblacion: TcxDBComboBox inherited cbPoblacion: TcxDBComboBox
Top = 243 Top = 216
ExplicitTop = 243 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 216
ExplicitWidth = 236 ExplicitWidth = 236
Width = 236 Width = 236
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 251 Left = 251
Top = 216 Top = 189
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 251 ExplicitLeft = 251
ExplicitTop = 216 ExplicitTop = 189
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 341 Top = 341
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 341 ExplicitTop = 341
ExplicitWidth = 618 ExplicitWidth = 618
ExplicitHeight = 94 ExplicitHeight = 94
@ -140,6 +161,10 @@ inherited fEditorVendedor: TfEditorVendedor
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 430 Left = 430
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 430 ExplicitLeft = 430
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 172 ExplicitWidth = 172
@ -148,6 +173,10 @@ inherited fEditorVendedor: TfEditorVendedor
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 430 Left = 430
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 430 ExplicitLeft = 430
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 172 ExplicitWidth = 172
@ -156,14 +185,43 @@ inherited fEditorVendedor: TfEditorVendedor
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 430 Left = 430
Top = 84 Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 430 ExplicitLeft = 430
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited cbUsuario: TcxComboBox
Top = 84
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 84
ExplicitWidth = 201
Width = 201
end
inherited edtComision: TcxDBSpinEdit
Top = 111
Style.LookAndFeel.SkinName = ''
Style.IsFontAssigned = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 111
ExplicitWidth = 65
Width = 65
end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 430 Left = 430
Top = 111 Top = 111
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 430 ExplicitLeft = 430
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 172 ExplicitWidth = 172
@ -171,6 +229,10 @@ inherited fEditorVendedor: TfEditorVendedor
end end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Top = 57 Top = 57
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 263 ExplicitWidth = 263
Width = 263 Width = 263
@ -178,6 +240,10 @@ inherited fEditorVendedor: TfEditorVendedor
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 186 Left = 186
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 186 ExplicitLeft = 186
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 194 ExplicitWidth = 194
@ -187,6 +253,10 @@ inherited fEditorVendedor: TfEditorVendedor
Left = 430 Left = 430
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 430 ExplicitLeft = 430
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 129 ExplicitWidth = 129
@ -196,6 +266,10 @@ inherited fEditorVendedor: TfEditorVendedor
Left = 430 Left = 430
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 430 ExplicitLeft = 430
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 165 ExplicitWidth = 165
@ -204,33 +278,32 @@ inherited fEditorVendedor: TfEditorVendedor
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 430 Left = 430
Top = 217 Top = 217
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 430 ExplicitLeft = 430
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited cbUsuario: TcxComboBox
Top = 84
ExplicitTop = 84
ExplicitWidth = 201
Width = 201
end
inherited edtComision: TcxDBSpinEdit
Top = 111
Style.IsFontAssigned = True
ExplicitTop = 111
ExplicitWidth = 65
Width = 65
end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Top = 30 Top = 30
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 97 ExplicitWidth = 97
Width = 97 Width = 97
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 162 Top = 243
ExplicitTop = 162 Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitTop = 243
ExplicitWidth = 256 ExplicitWidth = 256
Width = 256 Width = 256
end end
@ -245,6 +318,10 @@ inherited fEditorVendedor: TfEditorVendedor
Width = 451 Width = 451
ExplicitWidth = 451 ExplicitWidth = 451
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 376 ExplicitWidth = 376
Width = 376 Width = 376
end end
@ -270,26 +347,81 @@ inherited fEditorVendedor: TfEditorVendedor
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 662 ExplicitWidth = 662
inherited eEntidad: TcxDBTextEdit inherited eEntidad: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 114 ExplicitWidth = 114
Width = 114 Width = 114
end end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 426 Left = 426
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitLeft = 426 ExplicitLeft = 426
ExplicitWidth = 112 ExplicitWidth = 112
Width = 112 Width = 112
end end
inherited eCuenta: TcxDBTextEdit inherited eCuenta: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 194 ExplicitWidth = 194
Width = 194 Width = 194
end end
inherited eDC: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
end
inherited eTitular: TcxDBTextEdit inherited eTitular: TcxDBTextEdit
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 194 ExplicitWidth = 194
Width = 194 Width = 194
end end
end end
end end
end end
inherited pagPersonal: TTabSheet
TabVisible = False
ExplicitWidth = 662
ExplicitHeight = 447
inherited frViewPersonalContacto1: TfrViewPersonalContacto
Width = 662
Height = 447
ExplicitWidth = 662
ExplicitHeight = 447
inherited cxGrid: TcxGrid
Width = 662
Height = 422
ExplicitWidth = 662
ExplicitHeight = 422
end
inherited ToolBar1: TToolBar
Width = 662
ExplicitWidth = 662
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end
end
end
end end
inherited StatusBar: TJvStatusBar inherited StatusBar: TJvStatusBar
Top = 557 Top = 557

2
Source/Modulos/Contactos/Views/uEditorVendedor.pas
View File

@ -12,7 +12,7 @@ uses
uIEditorVendedor, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar, uIEditorVendedor, pngimage, TBXStatusBars, JvExComCtrls, JvStatusBar,
uViewDetallesGenerico, uViewContactoDatosBancarios, dxLayoutLookAndFeels, uViewDetallesGenerico, uViewContactoDatosBancarios, dxLayoutLookAndFeels,
dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, cxControls, dxLayoutControl, cxContainer, cxEdit, cxTextEdit, cxMemo, cxDBEdit, cxControls,
uDAInterfaces; uDAInterfaces, uViewPersonalContacto;
type type
TfEditorVendedor = class(TfEditorContacto, IEditorVendedor) TfEditorVendedor = class(TfEditorContacto, IEditorVendedor)

98
Source/Modulos/Contactos/Views/uViewContacto.dfm
View File

@ -105,25 +105,29 @@ inherited frViewContacto: TfrViewContacto
end end
object eCalle: TcxDBTextEdit object eCalle: TcxDBTextEdit
Left = 115 Left = 115
Top = 139 Top = 112
DataBinding.DataField = 'CALLE' DataBinding.DataField = 'CALLE'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 4 StyleHot.LookAndFeel.SkinName = ''
TabOrder = 3
Width = 181 Width = 181
end end
object cbProvincia: TcxDBComboBox object cbProvincia: TcxDBComboBox
Left = 115 Left = 115
Top = 166 Top = 139
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Properties.OnInitPopup = cbProvinciaPropertiesInitPopup Properties.OnInitPopup = cbProvinciaPropertiesInitPopup
@ -131,20 +135,24 @@ inherited frViewContacto: TfrViewContacto
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 StyleHot.LookAndFeel.SkinName = ''
TabOrder = 4
Width = 222 Width = 222
end end
object cbPoblacion: TcxDBComboBox object cbPoblacion: TcxDBComboBox
Left = 115 Left = 115
Top = 193 Top = 166
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Properties.OnInitPopup = cbPoblacionPropertiesInitPopup Properties.OnInitPopup = cbPoblacionPropertiesInitPopup
@ -152,33 +160,41 @@ inherited frViewContacto: TfrViewContacto
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
Style.ButtonStyle = bts3D Style.ButtonStyle = bts3D
Style.PopupBorderStyle = epbsFrame3D Style.PopupBorderStyle = epbsFrame3D
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7 StyleHot.LookAndFeel.SkinName = ''
TabOrder = 6
Width = 111 Width = 111
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 226 Left = 226
Top = 166 Top = 139
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 StyleHot.LookAndFeel.SkinName = ''
TabOrder = 5
Width = 56 Width = 56
end end
object eObservaciones: TcxDBMemo object eObservaciones: TcxDBMemo
@ -191,12 +207,16 @@ inherited frViewContacto: TfrViewContacto
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 16 TabOrder = 16
Height = 54 Height = 54
Width = 630 Width = 630
@ -210,12 +230,16 @@ inherited frViewContacto: TfrViewContacto
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 9 TabOrder = 9
Width = 91 Width = 91
end end
@ -228,12 +252,16 @@ inherited frViewContacto: TfrViewContacto
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 8 TabOrder = 8
Width = 127 Width = 127
end end
@ -246,12 +274,16 @@ inherited frViewContacto: TfrViewContacto
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 10 TabOrder = 10
Width = 155 Width = 155
end end
@ -264,12 +296,16 @@ inherited frViewContacto: TfrViewContacto
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 11 TabOrder = 11
Width = 121 Width = 121
end end
@ -284,12 +320,16 @@ inherited frViewContacto: TfrViewContacto
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 2 TabOrder = 2
Width = 221 Width = 221
end end
@ -303,12 +343,16 @@ inherited frViewContacto: TfrViewContacto
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 1 TabOrder = 1
Width = 57 Width = 57
end end
@ -325,12 +369,16 @@ inherited frViewContacto: TfrViewContacto
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 12 TabOrder = 12
Width = 133 Width = 133
end end
@ -347,12 +395,16 @@ inherited frViewContacto: TfrViewContacto
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 13 TabOrder = 13
Width = 133 Width = 133
end end
@ -369,12 +421,16 @@ inherited frViewContacto: TfrViewContacto
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 14 TabOrder = 14
Width = 133 Width = 133
end end
@ -389,18 +445,22 @@ inherited frViewContacto: TfrViewContacto
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.SkinName = ''
TabOrder = 0 TabOrder = 0
Width = 38 Width = 38
end end
object ePersonaContacto: TcxDBTextEdit object ePersonaContacto: TcxDBTextEdit
Left = 115 Left = 115
Top = 112 Top = 193
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -408,13 +468,17 @@ inherited frViewContacto: TfrViewContacto
Style.HotTrack = False Style.HotTrack = False
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True Style.LookAndFeel.NativeStyle = True
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.Kind = lfStandard StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True StyleDisabled.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.Kind = lfStandard StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True StyleFocused.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 3 StyleHot.LookAndFeel.SkinName = ''
TabOrder = 7
Width = 256 Width = 256
end end
inline frViewTienda1: TfrViewTienda inline frViewTienda1: TfrViewTienda
@ -434,6 +498,10 @@ inherited frViewContacto: TfrViewContacto
ExplicitTop = 280 ExplicitTop = 280
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
Style.LookAndFeel.SkinName = ''
StyleDisabled.LookAndFeel.SkinName = ''
StyleFocused.LookAndFeel.SkinName = ''
StyleHot.LookAndFeel.SkinName = ''
ExplicitWidth = 376 ExplicitWidth = 376
Width = 376 Width = 376
end end
@ -487,11 +555,6 @@ inherited frViewContacto: TfrViewContacto
object dxLayoutControlContactoGroup3: TdxLayoutGroup object dxLayoutControlContactoGroup3: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
Caption = 'Direcci'#243'n' Caption = 'Direcci'#243'n'
object dxLayoutControlContactoItem167: TdxLayoutItem
Caption = 'Persona contacto:'
Control = ePersonaContacto
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem1: TdxLayoutItem object dxLayoutControlContactoItem1: TdxLayoutItem
Caption = 'Calle:' Caption = 'Calle:'
Control = eCalle Control = eCalle
@ -524,6 +587,11 @@ inherited frViewContacto: TfrViewContacto
Control = cbPoblacion Control = cbPoblacion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem167: TdxLayoutItem
Caption = 'Persona contacto:'
Control = ePersonaContacto
ControlOptions.ShowBorder = False
end
end end
end end
object dxLayoutControlContactoGroup6: TdxLayoutGroup object dxLayoutControlContactoGroup6: TdxLayoutGroup

72
Source/Modulos/Contactos/Views/uViewPersonalContacto.dfm Normal file
View File

@ -0,0 +1,72 @@
inherited frViewPersonalContacto: TfrViewPersonalContacto
Width = 583
Height = 464
ExplicitWidth = 583
ExplicitHeight = 464
inherited cxGrid: TcxGrid
Width = 583
Height = 439
ExplicitWidth = 583
ExplicitHeight = 439
inherited cxGridView: TcxGridDBTableView
OnDblClick = cxGridViewDblClick
OptionsData.Appending = False
OptionsData.Deleting = False
OptionsData.DeletingConfirmation = False
OptionsData.Editing = False
OptionsData.Inserting = False
object cxGridViewNOMBRE: TcxGridDBColumn
Caption = 'Nombre'
DataBinding.FieldName = 'NOMBRE'
PropertiesClassName = 'TcxTextEditProperties'
Width = 88
end
object cxGridViewPUESTO: TcxGridDBColumn
Caption = 'Puesto'
DataBinding.FieldName = 'PUESTO'
PropertiesClassName = 'TcxTextEditProperties'
Width = 128
end
object cxGridViewTELEFONO: TcxGridDBColumn
Caption = 'Tel'#233'fono'
DataBinding.FieldName = 'TELEFONO'
PropertiesClassName = 'TcxTextEditProperties'
Width = 54
end
object cxGridViewMOVIL: TcxGridDBColumn
Caption = 'M'#243'vil'
DataBinding.FieldName = 'MOVIL'
PropertiesClassName = 'TcxTextEditProperties'
Width = 54
end
object cxGridViewFAX: TcxGridDBColumn
Caption = 'Fax'
DataBinding.FieldName = 'FAX'
PropertiesClassName = 'TcxTextEditProperties'
Width = 54
end
object cxGridViewEMAIL: TcxGridDBColumn
Caption = 'E-Mail'
DataBinding.FieldName = 'EMAIL'
PropertiesClassName = 'TcxTextEditProperties'
Width = 50
end
end
end
inherited ToolBar1: TToolBar
Width = 583
ExplicitWidth = 583
inherited ToolButton1: TToolButton
ExplicitWidth = 62
end
inherited ToolButton4: TToolButton
ExplicitWidth = 74
end
inherited ToolButton2: TToolButton
ExplicitWidth = 67
end
inherited ToolButton7: TToolButton
ExplicitWidth = 117
end
end
end

79
Source/Modulos/Contactos/Views/uViewPersonalContacto.pas Normal file
View File

@ -0,0 +1,79 @@
unit uViewPersonalContacto;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, uViewBase, cxStyles, cxCustomData, cxGraphics, cxFilter, cxData,
cxDataStorage, cxEdit, DB, cxDBData, cxTextEdit, cxGridLevel,
cxGridCustomTableView, cxGridTableView, cxGridBandedTableView,
cxGridDBBandedTableView, cxClasses, cxControls, cxGridCustomView, cxGrid,
uDADataTable, Grids, DBGrids, ActnList, ImgList, PngImageList, ComCtrls,
ToolWin, cxGridDBTableView, uViewDetallesGenerico,
uDAInterfaces, StdCtrls;
type
TfrViewPersonalContacto = class(TfrViewDetallesGenerico)
cxGridViewNOMBRE: TcxGridDBColumn;
cxGridViewPUESTO: TcxGridDBColumn;
cxGridViewTELEFONO: TcxGridDBColumn;
cxGridViewMOVIL: TcxGridDBColumn;
cxGridViewFAX: TcxGridDBColumn;
cxGridViewEMAIL: TcxGridDBColumn;
procedure cxGridViewDblClick(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
protected
procedure AnadirInterno; override;
procedure ModificarInterno; override;
public
{ Public declarations }
end;
implementation
{$R *.dfm}
uses
uDialogUtils, uPersonalContactoController, uBizContactosPersonal;
procedure TfrViewPersonalContacto.actEliminarExecute(Sender: TObject);
begin
if (ShowConfirmMessage('Eliminar un contacto', '¿Desea eliminar este contacto?') = IDYES) then
inherited;
end;
procedure TfrViewPersonalContacto.AnadirInterno;
var
AController : IPersonalContactoController;
begin
inherited;
AController := TPersonalContactoController.Create;
try
AController.Ver((dsDetalles.DataTable) as IBizContactoPersonal);
finally
AController := NIL;
if (dsDetalles.DataTable.State in dsEditModes) then
dsDetalles.DataTable.Post;
end;
end;
procedure TfrViewPersonalContacto.cxGridViewDblClick(Sender: TObject);
begin
inherited;
actModificar.Execute;
end;
procedure TfrViewPersonalContacto.ModificarInterno;
var
AController : IPersonalContactoController;
begin
inherited;
AController := TPersonalContactoController.Create;
try
AController.Ver((dsDetalles.DataTable) as IBizContactoPersonal);
finally
AController := NIL;
end;
end;
end.

2
Source/Modulos/Gestion de documentos/Controller/GestorDocumentos_controller.drc
View File

@ -13,4 +13,4 @@ BEGIN
END END
/* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */ /* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Controller\GestorDocumentos_Controller.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf417.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf59.tmp */

2
Source/Modulos/Gestion de documentos/Data/GestorDocumentos_data.drc
View File

@ -14,4 +14,4 @@ END
/* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */ /* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Data\uDataModuleGestorDocumentos.dfm */
/* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */ /* C:\Codigo Acana\Source\Modulos\Gestion de documentos\Data\GestorDocumentos_data.res */
/* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf415.tmp */ /* C:\DOCUME~1\Usuario\CONFIG~1\Temp\dtf57.tmp */

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.2.6.0\0" VALUE "FileVersion", "2.2.6.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.2.6.0\0" VALUE "ProductVersion", "2.2.6.0\0"
VALUE "CompileDate", "miércoles, 10 de diciembre de 2008 17:35\0" VALUE "CompileDate", "lunes, 15 de diciembre de 2008 11:00\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

4
Source/Servidor/uDataModuleServer.dfm
View File

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