Provincias y poblaciones
git-svn-id: https://192.168.0.254/svn/Proyectos.Tecsitel_FactuGES2/trunk@448 0c75b7a4-871f-7646-8a2f-f78d34cc349f
This commit is contained in:
parent
b7e51b4e3d
commit
67aeac2920
@ -49,6 +49,12 @@
|
|||||||
<Target Name="InsertSysData">
|
<Target Name="InsertSysData">
|
||||||
<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_sysdata.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)"
|
<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_sysdata.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)"
|
||||||
WorkingDirectory="$(OutputPath)" />
|
WorkingDirectory="$(OutputPath)" />
|
||||||
|
|
||||||
|
<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_listaprovincias.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)"
|
||||||
|
WorkingDirectory="$(OutputPath)" />
|
||||||
|
|
||||||
|
<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_listapoblaciones.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)"
|
||||||
|
WorkingDirectory="$(OutputPath)" />
|
||||||
</Target>
|
</Target>
|
||||||
|
|
||||||
<Target Name="Extract"
|
<Target Name="Extract"
|
||||||
|
|||||||
33066
Database/scripts/factuges_listapoblaciones.sql
Normal file
33066
Database/scripts/factuges_listapoblaciones.sql
Normal file
File diff suppressed because it is too large
Load Diff
54
Database/scripts/factuges_listaprovincias.sql
Normal file
54
Database/scripts/factuges_listaprovincias.sql
Normal file
@ -0,0 +1,54 @@
|
|||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (1, 'Álava');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (2, 'Albacete');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (3, 'Alicante');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (4, 'Almería');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (5, 'Ávila');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (6, 'Badajoz');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (7, 'Baleares');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (8, 'Barcelona');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (9, 'Burgos');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (10, 'Cáceres');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (11, 'Cádiz');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (12, 'Castellón');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (13, 'Ciudad Real');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (14, 'Córdoba');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (15, 'La Coruña');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (16, 'Cuenca');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (17, 'Gerona');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (18, 'Granada');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (19, 'Guadalajara');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (20, 'Guipúzcoa');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (21, 'Huelva');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (22, 'Huesca');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (23, 'Jaén');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (24, 'León');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (25, 'Lérida');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (26, 'La Rioja');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (27, 'Lugo');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (28, 'Madrid');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (29, 'Málaga');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (30, 'Murcia');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (31, 'Navarra');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (32, 'Orense');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (33, 'Asturias');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (34, 'Palencia');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (35, 'Las Palmas');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (36, 'Pontevedra');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (37, 'Salamanca');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (38, 'Santa Cruz de Tenerife');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (39, 'Cantabria');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (40, 'Segovia');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (41, 'Sevilla');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (42, 'Soria');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (43, 'Tarragona');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (44, 'Teruel');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (45, 'Toledo');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (46, 'Valencia');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (47, 'Valladolid');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (48, 'Vizcaya');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (49, 'Zamora');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (50, 'Zaragoza');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (51, 'Ceuta');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (52, 'Melilla');
|
||||||
|
INSERT INTO PROVINCIAS (ID, DESCRIPCION) VALUES (85, 'Andorra');
|
||||||
|
COMMIT WORK;
|
||||||
@ -118,3 +118,4 @@ COMMIT WORK;
|
|||||||
INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL, IVA) VALUES (1, 'B81747396', 'TECSITEL S.L.', 'TECSITEL S.L.', 'C\ Buendía, 25', 'MADRID', 'MADRID', '28053', '91-507-56-92 / 63', NULL, NULL, NULL, '91-785-96-35', 'tecsitel@tecsitel.com', NULL, 'www.tecsitel.com', '2008-01-14 11:53:52', NULL, 'Administrador', 'Insc. en el Reg. Merc. de Madrid, Tomo 12.291, Libro 0, Folio 131, Sección 8, Hoja M-194886 CIF: B81747396', NULL);
|
INSERT INTO EMPRESAS (ID, NIF_CIF, NOMBRE, RAZON_SOCIAL, CALLE, POBLACION, PROVINCIA, CODIGO_POSTAL, TELEFONO_1, TELEFONO_2, MOVIL_1, MOVIL_2, FAX, EMAIL_1, EMAIL_2, PAGINA_WEB, FECHA_ALTA, FECHA_MODIFICACION, USUARIO, REGISTRO_MERCANTIL, IVA) VALUES (1, 'B81747396', 'TECSITEL S.L.', 'TECSITEL S.L.', 'C\ Buendía, 25', 'MADRID', 'MADRID', '28053', '91-507-56-92 / 63', NULL, NULL, NULL, '91-785-96-35', 'tecsitel@tecsitel.com', NULL, 'www.tecsitel.com', '2008-01-14 11:53:52', NULL, 'Administrador', 'Insc. en el Reg. Merc. de Madrid, Tomo 12.291, Libro 0, Folio 131, Sección 8, Hoja M-194886 CIF: B81747396', NULL);
|
||||||
SET GENERATOR GEN_EMPRESAS_ID TO 2;
|
SET GENERATOR GEN_EMPRESAS_ID TO 2;
|
||||||
COMMIT WORK;
|
COMMIT WORK;
|
||||||
|
|
||||||
|
|||||||
@ -88,6 +88,8 @@ contains
|
|||||||
uViewUsuarios in 'Usuarios\Views\uViewUsuarios.pas' {frViewUsuarios: TFrame},
|
uViewUsuarios in 'Usuarios\Views\uViewUsuarios.pas' {frViewUsuarios: TFrame},
|
||||||
uEditorUsuario in 'Usuarios\Views\uEditorUsuario.pas' {fEditorUsuario: TFrame},
|
uEditorUsuario in 'Usuarios\Views\uEditorUsuario.pas' {fEditorUsuario: TFrame},
|
||||||
uViewUsuario in 'Usuarios\Views\uViewUsuario.pas' {frViewUsuario: TFrame},
|
uViewUsuario in 'Usuarios\Views\uViewUsuario.pas' {frViewUsuario: TFrame},
|
||||||
uEditorCambiarPassword in 'Usuarios\Views\uEditorCambiarPassword.pas' {fEditorCambiarPassword};
|
uEditorCambiarPassword in 'Usuarios\Views\uEditorCambiarPassword.pas' {fEditorCambiarPassword},
|
||||||
|
uDataModuleProvinciasPoblaciones in 'ProvinciasPoblaciones\Data\uDataModuleProvinciasPoblaciones.pas' {DataModuleProvinciasPoblaciones: TDataModule},
|
||||||
|
uProvinciasPoblacionesController in 'ProvinciasPoblaciones\Controller\uProvinciasPoblacionesController.pas';
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -46,6 +46,48 @@
|
|||||||
<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="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 Name="Comments"></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="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 Name="Comments"></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>
|
||||||
@ -60,27 +102,6 @@
|
|||||||
<DelphiCompile Include="ApplicationBase.dpk">
|
<DelphiCompile Include="ApplicationBase.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\Base.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dbrtl.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\dclIndyCore.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\designide.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\GUIBase.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\IndyCore.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\IndyProtocols.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\IndySystem.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\JvJansD11R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\pckMD5.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\pckUCDataConnector.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\pckUserControl_RT.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\PLuginSDK_D10R.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\rtl.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vcl.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vclactnband.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vcldb.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vcljpg.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\VclSmp.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\vclx.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Albaranes de cliente\xmlrtl.dcp" />
|
|
||||||
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
|
<DCCReference Include="Empresas\Controller\uDatosBancariosEmpresaController.pas" />
|
||||||
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
|
<DCCReference Include="Empresas\Controller\uEmpresasController.pas" />
|
||||||
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
|
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
|
||||||
@ -99,6 +120,32 @@
|
|||||||
<DCCReference Include="Empresas\Views\uEmpresasViewRegister.pas" />
|
<DCCReference Include="Empresas\Views\uEmpresasViewRegister.pas" />
|
||||||
<DCCReference Include="Empresas\Views\uViewDatosBancarios.pas" />
|
<DCCReference Include="Empresas\Views\uViewDatosBancarios.pas" />
|
||||||
<DCCReference Include="Empresas\Views\uViewEmpresa.pas" />
|
<DCCReference Include="Empresas\Views\uViewEmpresa.pas" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\Base.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\dbrtl.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\dclIndyCore.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\designide.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\GUIBase.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\IndyCore.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\IndyProtocols.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\IndySystem.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\JvJansD11R.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\pckMD5.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\pckUCDataConnector.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\pckUserControl_RT.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\PLuginSDK_D10R.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\rtl.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\uProvinciasPoblacionesController.pas" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\vcl.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\vclactnband.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\vcldb.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\vcljpg.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\VclSmp.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\vclx.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Controller\xmlrtl.dcp" />
|
||||||
|
<DCCReference Include="ProvinciasPoblaciones\Data\uDataModuleProvinciasPoblaciones.pas">
|
||||||
|
<Form>DataModuleProvinciasPoblaciones</Form>
|
||||||
|
<DesignClass>TDataModule</DesignClass>
|
||||||
|
</DCCReference>
|
||||||
<DCCReference Include="uFactuGES_App.pas" />
|
<DCCReference Include="uFactuGES_App.pas" />
|
||||||
<DCCReference Include="Usuarios\Controller\uUsuariosController.pas" />
|
<DCCReference Include="Usuarios\Controller\uUsuariosController.pas" />
|
||||||
<DCCReference Include="Usuarios\Controller\View\uIEditorLogin.pas" />
|
<DCCReference Include="Usuarios\Controller\View\uIEditorLogin.pas" />
|
||||||
|
|||||||
@ -0,0 +1,68 @@
|
|||||||
|
unit uProvinciasPoblacionesController;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
|
||||||
|
uses
|
||||||
|
Windows, Forms, Classes, Controls, Contnrs, SysUtils, uDataModuleProvinciasPoblaciones,
|
||||||
|
uDADataTable, uControllerBase;
|
||||||
|
|
||||||
|
type
|
||||||
|
IProvinciasPoblacionesController = interface(IControllerBase)
|
||||||
|
['{777EDE6C-DAB6-4D96-BA57-AE3DAF8A3F78}']
|
||||||
|
function DarListaProvincias : TStringList;
|
||||||
|
function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TProvinciasPoblacionesController = class(TControllerBase, IProvinciasPoblacionesController)
|
||||||
|
protected
|
||||||
|
FDataModule : IDataModuleProvinciasPoblaciones;
|
||||||
|
public
|
||||||
|
function DarListaProvincias : TStringList;
|
||||||
|
function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
|
||||||
|
destructor Destroy; override;
|
||||||
|
constructor Create; override;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
uses
|
||||||
|
cxControls, DB, uFactuGES_App;
|
||||||
|
|
||||||
|
{ TProvinciasPoblacionesController }
|
||||||
|
|
||||||
|
constructor TProvinciasPoblacionesController.Create;
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FDataModule := TDataModuleProvinciasPoblaciones.Create(NIL);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TProvinciasPoblacionesController.DarListaPoblaciones(
|
||||||
|
const AID_Provincia: Integer): TStringList;
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
Result := FDataModule.DarListaPoblaciones(AID_Provincia);
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TProvinciasPoblacionesController.DarListaProvincias: TStringList;
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
Result := FDataModule.DarListaProvincias;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TProvinciasPoblacionesController.Destroy;
|
||||||
|
begin
|
||||||
|
FDataModule := NIL;
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,12 @@
|
|||||||
|
object DataModuleProvinciasPoblaciones: TDataModuleProvinciasPoblaciones
|
||||||
|
OldCreateOrder = False
|
||||||
|
Height = 150
|
||||||
|
Width = 215
|
||||||
|
object RORemoteService: TRORemoteService
|
||||||
|
Message = dmConexion.ROMessage
|
||||||
|
Channel = dmConexion.ROChannel
|
||||||
|
ServiceName = 'srvEmpresas'
|
||||||
|
Left = 48
|
||||||
|
Top = 24
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,50 @@
|
|||||||
|
unit uDataModuleProvinciasPoblaciones;
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
SysUtils, Classes, uDataModuleBase, uROClient, uRORemoteService;
|
||||||
|
|
||||||
|
type
|
||||||
|
IDataModuleProvinciasPoblaciones = interface
|
||||||
|
['{E73DB3C4-BC57-44E8-A64B-F86AE2DCB7D6}']
|
||||||
|
function DarListaProvincias : TStringList;
|
||||||
|
function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
|
||||||
|
end;
|
||||||
|
|
||||||
|
TDataModuleProvinciasPoblaciones = class(TDataModuleBase, IDataModuleProvinciasPoblaciones)
|
||||||
|
RORemoteService: TRORemoteService;
|
||||||
|
public
|
||||||
|
function DarListaProvincias : TStringList;
|
||||||
|
function DarListaPoblaciones (const AID_Provincia : Integer) : TStringList;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
FactuGES_Intf, uStringsUtils, uDataModuleConexion, uROTypes;
|
||||||
|
|
||||||
|
{ TDataModuleProvinciasPoblaciones }
|
||||||
|
|
||||||
|
function TDataModuleProvinciasPoblaciones.DarListaPoblaciones(
|
||||||
|
const AID_Provincia: Integer): TStringList;
|
||||||
|
var
|
||||||
|
ABinary : Binary;
|
||||||
|
begin
|
||||||
|
ABinary := (RORemoteService as IsrvProvinciasPoblaciones).DarListaPoblaciones(AID_Provincia);
|
||||||
|
Result := TStringList.Create;
|
||||||
|
Result.LoadFromStream(ABinary);
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TDataModuleProvinciasPoblaciones.DarListaProvincias: TStringList;
|
||||||
|
var
|
||||||
|
ABinary : Binary;
|
||||||
|
begin
|
||||||
|
ABinary := (RORemoteService as IsrvProvinciasPoblaciones).DarListaProvincias;
|
||||||
|
Result := TStringList.Create;
|
||||||
|
Result.LoadFromStream(ABinary);
|
||||||
|
end;
|
||||||
|
|
||||||
|
end.
|
||||||
@ -0,0 +1,100 @@
|
|||||||
|
object srvProvinciasPoblaciones: TsrvProvinciasPoblaciones
|
||||||
|
OldCreateOrder = True
|
||||||
|
Height = 168
|
||||||
|
Width = 325
|
||||||
|
object schProvinciasPoblaciones: TDASchema
|
||||||
|
ConnectionManager = dmServer.ConnectionManager
|
||||||
|
Datasets = <
|
||||||
|
item
|
||||||
|
IsPublic = False
|
||||||
|
Params = <>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
ConnectionType = 'Interbase'
|
||||||
|
Default = True
|
||||||
|
TargetTable = 'PROVINCIAS'
|
||||||
|
StatementType = stAutoSQL
|
||||||
|
ColumnMappings = <
|
||||||
|
item
|
||||||
|
DatasetField = 'ID'
|
||||||
|
TableField = 'ID'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'DESCRIPCION'
|
||||||
|
TableField = 'DESCRIPCION'
|
||||||
|
end>
|
||||||
|
end>
|
||||||
|
Name = 'Provincias'
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datInteger
|
||||||
|
Required = True
|
||||||
|
InPrimaryKey = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DESCRIPCION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
Required = True
|
||||||
|
end>
|
||||||
|
ReadOnly = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
IsPublic = False
|
||||||
|
Params = <>
|
||||||
|
Statements = <
|
||||||
|
item
|
||||||
|
ConnectionType = 'Interbase'
|
||||||
|
Default = True
|
||||||
|
TargetTable = 'POBLACIONES'
|
||||||
|
StatementType = stAutoSQL
|
||||||
|
ColumnMappings = <
|
||||||
|
item
|
||||||
|
DatasetField = 'ID'
|
||||||
|
TableField = 'ID'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'ID_PROVINCIA'
|
||||||
|
TableField = 'ID_PROVINCIA'
|
||||||
|
end
|
||||||
|
item
|
||||||
|
DatasetField = 'DESCRIPCION'
|
||||||
|
TableField = 'DESCRIPCION'
|
||||||
|
end>
|
||||||
|
end>
|
||||||
|
Name = 'Poblaciones'
|
||||||
|
Fields = <
|
||||||
|
item
|
||||||
|
Name = 'ID'
|
||||||
|
DataType = datInteger
|
||||||
|
Required = True
|
||||||
|
InPrimaryKey = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'ID_PROVINCIA'
|
||||||
|
DataType = datInteger
|
||||||
|
Required = True
|
||||||
|
end
|
||||||
|
item
|
||||||
|
Name = 'DESCRIPCION'
|
||||||
|
DataType = datString
|
||||||
|
Size = 255
|
||||||
|
Required = True
|
||||||
|
end>
|
||||||
|
ReadOnly = True
|
||||||
|
end>
|
||||||
|
JoinDataTables = <>
|
||||||
|
UnionDataTables = <>
|
||||||
|
Commands = <>
|
||||||
|
RelationShips = <>
|
||||||
|
UpdateRules = <>
|
||||||
|
Version = 0
|
||||||
|
Left = 48
|
||||||
|
Top = 24
|
||||||
|
end
|
||||||
|
object Bin2DataStreamer: TDABin2DataStreamer
|
||||||
|
Left = 48
|
||||||
|
Top = 88
|
||||||
|
end
|
||||||
|
end
|
||||||
@ -0,0 +1,132 @@
|
|||||||
|
unit srvProvinciasPoblaciones_Impl;
|
||||||
|
|
||||||
|
{----------------------------------------------------------------------------}
|
||||||
|
{ This unit was automatically generated by the RemObjects SDK after reading }
|
||||||
|
{ the RODL file associated with this project . }
|
||||||
|
{ }
|
||||||
|
{ This is where you are supposed to code the implementation of your objects. }
|
||||||
|
{----------------------------------------------------------------------------}
|
||||||
|
|
||||||
|
{$I Remobjects.inc}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
{vcl:} Classes, SysUtils,
|
||||||
|
{RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||||
|
{Required:} uRORemoteDataModule,
|
||||||
|
{Used RODLs:} DataAbstract4_Intf,
|
||||||
|
{Generated:} FactuGES_Intf, uDADataStreamer, uDABin2DataStreamer, uDAClasses;
|
||||||
|
|
||||||
|
type
|
||||||
|
{ TsrvProvinciasPoblaciones }
|
||||||
|
TsrvProvinciasPoblaciones = class(TRORemoteDataModule, IsrvProvinciasPoblaciones)
|
||||||
|
Bin2DataStreamer: TDABin2DataStreamer;
|
||||||
|
schProvinciasPoblaciones: TDASchema;
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
{ IsrvProvinciasPoblaciones methods }
|
||||||
|
function DarListaProvincias: Binary;
|
||||||
|
function DarListaPoblaciones(const ID_Provincia: Integer): Binary;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
uses
|
||||||
|
{Generated:} FactuGES_Invk, Variants, uDAInterfaces,
|
||||||
|
uDataModuleServer, uROClasses;
|
||||||
|
|
||||||
|
|
||||||
|
procedure Create_srvProvinciasPoblaciones(out anInstance : IUnknown);
|
||||||
|
begin
|
||||||
|
anInstance := TsrvProvinciasPoblaciones.Create(nil);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ srvProvinciasPoblaciones }
|
||||||
|
function TsrvProvinciasPoblaciones.DarListaProvincias: Binary;
|
||||||
|
var
|
||||||
|
ASchema : TDASchema;
|
||||||
|
AConn : IDAConnection;
|
||||||
|
dsData: IDADataset;
|
||||||
|
ALista : TStringList;
|
||||||
|
begin
|
||||||
|
Result := Binary.Create;
|
||||||
|
|
||||||
|
ASchema := schProvinciasPoblaciones;
|
||||||
|
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
|
||||||
|
|
||||||
|
try
|
||||||
|
dsData := ASchema.NewDataset(AConn, 'Provincias');
|
||||||
|
except
|
||||||
|
RaiseError('No existe la tabla PROVINCIAS');
|
||||||
|
end;
|
||||||
|
|
||||||
|
ALista := TStringList.Create;
|
||||||
|
try
|
||||||
|
dsData.Active := True;
|
||||||
|
ALista.Sorted := True;
|
||||||
|
while not dsData.EOF do
|
||||||
|
begin
|
||||||
|
ALista.Add(Format('%s=%d', [dsData.Fields[1].AsString, dsData.Fields[0].AsInteger]));
|
||||||
|
dsData.Next;
|
||||||
|
end;
|
||||||
|
|
||||||
|
ALista.SaveToStream(Result);
|
||||||
|
finally
|
||||||
|
FreeANDNIL(ALista);
|
||||||
|
dsData := NIL;
|
||||||
|
AConn := NIL;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TsrvProvinciasPoblaciones.DarListaPoblaciones(const ID_Provincia: Integer): Binary;
|
||||||
|
var
|
||||||
|
ASchema : TDASchema;
|
||||||
|
AConn : IDAConnection;
|
||||||
|
dsData: IDADataset;
|
||||||
|
// AWhere : TDAWhereExpression;
|
||||||
|
ALista : TStringList;
|
||||||
|
begin
|
||||||
|
Result := Binary.Create;
|
||||||
|
|
||||||
|
ASchema := schProvinciasPoblaciones;
|
||||||
|
AConn := dmServer.ConnectionManager.NewConnection(dmServer.ConnectionManager.GetDefaultConnectionName);
|
||||||
|
|
||||||
|
try
|
||||||
|
dsData := ASchema.NewDataset(AConn, 'Poblaciones', ['ID', 'DESCRIPCION'], '', '', False, True);
|
||||||
|
|
||||||
|
with dsData.DynamicWhere do
|
||||||
|
begin
|
||||||
|
Clear;
|
||||||
|
Expression := NewBinaryExpression(NewField('', 'ID_PROVINCIA'),
|
||||||
|
NewConstant(ID_Provincia, datInteger),
|
||||||
|
dboEqual);
|
||||||
|
end;
|
||||||
|
|
||||||
|
ALista := TStringList.Create;
|
||||||
|
try
|
||||||
|
dsData.Active := True;
|
||||||
|
ALista.Sorted := True;
|
||||||
|
while not dsData.EOF do
|
||||||
|
begin
|
||||||
|
ALista.Add(Format('%s=%d', [dsData.Fields[1].AsString, dsData.Fields[0].AsInteger]));
|
||||||
|
dsData.Next;
|
||||||
|
end;
|
||||||
|
ALista.SaveToStream(Result);
|
||||||
|
finally
|
||||||
|
FreeANDNIL(ALista);
|
||||||
|
dsData := NIL;
|
||||||
|
AConn := NIL;
|
||||||
|
end;
|
||||||
|
except
|
||||||
|
RaiseError('No existe la tabla POBLACIONES');
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
TROClassFactory.Create('srvProvinciasPoblaciones', Create_srvProvinciasPoblaciones, TsrvProvinciasPoblaciones_Invoker);
|
||||||
|
|
||||||
|
finalization
|
||||||
|
|
||||||
|
end.
|
||||||
@ -53,58 +53,58 @@
|
|||||||
<DelphiCompile Include="Base.dpk">
|
<DelphiCompile Include="Base.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
|
<DCCReference Include="..\adortl.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\cxDataD11.dcp" />
|
<DCCReference Include="..\cxDataD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\cxEditorsD11.dcp" />
|
<DCCReference Include="..\cxEditorsD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\cxExportD11.dcp" />
|
<DCCReference Include="..\cxExportD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\cxExtEditorsD11.dcp" />
|
<DCCReference Include="..\cxExtEditorsD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\cxGridD11.dcp" />
|
<DCCReference Include="..\cxGridD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\cxIntl6D11.dcp" />
|
<DCCReference Include="..\cxIntl6D11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\cxIntlPrintSys3D11.dcp" />
|
<DCCReference Include="..\cxIntlPrintSys3D11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" />
|
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\cxPageControlD11.dcp" />
|
<DCCReference Include="..\cxPageControlD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" />
|
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
|
<DCCReference Include="..\dbrtl.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
|
<DCCReference Include="..\dclIndyCore.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\designide.dcp" />
|
<DCCReference Include="..\designide.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" />
|
<DCCReference Include="..\dsnap.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" />
|
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\dxPSCoreD11.dcp" />
|
<DCCReference Include="..\dxPSCoreD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" />
|
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11.dcp" />
|
<DCCReference Include="..\GUISDK_D11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
|
<DCCReference Include="..\IndyCore.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
|
<DCCReference Include="..\IndyProtocols.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
|
<DCCReference Include="..\IndySystem.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\Jcl.dcp" />
|
<DCCReference Include="..\Jcl.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" />
|
<DCCReference Include="..\JclVcl.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" />
|
<DCCReference Include="..\JSDialog100.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" />
|
<DCCReference Include="..\JvCmpD11R.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" />
|
<DCCReference Include="..\JvCoreD11R.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
|
<DCCReference Include="..\JvCtrlsD11R.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" />
|
<DCCReference Include="..\JvDlgsD11R.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" />
|
<DCCReference Include="..\JvMMD11R.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" />
|
<DCCReference Include="..\JvNetD11R.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" />
|
<DCCReference Include="..\JvPageCompsD11R.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" />
|
<DCCReference Include="..\JvStdCtrlsD11R.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" />
|
<DCCReference Include="..\JvSystemD11R.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
|
<DCCReference Include="..\pckMD5.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
|
<DCCReference Include="..\pckUCDataConnector.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
|
<DCCReference Include="..\pckUserControl_RT.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
|
<DCCReference Include="..\PngComponentsD10.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
|
<DCCReference Include="..\PNG_D10.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" />
|
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\RemObjects_Indy_D11.dcp" />
|
<DCCReference Include="..\RemObjects_Indy_D11.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
|
<DCCReference Include="..\rtl.dcp" />
|
||||||
<DCCReference Include="..\Modulos\Contactos\TB2k_D10.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Contactos\tbx_d10.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Contactos\vclactnband.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Contactos\vcldb.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Contactos\vcljpg.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Contactos\VclSmp.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Contactos\vclx.dcp" />
|
|
||||||
<DCCReference Include="..\Modulos\Contactos\xmlrtl.dcp" />
|
|
||||||
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
|
||||||
|
<DCCReference Include="..\TB2k_D10.dcp" />
|
||||||
|
<DCCReference Include="..\tbx_d10.dcp" />
|
||||||
|
<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" />
|
||||||
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
<DCCReference Include="Conexion\uConfigurarConexion.pas">
|
||||||
<Form>fConfigurarConexion</Form>
|
<Form>fConfigurarConexion</Form>
|
||||||
<DesignClass>TForm</DesignClass>
|
<DesignClass>TForm</DesignClass>
|
||||||
|
|||||||
@ -54,39 +54,7 @@
|
|||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">6</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.6.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.6.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Language><Language Name="RootDir">C:\Archivos de programa\Borland\Delphi7\Bin\</Language></Language><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">7</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">Rodax Software S.L.</VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.7.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName">FactuGES</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
|
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Factuges.ico"
|
||||||
1 VERSIONINFO
|
1 VERSIONINFO
|
||||||
FILEVERSION 1,0,6,0
|
FILEVERSION 1,0,7,0
|
||||||
PRODUCTVERSION 1,0,6,0
|
PRODUCTVERSION 1,0,7,0
|
||||||
FILEFLAGSMASK 0x3FL
|
FILEFLAGSMASK 0x3FL
|
||||||
FILEFLAGS 0x00L
|
FILEFLAGS 0x00L
|
||||||
FILEOS 0x40004L
|
FILEOS 0x40004L
|
||||||
@ -13,10 +13,10 @@ BEGIN
|
|||||||
BLOCK "0C0A04E4"
|
BLOCK "0C0A04E4"
|
||||||
BEGIN
|
BEGIN
|
||||||
VALUE "CompanyName", "Rodax Software S.L.\0"
|
VALUE "CompanyName", "Rodax Software S.L.\0"
|
||||||
VALUE "FileVersion", "1.0.6.0\0"
|
VALUE "FileVersion", "1.0.7.0\0"
|
||||||
VALUE "InternalName", "FactuGES\0"
|
VALUE "InternalName", "FactuGES\0"
|
||||||
VALUE "ProductName", "FactuGES\0"
|
VALUE "ProductName", "FactuGES\0"
|
||||||
VALUE "ProductVersion", "1.0.6.0\0"
|
VALUE "ProductVersion", "1.0.7.0\0"
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
BLOCK "VarFileInfo"
|
BLOCK "VarFileInfo"
|
||||||
|
|||||||
Binary file not shown.
@ -39,78 +39,42 @@
|
|||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
|
<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="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 Name="Comments"></VersionInfoKeys></VersionInfoKeys><Source><Source Name="MainSource">Almacenes_view.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
<Parameters Name="UseLauncher">False</Parameters>
|
|
||||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
|
||||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
|
||||||
</Parameters>
|
|
||||||
<Package_Options>
|
|
||||||
<Package_Options Name="ImplicitBuild">True</Package_Options>
|
|
||||||
<Package_Options Name="DesigntimeOnly">False</Package_Options>
|
|
||||||
<Package_Options Name="RuntimeOnly">False</Package_Options>
|
|
||||||
</Package_Options>
|
|
||||||
<VersionInfo>
|
|
||||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
|
||||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
|
||||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
|
||||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
|
||||||
<VersionInfo Name="Release">0</VersionInfo>
|
|
||||||
<VersionInfo Name="Build">0</VersionInfo>
|
|
||||||
<VersionInfo Name="Debug">False</VersionInfo>
|
|
||||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
|
||||||
<VersionInfo Name="Special">False</VersionInfo>
|
|
||||||
<VersionInfo Name="Private">False</VersionInfo>
|
|
||||||
<VersionInfo Name="DLL">False</VersionInfo>
|
|
||||||
<VersionInfo Name="Locale">3082</VersionInfo>
|
|
||||||
<VersionInfo Name="CodePage">1252</VersionInfo>
|
|
||||||
</VersionInfo>
|
|
||||||
<VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
|
||||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
|
||||||
</VersionInfoKeys>
|
|
||||||
<Source>
|
|
||||||
<Source Name="MainSource">Almacenes_view.dpk</Source>
|
|
||||||
</Source>
|
|
||||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
|
||||||
</ProjectExtensions>
|
</ProjectExtensions>
|
||||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
<DelphiCompile Include="Almacenes_view.dpk">
|
<DelphiCompile Include="Almacenes_view.dpk">
|
||||||
<MainSource>MainSource</MainSource>
|
<MainSource>MainSource</MainSource>
|
||||||
</DelphiCompile>
|
</DelphiCompile>
|
||||||
<DCCReference Include="..\..\..\Lib\Almacenes_controller.dcp" />
|
<DCCReference Include="..\Almacenes_controller.dcp" />
|
||||||
<DCCReference Include="..\..\..\Lib\Almacenes_model.dcp" />
|
<DCCReference Include="..\Almacenes_model.dcp" />
|
||||||
<DCCReference Include="..\..\..\Lib\ApplicationBase.dcp" />
|
<DCCReference Include="..\ApplicationBase.dcp" />
|
||||||
<DCCReference Include="uAlmacenesViewRegister.pas" />
|
<DCCReference Include="uAlmacenesViewRegister.pas" />
|
||||||
<DCCReference Include="uEditorAlmacen.pas">
|
<DCCReference Include="uEditorAlmacen.pas">
|
||||||
<Form>fEditorAlmacen</Form>
|
<Form>fEditorAlmacen</Form>
|
||||||
|
<DesignClass>TfEditorAlmacen</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="uEditorAlmacenes.pas">
|
<DCCReference Include="uEditorAlmacenes.pas">
|
||||||
<Form>fEditorAlmacenes</Form>
|
<Form>fEditorAlmacenes</Form>
|
||||||
|
<DesignClass>TfEditorAlmacenes</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="uEditorListaAlmacenes.pas">
|
<DCCReference Include="uEditorListaAlmacenes.pas">
|
||||||
<Form>fEditorListaAlmacenes</Form>
|
<Form>fEditorListaAlmacenes</Form>
|
||||||
|
<DesignClass>TfListaAlmacenes</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="uViewAlmacen.pas">
|
<DCCReference Include="uViewAlmacen.pas">
|
||||||
<Form>frViewAlmacen</Form>
|
<Form>frViewAlmacen</Form>
|
||||||
|
<DesignClass>TFrame</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
<DCCReference Include="uViewAlmacenes.pas">
|
<DCCReference Include="uViewAlmacenes.pas">
|
||||||
<Form>frViewAlmacenes</Form>
|
<Form>frViewAlmacenes</Form>
|
||||||
|
<DesignClass>TFrame</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
</ItemGroup>
|
</ItemGroup>
|
||||||
</Project>
|
</Project>
|
||||||
|
|
||||||
<!-- EurekaLog First Line
|
<!-- EurekaLog First Line
|
||||||
[Exception Log]
|
[Exception Log]
|
||||||
EurekaLog Version=6006
|
EurekaLog Version=6011
|
||||||
Activate=0
|
Activate=0
|
||||||
Activate Handle=1
|
Activate Handle=1
|
||||||
Save Log File=1
|
Save Log File=1
|
||||||
|
|||||||
@ -0,0 +1,22 @@
|
|||||||
|
1 VERSIONINFO
|
||||||
|
FILEVERSION 1,0,0,0
|
||||||
|
PRODUCTVERSION 1,0,0,0
|
||||||
|
FILEFLAGSMASK 0x3FL
|
||||||
|
FILEFLAGS 0x00L
|
||||||
|
FILEOS 0x40004L
|
||||||
|
FILETYPE 0x1L
|
||||||
|
FILESUBTYPE 0x0L
|
||||||
|
BEGIN
|
||||||
|
BLOCK "StringFileInfo"
|
||||||
|
BEGIN
|
||||||
|
BLOCK "0C0A04E4"
|
||||||
|
BEGIN
|
||||||
|
VALUE "FileVersion", "1.0.0.0\0"
|
||||||
|
VALUE "ProductVersion", "1.0.0.0\0"
|
||||||
|
END
|
||||||
|
END
|
||||||
|
BLOCK "VarFileInfo"
|
||||||
|
BEGIN
|
||||||
|
VALUE "Translation", 0x0C0A, 1252
|
||||||
|
END
|
||||||
|
END
|
||||||
Binary file not shown.
@ -8,7 +8,6 @@ inherited fEditorAlmacen: TfEditorAlmacen
|
|||||||
Scaled = False
|
Scaled = False
|
||||||
OnClose = CustomEditorClose
|
OnClose = CustomEditorClose
|
||||||
ExplicitWidth = 640
|
ExplicitWidth = 640
|
||||||
ExplicitHeight = 488
|
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
@ -96,13 +95,13 @@ inherited fEditorAlmacen: TfEditorAlmacen
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited pgPaginas: TPageControl
|
inherited pgPaginas: TPageControl
|
||||||
Width = 632
|
Width = 626
|
||||||
ExplicitWidth = 632
|
ExplicitWidth = 626
|
||||||
inherited pagGeneral: TTabSheet
|
inherited pagGeneral: TTabSheet
|
||||||
ExplicitLeft = 4
|
ExplicitLeft = 4
|
||||||
ExplicitTop = 24
|
ExplicitTop = 24
|
||||||
ExplicitWidth = 624
|
ExplicitWidth = 618
|
||||||
ExplicitHeight = 338
|
ExplicitHeight = 332
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
|
|||||||
@ -13,6 +13,7 @@ inherited frViewAlmacen: TfrViewAlmacen
|
|||||||
Align = alClient
|
Align = alClient
|
||||||
ParentBackground = True
|
ParentBackground = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
TabStop = False
|
||||||
AutoContentSizes = [acsWidth, acsHeight]
|
AutoContentSizes = [acsWidth, acsHeight]
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
451
|
451
|
||||||
@ -33,7 +34,7 @@ inherited frViewAlmacen: TfrViewAlmacen
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
Width = 204
|
Width = 101
|
||||||
end
|
end
|
||||||
object ePersonaContacto: TcxDBTextEdit
|
object ePersonaContacto: TcxDBTextEdit
|
||||||
Left = 130
|
Left = 130
|
||||||
@ -49,7 +50,7 @@ inherited frViewAlmacen: TfrViewAlmacen
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
Width = 204
|
Width = 101
|
||||||
end
|
end
|
||||||
object eTlfTelefono: TcxDBTextEdit
|
object eTlfTelefono: TcxDBTextEdit
|
||||||
Left = 341
|
Left = 341
|
||||||
@ -64,7 +65,7 @@ inherited frViewAlmacen: TfrViewAlmacen
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
Width = 173
|
Width = 88
|
||||||
end
|
end
|
||||||
object eTlfMovil: TcxDBTextEdit
|
object eTlfMovil: TcxDBTextEdit
|
||||||
Left = 341
|
Left = 341
|
||||||
@ -79,7 +80,7 @@ inherited frViewAlmacen: TfrViewAlmacen
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
Width = 173
|
Width = 88
|
||||||
end
|
end
|
||||||
object eFax: TcxDBTextEdit
|
object eFax: TcxDBTextEdit
|
||||||
Left = 341
|
Left = 341
|
||||||
@ -94,7 +95,7 @@ inherited frViewAlmacen: TfrViewAlmacen
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
Width = 173
|
Width = 88
|
||||||
end
|
end
|
||||||
object eCalle: TcxDBTextEdit
|
object eCalle: TcxDBTextEdit
|
||||||
Left = 130
|
Left = 130
|
||||||
@ -113,29 +114,35 @@ inherited frViewAlmacen: TfrViewAlmacen
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 5
|
TabOrder = 5
|
||||||
Width = 278
|
Width = 299
|
||||||
end
|
end
|
||||||
object ePoblacion: TcxDBTextEdit
|
object cbPoblacion: TcxDBComboBox
|
||||||
Left = 130
|
Left = 130
|
||||||
Top = 166
|
Top = 193
|
||||||
DataBinding.DataField = 'POBLACION'
|
DataBinding.DataField = 'POBLACION'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.ImmediateUpdateText = True
|
||||||
|
Properties.PostPopupValueOnTab = True
|
||||||
|
Properties.OnInitPopup = cbPoblacionPropertiesInitPopup
|
||||||
Style.BorderColor = clWindowFrame
|
Style.BorderColor = clWindowFrame
|
||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.ButtonStyle = bts3D
|
||||||
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 6
|
TabOrder = 8
|
||||||
Width = 177
|
Width = 299
|
||||||
end
|
end
|
||||||
object eCodigoPostal: TcxDBTextEdit
|
object eCodigoPostal: TcxDBTextEdit
|
||||||
Left = 359
|
Left = 355
|
||||||
Top = 166
|
Top = 166
|
||||||
DataBinding.DataField = 'CODIGO_POSTAL'
|
DataBinding.DataField = 'CODIGO_POSTAL'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
@ -151,26 +158,32 @@ inherited frViewAlmacen: TfrViewAlmacen
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 7
|
TabOrder = 7
|
||||||
Width = 65
|
Width = 74
|
||||||
end
|
end
|
||||||
object eProvincia: TcxDBTextEdit
|
object cbProvincia: TcxDBComboBox
|
||||||
Left = 130
|
Left = 130
|
||||||
Top = 193
|
Top = 166
|
||||||
DataBinding.DataField = 'PROVINCIA'
|
DataBinding.DataField = 'PROVINCIA'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.ImmediateUpdateText = True
|
||||||
|
Properties.PostPopupValueOnTab = True
|
||||||
|
Properties.OnInitPopup = cbProvinciaPropertiesInitPopup
|
||||||
Style.BorderColor = clWindowFrame
|
Style.BorderColor = clWindowFrame
|
||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.ButtonStyle = bts3D
|
||||||
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 8
|
TabOrder = 6
|
||||||
Width = 278
|
Width = 186
|
||||||
end
|
end
|
||||||
object dxLayoutControlAlmacenGroup_Root: TdxLayoutGroup
|
object dxLayoutControlAlmacenGroup_Root: TdxLayoutGroup
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
@ -224,35 +237,32 @@ inherited frViewAlmacen: TfrViewAlmacen
|
|||||||
Control = eCalle
|
Control = eCalle
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControlAlmacenGroup5: TdxLayoutGroup
|
object dxLayoutControlAlmacenGroup6: TdxLayoutGroup
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
Hidden = True
|
Hidden = True
|
||||||
|
LayoutDirection = ldHorizontal
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControlAlmacenGroup6: TdxLayoutGroup
|
|
||||||
ShowCaption = False
|
|
||||||
Hidden = True
|
|
||||||
LayoutDirection = ldHorizontal
|
|
||||||
ShowBorder = False
|
|
||||||
object dxLayoutControlAlmacenItem2: TdxLayoutItem
|
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
|
||||||
Caption = 'Poblaci'#243'n:'
|
|
||||||
Control = ePoblacion
|
|
||||||
ControlOptions.ShowBorder = False
|
|
||||||
end
|
|
||||||
object dxLayoutControlAlmacenItem7: TdxLayoutItem
|
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
|
||||||
Caption = 'C. P.:'
|
|
||||||
Control = eCodigoPostal
|
|
||||||
ControlOptions.ShowBorder = False
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object dxLayoutControlAlmacenItem9: TdxLayoutItem
|
object dxLayoutControlAlmacenItem9: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
Caption = 'Provincia:'
|
Caption = 'Provincia:'
|
||||||
Control = eProvincia
|
Control = cbProvincia
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
|
object dxLayoutControlAlmacenItem7: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahRight
|
||||||
|
Caption = 'C. P.:'
|
||||||
|
Control = eCodigoPostal
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
|
object dxLayoutControlAlmacenItem2: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'Poblaci'#243'n:'
|
||||||
|
Control = cbPoblacion
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -7,7 +7,13 @@ uses
|
|||||||
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
|
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
|
||||||
DBCtrls, Grids, DBGrids, uBizAlmacenes, Mask, ComCtrls, uCustomView,
|
DBCtrls, Grids, DBGrids, uBizAlmacenes, Mask, ComCtrls, uCustomView,
|
||||||
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
||||||
cxDBEdit, dxLayoutControl, uDAInterfaces;
|
cxDBEdit, dxLayoutControl, uDAInterfaces, dxSkinsCore, dxSkinBlue,
|
||||||
|
dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
|
||||||
|
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
|
||||||
|
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||||
|
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
|
||||||
|
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
|
||||||
|
dxSkinsdxLCPainter, cxGraphics, cxMaskEdit, cxDropDownEdit;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewAlmacen = interface(IViewBase)
|
IViewAlmacen = interface(IViewBase)
|
||||||
@ -38,24 +44,33 @@ type
|
|||||||
dxLayoutControlAlmacenItem10: TdxLayoutItem;
|
dxLayoutControlAlmacenItem10: TdxLayoutItem;
|
||||||
eCalle: TcxDBTextEdit;
|
eCalle: TcxDBTextEdit;
|
||||||
dxLayoutControlAlmacenItem2: TdxLayoutItem;
|
dxLayoutControlAlmacenItem2: TdxLayoutItem;
|
||||||
ePoblacion: TcxDBTextEdit;
|
cbPoblacion: TcxDBComboBox;
|
||||||
dxLayoutControlAlmacenItem7: TdxLayoutItem;
|
dxLayoutControlAlmacenItem7: TdxLayoutItem;
|
||||||
dxLayoutControlAlmacenGroup5: TdxLayoutGroup;
|
|
||||||
eCodigoPostal: TcxDBTextEdit;
|
eCodigoPostal: TcxDBTextEdit;
|
||||||
dxLayoutControlAlmacenItem9: TdxLayoutItem;
|
dxLayoutControlAlmacenItem9: TdxLayoutItem;
|
||||||
|
cbProvincia: TcxDBComboBox;
|
||||||
dxLayoutControlAlmacenGroup6: TdxLayoutGroup;
|
dxLayoutControlAlmacenGroup6: TdxLayoutGroup;
|
||||||
eProvincia: TcxDBTextEdit;
|
procedure cbProvinciaPropertiesInitPopup(Sender: TObject);
|
||||||
|
procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
|
||||||
protected
|
protected
|
||||||
FAlmacen: IBizAlmacen;
|
FAlmacen: IBizAlmacen;
|
||||||
|
FProvincias : TStringList;
|
||||||
|
FPoblaciones : TStringList;
|
||||||
|
procedure CargarProvincias;
|
||||||
|
procedure CargarPoblaciones;
|
||||||
function GetAlmacen: IBizAlmacen;
|
function GetAlmacen: IBizAlmacen;
|
||||||
procedure SetAlmacen(const Value: IBizAlmacen);
|
procedure SetAlmacen(const Value: IBizAlmacen);
|
||||||
public
|
public
|
||||||
|
constructor Create(AOwner : TComponent); override;
|
||||||
|
destructor Destroy;
|
||||||
property Almacen: IBizAlmacen read GetAlmacen write SetAlmacen;
|
property Almacen: IBizAlmacen read GetAlmacen write SetAlmacen;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses uDataModuleAlmacenes;
|
uses
|
||||||
|
uDataModuleAlmacenes, uProvinciasPoblacionesController, uStringsUtils;
|
||||||
|
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
@ -65,6 +80,97 @@ uses uDataModuleAlmacenes;
|
|||||||
******************************* TfrViewAlmacenes ********************************
|
******************************* TfrViewAlmacenes ********************************
|
||||||
}
|
}
|
||||||
|
|
||||||
|
procedure TfrViewAlmacen.CargarPoblaciones;
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
|
AID : Integer;
|
||||||
|
begin
|
||||||
|
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||||
|
with TProvinciasPoblacionesController.Create do
|
||||||
|
try
|
||||||
|
FPoblaciones := DarListaPoblaciones(AID);
|
||||||
|
|
||||||
|
with cbPoblacion.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
for i := 0 to FPoblaciones.Count - 1 do
|
||||||
|
Add(FPoblaciones.Names[i]);
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewAlmacen.CargarProvincias;
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
|
begin
|
||||||
|
with TProvinciasPoblacionesController.Create do
|
||||||
|
try
|
||||||
|
FProvincias := DarListaProvincias;
|
||||||
|
|
||||||
|
with cbProvincia.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
for i := 0 to FProvincias.Count - 1 do
|
||||||
|
Add(FProvincias.Names[i]);
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewAlmacen.cbPoblacionPropertiesInitPopup(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
FreeANDNIL(FPoblaciones);
|
||||||
|
if not Assigned(FProvincias) then
|
||||||
|
CargarProvincias;
|
||||||
|
if not EsCadenaVacia(cbProvincia.Text) and (FProvincias.IndexOfName(cbProvincia.Text) <> -1) then
|
||||||
|
CargarPoblaciones
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewAlmacen.cbProvinciaPropertiesInitPopup(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
if not Assigned(FProvincias) then
|
||||||
|
CargarProvincias;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfrViewAlmacen.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FProvincias := NIL;
|
||||||
|
FPoblaciones := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfrViewAlmacen.Destroy;
|
||||||
|
begin
|
||||||
|
if Assigned(FProvincias) then
|
||||||
|
FreeANDNIL(FProvincias);
|
||||||
|
|
||||||
|
if Assigned(FPoblaciones) then
|
||||||
|
FreeANDNIL(FPoblaciones);
|
||||||
|
end;
|
||||||
|
|
||||||
function TfrViewAlmacen.GetAlmacen: IBizAlmacen;
|
function TfrViewAlmacen.GetAlmacen: IBizAlmacen;
|
||||||
begin
|
begin
|
||||||
Result := FAlmacen;
|
Result := FAlmacen;
|
||||||
|
|||||||
@ -3,7 +3,7 @@ unit schArticulosClient_Intf;
|
|||||||
interface
|
interface
|
||||||
|
|
||||||
uses
|
uses
|
||||||
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
||||||
|
|
||||||
const
|
const
|
||||||
{ Data table rules ids
|
{ Data table rules ids
|
||||||
@ -294,7 +294,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TArticulosDataTableRules }
|
{ TArticulosDataTableRules }
|
||||||
TArticulosDataTableRules = class(TDADataTableRules, IArticulos)
|
TArticulosDataTableRules = class(TIntfObjectDADataTableRules, IArticulos)
|
||||||
private
|
private
|
||||||
f_IMAGEN: IROStream;
|
f_IMAGEN: IROStream;
|
||||||
procedure IMAGEN_OnChange(Sender: TObject);
|
procedure IMAGEN_OnChange(Sender: TObject);
|
||||||
@ -632,7 +632,7 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
{ TArticulosParaClienteDataTableRules }
|
{ TArticulosParaClienteDataTableRules }
|
||||||
TArticulosParaClienteDataTableRules = class(TDADataTableRules, IArticulosParaCliente)
|
TArticulosParaClienteDataTableRules = class(TIntfObjectDADataTableRules, IArticulosParaCliente)
|
||||||
private
|
private
|
||||||
f_IMAGEN: IROStream;
|
f_IMAGEN: IROStream;
|
||||||
procedure IMAGEN_OnChange(Sender: TObject);
|
procedure IMAGEN_OnChange(Sender: TObject);
|
||||||
|
|||||||
Binary file not shown.
@ -2,18 +2,18 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
Left = 387
|
Left = 387
|
||||||
Top = 297
|
Top = 297
|
||||||
Caption = 'Ficha de cliente'
|
Caption = 'Ficha de cliente'
|
||||||
ClientHeight = 484
|
ClientHeight = 631
|
||||||
ClientWidth = 656
|
ClientWidth = 714
|
||||||
ExplicitWidth = 664
|
ExplicitWidth = 722
|
||||||
ExplicitHeight = 518
|
ExplicitHeight = 665
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
Width = 656
|
Width = 714
|
||||||
Caption = 'Ficha de cliente'
|
Caption = 'Ficha de cliente'
|
||||||
ExplicitWidth = 656
|
ExplicitWidth = 714
|
||||||
inherited Image1: TImage
|
inherited Image1: TImage
|
||||||
Left = 629
|
Left = 687
|
||||||
Picture.Data = {
|
Picture.Data = {
|
||||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
||||||
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
||||||
@ -49,8 +49,8 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Width = 656
|
Width = 714
|
||||||
ExplicitWidth = 656
|
ExplicitWidth = 714
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TTBXToolbar
|
||||||
ExplicitWidth = 446
|
ExplicitWidth = 446
|
||||||
object TBXItem7: TTBXItem [7]
|
object TBXItem7: TTBXItem [7]
|
||||||
@ -59,23 +59,23 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TTBXToolbar
|
||||||
ExplicitWidth = 656
|
ExplicitWidth = 714
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited pgPaginas: TPageControl
|
inherited pgPaginas: TPageControl
|
||||||
Width = 650
|
Width = 708
|
||||||
Height = 383
|
Height = 530
|
||||||
ActivePage = pagGeneral
|
ActivePage = pagGeneral
|
||||||
ExplicitWidth = 650
|
ExplicitWidth = 708
|
||||||
ExplicitHeight = 383
|
ExplicitHeight = 530
|
||||||
inherited pagGeneral: TTabSheet
|
inherited pagGeneral: TTabSheet
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
ExplicitHeight = 355
|
ExplicitHeight = 502
|
||||||
inline frViewCliente1: TfrViewCliente
|
inline frViewCliente1: TfrViewCliente
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 642
|
Width = 700
|
||||||
Height = 355
|
Height = 502
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -85,282 +85,193 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
ExplicitHeight = 355
|
ExplicitHeight = 502
|
||||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||||
Width = 642
|
Width = 700
|
||||||
Height = 355
|
Height = 502
|
||||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
ExplicitHeight = 355
|
ExplicitHeight = 502
|
||||||
inherited PngSpeedButton1: TPngSpeedButton
|
inherited PngSpeedButton1: TPngSpeedButton
|
||||||
Left = 580
|
Left = 655
|
||||||
Top = 218
|
Top = 218
|
||||||
ExplicitLeft = 580
|
ExplicitLeft = 655
|
||||||
ExplicitTop = 218
|
ExplicitTop = 218
|
||||||
end
|
end
|
||||||
inherited PngSpeedButton2: TPngSpeedButton
|
inherited PngSpeedButton2: TPngSpeedButton
|
||||||
Left = 580
|
Left = 655
|
||||||
Top = 190
|
Top = 190
|
||||||
ExplicitLeft = 580
|
ExplicitLeft = 655
|
||||||
ExplicitTop = 190
|
ExplicitTop = 190
|
||||||
end
|
end
|
||||||
inherited PngSpeedButton3: TPngSpeedButton
|
inherited PngSpeedButton3: TPngSpeedButton
|
||||||
Left = 580
|
Left = 655
|
||||||
Top = 162
|
Top = 162
|
||||||
ExplicitLeft = 580
|
ExplicitLeft = 655
|
||||||
ExplicitTop = 162
|
ExplicitTop = 162
|
||||||
end
|
end
|
||||||
inherited Label1: TLabel
|
inherited Label1: TLabel
|
||||||
Left = 371
|
Left = 395
|
||||||
Top = 270
|
Top = 251
|
||||||
Width = 269
|
Width = 161
|
||||||
ExplicitLeft = 371
|
ExplicitLeft = 395
|
||||||
ExplicitTop = 270
|
ExplicitTop = 251
|
||||||
ExplicitWidth = 269
|
ExplicitWidth = 161
|
||||||
end
|
end
|
||||||
inherited eCalle: TcxDBTextEdit
|
inherited eCalle: TcxDBTextEdit
|
||||||
Top = 267
|
Top = 267
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitTop = 267
|
ExplicitTop = 267
|
||||||
ExplicitWidth = 260
|
ExplicitWidth = 309
|
||||||
Width = 260
|
Width = 309
|
||||||
end
|
end
|
||||||
inherited eProvincia: TcxDBTextEdit
|
inherited cbProvincia: TcxDBComboBox
|
||||||
Top = 321
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitTop = 321
|
|
||||||
ExplicitWidth = 260
|
|
||||||
Width = 260
|
|
||||||
end
|
|
||||||
inherited ePoblacion: TcxDBTextEdit
|
|
||||||
Top = 294
|
Top = 294
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitTop = 294
|
ExplicitTop = 294
|
||||||
ExplicitWidth = 159
|
ExplicitWidth = 87
|
||||||
Width = 159
|
Width = 87
|
||||||
|
end
|
||||||
|
inherited cbPoblacion: TcxDBComboBox
|
||||||
|
Top = 321
|
||||||
|
ExplicitTop = 321
|
||||||
|
ExplicitWidth = 112
|
||||||
|
Width = 112
|
||||||
end
|
end
|
||||||
inherited eCodigoPostal: TcxDBTextEdit
|
inherited eCodigoPostal: TcxDBTextEdit
|
||||||
Left = 278
|
Left = 313
|
||||||
Top = 294
|
Top = 294
|
||||||
Style.LookAndFeel.SkinName = ''
|
ExplicitLeft = 313
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 278
|
|
||||||
ExplicitTop = 294
|
ExplicitTop = 294
|
||||||
end
|
end
|
||||||
inherited eObservaciones: TcxDBMemo
|
inherited eObservaciones: TcxDBMemo
|
||||||
Top = 399
|
Top = 399
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitTop = 399
|
ExplicitTop = 399
|
||||||
ExplicitWidth = 581
|
ExplicitWidth = 656
|
||||||
ExplicitHeight = 33
|
ExplicitHeight = 87
|
||||||
Height = 33
|
Height = 87
|
||||||
Width = 581
|
Width = 656
|
||||||
end
|
end
|
||||||
inherited eNombreComercial: TcxDBTextEdit
|
inherited eNombreComercial: TcxDBTextEdit
|
||||||
Top = 84
|
Top = 84
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitTop = 84
|
ExplicitTop = 84
|
||||||
ExplicitWidth = 260
|
ExplicitWidth = 309
|
||||||
Width = 260
|
Width = 309
|
||||||
end
|
end
|
||||||
inherited cbClienteBloqueado: TcxDBCheckBox
|
inherited cbClienteBloqueado: TcxDBCheckBox
|
||||||
Top = 189
|
Top = 189
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitTop = 189
|
ExplicitTop = 189
|
||||||
ExplicitWidth = 370
|
ExplicitWidth = 419
|
||||||
Width = 370
|
Width = 419
|
||||||
end
|
end
|
||||||
inherited cbGrupoCliente: TcxDBComboBox
|
inherited cbGrupoCliente: TcxDBComboBox
|
||||||
Top = 138
|
Top = 138
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitTop = 138
|
ExplicitTop = 138
|
||||||
ExplicitWidth = 260
|
ExplicitWidth = 87
|
||||||
Width = 260
|
Width = 87
|
||||||
end
|
end
|
||||||
inherited eBloqueo: TcxDBTextEdit
|
inherited eBloqueo: TcxDBTextEdit
|
||||||
Top = 216
|
Top = 216
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitTop = 216
|
ExplicitTop = 216
|
||||||
ExplicitWidth = 260
|
ExplicitWidth = 309
|
||||||
Width = 260
|
Width = 309
|
||||||
end
|
|
||||||
inherited cxDBCheckBox1: TcxDBCheckBox
|
|
||||||
Left = 371
|
|
||||||
Top = 315
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 371
|
|
||||||
ExplicitTop = 315
|
|
||||||
ExplicitWidth = 183
|
|
||||||
ExplicitHeight = 34
|
|
||||||
Width = 183
|
|
||||||
end
|
|
||||||
inherited eTlfParticular: TcxDBTextEdit
|
|
||||||
Left = 466
|
|
||||||
Top = 57
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 466
|
|
||||||
ExplicitTop = 57
|
|
||||||
ExplicitWidth = 88
|
|
||||||
Width = 88
|
|
||||||
end
|
|
||||||
inherited eTlfTrabajo: TcxDBTextEdit
|
|
||||||
Left = 466
|
|
||||||
Top = 30
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 466
|
|
||||||
ExplicitTop = 30
|
|
||||||
ExplicitWidth = 88
|
|
||||||
Width = 88
|
|
||||||
end
|
|
||||||
inherited eTlfMovil: TcxDBTextEdit
|
|
||||||
Left = 466
|
|
||||||
Top = 84
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 466
|
|
||||||
ExplicitTop = 84
|
|
||||||
ExplicitWidth = 88
|
|
||||||
Width = 88
|
|
||||||
end
|
|
||||||
inherited eFax: TcxDBTextEdit
|
|
||||||
Left = 466
|
|
||||||
Top = 111
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 466
|
|
||||||
ExplicitTop = 111
|
|
||||||
ExplicitWidth = 88
|
|
||||||
Width = 88
|
|
||||||
end
|
|
||||||
inherited eNombre: TcxDBTextEdit
|
|
||||||
Top = 57
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitTop = 57
|
|
||||||
ExplicitWidth = 260
|
|
||||||
Width = 260
|
|
||||||
end
|
end
|
||||||
inherited eCodigoAsignado: TcxDBTextEdit
|
inherited eCodigoAsignado: TcxDBTextEdit
|
||||||
Top = 111
|
Top = 111
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitTop = 111
|
ExplicitTop = 111
|
||||||
ExplicitWidth = 260
|
ExplicitWidth = 309
|
||||||
Width = 260
|
Width = 309
|
||||||
|
end
|
||||||
|
inherited eTlfParticular: TcxDBTextEdit
|
||||||
|
Left = 501
|
||||||
|
Top = 57
|
||||||
|
ExplicitLeft = 501
|
||||||
|
ExplicitTop = 57
|
||||||
|
ExplicitWidth = 204
|
||||||
|
Width = 204
|
||||||
|
end
|
||||||
|
inherited eTlfTrabajo: TcxDBTextEdit
|
||||||
|
Left = 501
|
||||||
|
Top = 30
|
||||||
|
ExplicitLeft = 501
|
||||||
|
ExplicitTop = 30
|
||||||
|
ExplicitWidth = 176
|
||||||
|
Width = 176
|
||||||
|
end
|
||||||
|
inherited eTlfMovil: TcxDBTextEdit
|
||||||
|
Left = 501
|
||||||
|
Top = 84
|
||||||
|
ExplicitLeft = 501
|
||||||
|
ExplicitTop = 84
|
||||||
|
ExplicitWidth = 179
|
||||||
|
Width = 179
|
||||||
|
end
|
||||||
|
inherited eFax: TcxDBTextEdit
|
||||||
|
Left = 501
|
||||||
|
Top = 111
|
||||||
|
ExplicitLeft = 501
|
||||||
|
ExplicitTop = 111
|
||||||
|
ExplicitWidth = 196
|
||||||
|
Width = 196
|
||||||
|
end
|
||||||
|
inherited eNombre: TcxDBTextEdit
|
||||||
|
Top = 57
|
||||||
|
ExplicitTop = 57
|
||||||
|
ExplicitWidth = 309
|
||||||
|
Width = 309
|
||||||
end
|
end
|
||||||
inherited eNIFCIF: TcxDBTextEdit
|
inherited eNIFCIF: TcxDBTextEdit
|
||||||
Left = 205
|
Left = 216
|
||||||
Top = 30
|
Top = 30
|
||||||
Style.LookAndFeel.SkinName = ''
|
ExplicitLeft = 216
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 205
|
|
||||||
ExplicitTop = 30
|
ExplicitTop = 30
|
||||||
ExplicitWidth = 171
|
ExplicitWidth = 200
|
||||||
Width = 171
|
Width = 200
|
||||||
end
|
end
|
||||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||||
Left = 466
|
Left = 501
|
||||||
Top = 162
|
Top = 162
|
||||||
Properties.Prefix = 'mailto:'
|
Properties.Prefix = 'mailto:'
|
||||||
Style.LookAndFeel.SkinName = ''
|
ExplicitLeft = 501
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 466
|
|
||||||
ExplicitTop = 162
|
ExplicitTop = 162
|
||||||
ExplicitWidth = 59
|
ExplicitWidth = 180
|
||||||
Width = 59
|
Width = 180
|
||||||
end
|
end
|
||||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||||
Left = 466
|
Left = 501
|
||||||
Top = 190
|
Top = 190
|
||||||
Properties.Prefix = 'mailto:'
|
Properties.Prefix = 'mailto:'
|
||||||
Style.LookAndFeel.SkinName = ''
|
ExplicitLeft = 501
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 466
|
|
||||||
ExplicitTop = 190
|
ExplicitTop = 190
|
||||||
ExplicitWidth = 59
|
ExplicitWidth = 196
|
||||||
Width = 59
|
Width = 196
|
||||||
|
end
|
||||||
|
inherited cxDBCheckBox1: TcxDBCheckBox
|
||||||
|
Left = 395
|
||||||
|
Top = 322
|
||||||
|
ExplicitLeft = 395
|
||||||
|
ExplicitTop = 322
|
||||||
|
ExplicitWidth = 262
|
||||||
|
Width = 262
|
||||||
end
|
end
|
||||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||||
Left = 466
|
Left = 501
|
||||||
Top = 217
|
Top = 217
|
||||||
Style.LookAndFeel.SkinName = ''
|
ExplicitLeft = 501
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 466
|
|
||||||
ExplicitTop = 217
|
ExplicitTop = 217
|
||||||
ExplicitWidth = 59
|
ExplicitWidth = 196
|
||||||
Width = 59
|
Width = 196
|
||||||
end
|
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 = 36
|
ExplicitWidth = 56
|
||||||
Width = 36
|
Width = 56
|
||||||
end
|
end
|
||||||
inherited ePersonaContacto: TcxDBTextEdit
|
inherited ePersonaContacto: TcxDBTextEdit
|
||||||
Top = 348
|
Top = 348
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitTop = 348
|
ExplicitTop = 348
|
||||||
ExplicitWidth = 260
|
ExplicitWidth = 309
|
||||||
Width = 260
|
Width = 309
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited dsContacto: TDADataSource
|
inherited dsContacto: TDADataSource
|
||||||
@ -370,22 +281,34 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited pagDatosBancarios: TTabSheet
|
inherited pagDatosBancarios: TTabSheet
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
ExplicitHeight = 355
|
ExplicitHeight = 502
|
||||||
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
|
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
|
||||||
Width = 642
|
Width = 700
|
||||||
Height = 355
|
Height = 502
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
ExplicitHeight = 355
|
ExplicitHeight = 502
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 642
|
Width = 700
|
||||||
Height = 330
|
Height = 477
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
ExplicitHeight = 330
|
ExplicitHeight = 477
|
||||||
end
|
end
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 642
|
Width = 700
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
|
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
|
end
|
||||||
@ -395,7 +318,7 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales
|
inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 642
|
Width = 700
|
||||||
Height = 193
|
Height = 193
|
||||||
Align = alTop
|
Align = alTop
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
@ -406,17 +329,17 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
ExplicitHeight = 193
|
ExplicitHeight = 193
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 642
|
Width = 700
|
||||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
inherited Label1: TLabel
|
inherited Label1: TLabel
|
||||||
Left = 397
|
Left = 446
|
||||||
Top = 30
|
Top = 30
|
||||||
Width = 196
|
Width = 196
|
||||||
ExplicitLeft = 397
|
ExplicitLeft = 446
|
||||||
ExplicitTop = 30
|
ExplicitTop = 30
|
||||||
ExplicitWidth = 196
|
ExplicitWidth = 196
|
||||||
end
|
end
|
||||||
@ -427,75 +350,51 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
ExplicitWidth = 263
|
ExplicitWidth = 263
|
||||||
end
|
end
|
||||||
inherited eDiasVencimiento: TcxDBSpinEdit
|
inherited eDiasVencimiento: TcxDBSpinEdit
|
||||||
Left = 460
|
Left = 509
|
||||||
Top = 62
|
Top = 62
|
||||||
Style.LookAndFeel.SkinName = ''
|
ExplicitLeft = 509
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 460
|
|
||||||
ExplicitTop = 62
|
ExplicitTop = 62
|
||||||
ExplicitWidth = 160
|
ExplicitWidth = 160
|
||||||
Width = 160
|
Width = 160
|
||||||
end
|
end
|
||||||
inherited cbRegimenIVA: TcxDBComboBox
|
inherited cbRegimenIVA: TcxDBComboBox
|
||||||
Top = 30
|
Top = 30
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitTop = 30
|
ExplicitTop = 30
|
||||||
ExplicitWidth = 258
|
ExplicitWidth = 293
|
||||||
Width = 258
|
Width = 293
|
||||||
end
|
end
|
||||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||||
Top = 111
|
Top = 111
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitTop = 111
|
ExplicitTop = 111
|
||||||
ExplicitWidth = 258
|
ExplicitWidth = 293
|
||||||
Width = 258
|
Width = 293
|
||||||
end
|
end
|
||||||
inherited cbFormaPago: TcxDBLookupComboBox
|
inherited cbFormaPago: TcxDBLookupComboBox
|
||||||
Top = 57
|
Top = 57
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitTop = 57
|
ExplicitTop = 57
|
||||||
ExplicitWidth = 120
|
ExplicitWidth = 155
|
||||||
Width = 120
|
Width = 155
|
||||||
end
|
end
|
||||||
inherited bFormasPago: TButton
|
inherited bFormasPago: TButton
|
||||||
Left = 237
|
Left = 286
|
||||||
Top = 57
|
Top = 57
|
||||||
ExplicitLeft = 237
|
ExplicitLeft = 286
|
||||||
ExplicitTop = 57
|
ExplicitTop = 57
|
||||||
end
|
end
|
||||||
inherited eIVA: TcxDBLookupComboBox
|
inherited eIVA: TcxDBLookupComboBox
|
||||||
Top = 84
|
Top = 84
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitTop = 84
|
ExplicitTop = 84
|
||||||
ExplicitWidth = 120
|
ExplicitWidth = 155
|
||||||
Width = 120
|
Width = 155
|
||||||
end
|
end
|
||||||
inherited bTiposIVA: TButton
|
inherited bTiposIVA: TButton
|
||||||
Left = 237
|
Left = 286
|
||||||
Top = 84
|
Top = 84
|
||||||
ExplicitLeft = 237
|
ExplicitLeft = 286
|
||||||
ExplicitTop = 84
|
ExplicitTop = 84
|
||||||
end
|
end
|
||||||
inherited eDescuento: TcxDBSpinEdit
|
inherited eDescuento: TcxDBSpinEdit
|
||||||
Top = 149
|
Top = 149
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitTop = 149
|
ExplicitTop = 149
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -507,8 +406,8 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
|
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 642
|
Width = 700
|
||||||
Height = 355
|
Height = 502
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -518,13 +417,13 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
ExplicitHeight = 355
|
ExplicitHeight = 502
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 642
|
Width = 700
|
||||||
Height = 330
|
Height = 477
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
ExplicitHeight = 330
|
ExplicitHeight = 477
|
||||||
inherited cxGridView: TcxGridDBTableView
|
inherited cxGridView: TcxGridDBTableView
|
||||||
inherited cxGridViewID: TcxGridDBColumn
|
inherited cxGridViewID: TcxGridDBColumn
|
||||||
SortIndex = 0
|
SortIndex = 0
|
||||||
@ -533,20 +432,8 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 642
|
Width = 700
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
inherited ToolButton1: TToolButton
|
|
||||||
ExplicitWidth = 113
|
|
||||||
end
|
|
||||||
inherited ToolButton4: TToolButton
|
|
||||||
ExplicitWidth = 113
|
|
||||||
end
|
|
||||||
inherited ToolButton2: TToolButton
|
|
||||||
ExplicitWidth = 113
|
|
||||||
end
|
|
||||||
inherited ToolButton7: TToolButton
|
|
||||||
ExplicitWidth = 113
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -556,8 +443,8 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
inline frViewClienteDescuentos1: TfrViewClienteDescuentos
|
inline frViewClienteDescuentos1: TfrViewClienteDescuentos
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 642
|
Width = 700
|
||||||
Height = 355
|
Height = 502
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -567,17 +454,17 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
ExplicitHeight = 355
|
ExplicitHeight = 502
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 642
|
Width = 700
|
||||||
Height = 330
|
Height = 477
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
ExplicitHeight = 330
|
ExplicitHeight = 477
|
||||||
end
|
end
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 642
|
Width = 700
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
inherited ToolButton1: TToolButton
|
inherited ToolButton1: TToolButton
|
||||||
ExplicitWidth = 62
|
ExplicitWidth = 62
|
||||||
end
|
end
|
||||||
@ -594,22 +481,22 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited pagPersonal: TTabSheet
|
inherited pagPersonal: TTabSheet
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
ExplicitHeight = 355
|
ExplicitHeight = 502
|
||||||
inherited frViewPersonalContacto1: TfrViewPersonalContacto
|
inherited frViewPersonalContacto1: TfrViewPersonalContacto
|
||||||
Width = 642
|
Width = 700
|
||||||
Height = 355
|
Height = 502
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
ExplicitHeight = 355
|
ExplicitHeight = 502
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 642
|
Width = 700
|
||||||
Height = 330
|
Height = 477
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
ExplicitHeight = 330
|
ExplicitHeight = 477
|
||||||
end
|
end
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 642
|
Width = 700
|
||||||
ExplicitWidth = 642
|
ExplicitWidth = 700
|
||||||
inherited ToolButton1: TToolButton
|
inherited ToolButton1: TToolButton
|
||||||
ExplicitWidth = 62
|
ExplicitWidth = 62
|
||||||
end
|
end
|
||||||
@ -627,10 +514,10 @@ inherited fEditorCliente: TfEditorCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
Top = 465
|
Top = 612
|
||||||
Width = 656
|
Width = 714
|
||||||
ExplicitTop = 465
|
ExplicitTop = 612
|
||||||
ExplicitWidth = 656
|
ExplicitWidth = 714
|
||||||
end
|
end
|
||||||
inherited EditorActionList: TActionList
|
inherited EditorActionList: TActionList
|
||||||
inherited actPrevisualizar: TAction
|
inherited actPrevisualizar: TAction
|
||||||
|
|||||||
@ -63,7 +63,7 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
|||||||
inherited pgPaginas: TPageControl
|
inherited pgPaginas: TPageControl
|
||||||
Width = 923
|
Width = 923
|
||||||
Height = 482
|
Height = 482
|
||||||
ActivePage = pagFormacion
|
ActivePage = pagGeneral
|
||||||
ExplicitWidth = 923
|
ExplicitWidth = 923
|
||||||
ExplicitHeight = 482
|
ExplicitHeight = 482
|
||||||
inherited pagGeneral: TTabSheet
|
inherited pagGeneral: TTabSheet
|
||||||
@ -115,18 +115,18 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
|||||||
ExplicitWidth = 341
|
ExplicitWidth = 341
|
||||||
Width = 341
|
Width = 341
|
||||||
end
|
end
|
||||||
inherited eProvincia: TcxDBTextEdit
|
inherited cbProvincia: TcxDBComboBox
|
||||||
Top = 270
|
|
||||||
ExplicitTop = 270
|
|
||||||
ExplicitWidth = 341
|
|
||||||
Width = 341
|
|
||||||
end
|
|
||||||
inherited ePoblacion: TcxDBTextEdit
|
|
||||||
Top = 243
|
Top = 243
|
||||||
ExplicitTop = 243
|
ExplicitTop = 243
|
||||||
ExplicitWidth = 240
|
ExplicitWidth = 240
|
||||||
Width = 240
|
Width = 240
|
||||||
end
|
end
|
||||||
|
inherited cbPoblacion: TcxDBComboBox
|
||||||
|
Top = 270
|
||||||
|
ExplicitTop = 270
|
||||||
|
ExplicitWidth = 341
|
||||||
|
Width = 341
|
||||||
|
end
|
||||||
inherited eCodigoPostal: TcxDBTextEdit
|
inherited eCodigoPostal: TcxDBTextEdit
|
||||||
Left = 397
|
Left = 397
|
||||||
Top = 243
|
Top = 243
|
||||||
@ -159,6 +159,14 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
|||||||
ExplicitWidth = 341
|
ExplicitWidth = 341
|
||||||
Width = 341
|
Width = 341
|
||||||
end
|
end
|
||||||
|
inherited cbContrato: TcxDBComboBox
|
||||||
|
Left = 585
|
||||||
|
Top = 270
|
||||||
|
ExplicitLeft = 585
|
||||||
|
ExplicitTop = 270
|
||||||
|
ExplicitWidth = 308
|
||||||
|
Width = 308
|
||||||
|
end
|
||||||
inherited eTlfParticular: TcxDBTextEdit
|
inherited eTlfParticular: TcxDBTextEdit
|
||||||
Left = 585
|
Left = 585
|
||||||
Top = 57
|
Top = 57
|
||||||
@ -175,14 +183,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
|||||||
ExplicitWidth = 308
|
ExplicitWidth = 308
|
||||||
Width = 308
|
Width = 308
|
||||||
end
|
end
|
||||||
inherited cbContrato: TcxDBComboBox
|
|
||||||
Left = 585
|
|
||||||
Top = 270
|
|
||||||
ExplicitLeft = 585
|
|
||||||
ExplicitTop = 270
|
|
||||||
ExplicitWidth = 308
|
|
||||||
Width = 308
|
|
||||||
end
|
|
||||||
inherited eTlfMovil: TcxDBTextEdit
|
inherited eTlfMovil: TcxDBTextEdit
|
||||||
Left = 585
|
Left = 585
|
||||||
Top = 84
|
Top = 84
|
||||||
@ -205,6 +205,14 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
|||||||
ExplicitWidth = 341
|
ExplicitWidth = 341
|
||||||
Width = 341
|
Width = 341
|
||||||
end
|
end
|
||||||
|
inherited eDuracionContrato: TcxDBTextEdit
|
||||||
|
Left = 585
|
||||||
|
Top = 297
|
||||||
|
ExplicitLeft = 585
|
||||||
|
ExplicitTop = 297
|
||||||
|
ExplicitWidth = 308
|
||||||
|
Width = 308
|
||||||
|
end
|
||||||
inherited eNIFCIF: TcxDBTextEdit
|
inherited eNIFCIF: TcxDBTextEdit
|
||||||
Left = 259
|
Left = 259
|
||||||
Top = 30
|
Top = 30
|
||||||
@ -231,14 +239,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
|||||||
ExplicitWidth = 279
|
ExplicitWidth = 279
|
||||||
Width = 279
|
Width = 279
|
||||||
end
|
end
|
||||||
inherited eDuracionContrato: TcxDBTextEdit
|
|
||||||
Left = 585
|
|
||||||
Top = 297
|
|
||||||
ExplicitLeft = 585
|
|
||||||
ExplicitTop = 297
|
|
||||||
ExplicitWidth = 308
|
|
||||||
Width = 308
|
|
||||||
end
|
|
||||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||||
Left = 585
|
Left = 585
|
||||||
Top = 217
|
Top = 217
|
||||||
|
|||||||
@ -1,17 +1,16 @@
|
|||||||
inherited fEditorProveedor: TfEditorProveedor
|
inherited fEditorProveedor: TfEditorProveedor
|
||||||
Caption = 'fEditorProveedor'
|
Caption = 'fEditorProveedor'
|
||||||
ClientHeight = 617
|
ClientHeight = 620
|
||||||
ClientWidth = 839
|
ClientWidth = 830
|
||||||
ExplicitTop = -87
|
ExplicitWidth = 838
|
||||||
ExplicitWidth = 847
|
ExplicitHeight = 654
|
||||||
ExplicitHeight = 644
|
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
Width = 839
|
Width = 830
|
||||||
ExplicitWidth = 839
|
ExplicitWidth = 839
|
||||||
inherited Image1: TImage
|
inherited Image1: TImage
|
||||||
Left = 812
|
Left = 803
|
||||||
Picture.Data = {
|
Picture.Data = {
|
||||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
||||||
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
||||||
@ -47,29 +46,29 @@ inherited fEditorProveedor: TfEditorProveedor
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited TBXDock: TTBXDock
|
inherited TBXDock: TTBXDock
|
||||||
Width = 839
|
Width = 830
|
||||||
ExplicitWidth = 839
|
ExplicitWidth = 839
|
||||||
inherited tbxMain: TTBXToolbar
|
inherited tbxMain: TTBXToolbar
|
||||||
ExplicitWidth = 330
|
ExplicitWidth = 330
|
||||||
end
|
end
|
||||||
inherited tbxMenu: TTBXToolbar
|
inherited tbxMenu: TTBXToolbar
|
||||||
ExplicitWidth = 839
|
ExplicitWidth = 830
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited pgPaginas: TPageControl
|
inherited pgPaginas: TPageControl
|
||||||
Width = 833
|
Width = 824
|
||||||
Height = 516
|
Height = 519
|
||||||
ActivePage = pagGeneral
|
ActivePage = pagGeneral
|
||||||
ExplicitWidth = 833
|
ExplicitWidth = 833
|
||||||
ExplicitHeight = 451
|
ExplicitHeight = 516
|
||||||
inherited pagGeneral: TTabSheet
|
inherited pagGeneral: TTabSheet
|
||||||
ExplicitWidth = 825
|
ExplicitWidth = 825
|
||||||
ExplicitHeight = 423
|
ExplicitHeight = 488
|
||||||
inline frViewProveedor1: TfrViewProveedor
|
inline frViewProveedor1: TfrViewProveedor
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 825
|
Width = 816
|
||||||
Height = 488
|
Height = 491
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -80,56 +79,54 @@ inherited fEditorProveedor: TfEditorProveedor
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 825
|
ExplicitWidth = 825
|
||||||
ExplicitHeight = 423
|
ExplicitHeight = 488
|
||||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||||
Width = 825
|
Width = 816
|
||||||
Height = 488
|
Height = 491
|
||||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||||
ExplicitWidth = 825
|
ExplicitWidth = 825
|
||||||
ExplicitHeight = 423
|
ExplicitHeight = 488
|
||||||
inherited PngSpeedButton1: TPngSpeedButton
|
inherited PngSpeedButton1: TPngSpeedButton
|
||||||
Left = 780
|
Left = 771
|
||||||
Top = 218
|
Top = 218
|
||||||
ExplicitLeft = 780
|
ExplicitLeft = 771
|
||||||
ExplicitTop = 218
|
ExplicitTop = 218
|
||||||
end
|
end
|
||||||
inherited PngSpeedButton2: TPngSpeedButton
|
inherited PngSpeedButton2: TPngSpeedButton
|
||||||
Left = 780
|
Left = 771
|
||||||
Top = 190
|
Top = 190
|
||||||
ExplicitLeft = 780
|
ExplicitLeft = 771
|
||||||
ExplicitTop = 190
|
ExplicitTop = 190
|
||||||
end
|
end
|
||||||
inherited PngSpeedButton3: TPngSpeedButton
|
inherited PngSpeedButton3: TPngSpeedButton
|
||||||
Left = 780
|
Left = 771
|
||||||
Top = 162
|
Top = 162
|
||||||
ExplicitLeft = 780
|
ExplicitLeft = 771
|
||||||
ExplicitTop = 162
|
ExplicitTop = 162
|
||||||
end
|
end
|
||||||
inherited Label1: TLabel
|
inherited Label1: TLabel
|
||||||
Left = 504
|
Left = 493
|
||||||
Top = 297
|
Top = 251
|
||||||
Width = 342
|
ExplicitLeft = 493
|
||||||
ExplicitLeft = 504
|
ExplicitTop = 251
|
||||||
ExplicitTop = 297
|
|
||||||
ExplicitWidth = 342
|
|
||||||
end
|
end
|
||||||
inherited eCalle: TcxDBTextEdit
|
inherited eCalle: TcxDBTextEdit
|
||||||
Top = 267
|
Top = 267
|
||||||
ExplicitTop = 267
|
ExplicitTop = 267
|
||||||
ExplicitWidth = 174
|
ExplicitWidth = 366
|
||||||
Width = 174
|
Width = 366
|
||||||
end
|
end
|
||||||
inherited eProvincia: TcxDBTextEdit
|
inherited cbProvincia: TcxDBComboBox
|
||||||
Top = 321
|
|
||||||
ExplicitTop = 321
|
|
||||||
ExplicitWidth = 174
|
|
||||||
Width = 174
|
|
||||||
end
|
|
||||||
inherited ePoblacion: TcxDBTextEdit
|
|
||||||
Top = 294
|
Top = 294
|
||||||
ExplicitTop = 294
|
ExplicitTop = 294
|
||||||
ExplicitWidth = 108
|
ExplicitWidth = 265
|
||||||
Width = 108
|
Width = 265
|
||||||
|
end
|
||||||
|
inherited cbPoblacion: TcxDBComboBox
|
||||||
|
Top = 321
|
||||||
|
ExplicitTop = 321
|
||||||
|
ExplicitWidth = 366
|
||||||
|
Width = 366
|
||||||
end
|
end
|
||||||
inherited eCodigoPostal: TcxDBTextEdit
|
inherited eCodigoPostal: TcxDBTextEdit
|
||||||
Left = 411
|
Left = 411
|
||||||
@ -140,94 +137,86 @@ inherited fEditorProveedor: TfEditorProveedor
|
|||||||
inherited eObservaciones: TcxDBMemo
|
inherited eObservaciones: TcxDBMemo
|
||||||
Top = 399
|
Top = 399
|
||||||
ExplicitTop = 399
|
ExplicitTop = 399
|
||||||
ExplicitWidth = 580
|
ExplicitWidth = 772
|
||||||
ExplicitHeight = 56
|
ExplicitHeight = 76
|
||||||
Height = 56
|
Height = 76
|
||||||
Width = 580
|
Width = 772
|
||||||
end
|
|
||||||
inherited cxDBCheckBox1: TcxDBCheckBox
|
|
||||||
Left = 504
|
|
||||||
Top = 270
|
|
||||||
ExplicitLeft = 504
|
|
||||||
ExplicitTop = 270
|
|
||||||
ExplicitWidth = 310
|
|
||||||
Width = 310
|
|
||||||
end
|
end
|
||||||
inherited cxDBCheckBox2: TcxDBCheckBox
|
inherited cxDBCheckBox2: TcxDBCheckBox
|
||||||
Top = 189
|
Top = 189
|
||||||
ExplicitTop = 189
|
ExplicitTop = 189
|
||||||
ExplicitWidth = 326
|
ExplicitWidth = 478
|
||||||
Width = 326
|
Width = 478
|
||||||
end
|
end
|
||||||
inherited eCertificaciones: TcxDBTextEdit
|
inherited eCertificaciones: TcxDBTextEdit
|
||||||
Top = 216
|
Top = 216
|
||||||
ExplicitTop = 216
|
ExplicitTop = 216
|
||||||
ExplicitWidth = 227
|
ExplicitWidth = 366
|
||||||
Width = 227
|
Width = 366
|
||||||
end
|
end
|
||||||
inherited cbGrupoProveedor: TcxDBComboBox
|
inherited cbGrupoProveedor: TcxDBComboBox
|
||||||
Top = 138
|
Top = 138
|
||||||
ExplicitTop = 138
|
ExplicitTop = 138
|
||||||
ExplicitWidth = 227
|
ExplicitWidth = 277
|
||||||
Width = 227
|
Width = 277
|
||||||
end
|
end
|
||||||
inherited cbDescripcionProveedor: TcxDBComboBox
|
inherited cbDescripcionProveedor: TcxDBComboBox
|
||||||
Top = 84
|
Top = 84
|
||||||
ExplicitTop = 84
|
ExplicitTop = 84
|
||||||
ExplicitWidth = 221
|
ExplicitWidth = 366
|
||||||
Width = 221
|
Width = 366
|
||||||
end
|
end
|
||||||
inherited eCodigoAsignado: TcxDBTextEdit
|
inherited eCodigoAsignado: TcxDBTextEdit
|
||||||
Top = 111
|
Top = 111
|
||||||
ExplicitTop = 111
|
ExplicitTop = 111
|
||||||
ExplicitWidth = 221
|
ExplicitWidth = 366
|
||||||
Width = 221
|
Width = 366
|
||||||
end
|
end
|
||||||
inherited eTlfParticular: TcxDBTextEdit
|
inherited eTlfParticular: TcxDBTextEdit
|
||||||
Left = 599
|
Left = 599
|
||||||
Top = 57
|
Top = 57
|
||||||
ExplicitLeft = 599
|
ExplicitLeft = 599
|
||||||
ExplicitTop = 57
|
ExplicitTop = 57
|
||||||
ExplicitWidth = 172
|
ExplicitWidth = 171
|
||||||
Width = 172
|
Width = 171
|
||||||
end
|
end
|
||||||
inherited eTlfTrabajo: TcxDBTextEdit
|
inherited eTlfTrabajo: TcxDBTextEdit
|
||||||
Left = 599
|
Left = 599
|
||||||
Top = 30
|
Top = 30
|
||||||
ExplicitLeft = 599
|
ExplicitLeft = 599
|
||||||
ExplicitTop = 30
|
ExplicitTop = 30
|
||||||
ExplicitWidth = 172
|
ExplicitWidth = 171
|
||||||
Width = 172
|
Width = 171
|
||||||
end
|
end
|
||||||
inherited eTlfMovil: TcxDBTextEdit
|
inherited eTlfMovil: TcxDBTextEdit
|
||||||
Left = 599
|
Left = 599
|
||||||
Top = 84
|
Top = 84
|
||||||
ExplicitLeft = 599
|
ExplicitLeft = 599
|
||||||
ExplicitTop = 84
|
ExplicitTop = 84
|
||||||
ExplicitWidth = 172
|
ExplicitWidth = 171
|
||||||
Width = 172
|
Width = 171
|
||||||
end
|
end
|
||||||
inherited eFax: TcxDBTextEdit
|
inherited eFax: TcxDBTextEdit
|
||||||
Left = 599
|
Left = 599
|
||||||
Top = 111
|
Top = 111
|
||||||
ExplicitLeft = 599
|
ExplicitLeft = 599
|
||||||
ExplicitTop = 111
|
ExplicitTop = 111
|
||||||
ExplicitWidth = 172
|
ExplicitWidth = 171
|
||||||
Width = 172
|
Width = 171
|
||||||
end
|
end
|
||||||
inherited eNombre: TcxDBTextEdit
|
inherited eNombre: TcxDBTextEdit
|
||||||
Top = 57
|
Top = 57
|
||||||
ExplicitTop = 57
|
ExplicitTop = 57
|
||||||
ExplicitWidth = 263
|
ExplicitWidth = 366
|
||||||
Width = 263
|
Width = 366
|
||||||
end
|
end
|
||||||
inherited eNIFCIF: TcxDBTextEdit
|
inherited eNIFCIF: TcxDBTextEdit
|
||||||
Left = 260
|
Left = 261
|
||||||
Top = 30
|
Top = 30
|
||||||
ExplicitLeft = 260
|
ExplicitLeft = 261
|
||||||
ExplicitTop = 30
|
ExplicitTop = 30
|
||||||
ExplicitWidth = 254
|
ExplicitWidth = 229
|
||||||
Width = 254
|
Width = 229
|
||||||
end
|
end
|
||||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||||
Left = 599
|
Left = 599
|
||||||
@ -235,8 +224,8 @@ inherited fEditorProveedor: TfEditorProveedor
|
|||||||
Properties.Prefix = 'mailto:'
|
Properties.Prefix = 'mailto:'
|
||||||
ExplicitLeft = 599
|
ExplicitLeft = 599
|
||||||
ExplicitTop = 162
|
ExplicitTop = 162
|
||||||
ExplicitWidth = 129
|
ExplicitWidth = 142
|
||||||
Width = 129
|
Width = 142
|
||||||
end
|
end
|
||||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||||
Left = 599
|
Left = 599
|
||||||
@ -244,8 +233,8 @@ inherited fEditorProveedor: TfEditorProveedor
|
|||||||
Properties.Prefix = 'mailto:'
|
Properties.Prefix = 'mailto:'
|
||||||
ExplicitLeft = 599
|
ExplicitLeft = 599
|
||||||
ExplicitTop = 190
|
ExplicitTop = 190
|
||||||
ExplicitWidth = 165
|
ExplicitWidth = 142
|
||||||
Width = 165
|
Width = 142
|
||||||
end
|
end
|
||||||
inherited cxDBCheckBox3: TcxDBCheckBox
|
inherited cxDBCheckBox3: TcxDBCheckBox
|
||||||
Left = 393
|
Left = 393
|
||||||
@ -258,40 +247,46 @@ inherited fEditorProveedor: TfEditorProveedor
|
|||||||
Top = 217
|
Top = 217
|
||||||
ExplicitLeft = 599
|
ExplicitLeft = 599
|
||||||
ExplicitTop = 217
|
ExplicitTop = 217
|
||||||
ExplicitWidth = 165
|
ExplicitWidth = 142
|
||||||
Width = 165
|
Width = 142
|
||||||
end
|
end
|
||||||
inherited eReferencia: TcxDBTextEdit
|
inherited eReferencia: TcxDBTextEdit
|
||||||
Top = 30
|
Top = 30
|
||||||
ExplicitTop = 30
|
ExplicitTop = 30
|
||||||
ExplicitWidth = 100
|
ExplicitWidth = 84
|
||||||
Width = 100
|
Width = 84
|
||||||
end
|
end
|
||||||
inherited ePersonaContacto: TcxDBTextEdit
|
inherited ePersonaContacto: TcxDBTextEdit
|
||||||
Top = 348
|
Top = 348
|
||||||
ExplicitTop = 348
|
ExplicitTop = 348
|
||||||
ExplicitWidth = 253
|
ExplicitWidth = 366
|
||||||
Width = 253
|
Width = 366
|
||||||
|
end
|
||||||
|
inherited cxDBCheckBox1: TcxDBCheckBox
|
||||||
|
Left = 493
|
||||||
|
Top = 283
|
||||||
|
ExplicitLeft = 493
|
||||||
|
ExplicitTop = 283
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited pagDatosBancarios: TTabSheet
|
inherited pagDatosBancarios: TTabSheet
|
||||||
ExplicitWidth = 825
|
ExplicitWidth = 825
|
||||||
ExplicitHeight = 423
|
ExplicitHeight = 488
|
||||||
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
|
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
|
||||||
Width = 825
|
Width = 816
|
||||||
Height = 488
|
Height = 491
|
||||||
ExplicitWidth = 825
|
ExplicitWidth = 825
|
||||||
ExplicitHeight = 423
|
ExplicitHeight = 488
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 825
|
Width = 816
|
||||||
Height = 463
|
Height = 466
|
||||||
ExplicitWidth = 825
|
ExplicitWidth = 825
|
||||||
ExplicitHeight = 398
|
ExplicitHeight = 398
|
||||||
end
|
end
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 825
|
Width = 816
|
||||||
ExplicitWidth = 825
|
ExplicitWidth = 825
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -299,11 +294,12 @@ inherited fEditorProveedor: TfEditorProveedor
|
|||||||
object pagDatosComerciales: TTabSheet [2]
|
object pagDatosComerciales: TTabSheet [2]
|
||||||
Caption = 'Datos comerciales'
|
Caption = 'Datos comerciales'
|
||||||
ImageIndex = 2
|
ImageIndex = 2
|
||||||
ExplicitHeight = 423
|
ExplicitWidth = 825
|
||||||
|
ExplicitHeight = 488
|
||||||
inline frViewProveedorDatosComerciales1: TfrViewProveedorDatosComerciales
|
inline frViewProveedorDatosComerciales1: TfrViewProveedorDatosComerciales
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 825
|
Width = 816
|
||||||
Height = 121
|
Height = 121
|
||||||
Align = alTop
|
Align = alTop
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
@ -317,54 +313,54 @@ inherited fEditorProveedor: TfEditorProveedor
|
|||||||
ExplicitWidth = 825
|
ExplicitWidth = 825
|
||||||
ExplicitHeight = 121
|
ExplicitHeight = 121
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 825
|
Width = 816
|
||||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||||
ExplicitWidth = 825
|
ExplicitWidth = 825
|
||||||
inherited Label1: TLabel
|
inherited Label1: TLabel
|
||||||
Left = 533
|
Left = 527
|
||||||
Top = 30
|
Top = 30
|
||||||
Width = 190
|
Width = 190
|
||||||
ExplicitLeft = 533
|
ExplicitLeft = 527
|
||||||
ExplicitTop = 30
|
ExplicitTop = 30
|
||||||
ExplicitWidth = 190
|
ExplicitWidth = 190
|
||||||
end
|
end
|
||||||
inherited cbRegimenIVA: TcxDBComboBox
|
inherited cbRegimenIVA: TcxDBComboBox
|
||||||
Top = 30
|
Top = 30
|
||||||
ExplicitTop = 30
|
ExplicitTop = 30
|
||||||
ExplicitWidth = 121
|
ExplicitWidth = 398
|
||||||
Width = 121
|
Width = 398
|
||||||
end
|
end
|
||||||
inherited cbFormaPago: TcxDBLookupComboBox
|
inherited cbFormaPago: TcxDBLookupComboBox
|
||||||
Top = 57
|
Top = 57
|
||||||
ExplicitTop = 57
|
ExplicitTop = 57
|
||||||
ExplicitWidth = 121
|
ExplicitWidth = 260
|
||||||
Width = 121
|
Width = 260
|
||||||
end
|
end
|
||||||
inherited bFormasPago: TButton
|
inherited bFormasPago: TButton
|
||||||
Left = 373
|
Left = 367
|
||||||
Top = 57
|
Top = 57
|
||||||
ExplicitLeft = 373
|
ExplicitLeft = 367
|
||||||
ExplicitTop = 57
|
ExplicitTop = 57
|
||||||
end
|
end
|
||||||
inherited eIVA: TcxDBLookupComboBox
|
inherited eIVA: TcxDBLookupComboBox
|
||||||
Top = 84
|
Top = 84
|
||||||
ExplicitTop = 84
|
ExplicitTop = 84
|
||||||
ExplicitWidth = 121
|
ExplicitWidth = 260
|
||||||
Width = 121
|
Width = 260
|
||||||
end
|
end
|
||||||
inherited bTiposIVA: TButton
|
inherited bTiposIVA: TButton
|
||||||
Left = 373
|
Left = 367
|
||||||
Top = 84
|
Top = 84
|
||||||
ExplicitLeft = 373
|
ExplicitLeft = 367
|
||||||
ExplicitTop = 84
|
ExplicitTop = 84
|
||||||
end
|
end
|
||||||
inherited eDescuento: TcxDBSpinEdit
|
inherited eDescuento: TcxDBSpinEdit
|
||||||
Left = 577
|
Left = 571
|
||||||
Top = 62
|
Top = 62
|
||||||
ExplicitLeft = 577
|
ExplicitLeft = 571
|
||||||
ExplicitTop = 62
|
ExplicitTop = 62
|
||||||
ExplicitWidth = 73
|
ExplicitWidth = 226
|
||||||
Width = 73
|
Width = 226
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -372,12 +368,13 @@ inherited fEditorProveedor: TfEditorProveedor
|
|||||||
object pagDirecciones: TTabSheet [3]
|
object pagDirecciones: TTabSheet [3]
|
||||||
Caption = 'Direcciones'
|
Caption = 'Direcciones'
|
||||||
ImageIndex = 3
|
ImageIndex = 3
|
||||||
ExplicitHeight = 423
|
ExplicitWidth = 825
|
||||||
|
ExplicitHeight = 488
|
||||||
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
|
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 825
|
Width = 816
|
||||||
Height = 488
|
Height = 491
|
||||||
Align = alClient
|
Align = alClient
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -388,15 +385,15 @@ inherited fEditorProveedor: TfEditorProveedor
|
|||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitWidth = 825
|
ExplicitWidth = 825
|
||||||
ExplicitHeight = 423
|
ExplicitHeight = 488
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 825
|
Width = 816
|
||||||
Height = 463
|
Height = 466
|
||||||
ExplicitWidth = 825
|
ExplicitWidth = 825
|
||||||
ExplicitHeight = 398
|
ExplicitHeight = 398
|
||||||
end
|
end
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 825
|
Width = 816
|
||||||
ExplicitWidth = 825
|
ExplicitWidth = 825
|
||||||
inherited ToolButton1: TToolButton
|
inherited ToolButton1: TToolButton
|
||||||
ExplicitWidth = 113
|
ExplicitWidth = 113
|
||||||
@ -415,29 +412,29 @@ inherited fEditorProveedor: TfEditorProveedor
|
|||||||
end
|
end
|
||||||
inherited pagPersonal: TTabSheet
|
inherited pagPersonal: TTabSheet
|
||||||
ExplicitWidth = 825
|
ExplicitWidth = 825
|
||||||
ExplicitHeight = 423
|
ExplicitHeight = 488
|
||||||
inherited frViewPersonalContacto1: TfrViewPersonalContacto
|
inherited frViewPersonalContacto1: TfrViewPersonalContacto
|
||||||
Width = 825
|
Width = 816
|
||||||
Height = 488
|
Height = 491
|
||||||
ExplicitWidth = 825
|
ExplicitWidth = 825
|
||||||
ExplicitHeight = 423
|
ExplicitHeight = 488
|
||||||
inherited cxGrid: TcxGrid
|
inherited cxGrid: TcxGrid
|
||||||
Width = 825
|
Width = 816
|
||||||
Height = 463
|
Height = 466
|
||||||
ExplicitWidth = 825
|
ExplicitWidth = 825
|
||||||
ExplicitHeight = 398
|
ExplicitHeight = 398
|
||||||
end
|
end
|
||||||
inherited ToolBar1: TToolBar
|
inherited ToolBar1: TToolBar
|
||||||
Width = 825
|
Width = 816
|
||||||
ExplicitWidth = 825
|
ExplicitWidth = 825
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited StatusBar: TJvStatusBar
|
inherited StatusBar: TJvStatusBar
|
||||||
Top = 598
|
Top = 601
|
||||||
Width = 839
|
Width = 830
|
||||||
ExplicitTop = 533
|
ExplicitTop = 598
|
||||||
ExplicitWidth = 839
|
ExplicitWidth = 839
|
||||||
end
|
end
|
||||||
inherited EditorActionList: TActionList
|
inherited EditorActionList: TActionList
|
||||||
|
|||||||
@ -1,32 +1,32 @@
|
|||||||
inherited frViewCliente: TfrViewCliente
|
inherited frViewCliente: TfrViewCliente
|
||||||
Width = 742
|
Width = 777
|
||||||
Height = 470
|
Height = 506
|
||||||
OnCreate = CustomViewCreate
|
OnCreate = CustomViewCreate
|
||||||
OnDestroy = CustomViewDestroy
|
OnDestroy = CustomViewDestroy
|
||||||
ExplicitWidth = 742
|
ExplicitWidth = 777
|
||||||
ExplicitHeight = 470
|
ExplicitHeight = 506
|
||||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||||
Width = 742
|
Width = 777
|
||||||
Height = 470
|
Height = 506
|
||||||
ExplicitWidth = 646
|
ExplicitWidth = 777
|
||||||
ExplicitHeight = 470
|
ExplicitHeight = 506
|
||||||
inherited PngSpeedButton1: TPngSpeedButton
|
inherited PngSpeedButton1: TPngSpeedButton
|
||||||
Left = 680
|
Left = 732
|
||||||
ExplicitLeft = 680
|
ExplicitLeft = 732
|
||||||
end
|
end
|
||||||
inherited PngSpeedButton2: TPngSpeedButton
|
inherited PngSpeedButton2: TPngSpeedButton
|
||||||
Left = 680
|
Left = 732
|
||||||
ExplicitLeft = 680
|
ExplicitLeft = 732
|
||||||
end
|
end
|
||||||
inherited PngSpeedButton3: TPngSpeedButton
|
inherited PngSpeedButton3: TPngSpeedButton
|
||||||
Left = 680
|
Left = 732
|
||||||
ExplicitLeft = 680
|
ExplicitLeft = 732
|
||||||
end
|
end
|
||||||
object Label1: TLabel [3]
|
object Label1: TLabel [3]
|
||||||
Left = 423
|
Left = 410
|
||||||
Top = 280
|
Top = 262
|
||||||
Width = 269
|
Width = 161
|
||||||
Height = 39
|
Height = 65
|
||||||
Margins.Bottom = 0
|
Margins.Bottom = 0
|
||||||
Caption =
|
Caption =
|
||||||
'Para que el cliente pueda tener acceso a la tienda web, obligato' +
|
'Para que el cliente pueda tener acceso a la tienda web, obligato' +
|
||||||
@ -36,65 +36,46 @@ inherited frViewCliente: TfrViewCliente
|
|||||||
inherited eCalle: TcxDBTextEdit
|
inherited eCalle: TcxDBTextEdit
|
||||||
Left = 132
|
Left = 132
|
||||||
Top = 277
|
Top = 277
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 8
|
TabOrder = 8
|
||||||
ExplicitLeft = 132
|
ExplicitLeft = 132
|
||||||
ExplicitTop = 277
|
ExplicitTop = 277
|
||||||
ExplicitWidth = 175
|
ExplicitWidth = 260
|
||||||
Width = 175
|
Width = 260
|
||||||
end
|
end
|
||||||
inherited eProvincia: TcxDBTextEdit
|
inherited cbProvincia: TcxDBComboBox
|
||||||
Left = 132
|
|
||||||
Top = 331
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 11
|
|
||||||
ExplicitLeft = 132
|
|
||||||
ExplicitTop = 331
|
|
||||||
ExplicitWidth = 167
|
|
||||||
Width = 167
|
|
||||||
end
|
|
||||||
inherited ePoblacion: TcxDBTextEdit
|
|
||||||
Left = 132
|
Left = 132
|
||||||
Top = 304
|
Top = 304
|
||||||
Style.LookAndFeel.SkinName = ''
|
Properties.OnValidate = nil
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 9
|
TabOrder = 9
|
||||||
ExplicitLeft = 132
|
ExplicitLeft = 132
|
||||||
ExplicitTop = 304
|
ExplicitTop = 304
|
||||||
ExplicitWidth = 71
|
ExplicitWidth = 159
|
||||||
Width = 71
|
Width = 159
|
||||||
|
end
|
||||||
|
inherited cbPoblacion: TcxDBComboBox
|
||||||
|
Left = 132
|
||||||
|
Top = 331
|
||||||
|
TabOrder = 11
|
||||||
|
ExplicitLeft = 132
|
||||||
|
ExplicitTop = 331
|
||||||
|
ExplicitWidth = 260
|
||||||
|
Width = 260
|
||||||
end
|
end
|
||||||
inherited eCodigoPostal: TcxDBTextEdit
|
inherited eCodigoPostal: TcxDBTextEdit
|
||||||
Left = 328
|
Left = 327
|
||||||
Top = 304
|
Top = 304
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 10
|
TabOrder = 10
|
||||||
ExplicitLeft = 328
|
ExplicitLeft = 327
|
||||||
ExplicitTop = 304
|
ExplicitTop = 304
|
||||||
end
|
end
|
||||||
inherited eObservaciones: TcxDBMemo
|
inherited eObservaciones: TcxDBMemo
|
||||||
Top = 415
|
Top = 415
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 21
|
TabOrder = 21
|
||||||
ExplicitTop = 415
|
ExplicitTop = 415
|
||||||
ExplicitWidth = 609
|
ExplicitWidth = 733
|
||||||
ExplicitHeight = 42
|
ExplicitHeight = 69
|
||||||
Height = 42
|
Height = 69
|
||||||
Width = 609
|
Width = 733
|
||||||
end
|
end
|
||||||
object eNombreComercial: TcxDBTextEdit [9]
|
object eNombreComercial: TcxDBTextEdit [9]
|
||||||
Left = 132
|
Left = 132
|
||||||
@ -107,18 +88,14 @@ inherited frViewCliente: TfrViewCliente
|
|||||||
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 = 3
|
TabOrder = 3
|
||||||
Width = 143
|
Width = 260
|
||||||
end
|
end
|
||||||
object cbClienteBloqueado: TcxDBCheckBox [10]
|
object cbClienteBloqueado: TcxDBCheckBox [10]
|
||||||
Left = 22
|
Left = 22
|
||||||
@ -135,18 +112,14 @@ inherited frViewCliente: TfrViewCliente
|
|||||||
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 = 6
|
TabOrder = 6
|
||||||
Width = 163
|
Width = 370
|
||||||
end
|
end
|
||||||
object cbGrupoCliente: TcxDBComboBox [11]
|
object cbGrupoCliente: TcxDBComboBox [11]
|
||||||
Left = 132
|
Left = 132
|
||||||
@ -161,20 +134,16 @@ inherited frViewCliente: TfrViewCliente
|
|||||||
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 = ''
|
|
||||||
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
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 5
|
TabOrder = 5
|
||||||
Width = 87
|
Width = 260
|
||||||
end
|
end
|
||||||
object eBloqueo: TcxDBTextEdit [12]
|
object eBloqueo: TcxDBTextEdit [12]
|
||||||
Left = 132
|
Left = 132
|
||||||
@ -186,22 +155,94 @@ inherited frViewCliente: TfrViewCliente
|
|||||||
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 = 7
|
TabOrder = 7
|
||||||
Width = 113
|
Width = 260
|
||||||
end
|
end
|
||||||
object cxDBCheckBox1: TcxDBCheckBox [13]
|
object eCodigoAsignado: TcxDBTextEdit [13]
|
||||||
Left = 423
|
Left = 132
|
||||||
Top = 325
|
Top = 109
|
||||||
|
DataBinding.DataField = 'CODIGO_ASIGNADO'
|
||||||
|
DataBinding.DataSource = dsContacto
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.Color = clWindow
|
||||||
|
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 = 4
|
||||||
|
Width = 260
|
||||||
|
end
|
||||||
|
inherited eTlfParticular: TcxDBTextEdit
|
||||||
|
Left = 517
|
||||||
|
TabOrder = 14
|
||||||
|
ExplicitLeft = 517
|
||||||
|
ExplicitWidth = 238
|
||||||
|
Width = 238
|
||||||
|
end
|
||||||
|
inherited eTlfTrabajo: TcxDBTextEdit
|
||||||
|
Left = 517
|
||||||
|
TabOrder = 13
|
||||||
|
ExplicitLeft = 517
|
||||||
|
ExplicitWidth = 238
|
||||||
|
Width = 238
|
||||||
|
end
|
||||||
|
inherited eTlfMovil: TcxDBTextEdit
|
||||||
|
Left = 517
|
||||||
|
TabOrder = 15
|
||||||
|
ExplicitLeft = 517
|
||||||
|
ExplicitWidth = 238
|
||||||
|
Width = 238
|
||||||
|
end
|
||||||
|
inherited eFax: TcxDBTextEdit
|
||||||
|
Left = 517
|
||||||
|
TabOrder = 16
|
||||||
|
ExplicitLeft = 517
|
||||||
|
ExplicitWidth = 238
|
||||||
|
Width = 238
|
||||||
|
end
|
||||||
|
inherited eNombre: TcxDBTextEdit
|
||||||
|
Left = 132
|
||||||
|
ExplicitLeft = 132
|
||||||
|
ExplicitWidth = 260
|
||||||
|
Width = 260
|
||||||
|
end
|
||||||
|
inherited eNIFCIF: TcxDBTextEdit
|
||||||
|
Left = 301
|
||||||
|
ExplicitLeft = 301
|
||||||
|
ExplicitWidth = 91
|
||||||
|
Width = 91
|
||||||
|
end
|
||||||
|
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||||
|
Left = 517
|
||||||
|
Properties.Prefix = 'mailto:'
|
||||||
|
TabOrder = 17
|
||||||
|
ExplicitLeft = 517
|
||||||
|
ExplicitWidth = 209
|
||||||
|
Width = 209
|
||||||
|
end
|
||||||
|
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||||
|
Left = 517
|
||||||
|
Properties.Prefix = 'mailto:'
|
||||||
|
TabOrder = 18
|
||||||
|
ExplicitLeft = 517
|
||||||
|
ExplicitWidth = 209
|
||||||
|
Width = 209
|
||||||
|
end
|
||||||
|
object cxDBCheckBox1: TcxDBCheckBox [22]
|
||||||
|
Left = 410
|
||||||
|
Top = 333
|
||||||
Caption = 'Permitir el acceso de este cliente a la tienda web'
|
Caption = 'Permitir el acceso de este cliente a la tienda web'
|
||||||
DataBinding.DataField = 'TIENDA_WEB'
|
DataBinding.DataField = 'TIENDA_WEB'
|
||||||
DataBinding.DataSource = dsContacto
|
DataBinding.DataSource = dsContacto
|
||||||
@ -215,160 +256,34 @@ inherited frViewCliente: TfrViewCliente
|
|||||||
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 = 20
|
TabOrder = 20
|
||||||
Width = 276
|
Width = 357
|
||||||
end
|
|
||||||
inherited eTlfParticular: TcxDBTextEdit
|
|
||||||
Left = 518
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 14
|
|
||||||
ExplicitLeft = 518
|
|
||||||
ExplicitWidth = 157
|
|
||||||
Width = 157
|
|
||||||
end
|
|
||||||
inherited eTlfTrabajo: TcxDBTextEdit
|
|
||||||
Left = 518
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 13
|
|
||||||
ExplicitLeft = 518
|
|
||||||
ExplicitWidth = 157
|
|
||||||
Width = 157
|
|
||||||
end
|
|
||||||
inherited eTlfMovil: TcxDBTextEdit
|
|
||||||
Left = 518
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 15
|
|
||||||
ExplicitLeft = 518
|
|
||||||
ExplicitWidth = 157
|
|
||||||
Width = 157
|
|
||||||
end
|
|
||||||
inherited eFax: TcxDBTextEdit
|
|
||||||
Left = 518
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 16
|
|
||||||
ExplicitLeft = 518
|
|
||||||
ExplicitWidth = 157
|
|
||||||
Width = 157
|
|
||||||
end
|
|
||||||
inherited eNombre: TcxDBTextEdit
|
|
||||||
Left = 132
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 132
|
|
||||||
ExplicitWidth = 135
|
|
||||||
Width = 135
|
|
||||||
end
|
|
||||||
object eCodigoAsignado: TcxDBTextEdit [19]
|
|
||||||
Left = 132
|
|
||||||
Top = 109
|
|
||||||
DataBinding.DataField = 'CODIGO_ASIGNADO'
|
|
||||||
DataBinding.DataSource = dsContacto
|
|
||||||
Style.BorderColor = clWindowFrame
|
|
||||||
Style.BorderStyle = ebs3D
|
|
||||||
Style.Color = clWindow
|
|
||||||
Style.HotTrack = False
|
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
|
||||||
Style.LookAndFeel.NativeStyle = True
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 4
|
|
||||||
Width = 227
|
|
||||||
end
|
|
||||||
inherited eNIFCIF: TcxDBTextEdit
|
|
||||||
Left = 289
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 289
|
|
||||||
ExplicitWidth = 58
|
|
||||||
Width = 58
|
|
||||||
end
|
|
||||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
|
||||||
Left = 518
|
|
||||||
Properties.Prefix = 'mailto:'
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 17
|
|
||||||
ExplicitLeft = 518
|
|
||||||
ExplicitWidth = 128
|
|
||||||
Width = 128
|
|
||||||
end
|
|
||||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
|
||||||
Left = 518
|
|
||||||
Properties.Prefix = 'mailto:'
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 18
|
|
||||||
ExplicitLeft = 518
|
|
||||||
ExplicitWidth = 128
|
|
||||||
Width = 128
|
|
||||||
end
|
end
|
||||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||||
Left = 518
|
Left = 517
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 19
|
TabOrder = 19
|
||||||
ExplicitLeft = 518
|
ExplicitLeft = 517
|
||||||
ExplicitWidth = 128
|
ExplicitWidth = 209
|
||||||
Width = 128
|
Width = 209
|
||||||
end
|
end
|
||||||
inherited eReferencia: TcxDBTextEdit
|
inherited eReferencia: TcxDBTextEdit
|
||||||
Left = 132
|
Left = 132
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
ExplicitLeft = 132
|
ExplicitLeft = 132
|
||||||
end
|
end
|
||||||
inherited ePersonaContacto: TcxDBTextEdit
|
inherited ePersonaContacto: TcxDBTextEdit
|
||||||
Left = 132
|
Left = 132
|
||||||
Top = 358
|
Top = 358
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 12
|
TabOrder = 12
|
||||||
ExplicitLeft = 132
|
ExplicitLeft = 132
|
||||||
ExplicitTop = 358
|
ExplicitTop = 358
|
||||||
|
ExplicitWidth = 260
|
||||||
|
Width = 260
|
||||||
end
|
end
|
||||||
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
|
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
|
||||||
AutoAligns = [aaHorizontal]
|
AutoAligns = [aaHorizontal]
|
||||||
@ -415,22 +330,22 @@ inherited frViewCliente: TfrViewCliente
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited dxLayoutControlContactoGroup6: TdxLayoutGroup
|
inherited dxLayoutControlContactoGroup6: TdxLayoutGroup
|
||||||
object dxLayoutControlContactoGroup10: TdxLayoutGroup
|
object dxLayoutControlContactoItem20: TdxLayoutItem
|
||||||
AutoAligns = [aaHorizontal]
|
AutoAligns = [aaVertical]
|
||||||
AlignVert = avClient
|
AlignHorz = ahClient
|
||||||
Caption = 'Acceso a la tienda web'
|
ShowCaption = False
|
||||||
Visible = False
|
Visible = False
|
||||||
object dxLayoutControlContactoItem21: TdxLayoutItem
|
Control = Label1
|
||||||
ShowCaption = False
|
ControlOptions.AutoColor = True
|
||||||
Control = Label1
|
ControlOptions.ShowBorder = False
|
||||||
ControlOptions.AutoColor = True
|
end
|
||||||
ControlOptions.ShowBorder = False
|
object dxLayoutControlContactoItem21: TdxLayoutItem
|
||||||
end
|
AutoAligns = [aaVertical]
|
||||||
object dxLayoutControlContactoItem20: TdxLayoutItem
|
AlignHorz = ahClient
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
Control = cxDBCheckBox1
|
Visible = False
|
||||||
ControlOptions.ShowBorder = False
|
Control = cxDBCheckBox1
|
||||||
end
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -35,13 +35,12 @@ type
|
|||||||
dxLayoutControlContactoItem16: TdxLayoutItem;
|
dxLayoutControlContactoItem16: TdxLayoutItem;
|
||||||
eBloqueo: TcxDBTextEdit;
|
eBloqueo: TcxDBTextEdit;
|
||||||
actBloqueoCliente: TAction;
|
actBloqueoCliente: TAction;
|
||||||
dxLayoutControlContactoGroup10: TdxLayoutGroup;
|
|
||||||
dxLayoutControlContactoItem20: TdxLayoutItem;
|
|
||||||
cxDBCheckBox1: TcxDBCheckBox;
|
|
||||||
dxLayoutControlContactoItem21: TdxLayoutItem;
|
|
||||||
Label1: TLabel;
|
|
||||||
dxLayoutControlContactoItem22: TdxLayoutItem;
|
dxLayoutControlContactoItem22: TdxLayoutItem;
|
||||||
eCodigoAsignado: TcxDBTextEdit;
|
eCodigoAsignado: TcxDBTextEdit;
|
||||||
|
dxLayoutControlContactoItem20: TdxLayoutItem;
|
||||||
|
Label1: TLabel;
|
||||||
|
dxLayoutControlContactoItem21: TdxLayoutItem;
|
||||||
|
cxDBCheckBox1: TcxDBCheckBox;
|
||||||
procedure cbGrupoClientePropertiesInitPopup(Sender: TObject);
|
procedure cbGrupoClientePropertiesInitPopup(Sender: TObject);
|
||||||
procedure cbGrupoClientePropertiesValidate(Sender: TObject;
|
procedure cbGrupoClientePropertiesValidate(Sender: TObject;
|
||||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||||
|
|||||||
@ -112,65 +112,65 @@ 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 = 3
|
TabOrder = 3
|
||||||
Width = 181
|
Width = 256
|
||||||
end
|
end
|
||||||
object eProvincia: TcxDBTextEdit
|
object cbProvincia: TcxDBComboBox
|
||||||
Left = 115
|
|
||||||
Top = 196
|
|
||||||
DataBinding.DataField = 'PROVINCIA'
|
|
||||||
DataBinding.DataSource = dsContacto
|
|
||||||
Style.BorderColor = clWindowFrame
|
|
||||||
Style.BorderStyle = ebs3D
|
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
|
||||||
Style.LookAndFeel.NativeStyle = True
|
|
||||||
Style.LookAndFeel.SkinName = ''
|
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
|
||||||
StyleDisabled.LookAndFeel.SkinName = ''
|
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
|
||||||
StyleFocused.LookAndFeel.SkinName = ''
|
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 6
|
|
||||||
Width = 133
|
|
||||||
end
|
|
||||||
object ePoblacion: TcxDBTextEdit
|
|
||||||
Left = 115
|
Left = 115
|
||||||
Top = 169
|
Top = 169
|
||||||
DataBinding.DataField = 'POBLACION'
|
DataBinding.DataField = 'PROVINCIA'
|
||||||
DataBinding.DataSource = dsContacto
|
DataBinding.DataSource = dsContacto
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.ImmediateUpdateText = True
|
||||||
|
Properties.PostPopupValueOnTab = True
|
||||||
|
Properties.OnInitPopup = eProvinciaPropertiesInitPopup
|
||||||
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 = ''
|
Style.ButtonStyle = bts3D
|
||||||
|
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
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
Width = 111
|
Width = 155
|
||||||
|
end
|
||||||
|
object cbPoblacion: TcxDBComboBox
|
||||||
|
Left = 115
|
||||||
|
Top = 196
|
||||||
|
DataBinding.DataField = 'POBLACION'
|
||||||
|
DataBinding.DataSource = dsContacto
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.ImmediateUpdateText = True
|
||||||
|
Properties.PostPopupValueOnTab = True
|
||||||
|
Properties.OnInitPopup = cbPoblacionPropertiesInitPopup
|
||||||
|
Style.BorderColor = clWindowFrame
|
||||||
|
Style.BorderStyle = ebs3D
|
||||||
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.ButtonStyle = bts3D
|
||||||
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
|
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 = 6
|
||||||
|
Width = 256
|
||||||
end
|
end
|
||||||
object eCodigoPostal: TcxDBTextEdit
|
object eCodigoPostal: TcxDBTextEdit
|
||||||
Left = 303
|
Left = 306
|
||||||
Top = 169
|
Top = 169
|
||||||
DataBinding.DataField = 'CODIGO_POSTAL'
|
DataBinding.DataField = 'CODIGO_POSTAL'
|
||||||
DataBinding.DataSource = dsContacto
|
DataBinding.DataSource = dsContacto
|
||||||
@ -178,16 +178,12 @@ 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 = 5
|
TabOrder = 5
|
||||||
Width = 65
|
Width = 65
|
||||||
end
|
end
|
||||||
@ -201,22 +197,18 @@ 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 = 15
|
TabOrder = 15
|
||||||
Height = 54
|
Height = 86
|
||||||
Width = 630
|
Width = 630
|
||||||
end
|
end
|
||||||
object eTlfParticular: TcxDBTextEdit
|
object eTlfParticular: TcxDBTextEdit
|
||||||
Left = 493
|
Left = 496
|
||||||
Top = 55
|
Top = 55
|
||||||
DataBinding.DataField = 'TELEFONO_2'
|
DataBinding.DataField = 'TELEFONO_2'
|
||||||
DataBinding.DataSource = dsContacto
|
DataBinding.DataSource = dsContacto
|
||||||
@ -224,21 +216,17 @@ 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 = 156
|
||||||
end
|
end
|
||||||
object eTlfTrabajo: TcxDBTextEdit
|
object eTlfTrabajo: TcxDBTextEdit
|
||||||
Left = 493
|
Left = 496
|
||||||
Top = 28
|
Top = 28
|
||||||
DataBinding.DataField = 'TELEFONO_1'
|
DataBinding.DataField = 'TELEFONO_1'
|
||||||
DataBinding.DataSource = dsContacto
|
DataBinding.DataSource = dsContacto
|
||||||
@ -246,21 +234,17 @@ 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 = 156
|
||||||
end
|
end
|
||||||
object eTlfMovil: TcxDBTextEdit
|
object eTlfMovil: TcxDBTextEdit
|
||||||
Left = 493
|
Left = 496
|
||||||
Top = 82
|
Top = 82
|
||||||
DataBinding.DataField = 'MOVIL_1'
|
DataBinding.DataField = 'MOVIL_1'
|
||||||
DataBinding.DataSource = dsContacto
|
DataBinding.DataSource = dsContacto
|
||||||
@ -268,21 +252,17 @@ 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 = 156
|
||||||
end
|
end
|
||||||
object eFax: TcxDBTextEdit
|
object eFax: TcxDBTextEdit
|
||||||
Left = 493
|
Left = 496
|
||||||
Top = 109
|
Top = 109
|
||||||
DataBinding.DataField = 'FAX'
|
DataBinding.DataField = 'FAX'
|
||||||
DataBinding.DataSource = dsContacto
|
DataBinding.DataSource = dsContacto
|
||||||
@ -290,18 +270,14 @@ 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 = 156
|
||||||
end
|
end
|
||||||
object eNombre: TcxDBTextEdit
|
object eNombre: TcxDBTextEdit
|
||||||
Left = 115
|
Left = 115
|
||||||
@ -314,21 +290,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
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
Width = 221
|
Width = 256
|
||||||
end
|
end
|
||||||
object eNIFCIF: TcxDBTextEdit
|
object eNIFCIF: TcxDBTextEdit
|
||||||
Left = 265
|
Left = 267
|
||||||
Top = 28
|
Top = 28
|
||||||
DataBinding.DataField = 'NIF_CIF'
|
DataBinding.DataField = 'NIF_CIF'
|
||||||
DataBinding.DataSource = dsContacto
|
DataBinding.DataSource = dsContacto
|
||||||
@ -337,21 +309,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
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
Width = 57
|
Width = 104
|
||||||
end
|
end
|
||||||
object eMailTrabajo: TcxDBHyperLinkEdit
|
object eMailTrabajo: TcxDBHyperLinkEdit
|
||||||
Left = 493
|
Left = 496
|
||||||
Top = 166
|
Top = 166
|
||||||
DataBinding.DataField = 'EMAIL_1'
|
DataBinding.DataField = 'EMAIL_1'
|
||||||
DataBinding.DataSource = dsContacto
|
DataBinding.DataSource = dsContacto
|
||||||
@ -363,21 +331,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
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 12
|
TabOrder = 12
|
||||||
Width = 133
|
Width = 127
|
||||||
end
|
end
|
||||||
object eMailParticular: TcxDBHyperLinkEdit
|
object eMailParticular: TcxDBHyperLinkEdit
|
||||||
Left = 493
|
Left = 496
|
||||||
Top = 194
|
Top = 194
|
||||||
DataBinding.DataField = 'EMAIL_2'
|
DataBinding.DataField = 'EMAIL_2'
|
||||||
DataBinding.DataSource = dsContacto
|
DataBinding.DataSource = dsContacto
|
||||||
@ -389,21 +353,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
|
||||||
StyleHot.LookAndFeel.SkinName = ''
|
|
||||||
TabOrder = 13
|
TabOrder = 13
|
||||||
Width = 133
|
Width = 127
|
||||||
end
|
end
|
||||||
object ePaginaWeb: TcxDBHyperLinkEdit
|
object ePaginaWeb: TcxDBHyperLinkEdit
|
||||||
Left = 493
|
Left = 496
|
||||||
Top = 221
|
Top = 221
|
||||||
DataBinding.DataField = 'PAGINA_WEB'
|
DataBinding.DataField = 'PAGINA_WEB'
|
||||||
DataBinding.DataSource = dsContacto
|
DataBinding.DataSource = dsContacto
|
||||||
@ -415,18 +375,14 @@ 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 = 127
|
||||||
end
|
end
|
||||||
object eReferencia: TcxDBTextEdit
|
object eReferencia: TcxDBTextEdit
|
||||||
Left = 115
|
Left = 115
|
||||||
@ -440,19 +396,15 @@ 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 = ''
|
|
||||||
StyleDisabled.TextColor = clWindowText
|
StyleDisabled.TextColor = clWindowText
|
||||||
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 = 99
|
||||||
end
|
end
|
||||||
object ePersonaContacto: TcxDBTextEdit
|
object ePersonaContacto: TcxDBTextEdit
|
||||||
Left = 115
|
Left = 115
|
||||||
@ -464,16 +416,12 @@ 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 = 7
|
TabOrder = 7
|
||||||
Width = 256
|
Width = 256
|
||||||
end
|
end
|
||||||
@ -530,27 +478,31 @@ inherited frViewContacto: TfrViewContacto
|
|||||||
Control = eCalle
|
Control = eCalle
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControlContactoGroup8: TdxLayoutGroup
|
object dxLayoutControlContactoGroup10: TdxLayoutGroup
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
Hidden = True
|
Hidden = True
|
||||||
LayoutDirection = ldHorizontal
|
LayoutDirection = ldHorizontal
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControlContactoItem3: TdxLayoutItem
|
object dxLayoutControlContactoItem2: TdxLayoutItem
|
||||||
AutoAligns = [aaVertical]
|
AutoAligns = [aaVertical]
|
||||||
AlignHorz = ahClient
|
AlignHorz = ahClient
|
||||||
Caption = 'Poblaci'#243'n:'
|
Caption = 'Provincia:'
|
||||||
Control = ePoblacion
|
Control = cbProvincia
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControlContactoItem4: TdxLayoutItem
|
object dxLayoutControlContactoItem4: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahRight
|
||||||
Caption = 'C.P.:'
|
Caption = 'C.P.:'
|
||||||
Control = eCodigoPostal
|
Control = eCodigoPostal
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
object dxLayoutControlContactoItem2: TdxLayoutItem
|
object dxLayoutControlContactoItem3: TdxLayoutItem
|
||||||
Caption = 'Provincia:'
|
AutoAligns = [aaVertical]
|
||||||
Control = eProvincia
|
AlignHorz = ahClient
|
||||||
|
Caption = 'Poblaci'#243'n:'
|
||||||
|
Control = cbPoblacion
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControlContactoItem167: TdxLayoutItem
|
object dxLayoutControlContactoItem167: TdxLayoutItem
|
||||||
@ -686,8 +638,8 @@ inherited frViewContacto: TfrViewContacto
|
|||||||
end
|
end
|
||||||
object ActionList1: TActionList
|
object ActionList1: TActionList
|
||||||
Images = ImageList1
|
Images = ImageList1
|
||||||
Left = 200
|
Left = 32
|
||||||
Top = 160
|
Top = 176
|
||||||
object actMandarCorreoParticular: TAction
|
object actMandarCorreoParticular: TAction
|
||||||
ImageIndex = 0
|
ImageIndex = 0
|
||||||
OnExecute = actMandarCorreoParticularExecute
|
OnExecute = actMandarCorreoParticularExecute
|
||||||
@ -706,7 +658,7 @@ inherited frViewContacto: TfrViewContacto
|
|||||||
end
|
end
|
||||||
object ImageList1: TPngImageList
|
object ImageList1: TPngImageList
|
||||||
PngImages = <>
|
PngImages = <>
|
||||||
Left = 200
|
Left = 64
|
||||||
Top = 136
|
Top = 176
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -14,7 +14,8 @@ uses
|
|||||||
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||||
dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
|
dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
|
||||||
dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxLCPainter;
|
dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxLCPainter, cxGraphics,
|
||||||
|
cxMaskEdit, cxDropDownEdit;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewContacto = interface(IViewBase)
|
IViewContacto = interface(IViewBase)
|
||||||
@ -44,12 +45,11 @@ type
|
|||||||
dxLayoutControlContactoItem1: TdxLayoutItem;
|
dxLayoutControlContactoItem1: TdxLayoutItem;
|
||||||
eCalle: TcxDBTextEdit;
|
eCalle: TcxDBTextEdit;
|
||||||
dxLayoutControlContactoItem2: TdxLayoutItem;
|
dxLayoutControlContactoItem2: TdxLayoutItem;
|
||||||
eProvincia: TcxDBTextEdit;
|
cbProvincia: TcxDBComboBox;
|
||||||
dxLayoutControlContactoItem3: TdxLayoutItem;
|
dxLayoutControlContactoItem3: TdxLayoutItem;
|
||||||
ePoblacion: TcxDBTextEdit;
|
cbPoblacion: TcxDBComboBox;
|
||||||
dxLayoutControlContactoItem4: TdxLayoutItem;
|
dxLayoutControlContactoItem4: TdxLayoutItem;
|
||||||
eCodigoPostal: TcxDBTextEdit;
|
eCodigoPostal: TcxDBTextEdit;
|
||||||
dxLayoutControlContactoGroup8: TdxLayoutGroup;
|
|
||||||
eObservaciones: TcxDBMemo;
|
eObservaciones: TcxDBMemo;
|
||||||
dxLayoutControlContactoItem8: TdxLayoutItem;
|
dxLayoutControlContactoItem8: TdxLayoutItem;
|
||||||
dxLayoutControlContactoItem9: TdxLayoutItem;
|
dxLayoutControlContactoItem9: TdxLayoutItem;
|
||||||
@ -90,6 +90,7 @@ type
|
|||||||
dxLayoutControlContactoGroup16: TdxLayoutGroup;
|
dxLayoutControlContactoGroup16: TdxLayoutGroup;
|
||||||
dxLayoutControlContactoItem167: TdxLayoutItem;
|
dxLayoutControlContactoItem167: TdxLayoutItem;
|
||||||
ePersonaContacto: TcxDBTextEdit;
|
ePersonaContacto: TcxDBTextEdit;
|
||||||
|
dxLayoutControlContactoGroup10: TdxLayoutGroup;
|
||||||
procedure eMailTrabajoPropertiesEditValueChanged(Sender: TObject);
|
procedure eMailTrabajoPropertiesEditValueChanged(Sender: TObject);
|
||||||
procedure actMandarCorreoParticularExecute(Sender: TObject);
|
procedure actMandarCorreoParticularExecute(Sender: TObject);
|
||||||
procedure actMandarCorreoTrabajoExecute(Sender: TObject);
|
procedure actMandarCorreoTrabajoExecute(Sender: TObject);
|
||||||
@ -99,15 +100,22 @@ type
|
|||||||
procedure actVerPaginaWebUpdate(Sender: TObject);
|
procedure actVerPaginaWebUpdate(Sender: TObject);
|
||||||
procedure eMailTrabajoPropertiesValidate(Sender: TObject;
|
procedure eMailTrabajoPropertiesValidate(Sender: TObject;
|
||||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||||
|
procedure eProvinciaPropertiesInitPopup(Sender: TObject);
|
||||||
|
procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
|
||||||
protected
|
protected
|
||||||
FContacto: IBizContacto;
|
FContacto: IBizContacto;
|
||||||
FController : IContactosController;
|
FController : IContactosController;
|
||||||
|
FProvincias : TStringList;
|
||||||
|
FPoblaciones : TStringList;
|
||||||
|
procedure CargarProvincias;
|
||||||
|
procedure CargarPoblaciones;
|
||||||
function GetContacto: IBizContacto; virtual;
|
function GetContacto: IBizContacto; virtual;
|
||||||
procedure SetContacto(const Value: IBizContacto); virtual;
|
procedure SetContacto(const Value: IBizContacto); virtual;
|
||||||
function GetController : IContactosController; virtual;
|
function GetController : IContactosController; virtual;
|
||||||
procedure SetController (const Value : IContactosController); virtual;
|
procedure SetController (const Value : IContactosController); virtual;
|
||||||
public
|
public
|
||||||
constructor Create(AOwner : TComponent); override;
|
constructor Create(AOwner : TComponent); override;
|
||||||
|
destructor Destroy;
|
||||||
property Controller : IContactosController read GetController
|
property Controller : IContactosController read GetController
|
||||||
write SetController;
|
write SetController;
|
||||||
property Contacto: IBizContacto read GetContacto write SetContacto;
|
property Contacto: IBizContacto read GetContacto write SetContacto;
|
||||||
@ -116,6 +124,9 @@ type
|
|||||||
implementation
|
implementation
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
|
uses
|
||||||
|
uProvinciasPoblacionesController, uStringsUtils;
|
||||||
|
|
||||||
type
|
type
|
||||||
THackcxDBHyperLinkEdit = class(TcxDBHyperLinkEdit);
|
THackcxDBHyperLinkEdit = class(TcxDBHyperLinkEdit);
|
||||||
|
|
||||||
@ -160,9 +171,86 @@ begin
|
|||||||
(Sender as TAction).Enabled := (Length(ePaginaWeb.Text) > 0)
|
(Sender as TAction).Enabled := (Length(ePaginaWeb.Text) > 0)
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContacto.CargarPoblaciones;
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
|
AID : Integer;
|
||||||
|
begin
|
||||||
|
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||||
|
with TProvinciasPoblacionesController.Create do
|
||||||
|
try
|
||||||
|
FPoblaciones := DarListaPoblaciones(AID);
|
||||||
|
|
||||||
|
with cbPoblacion.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
for i := 0 to FPoblaciones.Count - 1 do
|
||||||
|
Add(FPoblaciones.Names[i]);
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContacto.CargarProvincias;
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
|
begin
|
||||||
|
with TProvinciasPoblacionesController.Create do
|
||||||
|
try
|
||||||
|
FProvincias := DarListaProvincias;
|
||||||
|
|
||||||
|
with cbProvincia.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
for i := 0 to FProvincias.Count - 1 do
|
||||||
|
Add(FProvincias.Names[i]);
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContacto.cbPoblacionPropertiesInitPopup(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
FreeANDNIL(FPoblaciones);
|
||||||
|
if not Assigned(FProvincias) then
|
||||||
|
CargarProvincias;
|
||||||
|
if not EsCadenaVacia(cbProvincia.Text) and (FProvincias.IndexOfName(cbProvincia.Text) <> -1) then
|
||||||
|
CargarPoblaciones
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
constructor TfrViewContacto.Create(AOwner : TComponent);
|
constructor TfrViewContacto.Create(AOwner : TComponent);
|
||||||
begin
|
begin
|
||||||
inherited;
|
inherited;
|
||||||
|
FProvincias := NIL;
|
||||||
|
FPoblaciones := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfrViewContacto.Destroy;
|
||||||
|
begin
|
||||||
|
if Assigned(FProvincias) then
|
||||||
|
FreeANDNIL(FProvincias);
|
||||||
|
|
||||||
|
if Assigned(FPoblaciones) then
|
||||||
|
FreeANDNIL(FPoblaciones);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
procedure TfrViewContacto.eMailTrabajoPropertiesEditValueChanged(Sender: TObject);
|
procedure TfrViewContacto.eMailTrabajoPropertiesEditValueChanged(Sender: TObject);
|
||||||
@ -180,6 +268,18 @@ begin
|
|||||||
DisplayValue := StringReplace(DisplayValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []);
|
DisplayValue := StringReplace(DisplayValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []);
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewContacto.eProvinciaPropertiesInitPopup(Sender: TObject);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
if not Assigned(FProvincias) then
|
||||||
|
CargarProvincias;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
function TfrViewContacto.GetContacto: IBizContacto;
|
function TfrViewContacto.GetContacto: IBizContacto;
|
||||||
begin
|
begin
|
||||||
Result := FContacto;
|
Result := FContacto;
|
||||||
|
|||||||
@ -8,7 +8,8 @@ inherited frViewEmpleado: TfrViewEmpleado
|
|||||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||||
Width = 673
|
Width = 673
|
||||||
Height = 424
|
Height = 424
|
||||||
ExplicitHeight = 391
|
ExplicitWidth = 673
|
||||||
|
ExplicitHeight = 424
|
||||||
inherited PngSpeedButton1: TPngSpeedButton
|
inherited PngSpeedButton1: TPngSpeedButton
|
||||||
Left = 628
|
Left = 628
|
||||||
ExplicitLeft = 628
|
ExplicitLeft = 628
|
||||||
@ -27,42 +28,42 @@ inherited frViewEmpleado: TfrViewEmpleado
|
|||||||
TabOrder = 6
|
TabOrder = 6
|
||||||
ExplicitLeft = 121
|
ExplicitLeft = 121
|
||||||
ExplicitTop = 226
|
ExplicitTop = 226
|
||||||
ExplicitWidth = 183
|
ExplicitWidth = 239
|
||||||
Width = 183
|
Width = 239
|
||||||
end
|
end
|
||||||
inherited eProvincia: TcxDBTextEdit
|
inherited cbProvincia: TcxDBComboBox
|
||||||
Left = 121
|
|
||||||
Top = 280
|
|
||||||
TabOrder = 9
|
|
||||||
ExplicitLeft = 121
|
|
||||||
ExplicitTop = 280
|
|
||||||
ExplicitWidth = 183
|
|
||||||
Width = 183
|
|
||||||
end
|
|
||||||
inherited ePoblacion: TcxDBTextEdit
|
|
||||||
Left = 121
|
Left = 121
|
||||||
Top = 253
|
Top = 253
|
||||||
TabOrder = 7
|
TabOrder = 7
|
||||||
ExplicitLeft = 121
|
ExplicitLeft = 121
|
||||||
ExplicitTop = 253
|
ExplicitTop = 253
|
||||||
ExplicitWidth = 82
|
ExplicitWidth = 138
|
||||||
Width = 82
|
Width = 138
|
||||||
|
end
|
||||||
|
inherited cbPoblacion: TcxDBComboBox
|
||||||
|
Left = 121
|
||||||
|
Top = 280
|
||||||
|
TabOrder = 9
|
||||||
|
ExplicitLeft = 121
|
||||||
|
ExplicitTop = 280
|
||||||
|
ExplicitWidth = 239
|
||||||
|
Width = 239
|
||||||
end
|
end
|
||||||
inherited eCodigoPostal: TcxDBTextEdit
|
inherited eCodigoPostal: TcxDBTextEdit
|
||||||
Left = 247
|
Left = 295
|
||||||
Top = 253
|
Top = 253
|
||||||
TabOrder = 8
|
TabOrder = 8
|
||||||
ExplicitLeft = 247
|
ExplicitLeft = 295
|
||||||
ExplicitTop = 253
|
ExplicitTop = 253
|
||||||
end
|
end
|
||||||
inherited eObservaciones: TcxDBMemo
|
inherited eObservaciones: TcxDBMemo
|
||||||
Top = 364
|
Top = 364
|
||||||
TabOrder = 20
|
TabOrder = 20
|
||||||
ExplicitTop = 364
|
ExplicitTop = 364
|
||||||
ExplicitWidth = 613
|
ExplicitWidth = 629
|
||||||
ExplicitHeight = 20
|
ExplicitHeight = 38
|
||||||
Height = 20
|
Height = 38
|
||||||
Width = 613
|
Width = 629
|
||||||
end
|
end
|
||||||
object eFechaNacimiento: TcxDBDateEdit [8]
|
object eFechaNacimiento: TcxDBDateEdit [8]
|
||||||
Left = 121
|
Left = 121
|
||||||
@ -79,7 +80,7 @@ inherited frViewEmpleado: TfrViewEmpleado
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
Width = 183
|
Width = 239
|
||||||
end
|
end
|
||||||
object eFechaAltaEmpresa: TcxDBDateEdit [9]
|
object eFechaAltaEmpresa: TcxDBDateEdit [9]
|
||||||
Left = 121
|
Left = 121
|
||||||
@ -96,7 +97,7 @@ inherited frViewEmpleado: TfrViewEmpleado
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
Width = 183
|
Width = 239
|
||||||
end
|
end
|
||||||
object cbCategoria: TcxDBComboBox [10]
|
object cbCategoria: TcxDBComboBox [10]
|
||||||
Left = 121
|
Left = 121
|
||||||
@ -120,10 +121,10 @@ inherited frViewEmpleado: TfrViewEmpleado
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 5
|
TabOrder = 5
|
||||||
Width = 183
|
Width = 239
|
||||||
end
|
end
|
||||||
object cbContrato: TcxDBComboBox [11]
|
object cbContrato: TcxDBComboBox [11]
|
||||||
Left = 437
|
Left = 485
|
||||||
Top = 280
|
Top = 280
|
||||||
DataBinding.DataField = 'CONTRATO'
|
DataBinding.DataField = 'CONTRATO'
|
||||||
DataBinding.DataSource = dsContacto
|
DataBinding.DataSource = dsContacto
|
||||||
@ -144,44 +145,10 @@ inherited frViewEmpleado: TfrViewEmpleado
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 18
|
TabOrder = 18
|
||||||
Width = 206
|
Width = 166
|
||||||
end
|
end
|
||||||
inherited eTlfParticular: TcxDBTextEdit
|
object eDuracionContrato: TcxDBTextEdit [12]
|
||||||
Left = 437
|
Left = 485
|
||||||
TabOrder = 12
|
|
||||||
ExplicitLeft = 437
|
|
||||||
ExplicitWidth = 206
|
|
||||||
Width = 206
|
|
||||||
end
|
|
||||||
inherited eTlfTrabajo: TcxDBTextEdit
|
|
||||||
Left = 437
|
|
||||||
TabOrder = 11
|
|
||||||
ExplicitLeft = 437
|
|
||||||
ExplicitWidth = 206
|
|
||||||
Width = 206
|
|
||||||
end
|
|
||||||
inherited eTlfMovil: TcxDBTextEdit
|
|
||||||
Left = 437
|
|
||||||
TabOrder = 13
|
|
||||||
ExplicitLeft = 437
|
|
||||||
ExplicitWidth = 206
|
|
||||||
Width = 206
|
|
||||||
end
|
|
||||||
inherited eFax: TcxDBTextEdit
|
|
||||||
Left = 437
|
|
||||||
TabOrder = 14
|
|
||||||
ExplicitLeft = 437
|
|
||||||
ExplicitWidth = 206
|
|
||||||
Width = 206
|
|
||||||
end
|
|
||||||
inherited eNombre: TcxDBTextEdit
|
|
||||||
Left = 121
|
|
||||||
ExplicitLeft = 121
|
|
||||||
ExplicitWidth = 183
|
|
||||||
Width = 183
|
|
||||||
end
|
|
||||||
object eDuracionContrato: TcxDBTextEdit [17]
|
|
||||||
Left = 437
|
|
||||||
Top = 307
|
Top = 307
|
||||||
DataBinding.DataField = 'DURACION'
|
DataBinding.DataField = 'DURACION'
|
||||||
DataBinding.DataSource = dsContacto
|
DataBinding.DataSource = dsContacto
|
||||||
@ -196,42 +163,76 @@ inherited frViewEmpleado: TfrViewEmpleado
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 19
|
TabOrder = 19
|
||||||
Width = 206
|
Width = 166
|
||||||
|
end
|
||||||
|
inherited eTlfParticular: TcxDBTextEdit
|
||||||
|
Left = 485
|
||||||
|
TabOrder = 12
|
||||||
|
ExplicitLeft = 485
|
||||||
|
ExplicitWidth = 166
|
||||||
|
Width = 166
|
||||||
|
end
|
||||||
|
inherited eTlfTrabajo: TcxDBTextEdit
|
||||||
|
Left = 485
|
||||||
|
TabOrder = 11
|
||||||
|
ExplicitLeft = 485
|
||||||
|
ExplicitWidth = 166
|
||||||
|
Width = 166
|
||||||
|
end
|
||||||
|
inherited eTlfMovil: TcxDBTextEdit
|
||||||
|
Left = 485
|
||||||
|
TabOrder = 13
|
||||||
|
ExplicitLeft = 485
|
||||||
|
ExplicitWidth = 166
|
||||||
|
Width = 166
|
||||||
|
end
|
||||||
|
inherited eFax: TcxDBTextEdit
|
||||||
|
Left = 485
|
||||||
|
TabOrder = 14
|
||||||
|
ExplicitLeft = 485
|
||||||
|
ExplicitWidth = 166
|
||||||
|
Width = 166
|
||||||
|
end
|
||||||
|
inherited eNombre: TcxDBTextEdit
|
||||||
|
Left = 121
|
||||||
|
ExplicitLeft = 121
|
||||||
|
ExplicitWidth = 239
|
||||||
|
Width = 239
|
||||||
end
|
end
|
||||||
inherited eNIFCIF: TcxDBTextEdit
|
inherited eNIFCIF: TcxDBTextEdit
|
||||||
Left = 202
|
Left = 227
|
||||||
ExplicitLeft = 202
|
ExplicitLeft = 227
|
||||||
ExplicitWidth = 106
|
ExplicitWidth = 133
|
||||||
Width = 106
|
Width = 133
|
||||||
end
|
end
|
||||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||||
Left = 437
|
Left = 485
|
||||||
Properties.Prefix = 'mailto:'
|
Properties.Prefix = 'mailto:'
|
||||||
TabOrder = 15
|
TabOrder = 15
|
||||||
ExplicitLeft = 437
|
ExplicitLeft = 485
|
||||||
ExplicitWidth = 177
|
ExplicitWidth = 137
|
||||||
Width = 177
|
Width = 137
|
||||||
end
|
end
|
||||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||||
Left = 437
|
Left = 485
|
||||||
Properties.Prefix = 'mailto:'
|
Properties.Prefix = 'mailto:'
|
||||||
TabOrder = 16
|
TabOrder = 16
|
||||||
ExplicitLeft = 437
|
ExplicitLeft = 485
|
||||||
ExplicitWidth = 177
|
ExplicitWidth = 137
|
||||||
Width = 177
|
Width = 137
|
||||||
end
|
end
|
||||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||||
Left = 437
|
Left = 485
|
||||||
TabOrder = 17
|
TabOrder = 17
|
||||||
ExplicitLeft = 437
|
ExplicitLeft = 485
|
||||||
ExplicitWidth = 177
|
ExplicitWidth = 137
|
||||||
Width = 177
|
Width = 137
|
||||||
end
|
end
|
||||||
inherited eReferencia: TcxDBTextEdit
|
inherited eReferencia: TcxDBTextEdit
|
||||||
Left = 121
|
Left = 121
|
||||||
ExplicitLeft = 121
|
ExplicitLeft = 121
|
||||||
ExplicitWidth = 44
|
ExplicitWidth = 73
|
||||||
Width = 44
|
Width = 73
|
||||||
end
|
end
|
||||||
inherited ePersonaContacto: TcxDBTextEdit
|
inherited ePersonaContacto: TcxDBTextEdit
|
||||||
Left = 121
|
Left = 121
|
||||||
@ -239,8 +240,8 @@ inherited frViewEmpleado: TfrViewEmpleado
|
|||||||
TabOrder = 10
|
TabOrder = 10
|
||||||
ExplicitLeft = 121
|
ExplicitLeft = 121
|
||||||
ExplicitTop = 307
|
ExplicitTop = 307
|
||||||
ExplicitWidth = 183
|
ExplicitWidth = 239
|
||||||
Width = 183
|
Width = 239
|
||||||
end
|
end
|
||||||
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
|
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
|
||||||
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
|
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
|
||||||
|
|||||||
@ -1,30 +1,30 @@
|
|||||||
inherited frViewProveedor: TfrViewProveedor
|
inherited frViewProveedor: TfrViewProveedor
|
||||||
Width = 799
|
Width = 799
|
||||||
Height = 454
|
Height = 492
|
||||||
OnCreate = CustomViewCreate
|
OnCreate = CustomViewCreate
|
||||||
OnDestroy = CustomViewDestroy
|
OnDestroy = CustomViewDestroy
|
||||||
ExplicitWidth = 799
|
ExplicitWidth = 799
|
||||||
ExplicitHeight = 454
|
ExplicitHeight = 492
|
||||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||||
Width = 799
|
Width = 799
|
||||||
Height = 454
|
Height = 492
|
||||||
ExplicitWidth = 799
|
ExplicitWidth = 799
|
||||||
ExplicitHeight = 454
|
ExplicitHeight = 454
|
||||||
inherited PngSpeedButton1: TPngSpeedButton
|
inherited PngSpeedButton1: TPngSpeedButton
|
||||||
Left = 738
|
Left = 754
|
||||||
ExplicitLeft = 738
|
ExplicitLeft = 754
|
||||||
end
|
end
|
||||||
inherited PngSpeedButton2: TPngSpeedButton
|
inherited PngSpeedButton2: TPngSpeedButton
|
||||||
Left = 738
|
Left = 754
|
||||||
ExplicitLeft = 738
|
ExplicitLeft = 754
|
||||||
end
|
end
|
||||||
inherited PngSpeedButton3: TPngSpeedButton
|
inherited PngSpeedButton3: TPngSpeedButton
|
||||||
Left = 738
|
Left = 754
|
||||||
ExplicitLeft = 738
|
ExplicitLeft = 754
|
||||||
end
|
end
|
||||||
object Label1: TLabel [3]
|
object Label1: TLabel [3]
|
||||||
Left = 446
|
Left = 462
|
||||||
Top = 307
|
Top = 262
|
||||||
Width = 342
|
Width = 342
|
||||||
Height = 26
|
Height = 26
|
||||||
Caption =
|
Caption =
|
||||||
@ -38,32 +38,28 @@ inherited frViewProveedor: TfrViewProveedor
|
|||||||
TabOrder = 9
|
TabOrder = 9
|
||||||
ExplicitLeft = 134
|
ExplicitLeft = 134
|
||||||
ExplicitTop = 277
|
ExplicitTop = 277
|
||||||
ExplicitWidth = 264
|
ExplicitWidth = 330
|
||||||
Width = 264
|
Width = 330
|
||||||
end
|
end
|
||||||
inherited eProvincia: TcxDBTextEdit
|
inherited cbProvincia: TcxDBComboBox
|
||||||
Left = 134
|
|
||||||
Top = 331
|
|
||||||
TabOrder = 12
|
|
||||||
ExplicitLeft = 134
|
|
||||||
ExplicitTop = 331
|
|
||||||
ExplicitWidth = 264
|
|
||||||
Width = 264
|
|
||||||
end
|
|
||||||
inherited ePoblacion: TcxDBTextEdit
|
|
||||||
Left = 134
|
Left = 134
|
||||||
Top = 304
|
Top = 304
|
||||||
TabOrder = 10
|
TabOrder = 10
|
||||||
ExplicitLeft = 134
|
ExplicitLeft = 134
|
||||||
ExplicitTop = 304
|
ExplicitTop = 304
|
||||||
ExplicitWidth = 163
|
end
|
||||||
Width = 163
|
inherited cbPoblacion: TcxDBComboBox
|
||||||
|
Left = 134
|
||||||
|
Top = 331
|
||||||
|
TabOrder = 12
|
||||||
|
ExplicitLeft = 134
|
||||||
|
ExplicitTop = 331
|
||||||
end
|
end
|
||||||
inherited eCodigoPostal: TcxDBTextEdit
|
inherited eCodigoPostal: TcxDBTextEdit
|
||||||
Left = 351
|
Left = 379
|
||||||
Top = 304
|
Top = 304
|
||||||
TabOrder = 11
|
TabOrder = 11
|
||||||
ExplicitLeft = 351
|
ExplicitLeft = 379
|
||||||
ExplicitTop = 304
|
ExplicitTop = 304
|
||||||
end
|
end
|
||||||
inherited eObservaciones: TcxDBMemo
|
inherited eObservaciones: TcxDBMemo
|
||||||
@ -73,32 +69,7 @@ inherited frViewProveedor: TfrViewProveedor
|
|||||||
ExplicitHeight = 20
|
ExplicitHeight = 20
|
||||||
Height = 20
|
Height = 20
|
||||||
end
|
end
|
||||||
object cxDBCheckBox1: TcxDBCheckBox [9]
|
object cxDBCheckBox2: TcxDBCheckBox [9]
|
||||||
Left = 446
|
|
||||||
Top = 280
|
|
||||||
Caption = 'Incluir este proveedor en la tienda web'
|
|
||||||
DataBinding.DataField = 'TIENDA_WEB'
|
|
||||||
DataBinding.DataSource = dsContacto
|
|
||||||
Properties.ImmediatePost = True
|
|
||||||
Properties.MultiLine = True
|
|
||||||
Properties.NullStyle = nssUnchecked
|
|
||||||
Properties.ValueChecked = 1
|
|
||||||
Properties.ValueUnchecked = 0
|
|
||||||
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 = 21
|
|
||||||
Width = 236
|
|
||||||
end
|
|
||||||
object cxDBCheckBox2: TcxDBCheckBox [10]
|
|
||||||
Left = 22
|
Left = 22
|
||||||
Top = 193
|
Top = 193
|
||||||
Caption = 'El proveedor est'#225' homologado'
|
Caption = 'El proveedor est'#225' homologado'
|
||||||
@ -120,9 +91,9 @@ inherited frViewProveedor: TfrViewProveedor
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 7
|
TabOrder = 7
|
||||||
Width = 326
|
Width = 442
|
||||||
end
|
end
|
||||||
object eCertificaciones: TcxDBTextEdit [11]
|
object eCertificaciones: TcxDBTextEdit [10]
|
||||||
Left = 134
|
Left = 134
|
||||||
Top = 220
|
Top = 220
|
||||||
DataBinding.DataField = 'CERTIFICACION'
|
DataBinding.DataField = 'CERTIFICACION'
|
||||||
@ -139,9 +110,9 @@ inherited frViewProveedor: TfrViewProveedor
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 8
|
TabOrder = 8
|
||||||
Width = 227
|
Width = 330
|
||||||
end
|
end
|
||||||
object cbGrupoProveedor: TcxDBComboBox [12]
|
object cbGrupoProveedor: TcxDBComboBox [11]
|
||||||
Left = 134
|
Left = 134
|
||||||
Top = 136
|
Top = 136
|
||||||
DataBinding.DataField = 'GRUPO_PROVEEDOR'
|
DataBinding.DataField = 'GRUPO_PROVEEDOR'
|
||||||
@ -163,9 +134,9 @@ inherited frViewProveedor: TfrViewProveedor
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 5
|
TabOrder = 5
|
||||||
Width = 227
|
Width = 241
|
||||||
end
|
end
|
||||||
object cbDescripcionProveedor: TcxDBComboBox [13]
|
object cbDescripcionProveedor: TcxDBComboBox [12]
|
||||||
Left = 134
|
Left = 134
|
||||||
Top = 82
|
Top = 82
|
||||||
DataBinding.DataField = 'DESCRIPCION_PROVEEDOR'
|
DataBinding.DataField = 'DESCRIPCION_PROVEEDOR'
|
||||||
@ -178,6 +149,8 @@ inherited frViewProveedor: TfrViewProveedor
|
|||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.ButtonStyle = bts3D
|
||||||
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
@ -185,9 +158,9 @@ inherited frViewProveedor: TfrViewProveedor
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 3
|
TabOrder = 3
|
||||||
Width = 221
|
Width = 330
|
||||||
end
|
end
|
||||||
object eCodigoAsignado: TcxDBTextEdit [14]
|
object eCodigoAsignado: TcxDBTextEdit [13]
|
||||||
Left = 134
|
Left = 134
|
||||||
Top = 109
|
Top = 109
|
||||||
DataBinding.DataField = 'CODIGO_ASIGNADO'
|
DataBinding.DataField = 'CODIGO_ASIGNADO'
|
||||||
@ -204,88 +177,66 @@ inherited frViewProveedor: TfrViewProveedor
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
Width = 221
|
Width = 330
|
||||||
end
|
end
|
||||||
inherited eTlfParticular: TcxDBTextEdit
|
inherited eTlfParticular: TcxDBTextEdit
|
||||||
Left = 541
|
Left = 569
|
||||||
TabOrder = 15
|
TabOrder = 15
|
||||||
ExplicitLeft = 541
|
ExplicitLeft = 569
|
||||||
ExplicitWidth = 91
|
ExplicitWidth = 171
|
||||||
Width = 91
|
Width = 171
|
||||||
end
|
end
|
||||||
inherited eTlfTrabajo: TcxDBTextEdit
|
inherited eTlfTrabajo: TcxDBTextEdit
|
||||||
Left = 541
|
Left = 569
|
||||||
TabOrder = 14
|
TabOrder = 14
|
||||||
ExplicitLeft = 541
|
ExplicitLeft = 569
|
||||||
ExplicitWidth = 127
|
ExplicitWidth = 171
|
||||||
Width = 127
|
Width = 171
|
||||||
end
|
end
|
||||||
inherited eTlfMovil: TcxDBTextEdit
|
inherited eTlfMovil: TcxDBTextEdit
|
||||||
Left = 541
|
Left = 569
|
||||||
TabOrder = 16
|
TabOrder = 16
|
||||||
ExplicitLeft = 541
|
ExplicitLeft = 569
|
||||||
ExplicitWidth = 155
|
ExplicitWidth = 171
|
||||||
Width = 155
|
Width = 171
|
||||||
end
|
end
|
||||||
inherited eFax: TcxDBTextEdit
|
inherited eFax: TcxDBTextEdit
|
||||||
Left = 541
|
Left = 569
|
||||||
TabOrder = 17
|
TabOrder = 17
|
||||||
ExplicitLeft = 541
|
ExplicitLeft = 569
|
||||||
ExplicitWidth = 121
|
ExplicitWidth = 171
|
||||||
Width = 121
|
Width = 171
|
||||||
end
|
end
|
||||||
inherited eNombre: TcxDBTextEdit
|
inherited eNombre: TcxDBTextEdit
|
||||||
Left = 134
|
Left = 134
|
||||||
ExplicitLeft = 134
|
ExplicitLeft = 134
|
||||||
ExplicitWidth = 221
|
ExplicitWidth = 330
|
||||||
Width = 221
|
Width = 330
|
||||||
end
|
end
|
||||||
inherited eNIFCIF: TcxDBTextEdit
|
inherited eNIFCIF: TcxDBTextEdit
|
||||||
Left = 220
|
Left = 231
|
||||||
ExplicitLeft = 220
|
ExplicitLeft = 231
|
||||||
ExplicitWidth = 205
|
ExplicitWidth = 226
|
||||||
Width = 205
|
Width = 226
|
||||||
end
|
end
|
||||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||||
Left = 541
|
Left = 569
|
||||||
Properties.Prefix = 'mailto:'
|
Properties.Prefix = 'mailto:'
|
||||||
TabOrder = 18
|
TabOrder = 18
|
||||||
ExplicitLeft = 541
|
ExplicitLeft = 569
|
||||||
ExplicitWidth = 133
|
ExplicitWidth = 142
|
||||||
Width = 133
|
Width = 142
|
||||||
end
|
end
|
||||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||||
Left = 541
|
Left = 569
|
||||||
Properties.Prefix = 'mailto:'
|
Properties.Prefix = 'mailto:'
|
||||||
TabOrder = 19
|
TabOrder = 19
|
||||||
ExplicitLeft = 541
|
ExplicitLeft = 569
|
||||||
ExplicitWidth = 133
|
ExplicitWidth = 142
|
||||||
Width = 133
|
Width = 142
|
||||||
end
|
end
|
||||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
object cxDBCheckBox3: TcxDBCheckBox [22]
|
||||||
Left = 541
|
Left = 361
|
||||||
TabOrder = 20
|
|
||||||
ExplicitLeft = 541
|
|
||||||
ExplicitWidth = 133
|
|
||||||
Width = 133
|
|
||||||
end
|
|
||||||
inherited eReferencia: TcxDBTextEdit
|
|
||||||
Left = 134
|
|
||||||
ExplicitLeft = 134
|
|
||||||
ExplicitWidth = 38
|
|
||||||
Width = 38
|
|
||||||
end
|
|
||||||
inherited ePersonaContacto: TcxDBTextEdit
|
|
||||||
Left = 134
|
|
||||||
Top = 358
|
|
||||||
TabOrder = 13
|
|
||||||
ExplicitLeft = 134
|
|
||||||
ExplicitTop = 358
|
|
||||||
ExplicitWidth = 256
|
|
||||||
Width = 256
|
|
||||||
end
|
|
||||||
object cxDBCheckBox3: TcxDBCheckBox [26]
|
|
||||||
Left = 333
|
|
||||||
Top = 136
|
Top = 136
|
||||||
Caption = 'Subcontrata'
|
Caption = 'Subcontrata'
|
||||||
DataBinding.DataField = 'SUBCONTRATA'
|
DataBinding.DataField = 'SUBCONTRATA'
|
||||||
@ -308,6 +259,53 @@ inherited frViewProveedor: TfrViewProveedor
|
|||||||
TabOrder = 6
|
TabOrder = 6
|
||||||
Width = 83
|
Width = 83
|
||||||
end
|
end
|
||||||
|
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||||
|
Left = 569
|
||||||
|
TabOrder = 20
|
||||||
|
ExplicitLeft = 569
|
||||||
|
ExplicitWidth = 142
|
||||||
|
Width = 142
|
||||||
|
end
|
||||||
|
inherited eReferencia: TcxDBTextEdit
|
||||||
|
Left = 134
|
||||||
|
ExplicitLeft = 134
|
||||||
|
ExplicitWidth = 51
|
||||||
|
Width = 51
|
||||||
|
end
|
||||||
|
inherited ePersonaContacto: TcxDBTextEdit
|
||||||
|
Left = 134
|
||||||
|
Top = 358
|
||||||
|
TabOrder = 13
|
||||||
|
ExplicitLeft = 134
|
||||||
|
ExplicitTop = 358
|
||||||
|
ExplicitWidth = 330
|
||||||
|
Width = 330
|
||||||
|
end
|
||||||
|
object cxDBCheckBox1: TcxDBCheckBox [26]
|
||||||
|
Left = 462
|
||||||
|
Top = 294
|
||||||
|
Caption = 'Incluir este proveedor en la tienda web'
|
||||||
|
DataBinding.DataField = 'TIENDA_WEB'
|
||||||
|
DataBinding.DataSource = dsContacto
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.MultiLine = True
|
||||||
|
Properties.NullStyle = nssUnchecked
|
||||||
|
Properties.ValueChecked = 1
|
||||||
|
Properties.ValueUnchecked = 0
|
||||||
|
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 = 21
|
||||||
|
Width = 236
|
||||||
|
end
|
||||||
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
|
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
|
||||||
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
|
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
|
||||||
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
|
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
|
||||||
@ -359,20 +357,18 @@ inherited frViewProveedor: TfrViewProveedor
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited dxLayoutControlContactoGroup6: TdxLayoutGroup
|
inherited dxLayoutControlContactoGroup6: TdxLayoutGroup
|
||||||
object dxLayoutControlContactoGroup10: TdxLayoutGroup
|
object dxLayoutControlContactoItem19: TdxLayoutItem
|
||||||
Caption = 'Tienda web'
|
ShowCaption = False
|
||||||
Visible = False
|
Visible = False
|
||||||
object dxLayoutControlContactoItem19: TdxLayoutItem
|
Control = Label1
|
||||||
ShowCaption = False
|
ControlOptions.AutoColor = True
|
||||||
Control = cxDBCheckBox1
|
ControlOptions.ShowBorder = False
|
||||||
ControlOptions.ShowBorder = False
|
end
|
||||||
end
|
object dxLayoutControlContactoItem16: TdxLayoutItem
|
||||||
object dxLayoutControlContactoItem16: TdxLayoutItem
|
ShowCaption = False
|
||||||
ShowCaption = False
|
Visible = False
|
||||||
Control = Label1
|
Control = cxDBCheckBox1
|
||||||
ControlOptions.AutoColor = True
|
ControlOptions.ShowBorder = False
|
||||||
ControlOptions.ShowBorder = False
|
|
||||||
end
|
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
|
|||||||
@ -8,7 +8,13 @@ uses
|
|||||||
dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
|
dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
|
||||||
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
|
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
|
||||||
Buttons, PngSpeedButton, StdCtrls, cxCheckBox, cxGraphics, cxDropDownEdit,
|
Buttons, PngSpeedButton, StdCtrls, cxCheckBox, cxGraphics, cxDropDownEdit,
|
||||||
uGruposProveedorController, uDAInterfaces;
|
uGruposProveedorController, uDAInterfaces, dxSkinsCore, dxSkinBlue,
|
||||||
|
dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
|
||||||
|
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
|
||||||
|
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||||
|
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
|
||||||
|
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
|
||||||
|
dxSkinsdxLCPainter;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewProveedor = interface(IViewContacto)
|
IViewProveedor = interface(IViewContacto)
|
||||||
@ -16,11 +22,6 @@ type
|
|||||||
end;
|
end;
|
||||||
|
|
||||||
TfrViewProveedor = class(TfrViewContacto, IViewProveedor)
|
TfrViewProveedor = class(TfrViewContacto, IViewProveedor)
|
||||||
dxLayoutControlContactoGroup10: TdxLayoutGroup;
|
|
||||||
dxLayoutControlContactoItem16: TdxLayoutItem;
|
|
||||||
Label1: TLabel;
|
|
||||||
dxLayoutControlContactoItem19: TdxLayoutItem;
|
|
||||||
cxDBCheckBox1: TcxDBCheckBox;
|
|
||||||
dxLayoutControlContactoItem22: TdxLayoutItem;
|
dxLayoutControlContactoItem22: TdxLayoutItem;
|
||||||
cxDBCheckBox2: TcxDBCheckBox;
|
cxDBCheckBox2: TcxDBCheckBox;
|
||||||
dxLayoutControlContactoItem23: TdxLayoutItem;
|
dxLayoutControlContactoItem23: TdxLayoutItem;
|
||||||
@ -35,6 +36,10 @@ type
|
|||||||
dxLayoutControlContactoItem26: TdxLayoutItem;
|
dxLayoutControlContactoItem26: TdxLayoutItem;
|
||||||
cxDBCheckBox3: TcxDBCheckBox;
|
cxDBCheckBox3: TcxDBCheckBox;
|
||||||
dxLayoutControlContactoGroup15: TdxLayoutGroup;
|
dxLayoutControlContactoGroup15: TdxLayoutGroup;
|
||||||
|
dxLayoutControlContactoItem16: TdxLayoutItem;
|
||||||
|
cxDBCheckBox1: TcxDBCheckBox;
|
||||||
|
dxLayoutControlContactoItem19: TdxLayoutItem;
|
||||||
|
Label1: TLabel;
|
||||||
procedure CustomViewCreate(Sender: TObject);
|
procedure CustomViewCreate(Sender: TObject);
|
||||||
procedure CustomViewDestroy(Sender: TObject);
|
procedure CustomViewDestroy(Sender: TObject);
|
||||||
procedure cbGrupoProveedorPropertiesInitPopup(Sender: TObject);
|
procedure cbGrupoProveedorPropertiesInitPopup(Sender: TObject);
|
||||||
|
|||||||
@ -13,6 +13,7 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
|
|||||||
Align = alTop
|
Align = alTop
|
||||||
ParentBackground = True
|
ParentBackground = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
TabStop = False
|
||||||
AutoContentSizes = [acsWidth]
|
AutoContentSizes = [acsWidth]
|
||||||
object Label1: TLabel
|
object Label1: TLabel
|
||||||
Left = 417
|
Left = 417
|
||||||
|
|||||||
@ -8,7 +8,13 @@ uses
|
|||||||
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
|
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
|
||||||
cxDBLookupEdit, cxDBLookupComboBox, cxControls, cxSpinEdit, cxDBEdit,
|
cxDBLookupEdit, cxDBLookupComboBox, cxControls, cxSpinEdit, cxDBEdit,
|
||||||
uBizContactos, cxCheckBox, StdCtrls, uFormasPagoController, uTiposIVAController,
|
uBizContactos, cxCheckBox, StdCtrls, uFormasPagoController, uTiposIVAController,
|
||||||
uDAInterfaces, uBizTiposIVA, uBizFormasPago;
|
uDAInterfaces, uBizTiposIVA, uBizFormasPago, dxSkinsCore, dxSkinBlue,
|
||||||
|
dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
|
||||||
|
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
|
||||||
|
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||||
|
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
|
||||||
|
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
|
||||||
|
dxSkinsdxLCPainter;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewProveedorDatosComerciales = interface(IViewBase)
|
IViewProveedorDatosComerciales = interface(IViewBase)
|
||||||
|
|||||||
@ -8,7 +8,6 @@ inherited fEditorObra: TfEditorObra
|
|||||||
Scaled = False
|
Scaled = False
|
||||||
OnClose = CustomEditorClose
|
OnClose = CustomEditorClose
|
||||||
ExplicitWidth = 640
|
ExplicitWidth = 640
|
||||||
ExplicitHeight = 488
|
|
||||||
PixelsPerInch = 96
|
PixelsPerInch = 96
|
||||||
TextHeight = 13
|
TextHeight = 13
|
||||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||||
|
|||||||
@ -8,6 +8,9 @@ inherited frViewClienteAsociadoObra: TfrViewClienteAsociadoObra
|
|||||||
Height = 247
|
Height = 247
|
||||||
ExplicitWidth = 518
|
ExplicitWidth = 518
|
||||||
ExplicitHeight = 219
|
ExplicitHeight = 219
|
||||||
|
DesignSize = (
|
||||||
|
420
|
||||||
|
247)
|
||||||
inherited edtNIFCIF: TcxDBTextEdit
|
inherited edtNIFCIF: TcxDBTextEdit
|
||||||
Top = 99
|
Top = 99
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
|
|||||||
@ -6,7 +6,13 @@ uses
|
|||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uViewDatosYSeleccionCliente, ImgList, PngImageList, ActnList, DB,
|
Dialogs, uViewDatosYSeleccionCliente, ImgList, PngImageList, ActnList, DB,
|
||||||
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer,
|
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer,
|
||||||
cxEdit, cxTextEdit, cxDBEdit, cxControls;
|
cxEdit, cxTextEdit, cxDBEdit, cxControls, dxSkinsCore, dxSkinBlue,
|
||||||
|
dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
|
||||||
|
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
|
||||||
|
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||||
|
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
|
||||||
|
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
|
||||||
|
dxSkinsdxLCPainter;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrViewClienteAsociadoObra = class(TfrViewDatosYSeleccionCliente)
|
TfrViewClienteAsociadoObra = class(TfrViewDatosYSeleccionCliente)
|
||||||
|
|||||||
@ -1,6 +1,6 @@
|
|||||||
inherited frViewObra: TfrViewObra
|
inherited frViewObra: TfrViewObra
|
||||||
Width = 838
|
Width = 661
|
||||||
Height = 585
|
Height = 479
|
||||||
Align = alClient
|
Align = alClient
|
||||||
AutoSize = True
|
AutoSize = True
|
||||||
ExplicitWidth = 451
|
ExplicitWidth = 451
|
||||||
@ -8,17 +8,18 @@ inherited frViewObra: TfrViewObra
|
|||||||
object dxLayoutControlObra: TdxLayoutControl
|
object dxLayoutControlObra: TdxLayoutControl
|
||||||
Left = 0
|
Left = 0
|
||||||
Top = 0
|
Top = 0
|
||||||
Width = 838
|
Width = 661
|
||||||
Height = 585
|
Height = 479
|
||||||
Align = alClient
|
Align = alClient
|
||||||
ParentBackground = True
|
ParentBackground = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
|
TabStop = False
|
||||||
AutoContentSizes = [acsWidth, acsHeight]
|
AutoContentSizes = [acsWidth, acsHeight]
|
||||||
ExplicitWidth = 451
|
ExplicitWidth = 451
|
||||||
ExplicitHeight = 304
|
ExplicitHeight = 304
|
||||||
DesignSize = (
|
DesignSize = (
|
||||||
838
|
661
|
||||||
585)
|
479)
|
||||||
object eNombre: TcxDBTextEdit
|
object eNombre: TcxDBTextEdit
|
||||||
Left = 130
|
Left = 130
|
||||||
Top = 34
|
Top = 34
|
||||||
@ -35,7 +36,7 @@ inherited frViewObra: TfrViewObra
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 0
|
TabOrder = 0
|
||||||
Width = 204
|
Width = 116
|
||||||
end
|
end
|
||||||
object ePersonaContacto: TcxDBTextEdit
|
object ePersonaContacto: TcxDBTextEdit
|
||||||
Left = 130
|
Left = 130
|
||||||
@ -51,7 +52,7 @@ inherited frViewObra: TfrViewObra
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 1
|
TabOrder = 1
|
||||||
Width = 204
|
Width = 116
|
||||||
end
|
end
|
||||||
object eTlfTelefono: TcxDBTextEdit
|
object eTlfTelefono: TcxDBTextEdit
|
||||||
Left = 130
|
Left = 130
|
||||||
@ -66,7 +67,7 @@ inherited frViewObra: TfrViewObra
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 6
|
TabOrder = 6
|
||||||
Width = 173
|
Width = 116
|
||||||
end
|
end
|
||||||
object eTlfMovil: TcxDBTextEdit
|
object eTlfMovil: TcxDBTextEdit
|
||||||
Left = 130
|
Left = 130
|
||||||
@ -81,7 +82,7 @@ inherited frViewObra: TfrViewObra
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 7
|
TabOrder = 7
|
||||||
Width = 173
|
Width = 116
|
||||||
end
|
end
|
||||||
object eFax: TcxDBTextEdit
|
object eFax: TcxDBTextEdit
|
||||||
Left = 130
|
Left = 130
|
||||||
@ -96,7 +97,7 @@ inherited frViewObra: TfrViewObra
|
|||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 8
|
TabOrder = 8
|
||||||
Width = 173
|
Width = 116
|
||||||
end
|
end
|
||||||
object eCalle: TcxDBTextEdit
|
object eCalle: TcxDBTextEdit
|
||||||
Left = 130
|
Left = 130
|
||||||
@ -115,29 +116,35 @@ inherited frViewObra: TfrViewObra
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 2
|
TabOrder = 2
|
||||||
Width = 278
|
Width = 116
|
||||||
end
|
end
|
||||||
object ePoblacion: TcxDBTextEdit
|
object cbPoblacion: TcxDBComboBox
|
||||||
Left = 130
|
Left = 130
|
||||||
Top = 145
|
Top = 172
|
||||||
DataBinding.DataField = 'POBLACION'
|
DataBinding.DataField = 'POBLACION'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.ImmediateUpdateText = True
|
||||||
|
Properties.PostPopupValueOnTab = True
|
||||||
|
Properties.OnInitPopup = cbPoblacionPropertiesInitPopup
|
||||||
Style.BorderColor = clWindowFrame
|
Style.BorderColor = clWindowFrame
|
||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.ButtonStyle = bts3D
|
||||||
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 3
|
TabOrder = 5
|
||||||
Width = 177
|
Width = 205
|
||||||
end
|
end
|
||||||
object eCodigoPostal: TcxDBTextEdit
|
object eCodigoPostal: TcxDBTextEdit
|
||||||
Left = 333
|
Left = 234
|
||||||
Top = 145
|
Top = 145
|
||||||
DataBinding.DataField = 'CODIGO_POSTAL'
|
DataBinding.DataField = 'CODIGO_POSTAL'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
@ -153,30 +160,36 @@ inherited frViewObra: TfrViewObra
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 4
|
TabOrder = 4
|
||||||
Width = 65
|
Width = 57
|
||||||
end
|
end
|
||||||
object eProvincia: TcxDBTextEdit
|
object cbProvincia: TcxDBComboBox
|
||||||
Left = 130
|
Left = 130
|
||||||
Top = 172
|
Top = 145
|
||||||
DataBinding.DataField = 'PROVINCIA'
|
DataBinding.DataField = 'PROVINCIA'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
|
Properties.ImmediatePost = True
|
||||||
|
Properties.ImmediateUpdateText = True
|
||||||
|
Properties.PostPopupValueOnTab = True
|
||||||
|
Properties.OnInitPopup = cbProvinciaPropertiesInitPopup
|
||||||
Style.BorderColor = clWindowFrame
|
Style.BorderColor = clWindowFrame
|
||||||
Style.BorderStyle = ebs3D
|
Style.BorderStyle = ebs3D
|
||||||
Style.HotTrack = False
|
Style.HotTrack = False
|
||||||
Style.LookAndFeel.Kind = lfStandard
|
Style.LookAndFeel.Kind = lfStandard
|
||||||
Style.LookAndFeel.NativeStyle = True
|
Style.LookAndFeel.NativeStyle = True
|
||||||
|
Style.ButtonStyle = bts3D
|
||||||
|
Style.PopupBorderStyle = epbsFrame3D
|
||||||
StyleDisabled.LookAndFeel.Kind = lfStandard
|
StyleDisabled.LookAndFeel.Kind = lfStandard
|
||||||
StyleDisabled.LookAndFeel.NativeStyle = True
|
StyleDisabled.LookAndFeel.NativeStyle = True
|
||||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||||
StyleFocused.LookAndFeel.NativeStyle = True
|
StyleFocused.LookAndFeel.NativeStyle = True
|
||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 5
|
TabOrder = 3
|
||||||
Width = 278
|
Width = 65
|
||||||
end
|
end
|
||||||
object eObservaciones: TcxDBMemo
|
object eObservaciones: TcxDBMemo
|
||||||
Left = 22
|
Left = 22
|
||||||
Top = 355
|
Top = 469
|
||||||
DataBinding.DataField = 'OBSERVACIONES'
|
DataBinding.DataField = 'OBSERVACIONES'
|
||||||
DataBinding.DataSource = DADataSource
|
DataBinding.DataSource = DADataSource
|
||||||
Properties.ScrollBars = ssVertical
|
Properties.ScrollBars = ssVertical
|
||||||
@ -191,13 +204,13 @@ inherited frViewObra: TfrViewObra
|
|||||||
StyleHot.LookAndFeel.Kind = lfStandard
|
StyleHot.LookAndFeel.Kind = lfStandard
|
||||||
StyleHot.LookAndFeel.NativeStyle = True
|
StyleHot.LookAndFeel.NativeStyle = True
|
||||||
TabOrder = 11
|
TabOrder = 11
|
||||||
Height = 86
|
Height = 20
|
||||||
Width = 630
|
Width = 390
|
||||||
end
|
end
|
||||||
inline frViewSubcontrataObra1: TfrViewSubcontrataObra
|
inline frViewSubcontrataObra1: TfrViewSubcontrataObra
|
||||||
Left = 424
|
Left = 321
|
||||||
Top = 169
|
Top = 283
|
||||||
Width = 409
|
Width = 136
|
||||||
Height = 150
|
Height = 150
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
@ -207,51 +220,52 @@ inherited frViewObra: TfrViewObra
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 10
|
TabOrder = 10
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitLeft = 424
|
ExplicitLeft = 321
|
||||||
ExplicitTop = 169
|
ExplicitTop = 283
|
||||||
ExplicitWidth = 409
|
ExplicitWidth = 136
|
||||||
ExplicitHeight = 150
|
ExplicitHeight = 150
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 409
|
Width = 136
|
||||||
|
ExplicitWidth = 173
|
||||||
inherited edtlNombre: TcxDBTextEdit
|
inherited edtlNombre: TcxDBTextEdit
|
||||||
ExplicitWidth = 276
|
ExplicitWidth = 213
|
||||||
Width = 276
|
Width = 213
|
||||||
end
|
end
|
||||||
inherited edtNIFCIF: TcxDBTextEdit
|
inherited edtNIFCIF: TcxDBTextEdit
|
||||||
ExplicitWidth = 276
|
ExplicitWidth = 213
|
||||||
Width = 276
|
Width = 213
|
||||||
end
|
end
|
||||||
inherited edtCalle: TcxDBTextEdit
|
inherited edtCalle: TcxDBTextEdit
|
||||||
ExplicitWidth = 276
|
ExplicitWidth = 213
|
||||||
Width = 276
|
Width = 213
|
||||||
end
|
end
|
||||||
inherited edtPoblacion: TcxDBTextEdit
|
inherited edtPoblacion: TcxDBTextEdit
|
||||||
ExplicitWidth = 158
|
ExplicitWidth = 95
|
||||||
Width = 158
|
Width = 95
|
||||||
end
|
end
|
||||||
inherited edtProvincia: TcxDBTextEdit
|
inherited edtProvincia: TcxDBTextEdit
|
||||||
ExplicitWidth = 276
|
ExplicitWidth = 213
|
||||||
Width = 276
|
Width = 213
|
||||||
end
|
end
|
||||||
inherited edtCodigoPostal: TcxDBTextEdit
|
inherited edtCodigoPostal: TcxDBTextEdit
|
||||||
Left = 300
|
Left = 249
|
||||||
ExplicitLeft = 300
|
ExplicitLeft = 249
|
||||||
end
|
end
|
||||||
inherited Button3: TBitBtn
|
inherited Button3: TBitBtn
|
||||||
Left = 159
|
Left = 108
|
||||||
ExplicitLeft = 159
|
ExplicitLeft = 108
|
||||||
end
|
end
|
||||||
inherited edtPersonaContacto: TcxDBTextEdit
|
inherited edtPersonaContacto: TcxDBTextEdit
|
||||||
ExplicitWidth = 585
|
ExplicitWidth = 213
|
||||||
Width = 585
|
Width = 213
|
||||||
end
|
end
|
||||||
inherited edtReferenciaAsignada: TcxDBTextEdit
|
inherited edtReferenciaAsignada: TcxDBTextEdit
|
||||||
Left = 261
|
Left = 210
|
||||||
ExplicitLeft = 261
|
ExplicitLeft = 210
|
||||||
end
|
end
|
||||||
inherited edtTlf: TcxDBTextEdit
|
inherited edtTlf: TcxDBTextEdit
|
||||||
ExplicitWidth = 169
|
ExplicitWidth = 20
|
||||||
Width = 169
|
Width = 20
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
inherited DADataSource: TDADataSource
|
inherited DADataSource: TDADataSource
|
||||||
@ -268,10 +282,10 @@ inherited frViewObra: TfrViewObra
|
|||||||
end
|
end
|
||||||
end
|
end
|
||||||
inline frViewClienteAsociadoObra1: TfrViewClienteAsociadoObra
|
inline frViewClienteAsociadoObra1: TfrViewClienteAsociadoObra
|
||||||
Left = 424
|
Left = 321
|
||||||
Top = 34
|
Top = 34
|
||||||
Width = 392
|
Width = 351
|
||||||
Height = 99
|
Height = 213
|
||||||
Font.Charset = DEFAULT_CHARSET
|
Font.Charset = DEFAULT_CHARSET
|
||||||
Font.Color = clWindowText
|
Font.Color = clWindowText
|
||||||
Font.Height = -11
|
Font.Height = -11
|
||||||
@ -280,42 +294,42 @@ inherited frViewObra: TfrViewObra
|
|||||||
ParentFont = False
|
ParentFont = False
|
||||||
TabOrder = 9
|
TabOrder = 9
|
||||||
ReadOnly = False
|
ReadOnly = False
|
||||||
ExplicitLeft = 424
|
ExplicitLeft = 321
|
||||||
ExplicitTop = 34
|
ExplicitTop = 34
|
||||||
ExplicitWidth = 392
|
ExplicitWidth = 351
|
||||||
ExplicitHeight = 99
|
ExplicitHeight = 213
|
||||||
inherited dxLayoutControl1: TdxLayoutControl
|
inherited dxLayoutControl1: TdxLayoutControl
|
||||||
Width = 392
|
Width = 351
|
||||||
Height = 99
|
Height = 213
|
||||||
ExplicitWidth = 420
|
ExplicitWidth = 405
|
||||||
ExplicitHeight = 247
|
ExplicitHeight = 159
|
||||||
inherited edtlNombre: TcxDBTextEdit
|
inherited edtlNombre: TcxDBTextEdit
|
||||||
ExplicitWidth = 276
|
ExplicitWidth = 210
|
||||||
Width = 276
|
Width = 210
|
||||||
end
|
end
|
||||||
inherited edtNIFCIF: TcxDBTextEdit
|
inherited edtNIFCIF: TcxDBTextEdit
|
||||||
ExplicitWidth = 276
|
ExplicitWidth = 210
|
||||||
Width = 276
|
Width = 210
|
||||||
end
|
end
|
||||||
inherited edtCalle: TcxDBTextEdit
|
inherited edtCalle: TcxDBTextEdit
|
||||||
ExplicitWidth = 276
|
ExplicitWidth = 210
|
||||||
Width = 276
|
Width = 210
|
||||||
end
|
end
|
||||||
inherited edtPoblacion: TcxDBTextEdit
|
inherited edtPoblacion: TcxDBTextEdit
|
||||||
ExplicitWidth = 158
|
ExplicitWidth = 92
|
||||||
Width = 158
|
Width = 92
|
||||||
end
|
end
|
||||||
inherited edtProvincia: TcxDBTextEdit
|
inherited edtProvincia: TcxDBTextEdit
|
||||||
ExplicitWidth = 276
|
ExplicitWidth = 210
|
||||||
Width = 276
|
Width = 210
|
||||||
end
|
end
|
||||||
inherited edtCodigoPostal: TcxDBTextEdit
|
inherited edtCodigoPostal: TcxDBTextEdit
|
||||||
Left = 284
|
Left = 209
|
||||||
ExplicitLeft = 284
|
ExplicitLeft = 209
|
||||||
end
|
end
|
||||||
inherited Button3: TBitBtn
|
inherited Button3: TBitBtn
|
||||||
Left = 174
|
Left = 99
|
||||||
ExplicitLeft = 174
|
ExplicitLeft = 99
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
end
|
end
|
||||||
@ -360,33 +374,35 @@ inherited frViewObra: TfrViewObra
|
|||||||
Control = eCalle
|
Control = eCalle
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
|
object dxLayoutControlObraGroup11: TdxLayoutGroup
|
||||||
|
ShowCaption = False
|
||||||
|
Hidden = True
|
||||||
|
LayoutDirection = ldHorizontal
|
||||||
|
ShowBorder = False
|
||||||
|
object dxLayoutControlObraItem9: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahClient
|
||||||
|
Caption = 'Provincia:'
|
||||||
|
Control = cbProvincia
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
object dxLayoutControlObraItem7: TdxLayoutItem
|
||||||
|
AutoAligns = [aaVertical]
|
||||||
|
AlignHorz = ahRight
|
||||||
|
Caption = 'C. P.:'
|
||||||
|
Control = eCodigoPostal
|
||||||
|
ControlOptions.ShowBorder = False
|
||||||
|
end
|
||||||
|
end
|
||||||
object dxLayoutControlObraGroup5: TdxLayoutGroup
|
object dxLayoutControlObraGroup5: TdxLayoutGroup
|
||||||
ShowCaption = False
|
ShowCaption = False
|
||||||
Hidden = True
|
Hidden = True
|
||||||
ShowBorder = False
|
ShowBorder = False
|
||||||
object dxLayoutControlObraGroup6: TdxLayoutGroup
|
object dxLayoutControlObraItem2: TdxLayoutItem
|
||||||
ShowCaption = False
|
AutoAligns = [aaVertical]
|
||||||
Hidden = True
|
AlignHorz = ahClient
|
||||||
LayoutDirection = ldHorizontal
|
Caption = 'Poblaci'#243'n:'
|
||||||
ShowBorder = False
|
Control = cbPoblacion
|
||||||
object dxLayoutControlObraItem2: TdxLayoutItem
|
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
|
||||||
Caption = 'Poblaci'#243'n:'
|
|
||||||
Control = ePoblacion
|
|
||||||
ControlOptions.ShowBorder = False
|
|
||||||
end
|
|
||||||
object dxLayoutControlObraItem7: TdxLayoutItem
|
|
||||||
AutoAligns = [aaVertical]
|
|
||||||
AlignHorz = ahClient
|
|
||||||
Caption = 'C. P.:'
|
|
||||||
Control = eCodigoPostal
|
|
||||||
ControlOptions.ShowBorder = False
|
|
||||||
end
|
|
||||||
end
|
|
||||||
object dxLayoutControlObraItem9: TdxLayoutItem
|
|
||||||
Caption = 'Provincia:'
|
|
||||||
Control = eProvincia
|
|
||||||
ControlOptions.ShowBorder = False
|
ControlOptions.ShowBorder = False
|
||||||
end
|
end
|
||||||
object dxLayoutControlObraItem1: TdxLayoutItem
|
object dxLayoutControlObraItem1: TdxLayoutItem
|
||||||
|
|||||||
@ -8,7 +8,13 @@ uses
|
|||||||
DBCtrls, Grids, DBGrids, uBizObras, Mask, ComCtrls, uCustomView,
|
DBCtrls, Grids, DBGrids, uBizObras, Mask, ComCtrls, uCustomView,
|
||||||
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
||||||
cxDBEdit, dxLayoutControl, uDAInterfaces, uViewDatosYSeleccionCliente, cxMemo,
|
cxDBEdit, dxLayoutControl, uDAInterfaces, uViewDatosYSeleccionCliente, cxMemo,
|
||||||
uViewDatosYSeleccionProveedor, uViewSubcontrataObra, uViewClienteAsociadoObra;
|
uViewDatosYSeleccionProveedor, uViewSubcontrataObra, uViewClienteAsociadoObra,
|
||||||
|
dxSkinsCore, dxSkinBlue, dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans,
|
||||||
|
dxSkiniMaginary, dxSkinLilian, dxSkinLiquidSky, dxSkinLondonLiquidSky,
|
||||||
|
dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black, dxSkinOffice2007Blue,
|
||||||
|
dxSkinOffice2007Green, dxSkinOffice2007Pink, dxSkinOffice2007Silver,
|
||||||
|
dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters, dxSkinValentine,
|
||||||
|
dxSkinXmas2008Blue, dxSkinsdxLCPainter, cxGraphics, cxMaskEdit, cxDropDownEdit;
|
||||||
|
|
||||||
type
|
type
|
||||||
IViewObra = interface(IViewBase)
|
IViewObra = interface(IViewBase)
|
||||||
@ -37,13 +43,12 @@ type
|
|||||||
dxLayoutControlObraItem10: TdxLayoutItem;
|
dxLayoutControlObraItem10: TdxLayoutItem;
|
||||||
eCalle: TcxDBTextEdit;
|
eCalle: TcxDBTextEdit;
|
||||||
dxLayoutControlObraItem2: TdxLayoutItem;
|
dxLayoutControlObraItem2: TdxLayoutItem;
|
||||||
ePoblacion: TcxDBTextEdit;
|
cbPoblacion: TcxDBComboBox;
|
||||||
dxLayoutControlObraItem7: TdxLayoutItem;
|
dxLayoutControlObraItem7: TdxLayoutItem;
|
||||||
dxLayoutControlObraGroup5: TdxLayoutGroup;
|
dxLayoutControlObraGroup5: TdxLayoutGroup;
|
||||||
eCodigoPostal: TcxDBTextEdit;
|
eCodigoPostal: TcxDBTextEdit;
|
||||||
dxLayoutControlObraItem9: TdxLayoutItem;
|
dxLayoutControlObraItem9: TdxLayoutItem;
|
||||||
dxLayoutControlObraGroup6: TdxLayoutGroup;
|
cbProvincia: TcxDBComboBox;
|
||||||
eProvincia: TcxDBTextEdit;
|
|
||||||
dxLayoutControlObraGroup7: TdxLayoutGroup;
|
dxLayoutControlObraGroup7: TdxLayoutGroup;
|
||||||
dxLayoutControlObraGroup4: TdxLayoutGroup;
|
dxLayoutControlObraGroup4: TdxLayoutGroup;
|
||||||
dxLayoutControlObraItem11: TdxLayoutItem;
|
dxLayoutControlObraItem11: TdxLayoutItem;
|
||||||
@ -57,19 +62,29 @@ type
|
|||||||
frViewClienteAsociadoObra1: TfrViewClienteAsociadoObra;
|
frViewClienteAsociadoObra1: TfrViewClienteAsociadoObra;
|
||||||
dxLayoutControlObraItem12: TdxLayoutItem;
|
dxLayoutControlObraItem12: TdxLayoutItem;
|
||||||
dxLayoutControlObraItem13: TdxLayoutItem;
|
dxLayoutControlObraItem13: TdxLayoutItem;
|
||||||
|
dxLayoutControlObraGroup11: TdxLayoutGroup;
|
||||||
|
procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
|
||||||
|
procedure cbProvinciaPropertiesInitPopup(Sender: TObject);
|
||||||
protected
|
protected
|
||||||
FObra: IBizObra;
|
FObra: IBizObra;
|
||||||
|
FProvincias : TStringList;
|
||||||
|
FPoblaciones : TStringList;
|
||||||
|
procedure CargarProvincias;
|
||||||
|
procedure CargarPoblaciones;
|
||||||
function GetObra: IBizObra;
|
function GetObra: IBizObra;
|
||||||
procedure SetObra(const Value: IBizObra);
|
procedure SetObra(const Value: IBizObra);
|
||||||
procedure OnClienteChanged(Sender : TObject);
|
procedure OnClienteChanged(Sender : TObject);
|
||||||
procedure OnSubcontrataChanged(Sender : TObject);
|
procedure OnSubcontrataChanged(Sender : TObject);
|
||||||
public
|
public
|
||||||
|
constructor Create(AOwner : TComponent); override;
|
||||||
|
destructor Destroy; override;
|
||||||
property Obra: IBizObra read GetObra write SetObra;
|
property Obra: IBizObra read GetObra write SetObra;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses uDataModuleObras;
|
uses
|
||||||
|
uDataModuleObras, uProvinciasPoblacionesController, uStringsUtils;
|
||||||
|
|
||||||
{$R *.dfm}
|
{$R *.dfm}
|
||||||
|
|
||||||
@ -79,6 +94,99 @@ uses uDataModuleObras;
|
|||||||
******************************* TfrViewObras ********************************
|
******************************* TfrViewObras ********************************
|
||||||
}
|
}
|
||||||
|
|
||||||
|
procedure TfrViewObra.CargarPoblaciones;
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
|
AID : Integer;
|
||||||
|
begin
|
||||||
|
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
|
||||||
|
with TProvinciasPoblacionesController.Create do
|
||||||
|
try
|
||||||
|
FPoblaciones := DarListaPoblaciones(AID);
|
||||||
|
|
||||||
|
with cbPoblacion.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
for i := 0 to FPoblaciones.Count - 1 do
|
||||||
|
Add(FPoblaciones.Names[i]);
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewObra.CargarProvincias;
|
||||||
|
var
|
||||||
|
i : integer;
|
||||||
|
begin
|
||||||
|
with TProvinciasPoblacionesController.Create do
|
||||||
|
try
|
||||||
|
FProvincias := DarListaProvincias;
|
||||||
|
|
||||||
|
with cbProvincia.Properties.Items do
|
||||||
|
begin
|
||||||
|
BeginUpdate;
|
||||||
|
try
|
||||||
|
Clear;
|
||||||
|
for i := 0 to FProvincias.Count - 1 do
|
||||||
|
Add(FProvincias.Names[i]);
|
||||||
|
finally
|
||||||
|
EndUpdate;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
finally
|
||||||
|
Free;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewObra.cbPoblacionPropertiesInitPopup(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
FreeANDNIL(FPoblaciones);
|
||||||
|
if not Assigned(FProvincias) then
|
||||||
|
CargarProvincias;
|
||||||
|
if not EsCadenaVacia(cbProvincia.Text) and (FProvincias.IndexOfName(cbProvincia.Text) <> -1) then
|
||||||
|
CargarPoblaciones
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TfrViewObra.cbProvinciaPropertiesInitPopup(Sender: TObject);
|
||||||
|
begin
|
||||||
|
ShowHourglassCursor;
|
||||||
|
try
|
||||||
|
if not Assigned(FProvincias) then
|
||||||
|
CargarProvincias;
|
||||||
|
finally
|
||||||
|
HideHourglassCursor;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
constructor TfrViewObra.Create(AOwner: TComponent);
|
||||||
|
begin
|
||||||
|
inherited;
|
||||||
|
FProvincias := NIL;
|
||||||
|
FPoblaciones := NIL;
|
||||||
|
end;
|
||||||
|
|
||||||
|
destructor TfrViewObra.Destroy;
|
||||||
|
begin
|
||||||
|
if Assigned(FProvincias) then
|
||||||
|
FreeANDNIL(FProvincias);
|
||||||
|
|
||||||
|
if Assigned(FPoblaciones) then
|
||||||
|
FreeANDNIL(FPoblaciones);
|
||||||
|
|
||||||
|
inherited;
|
||||||
|
end;
|
||||||
|
|
||||||
function TfrViewObra.GetObra: IBizObra;
|
function TfrViewObra.GetObra: IBizObra;
|
||||||
begin
|
begin
|
||||||
Result := FObra;
|
Result := FObra;
|
||||||
|
|||||||
@ -6,7 +6,13 @@ uses
|
|||||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||||
Dialogs, uViewDatosYSeleccionProveedor, ImgList, PngImageList, ActnList, DB,
|
Dialogs, uViewDatosYSeleccionProveedor, ImgList, PngImageList, ActnList, DB,
|
||||||
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer,
|
uDAInterfaces, uDADataTable, dxLayoutControl, StdCtrls, Buttons, cxContainer,
|
||||||
cxEdit, cxTextEdit, cxDBEdit, cxControls;
|
cxEdit, cxTextEdit, cxDBEdit, cxControls, dxSkinsCore, dxSkinBlue,
|
||||||
|
dxSkinCaramel, dxSkinCoffee, dxSkinGlassOceans, dxSkiniMaginary, dxSkinLilian,
|
||||||
|
dxSkinLiquidSky, dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins,
|
||||||
|
dxSkinOffice2007Black, dxSkinOffice2007Blue, dxSkinOffice2007Green,
|
||||||
|
dxSkinOffice2007Pink, dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust,
|
||||||
|
dxSkinsDefaultPainters, dxSkinValentine, dxSkinXmas2008Blue,
|
||||||
|
dxSkinsdxLCPainter;
|
||||||
|
|
||||||
type
|
type
|
||||||
TfrViewSubcontrataObra = class(TfrViewDatosYSeleccionProveedor)
|
TfrViewSubcontrataObra = class(TfrViewDatosYSeleccionProveedor)
|
||||||
|
|||||||
@ -433,6 +433,29 @@
|
|||||||
</Interface>
|
</Interface>
|
||||||
</Interfaces>
|
</Interfaces>
|
||||||
</Service>
|
</Service>
|
||||||
|
<Service Name="srvProvinciasPoblaciones" UID="{53B9BB4D-E2E3-49DD-95CD-1CE683A70348}">
|
||||||
|
<Group Under="{3FE097B9-EDAC-4F49-989D-60719DC0A2C7}" />
|
||||||
|
<Interfaces>
|
||||||
|
<Interface Name="Default" UID="{551D8756-51AE-4929-B235-107CD7B05C38}">
|
||||||
|
<Operations>
|
||||||
|
<Operation Name="DarListaProvincias" UID="{60B37AF5-718E-4CB2-A534-F6BF6E62FA82}">
|
||||||
|
<Parameters>
|
||||||
|
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||||
|
</Parameter>
|
||||||
|
</Parameters>
|
||||||
|
</Operation>
|
||||||
|
<Operation Name="DarListaPoblaciones" UID="{517D968F-27F8-41CB-A0E4-A73F45029637}">
|
||||||
|
<Parameters>
|
||||||
|
<Parameter Name="Result" DataType="Binary" Flag="Result">
|
||||||
|
</Parameter>
|
||||||
|
<Parameter Name="ID_Provincia" DataType="Integer" Flag="In" >
|
||||||
|
</Parameter>
|
||||||
|
</Parameters>
|
||||||
|
</Operation>
|
||||||
|
</Operations>
|
||||||
|
</Interface>
|
||||||
|
</Interfaces>
|
||||||
|
</Service>
|
||||||
</Services>
|
</Services>
|
||||||
<EventSinks>
|
<EventSinks>
|
||||||
</EventSinks>
|
</EventSinks>
|
||||||
|
|||||||
@ -49,6 +49,7 @@ const
|
|||||||
IsrvUnidadesMedida_IID : TGUID = '{8B4C72F0-5ACE-46FF-9F00-D70C2B611652}';
|
IsrvUnidadesMedida_IID : TGUID = '{8B4C72F0-5ACE-46FF-9F00-D70C2B611652}';
|
||||||
IsrvFabricantes_IID : TGUID = '{E26547E0-9E61-4BC8-B154-49ACC9339875}';
|
IsrvFabricantes_IID : TGUID = '{E26547E0-9E61-4BC8-B154-49ACC9339875}';
|
||||||
IsrvObras_IID : TGUID = '{39277224-A0BD-4249-9ACA-39D238798B25}';
|
IsrvObras_IID : TGUID = '{39277224-A0BD-4249-9ACA-39D238798B25}';
|
||||||
|
IsrvProvinciasPoblaciones_IID : TGUID = '{551D8756-51AE-4929-B235-107CD7B05C38}';
|
||||||
|
|
||||||
{ Event ID's }
|
{ Event ID's }
|
||||||
|
|
||||||
@ -80,6 +81,7 @@ type
|
|||||||
IsrvUnidadesMedida = interface;
|
IsrvUnidadesMedida = interface;
|
||||||
IsrvFabricantes = interface;
|
IsrvFabricantes = interface;
|
||||||
IsrvObras = interface;
|
IsrvObras = interface;
|
||||||
|
IsrvProvinciasPoblaciones = interface;
|
||||||
|
|
||||||
TRdxEmpresasArray = class;
|
TRdxEmpresasArray = class;
|
||||||
|
|
||||||
@ -654,6 +656,27 @@ type
|
|||||||
|
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{ IsrvProvinciasPoblaciones }
|
||||||
|
IsrvProvinciasPoblaciones = interface
|
||||||
|
['{551D8756-51AE-4929-B235-107CD7B05C38}']
|
||||||
|
function DarListaProvincias: Binary;
|
||||||
|
function DarListaPoblaciones(const ID_Provincia: Integer): Binary;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ CosrvProvinciasPoblaciones }
|
||||||
|
CosrvProvinciasPoblaciones = class
|
||||||
|
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvProvinciasPoblaciones;
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TsrvProvinciasPoblaciones_Proxy }
|
||||||
|
TsrvProvinciasPoblaciones_Proxy = class(TROProxy, IsrvProvinciasPoblaciones)
|
||||||
|
protected
|
||||||
|
function __GetInterfaceName:string; override;
|
||||||
|
|
||||||
|
function DarListaProvincias: Binary;
|
||||||
|
function DarListaPoblaciones(const ID_Provincia: Integer): Binary;
|
||||||
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
@ -1706,6 +1729,53 @@ begin
|
|||||||
result := 'srvObras';
|
result := 'srvObras';
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{ CosrvProvinciasPoblaciones }
|
||||||
|
|
||||||
|
class function CosrvProvinciasPoblaciones.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvProvinciasPoblaciones;
|
||||||
|
begin
|
||||||
|
result := TsrvProvinciasPoblaciones_Proxy.Create(aMessage, aTransportChannel);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ TsrvProvinciasPoblaciones_Proxy }
|
||||||
|
|
||||||
|
function TsrvProvinciasPoblaciones_Proxy.__GetInterfaceName:string;
|
||||||
|
begin
|
||||||
|
result := 'srvProvinciasPoblaciones';
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TsrvProvinciasPoblaciones_Proxy.DarListaProvincias: Binary;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
result := nil;
|
||||||
|
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaProvincias');
|
||||||
|
__Message.Finalize;
|
||||||
|
|
||||||
|
__TransportChannel.Dispatch(__Message);
|
||||||
|
|
||||||
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
||||||
|
finally
|
||||||
|
__Message.UnsetAttributes(__TransportChannel);
|
||||||
|
__Message.FreeStream;
|
||||||
|
end
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TsrvProvinciasPoblaciones_Proxy.DarListaPoblaciones(const ID_Provincia: Integer): Binary;
|
||||||
|
begin
|
||||||
|
try
|
||||||
|
result := nil;
|
||||||
|
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaPoblaciones');
|
||||||
|
__Message.Write('ID_Provincia', TypeInfo(Integer), ID_Provincia, []);
|
||||||
|
__Message.Finalize;
|
||||||
|
|
||||||
|
__TransportChannel.Dispatch(__Message);
|
||||||
|
|
||||||
|
__Message.Read('Result', TypeInfo(Binary), result, []);
|
||||||
|
finally
|
||||||
|
__Message.UnsetAttributes(__TransportChannel);
|
||||||
|
__Message.FreeStream;
|
||||||
|
end
|
||||||
|
end;
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
RegisterROClass(TRdxLoginInfo);
|
RegisterROClass(TRdxLoginInfo);
|
||||||
RegisterROClass(TRdxEmpresasArray);
|
RegisterROClass(TRdxEmpresasArray);
|
||||||
@ -1735,6 +1805,7 @@ initialization
|
|||||||
RegisterProxyClass(IsrvUnidadesMedida_IID, TsrvUnidadesMedida_Proxy);
|
RegisterProxyClass(IsrvUnidadesMedida_IID, TsrvUnidadesMedida_Proxy);
|
||||||
RegisterProxyClass(IsrvFabricantes_IID, TsrvFabricantes_Proxy);
|
RegisterProxyClass(IsrvFabricantes_IID, TsrvFabricantes_Proxy);
|
||||||
RegisterProxyClass(IsrvObras_IID, TsrvObras_Proxy);
|
RegisterProxyClass(IsrvObras_IID, TsrvObras_Proxy);
|
||||||
|
RegisterProxyClass(IsrvProvinciasPoblaciones_IID, TsrvProvinciasPoblaciones_Proxy);
|
||||||
|
|
||||||
|
|
||||||
finalization
|
finalization
|
||||||
@ -1766,5 +1837,6 @@ finalization
|
|||||||
UnregisterProxyClass(IsrvUnidadesMedida_IID);
|
UnregisterProxyClass(IsrvUnidadesMedida_IID);
|
||||||
UnregisterProxyClass(IsrvFabricantes_IID);
|
UnregisterProxyClass(IsrvFabricantes_IID);
|
||||||
UnregisterProxyClass(IsrvObras_IID);
|
UnregisterProxyClass(IsrvObras_IID);
|
||||||
|
UnregisterProxyClass(IsrvProvinciasPoblaciones_IID);
|
||||||
|
|
||||||
end.
|
end.
|
||||||
|
|||||||
@ -202,6 +202,14 @@ type
|
|||||||
published
|
published
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
TsrvProvinciasPoblaciones_Invoker = class(TROInvoker)
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
published
|
||||||
|
procedure Invoke_DarListaProvincias(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
|
procedure Invoke_DarListaPoblaciones(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
|
end;
|
||||||
|
|
||||||
implementation
|
implementation
|
||||||
|
|
||||||
uses
|
uses
|
||||||
@ -907,5 +915,60 @@ begin
|
|||||||
end;
|
end;
|
||||||
end;
|
end;
|
||||||
|
|
||||||
|
{ TsrvProvinciasPoblaciones_Invoker }
|
||||||
|
|
||||||
|
procedure TsrvProvinciasPoblaciones_Invoker.Invoke_DarListaProvincias(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
|
{ function DarListaProvincias: Binary; }
|
||||||
|
var
|
||||||
|
lResult: Binary;
|
||||||
|
__lObjectDisposer: TROObjectDisposer;
|
||||||
|
begin
|
||||||
|
lResult := nil;
|
||||||
|
try
|
||||||
|
lResult := (__Instance as IsrvProvinciasPoblaciones).DarListaProvincias;
|
||||||
|
|
||||||
|
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvProvinciasPoblaciones', 'DarListaProvinciasResponse');
|
||||||
|
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||||
|
__Message.Finalize;
|
||||||
|
__Message.UnsetAttributes(__Transport);
|
||||||
|
|
||||||
|
finally
|
||||||
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
||||||
|
try
|
||||||
|
__lObjectDisposer.Add(lResult);
|
||||||
|
finally
|
||||||
|
__lObjectDisposer.Free();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
|
procedure TsrvProvinciasPoblaciones_Invoker.Invoke_DarListaPoblaciones(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
|
||||||
|
{ function DarListaPoblaciones(const ID_Provincia: Integer): Binary; }
|
||||||
|
var
|
||||||
|
ID_Provincia: Integer;
|
||||||
|
lResult: Binary;
|
||||||
|
__lObjectDisposer: TROObjectDisposer;
|
||||||
|
begin
|
||||||
|
lResult := nil;
|
||||||
|
try
|
||||||
|
__Message.Read('ID_Provincia', TypeInfo(Integer), ID_Provincia, []);
|
||||||
|
|
||||||
|
lResult := (__Instance as IsrvProvinciasPoblaciones).DarListaPoblaciones(ID_Provincia);
|
||||||
|
|
||||||
|
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvProvinciasPoblaciones', 'DarListaPoblacionesResponse');
|
||||||
|
__Message.Write('Result', TypeInfo(Binary), lResult, []);
|
||||||
|
__Message.Finalize;
|
||||||
|
__Message.UnsetAttributes(__Transport);
|
||||||
|
|
||||||
|
finally
|
||||||
|
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
|
||||||
|
try
|
||||||
|
__lObjectDisposer.Add(lResult);
|
||||||
|
finally
|
||||||
|
__lObjectDisposer.Free();
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
end;
|
||||||
|
|
||||||
initialization
|
initialization
|
||||||
end.
|
end.
|
||||||
|
|||||||
Binary file not shown.
Binary file not shown.
@ -100,6 +100,8 @@ uses
|
|||||||
srvFabricantes_Impl in '..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas' {srvFabricantes: TDataAbstractService},
|
srvFabricantes_Impl in '..\Modulos\Fabricantes\Servidor\srvFabricantes_Impl.pas' {srvFabricantes: TDataAbstractService},
|
||||||
schFabricantesClient_Intf in '..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas',
|
schFabricantesClient_Intf in '..\Modulos\Fabricantes\Model\schFabricantesClient_Intf.pas',
|
||||||
schFabricantesServer_Intf in '..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas',
|
schFabricantesServer_Intf in '..\Modulos\Fabricantes\Model\schFabricantesServer_Intf.pas',
|
||||||
|
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
|
||||||
|
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas',
|
||||||
uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule},
|
uRptPedidosProveedor_Server in '..\Modulos\Pedidos a proveedor\Reports\uRptPedidosProveedor_Server.pas' {RptPedidosProveedor: TDataModule},
|
||||||
uRptWordPedidoProveedor in '..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas' {RptWordPedidoProveedor: TDataModule},
|
uRptWordPedidoProveedor in '..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas' {RptWordPedidoProveedor: TDataModule},
|
||||||
srvObras_Impl in '..\Modulos\Obras\Servidor\srvObras_Impl.pas',
|
srvObras_Impl in '..\Modulos\Obras\Servidor\srvObras_Impl.pas',
|
||||||
@ -123,8 +125,7 @@ uses
|
|||||||
uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule},
|
uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule},
|
||||||
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
|
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
|
||||||
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
|
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
|
||||||
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
|
srvProvinciasPoblaciones_Impl in '..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas';
|
||||||
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas';
|
|
||||||
|
|
||||||
{$R *.res}
|
{$R *.res}
|
||||||
{$R ..\Servicios\RODLFile.res}
|
{$R ..\Servicios\RODLFile.res}
|
||||||
|
|||||||
@ -35,7 +35,7 @@
|
|||||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||||
<Borland.ProjectType />
|
<Borland.ProjectType />
|
||||||
<BorlandProject>
|
<BorlandProject>
|
||||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">5</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.5.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.5.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">martes, 03 de junio de 2008 19:12</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters><Parameters Name="RunParams">/standalone</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">7</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.7.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.7.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys><VersionInfoKeys Name="CompileDate">jueves, 05 de junio de 2008 20:23</VersionInfoKeys></VersionInfoKeys><Excluded_Packages /><Source><Source Name="MainSource">FactuGES_Server.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||||
</ProjectExtensions>
|
</ProjectExtensions>
|
||||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||||
<ItemGroup>
|
<ItemGroup>
|
||||||
@ -48,6 +48,7 @@
|
|||||||
<Form>srvEmpresas</Form>
|
<Form>srvEmpresas</Form>
|
||||||
<DesignClass>TDARemoteService</DesignClass>
|
<DesignClass>TDARemoteService</DesignClass>
|
||||||
</DCCReference>
|
</DCCReference>
|
||||||
|
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas" />
|
||||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
||||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
||||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
|
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
|
||||||
|
|||||||
@ -1,7 +1,7 @@
|
|||||||
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
|
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
|
||||||
1 VERSIONINFO
|
1 VERSIONINFO
|
||||||
FILEVERSION 1,0,5,0
|
FILEVERSION 1,0,7,0
|
||||||
PRODUCTVERSION 1,0,5,0
|
PRODUCTVERSION 1,0,7,0
|
||||||
FILEFLAGSMASK 0x3FL
|
FILEFLAGSMASK 0x3FL
|
||||||
FILEFLAGS 0x00L
|
FILEFLAGS 0x00L
|
||||||
FILEOS 0x40004L
|
FILEOS 0x40004L
|
||||||
@ -12,9 +12,9 @@ BEGIN
|
|||||||
BEGIN
|
BEGIN
|
||||||
BLOCK "0C0A04E4"
|
BLOCK "0C0A04E4"
|
||||||
BEGIN
|
BEGIN
|
||||||
VALUE "FileVersion", "1.0.5.0\0"
|
VALUE "FileVersion", "1.0.7.0\0"
|
||||||
VALUE "ProductVersion", "1.0.5.0\0"
|
VALUE "ProductVersion", "1.0.7.0\0"
|
||||||
VALUE "CompileDate", "viernes, 06 de junio de 2008 10:48\0"
|
VALUE "CompileDate", "lunes, 09 de junio de 2008 19:29\0"
|
||||||
END
|
END
|
||||||
END
|
END
|
||||||
BLOCK "VarFileInfo"
|
BLOCK "VarFileInfo"
|
||||||
|
|||||||
7
Source/Servidor/srvProvinciasPoblaciones_Impl.dfm
Normal file
7
Source/Servidor/srvProvinciasPoblaciones_Impl.dfm
Normal file
@ -0,0 +1,7 @@
|
|||||||
|
object srvProvinciasPoblaciones: TsrvProvinciasPoblaciones
|
||||||
|
OldCreateOrder = True
|
||||||
|
Left = 200
|
||||||
|
Top = 200
|
||||||
|
Height = 300
|
||||||
|
Width = 300
|
||||||
|
end
|
||||||
56
Source/Servidor/srvProvinciasPoblaciones_Impl.pas
Normal file
56
Source/Servidor/srvProvinciasPoblaciones_Impl.pas
Normal file
@ -0,0 +1,56 @@
|
|||||||
|
unit srvProvinciasPoblaciones_Impl;
|
||||||
|
|
||||||
|
{----------------------------------------------------------------------------}
|
||||||
|
{ This unit was automatically generated by the RemObjects SDK after reading }
|
||||||
|
{ the RODL file associated with this project . }
|
||||||
|
{ }
|
||||||
|
{ This is where you are supposed to code the implementation of your objects. }
|
||||||
|
{----------------------------------------------------------------------------}
|
||||||
|
|
||||||
|
{$I Remobjects.inc}
|
||||||
|
|
||||||
|
interface
|
||||||
|
|
||||||
|
uses
|
||||||
|
{vcl:} Classes, SysUtils,
|
||||||
|
{RemObjects:} uROXMLIntf, uROClientIntf, uROTypes, uROServer, uROServerIntf, uROSessions,
|
||||||
|
{Required:} uRORemoteDataModule,
|
||||||
|
{Used RODLs:} DataAbstract4_Intf,
|
||||||
|
{Generated:} FactuGES_Intf;
|
||||||
|
|
||||||
|
type
|
||||||
|
{ TsrvProvinciasPoblaciones }
|
||||||
|
TsrvProvinciasPoblaciones = class(TRORemoteDataModule, IsrvProvinciasPoblaciones)
|
||||||
|
private
|
||||||
|
protected
|
||||||
|
{ IsrvProvinciasPoblaciones methods }
|
||||||
|
function DarListaProvincias: Binary;
|
||||||
|
function DarListaPoblaciones(const ID_Provincia: Integer): Binary;
|
||||||
|
end;
|
||||||
|
|
||||||
|
implementation
|
||||||
|
|
||||||
|
{$R *.dfm}
|
||||||
|
uses
|
||||||
|
{Generated:} FactuGES_Invk;
|
||||||
|
|
||||||
|
procedure Create_srvProvinciasPoblaciones(out anInstance : IUnknown);
|
||||||
|
begin
|
||||||
|
anInstance := TsrvProvinciasPoblaciones.Create(nil);
|
||||||
|
end;
|
||||||
|
|
||||||
|
{ srvProvinciasPoblaciones }
|
||||||
|
function TsrvProvinciasPoblaciones.DarListaProvincias: Binary;
|
||||||
|
begin
|
||||||
|
end;
|
||||||
|
|
||||||
|
function TsrvProvinciasPoblaciones.DarListaPoblaciones(const ID_Provincia: Integer): Binary;
|
||||||
|
begin
|
||||||
|
end;
|
||||||
|
|
||||||
|
initialization
|
||||||
|
TROClassFactory.Create('srvProvinciasPoblaciones', Create_srvProvinciasPoblaciones, TsrvProvinciasPoblaciones_Invoker);
|
||||||
|
|
||||||
|
finalization
|
||||||
|
|
||||||
|
end.
|
||||||
Loading…
Reference in New Issue
Block a user