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">
|
||||
<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)" />
|
||||
|
||||
<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 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);
|
||||
SET GENERATOR GEN_EMPRESAS_ID TO 2;
|
||||
COMMIT WORK;
|
||||
|
||||
|
||||
@ -88,6 +88,8 @@ contains
|
||||
uViewUsuarios in 'Usuarios\Views\uViewUsuarios.pas' {frViewUsuarios: TFrame},
|
||||
uEditorUsuario in 'Usuarios\Views\uEditorUsuario.pas' {fEditorUsuario: 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.
|
||||
|
||||
@ -46,6 +46,48 @@
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="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\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
|
||||
@ -60,27 +102,6 @@
|
||||
<DelphiCompile Include="ApplicationBase.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</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\uEmpresasController.pas" />
|
||||
<DCCReference Include="Empresas\Controller\View\uIEditorDatosBancarioEmpresa.pas" />
|
||||
@ -99,6 +120,32 @@
|
||||
<DCCReference Include="Empresas\Views\uEmpresasViewRegister.pas" />
|
||||
<DCCReference Include="Empresas\Views\uViewDatosBancarios.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="Usuarios\Controller\uUsuariosController.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">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\Modulos\Contactos\adortl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\designide.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dsnap.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\IndyCore.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\Jcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JclVcl.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\pckMD5.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\Modulos\Contactos\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="..\adortl.dcp" />
|
||||
<DCCReference Include="..\cxDataD11.dcp" />
|
||||
<DCCReference Include="..\cxEditorsD11.dcp" />
|
||||
<DCCReference Include="..\cxExportD11.dcp" />
|
||||
<DCCReference Include="..\cxExtEditorsD11.dcp" />
|
||||
<DCCReference Include="..\cxGridD11.dcp" />
|
||||
<DCCReference Include="..\cxIntl6D11.dcp" />
|
||||
<DCCReference Include="..\cxIntlPrintSys3D11.dcp" />
|
||||
<DCCReference Include="..\cxLibraryD11.dcp" />
|
||||
<DCCReference Include="..\cxPageControlD11.dcp" />
|
||||
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
|
||||
<DCCReference Include="..\dbrtl.dcp" />
|
||||
<DCCReference Include="..\dclIndyCore.dcp" />
|
||||
<DCCReference Include="..\designide.dcp" />
|
||||
<DCCReference Include="..\dsnap.dcp" />
|
||||
<DCCReference Include="..\dxGDIPlusD11.dcp" />
|
||||
<DCCReference Include="..\dxPSCoreD11.dcp" />
|
||||
<DCCReference Include="..\dxThemeD11.dcp" />
|
||||
<DCCReference Include="..\GUISDK_D11.dcp" />
|
||||
<DCCReference Include="..\IndyCore.dcp" />
|
||||
<DCCReference Include="..\IndyProtocols.dcp" />
|
||||
<DCCReference Include="..\IndySystem.dcp" />
|
||||
<DCCReference Include="..\Jcl.dcp" />
|
||||
<DCCReference Include="..\JclVcl.dcp" />
|
||||
<DCCReference Include="..\JSDialog100.dcp" />
|
||||
<DCCReference Include="..\JvCmpD11R.dcp" />
|
||||
<DCCReference Include="..\JvCoreD11R.dcp" />
|
||||
<DCCReference Include="..\JvCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\JvDlgsD11R.dcp" />
|
||||
<DCCReference Include="..\JvMMD11R.dcp" />
|
||||
<DCCReference Include="..\JvNetD11R.dcp" />
|
||||
<DCCReference Include="..\JvPageCompsD11R.dcp" />
|
||||
<DCCReference Include="..\JvStdCtrlsD11R.dcp" />
|
||||
<DCCReference Include="..\JvSystemD11R.dcp" />
|
||||
<DCCReference Include="..\pckMD5.dcp" />
|
||||
<DCCReference Include="..\pckUCDataConnector.dcp" />
|
||||
<DCCReference Include="..\pckUserControl_RT.dcp" />
|
||||
<DCCReference Include="..\PngComponentsD10.dcp" />
|
||||
<DCCReference Include="..\PNG_D10.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
|
||||
<DCCReference Include="..\RemObjects_Indy_D11.dcp" />
|
||||
<DCCReference Include="..\rtl.dcp" />
|
||||
<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">
|
||||
<Form>fConfigurarConexion</Form>
|
||||
<DesignClass>TForm</DesignClass>
|
||||
|
||||
@ -54,39 +54,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<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"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,6,0
|
||||
PRODUCTVERSION 1,0,6,0
|
||||
FILEVERSION 1,0,7,0
|
||||
PRODUCTVERSION 1,0,7,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -13,10 +13,10 @@ BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
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 "ProductName", "FactuGES\0"
|
||||
VALUE "ProductVersion", "1.0.6.0\0"
|
||||
VALUE "ProductVersion", "1.0.7.0\0"
|
||||
END
|
||||
END
|
||||
BLOCK "VarFileInfo"
|
||||
|
||||
Binary file not shown.
@ -39,78 +39,42 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""> <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">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>
|
||||
<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>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="Almacenes_view.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\..\Lib\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\..\..\Lib\Almacenes_model.dcp" />
|
||||
<DCCReference Include="..\..\..\Lib\ApplicationBase.dcp" />
|
||||
<DCCReference Include="..\Almacenes_controller.dcp" />
|
||||
<DCCReference Include="..\Almacenes_model.dcp" />
|
||||
<DCCReference Include="..\ApplicationBase.dcp" />
|
||||
<DCCReference Include="uAlmacenesViewRegister.pas" />
|
||||
<DCCReference Include="uEditorAlmacen.pas">
|
||||
<Form>fEditorAlmacen</Form>
|
||||
<DesignClass>TfEditorAlmacen</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorAlmacenes.pas">
|
||||
<Form>fEditorAlmacenes</Form>
|
||||
<DesignClass>TfEditorAlmacenes</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uEditorListaAlmacenes.pas">
|
||||
<Form>fEditorListaAlmacenes</Form>
|
||||
<DesignClass>TfListaAlmacenes</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewAlmacen.pas">
|
||||
<Form>frViewAlmacen</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="uViewAlmacenes.pas">
|
||||
<Form>frViewAlmacenes</Form>
|
||||
<DesignClass>TFrame</DesignClass>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
|
||||
<!-- EurekaLog First Line
|
||||
[Exception Log]
|
||||
EurekaLog Version=6006
|
||||
EurekaLog Version=6011
|
||||
Activate=0
|
||||
Activate Handle=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
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitWidth = 640
|
||||
ExplicitHeight = 488
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
@ -96,13 +95,13 @@ inherited fEditorAlmacen: TfEditorAlmacen
|
||||
end
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 632
|
||||
ExplicitWidth = 632
|
||||
Width = 626
|
||||
ExplicitWidth = 626
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitLeft = 4
|
||||
ExplicitTop = 24
|
||||
ExplicitWidth = 624
|
||||
ExplicitHeight = 338
|
||||
ExplicitWidth = 618
|
||||
ExplicitHeight = 332
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
|
||||
@ -13,6 +13,7 @@ inherited frViewAlmacen: TfrViewAlmacen
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
DesignSize = (
|
||||
451
|
||||
@ -33,7 +34,7 @@ inherited frViewAlmacen: TfrViewAlmacen
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 0
|
||||
Width = 204
|
||||
Width = 101
|
||||
end
|
||||
object ePersonaContacto: TcxDBTextEdit
|
||||
Left = 130
|
||||
@ -49,7 +50,7 @@ inherited frViewAlmacen: TfrViewAlmacen
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 1
|
||||
Width = 204
|
||||
Width = 101
|
||||
end
|
||||
object eTlfTelefono: TcxDBTextEdit
|
||||
Left = 341
|
||||
@ -64,7 +65,7 @@ inherited frViewAlmacen: TfrViewAlmacen
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 2
|
||||
Width = 173
|
||||
Width = 88
|
||||
end
|
||||
object eTlfMovil: TcxDBTextEdit
|
||||
Left = 341
|
||||
@ -79,7 +80,7 @@ inherited frViewAlmacen: TfrViewAlmacen
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 3
|
||||
Width = 173
|
||||
Width = 88
|
||||
end
|
||||
object eFax: TcxDBTextEdit
|
||||
Left = 341
|
||||
@ -94,7 +95,7 @@ inherited frViewAlmacen: TfrViewAlmacen
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
Width = 173
|
||||
Width = 88
|
||||
end
|
||||
object eCalle: TcxDBTextEdit
|
||||
Left = 130
|
||||
@ -113,29 +114,35 @@ inherited frViewAlmacen: TfrViewAlmacen
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 5
|
||||
Width = 278
|
||||
Width = 299
|
||||
end
|
||||
object ePoblacion: TcxDBTextEdit
|
||||
object cbPoblacion: TcxDBComboBox
|
||||
Left = 130
|
||||
Top = 166
|
||||
Top = 193
|
||||
DataBinding.DataField = 'POBLACION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.ImmediatePost = True
|
||||
Properties.ImmediateUpdateText = True
|
||||
Properties.PostPopupValueOnTab = True
|
||||
Properties.OnInitPopup = cbPoblacionPropertiesInitPopup
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
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 = 177
|
||||
TabOrder = 8
|
||||
Width = 299
|
||||
end
|
||||
object eCodigoPostal: TcxDBTextEdit
|
||||
Left = 359
|
||||
Left = 355
|
||||
Top = 166
|
||||
DataBinding.DataField = 'CODIGO_POSTAL'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -151,26 +158,32 @@ inherited frViewAlmacen: TfrViewAlmacen
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
Width = 65
|
||||
Width = 74
|
||||
end
|
||||
object eProvincia: TcxDBTextEdit
|
||||
object cbProvincia: TcxDBComboBox
|
||||
Left = 130
|
||||
Top = 193
|
||||
Top = 166
|
||||
DataBinding.DataField = 'PROVINCIA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.ImmediatePost = True
|
||||
Properties.ImmediateUpdateText = True
|
||||
Properties.PostPopupValueOnTab = True
|
||||
Properties.OnInitPopup = cbProvinciaPropertiesInitPopup
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
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 = 8
|
||||
Width = 278
|
||||
TabOrder = 6
|
||||
Width = 186
|
||||
end
|
||||
object dxLayoutControlAlmacenGroup_Root: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
@ -224,39 +237,36 @@ inherited frViewAlmacen: TfrViewAlmacen
|
||||
Control = eCalle
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlAlmacenGroup5: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControlAlmacenGroup6: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControlAlmacenItem2: TdxLayoutItem
|
||||
object dxLayoutControlAlmacenItem9: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Poblaci'#243'n:'
|
||||
Control = ePoblacion
|
||||
Caption = 'Provincia:'
|
||||
Control = cbProvincia
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlAlmacenItem7: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
AlignHorz = ahRight
|
||||
Caption = 'C. P.:'
|
||||
Control = eCodigoPostal
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControlAlmacenItem9: TdxLayoutItem
|
||||
Caption = 'Provincia:'
|
||||
Control = eProvincia
|
||||
object dxLayoutControlAlmacenItem2: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Poblaci'#243'n:'
|
||||
Control = cbPoblacion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
object DADataSource: TDADataSource
|
||||
Left = 336
|
||||
Top = 64
|
||||
|
||||
@ -7,7 +7,13 @@ uses
|
||||
Dialogs, uViewBase, ExtCtrls, StdCtrls, Buttons, DB, uDADataTable,
|
||||
DBCtrls, Grids, DBGrids, uBizAlmacenes, Mask, ComCtrls, uCustomView,
|
||||
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
|
||||
IViewAlmacen = interface(IViewBase)
|
||||
@ -38,24 +44,33 @@ type
|
||||
dxLayoutControlAlmacenItem10: TdxLayoutItem;
|
||||
eCalle: TcxDBTextEdit;
|
||||
dxLayoutControlAlmacenItem2: TdxLayoutItem;
|
||||
ePoblacion: TcxDBTextEdit;
|
||||
cbPoblacion: TcxDBComboBox;
|
||||
dxLayoutControlAlmacenItem7: TdxLayoutItem;
|
||||
dxLayoutControlAlmacenGroup5: TdxLayoutGroup;
|
||||
eCodigoPostal: TcxDBTextEdit;
|
||||
dxLayoutControlAlmacenItem9: TdxLayoutItem;
|
||||
cbProvincia: TcxDBComboBox;
|
||||
dxLayoutControlAlmacenGroup6: TdxLayoutGroup;
|
||||
eProvincia: TcxDBTextEdit;
|
||||
procedure cbProvinciaPropertiesInitPopup(Sender: TObject);
|
||||
procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
|
||||
protected
|
||||
FAlmacen: IBizAlmacen;
|
||||
FProvincias : TStringList;
|
||||
FPoblaciones : TStringList;
|
||||
procedure CargarProvincias;
|
||||
procedure CargarPoblaciones;
|
||||
function GetAlmacen: IBizAlmacen;
|
||||
procedure SetAlmacen(const Value: IBizAlmacen);
|
||||
public
|
||||
constructor Create(AOwner : TComponent); override;
|
||||
destructor Destroy;
|
||||
property Almacen: IBizAlmacen read GetAlmacen write SetAlmacen;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses uDataModuleAlmacenes;
|
||||
uses
|
||||
uDataModuleAlmacenes, uProvinciasPoblacionesController, uStringsUtils;
|
||||
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -65,6 +80,97 @@ uses uDataModuleAlmacenes;
|
||||
******************************* 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;
|
||||
begin
|
||||
Result := FAlmacen;
|
||||
|
||||
@ -3,7 +3,7 @@ unit schArticulosClient_Intf;
|
||||
interface
|
||||
|
||||
uses
|
||||
Classes, DB, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
Classes, DB, schBase_Intf, SysUtils, uROClasses, uDADataTable, FmtBCD, uROXMLIntf;
|
||||
|
||||
const
|
||||
{ Data table rules ids
|
||||
@ -294,7 +294,7 @@ type
|
||||
end;
|
||||
|
||||
{ TArticulosDataTableRules }
|
||||
TArticulosDataTableRules = class(TDADataTableRules, IArticulos)
|
||||
TArticulosDataTableRules = class(TIntfObjectDADataTableRules, IArticulos)
|
||||
private
|
||||
f_IMAGEN: IROStream;
|
||||
procedure IMAGEN_OnChange(Sender: TObject);
|
||||
@ -632,7 +632,7 @@ type
|
||||
end;
|
||||
|
||||
{ TArticulosParaClienteDataTableRules }
|
||||
TArticulosParaClienteDataTableRules = class(TDADataTableRules, IArticulosParaCliente)
|
||||
TArticulosParaClienteDataTableRules = class(TIntfObjectDADataTableRules, IArticulosParaCliente)
|
||||
private
|
||||
f_IMAGEN: IROStream;
|
||||
procedure IMAGEN_OnChange(Sender: TObject);
|
||||
|
||||
Binary file not shown.
@ -2,18 +2,18 @@ inherited fEditorCliente: TfEditorCliente
|
||||
Left = 387
|
||||
Top = 297
|
||||
Caption = 'Ficha de cliente'
|
||||
ClientHeight = 484
|
||||
ClientWidth = 656
|
||||
ExplicitWidth = 664
|
||||
ExplicitHeight = 518
|
||||
ClientHeight = 631
|
||||
ClientWidth = 714
|
||||
ExplicitWidth = 722
|
||||
ExplicitHeight = 665
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 656
|
||||
Width = 714
|
||||
Caption = 'Ficha de cliente'
|
||||
ExplicitWidth = 656
|
||||
ExplicitWidth = 714
|
||||
inherited Image1: TImage
|
||||
Left = 629
|
||||
Left = 687
|
||||
Picture.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
||||
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
||||
@ -49,8 +49,8 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 656
|
||||
ExplicitWidth = 656
|
||||
Width = 714
|
||||
ExplicitWidth = 714
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 446
|
||||
object TBXItem7: TTBXItem [7]
|
||||
@ -59,23 +59,23 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 656
|
||||
ExplicitWidth = 714
|
||||
end
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 650
|
||||
Height = 383
|
||||
Width = 708
|
||||
Height = 530
|
||||
ActivePage = pagGeneral
|
||||
ExplicitWidth = 650
|
||||
ExplicitHeight = 383
|
||||
ExplicitWidth = 708
|
||||
ExplicitHeight = 530
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitWidth = 642
|
||||
ExplicitHeight = 355
|
||||
ExplicitWidth = 700
|
||||
ExplicitHeight = 502
|
||||
inline frViewCliente1: TfrViewCliente
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 642
|
||||
Height = 355
|
||||
Width = 700
|
||||
Height = 502
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -85,282 +85,193 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 642
|
||||
ExplicitHeight = 355
|
||||
ExplicitWidth = 700
|
||||
ExplicitHeight = 502
|
||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||
Width = 642
|
||||
Height = 355
|
||||
Width = 700
|
||||
Height = 502
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
ExplicitWidth = 642
|
||||
ExplicitHeight = 355
|
||||
ExplicitWidth = 700
|
||||
ExplicitHeight = 502
|
||||
inherited PngSpeedButton1: TPngSpeedButton
|
||||
Left = 580
|
||||
Left = 655
|
||||
Top = 218
|
||||
ExplicitLeft = 580
|
||||
ExplicitLeft = 655
|
||||
ExplicitTop = 218
|
||||
end
|
||||
inherited PngSpeedButton2: TPngSpeedButton
|
||||
Left = 580
|
||||
Left = 655
|
||||
Top = 190
|
||||
ExplicitLeft = 580
|
||||
ExplicitLeft = 655
|
||||
ExplicitTop = 190
|
||||
end
|
||||
inherited PngSpeedButton3: TPngSpeedButton
|
||||
Left = 580
|
||||
Left = 655
|
||||
Top = 162
|
||||
ExplicitLeft = 580
|
||||
ExplicitLeft = 655
|
||||
ExplicitTop = 162
|
||||
end
|
||||
inherited Label1: TLabel
|
||||
Left = 371
|
||||
Top = 270
|
||||
Width = 269
|
||||
ExplicitLeft = 371
|
||||
ExplicitTop = 270
|
||||
ExplicitWidth = 269
|
||||
Left = 395
|
||||
Top = 251
|
||||
Width = 161
|
||||
ExplicitLeft = 395
|
||||
ExplicitTop = 251
|
||||
ExplicitWidth = 161
|
||||
end
|
||||
inherited eCalle: TcxDBTextEdit
|
||||
Top = 267
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 267
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
ExplicitWidth = 309
|
||||
Width = 309
|
||||
end
|
||||
inherited eProvincia: TcxDBTextEdit
|
||||
Top = 321
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 321
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
end
|
||||
inherited ePoblacion: TcxDBTextEdit
|
||||
inherited cbProvincia: TcxDBComboBox
|
||||
Top = 294
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 294
|
||||
ExplicitWidth = 159
|
||||
Width = 159
|
||||
ExplicitWidth = 87
|
||||
Width = 87
|
||||
end
|
||||
inherited cbPoblacion: TcxDBComboBox
|
||||
Top = 321
|
||||
ExplicitTop = 321
|
||||
ExplicitWidth = 112
|
||||
Width = 112
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 278
|
||||
Left = 313
|
||||
Top = 294
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 278
|
||||
ExplicitLeft = 313
|
||||
ExplicitTop = 294
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
Top = 399
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 399
|
||||
ExplicitWidth = 581
|
||||
ExplicitHeight = 33
|
||||
Height = 33
|
||||
Width = 581
|
||||
ExplicitWidth = 656
|
||||
ExplicitHeight = 87
|
||||
Height = 87
|
||||
Width = 656
|
||||
end
|
||||
inherited eNombreComercial: TcxDBTextEdit
|
||||
Top = 84
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
ExplicitWidth = 309
|
||||
Width = 309
|
||||
end
|
||||
inherited cbClienteBloqueado: TcxDBCheckBox
|
||||
Top = 189
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 189
|
||||
ExplicitWidth = 370
|
||||
Width = 370
|
||||
ExplicitWidth = 419
|
||||
Width = 419
|
||||
end
|
||||
inherited cbGrupoCliente: TcxDBComboBox
|
||||
Top = 138
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 138
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
ExplicitWidth = 87
|
||||
Width = 87
|
||||
end
|
||||
inherited eBloqueo: TcxDBTextEdit
|
||||
Top = 216
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 216
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
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
|
||||
ExplicitWidth = 309
|
||||
Width = 309
|
||||
end
|
||||
inherited eCodigoAsignado: TcxDBTextEdit
|
||||
Top = 111
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
ExplicitWidth = 309
|
||||
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
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 205
|
||||
Left = 216
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 205
|
||||
ExplicitLeft = 216
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
ExplicitWidth = 200
|
||||
Width = 200
|
||||
end
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||
Left = 466
|
||||
Left = 501
|
||||
Top = 162
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 466
|
||||
ExplicitLeft = 501
|
||||
ExplicitTop = 162
|
||||
ExplicitWidth = 59
|
||||
Width = 59
|
||||
ExplicitWidth = 180
|
||||
Width = 180
|
||||
end
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 466
|
||||
Left = 501
|
||||
Top = 190
|
||||
Properties.Prefix = 'mailto:'
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 466
|
||||
ExplicitLeft = 501
|
||||
ExplicitTop = 190
|
||||
ExplicitWidth = 59
|
||||
Width = 59
|
||||
ExplicitWidth = 196
|
||||
Width = 196
|
||||
end
|
||||
inherited cxDBCheckBox1: TcxDBCheckBox
|
||||
Left = 395
|
||||
Top = 322
|
||||
ExplicitLeft = 395
|
||||
ExplicitTop = 322
|
||||
ExplicitWidth = 262
|
||||
Width = 262
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 466
|
||||
Left = 501
|
||||
Top = 217
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 466
|
||||
ExplicitLeft = 501
|
||||
ExplicitTop = 217
|
||||
ExplicitWidth = 59
|
||||
Width = 59
|
||||
ExplicitWidth = 196
|
||||
Width = 196
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 36
|
||||
Width = 36
|
||||
ExplicitWidth = 56
|
||||
Width = 56
|
||||
end
|
||||
inherited ePersonaContacto: TcxDBTextEdit
|
||||
Top = 348
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 348
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
ExplicitWidth = 309
|
||||
Width = 309
|
||||
end
|
||||
end
|
||||
inherited dsContacto: TDADataSource
|
||||
@ -370,22 +281,34 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
end
|
||||
inherited pagDatosBancarios: TTabSheet
|
||||
ExplicitWidth = 642
|
||||
ExplicitHeight = 355
|
||||
ExplicitWidth = 700
|
||||
ExplicitHeight = 502
|
||||
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
|
||||
Width = 642
|
||||
Height = 355
|
||||
ExplicitWidth = 642
|
||||
ExplicitHeight = 355
|
||||
Width = 700
|
||||
Height = 502
|
||||
ExplicitWidth = 700
|
||||
ExplicitHeight = 502
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 642
|
||||
Height = 330
|
||||
ExplicitWidth = 642
|
||||
ExplicitHeight = 330
|
||||
Width = 700
|
||||
Height = 477
|
||||
ExplicitWidth = 700
|
||||
ExplicitHeight = 477
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 642
|
||||
ExplicitWidth = 642
|
||||
Width = 700
|
||||
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
|
||||
@ -395,7 +318,7 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inline frViewClienteDatosComerciales1: TfrViewClienteDatosComerciales
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 642
|
||||
Width = 700
|
||||
Height = 193
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -406,17 +329,17 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 642
|
||||
ExplicitWidth = 700
|
||||
ExplicitHeight = 193
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 642
|
||||
Width = 700
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
ExplicitWidth = 642
|
||||
ExplicitWidth = 700
|
||||
inherited Label1: TLabel
|
||||
Left = 397
|
||||
Left = 446
|
||||
Top = 30
|
||||
Width = 196
|
||||
ExplicitLeft = 397
|
||||
ExplicitLeft = 446
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 196
|
||||
end
|
||||
@ -427,75 +350,51 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ExplicitWidth = 263
|
||||
end
|
||||
inherited eDiasVencimiento: TcxDBSpinEdit
|
||||
Left = 460
|
||||
Left = 509
|
||||
Top = 62
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 460
|
||||
ExplicitLeft = 509
|
||||
ExplicitTop = 62
|
||||
ExplicitWidth = 160
|
||||
Width = 160
|
||||
end
|
||||
inherited cbRegimenIVA: TcxDBComboBox
|
||||
Top = 30
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 258
|
||||
Width = 258
|
||||
ExplicitWidth = 293
|
||||
Width = 293
|
||||
end
|
||||
inherited cbRecargoEquivalencia: TcxDBCheckBox
|
||||
Top = 111
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 258
|
||||
Width = 258
|
||||
ExplicitWidth = 293
|
||||
Width = 293
|
||||
end
|
||||
inherited cbFormaPago: TcxDBLookupComboBox
|
||||
Top = 57
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 120
|
||||
Width = 120
|
||||
ExplicitWidth = 155
|
||||
Width = 155
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 237
|
||||
Left = 286
|
||||
Top = 57
|
||||
ExplicitLeft = 237
|
||||
ExplicitLeft = 286
|
||||
ExplicitTop = 57
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
Top = 84
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 120
|
||||
Width = 120
|
||||
ExplicitWidth = 155
|
||||
Width = 155
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 237
|
||||
Left = 286
|
||||
Top = 84
|
||||
ExplicitLeft = 237
|
||||
ExplicitLeft = 286
|
||||
ExplicitTop = 84
|
||||
end
|
||||
inherited eDescuento: TcxDBSpinEdit
|
||||
Top = 149
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitTop = 149
|
||||
end
|
||||
end
|
||||
@ -507,8 +406,8 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 642
|
||||
Height = 355
|
||||
Width = 700
|
||||
Height = 502
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -518,13 +417,13 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 642
|
||||
ExplicitHeight = 355
|
||||
ExplicitWidth = 700
|
||||
ExplicitHeight = 502
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 642
|
||||
Height = 330
|
||||
ExplicitWidth = 642
|
||||
ExplicitHeight = 330
|
||||
Width = 700
|
||||
Height = 477
|
||||
ExplicitWidth = 700
|
||||
ExplicitHeight = 477
|
||||
inherited cxGridView: TcxGridDBTableView
|
||||
inherited cxGridViewID: TcxGridDBColumn
|
||||
SortIndex = 0
|
||||
@ -533,20 +432,8 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 642
|
||||
ExplicitWidth = 642
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton4: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton2: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
inherited ToolButton7: TToolButton
|
||||
ExplicitWidth = 113
|
||||
end
|
||||
Width = 700
|
||||
ExplicitWidth = 700
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -556,8 +443,8 @@ inherited fEditorCliente: TfEditorCliente
|
||||
inline frViewClienteDescuentos1: TfrViewClienteDescuentos
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 642
|
||||
Height = 355
|
||||
Width = 700
|
||||
Height = 502
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -567,17 +454,17 @@ inherited fEditorCliente: TfEditorCliente
|
||||
ParentFont = False
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 642
|
||||
ExplicitHeight = 355
|
||||
ExplicitWidth = 700
|
||||
ExplicitHeight = 502
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 642
|
||||
Height = 330
|
||||
ExplicitWidth = 642
|
||||
ExplicitHeight = 330
|
||||
Width = 700
|
||||
Height = 477
|
||||
ExplicitWidth = 700
|
||||
ExplicitHeight = 477
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 642
|
||||
ExplicitWidth = 642
|
||||
Width = 700
|
||||
ExplicitWidth = 700
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 62
|
||||
end
|
||||
@ -594,22 +481,22 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
end
|
||||
inherited pagPersonal: TTabSheet
|
||||
ExplicitWidth = 642
|
||||
ExplicitHeight = 355
|
||||
ExplicitWidth = 700
|
||||
ExplicitHeight = 502
|
||||
inherited frViewPersonalContacto1: TfrViewPersonalContacto
|
||||
Width = 642
|
||||
Height = 355
|
||||
ExplicitWidth = 642
|
||||
ExplicitHeight = 355
|
||||
Width = 700
|
||||
Height = 502
|
||||
ExplicitWidth = 700
|
||||
ExplicitHeight = 502
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 642
|
||||
Height = 330
|
||||
ExplicitWidth = 642
|
||||
ExplicitHeight = 330
|
||||
Width = 700
|
||||
Height = 477
|
||||
ExplicitWidth = 700
|
||||
ExplicitHeight = 477
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 642
|
||||
ExplicitWidth = 642
|
||||
Width = 700
|
||||
ExplicitWidth = 700
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 62
|
||||
end
|
||||
@ -627,10 +514,10 @@ inherited fEditorCliente: TfEditorCliente
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 465
|
||||
Width = 656
|
||||
ExplicitTop = 465
|
||||
ExplicitWidth = 656
|
||||
Top = 612
|
||||
Width = 714
|
||||
ExplicitTop = 612
|
||||
ExplicitWidth = 714
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
inherited actPrevisualizar: TAction
|
||||
|
||||
@ -63,7 +63,7 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 923
|
||||
Height = 482
|
||||
ActivePage = pagFormacion
|
||||
ActivePage = pagGeneral
|
||||
ExplicitWidth = 923
|
||||
ExplicitHeight = 482
|
||||
inherited pagGeneral: TTabSheet
|
||||
@ -115,18 +115,18 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
ExplicitWidth = 341
|
||||
Width = 341
|
||||
end
|
||||
inherited eProvincia: TcxDBTextEdit
|
||||
Top = 270
|
||||
ExplicitTop = 270
|
||||
ExplicitWidth = 341
|
||||
Width = 341
|
||||
end
|
||||
inherited ePoblacion: TcxDBTextEdit
|
||||
inherited cbProvincia: TcxDBComboBox
|
||||
Top = 243
|
||||
ExplicitTop = 243
|
||||
ExplicitWidth = 240
|
||||
Width = 240
|
||||
end
|
||||
inherited cbPoblacion: TcxDBComboBox
|
||||
Top = 270
|
||||
ExplicitTop = 270
|
||||
ExplicitWidth = 341
|
||||
Width = 341
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 397
|
||||
Top = 243
|
||||
@ -159,6 +159,14 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
ExplicitWidth = 341
|
||||
Width = 341
|
||||
end
|
||||
inherited cbContrato: TcxDBComboBox
|
||||
Left = 585
|
||||
Top = 270
|
||||
ExplicitLeft = 585
|
||||
ExplicitTop = 270
|
||||
ExplicitWidth = 308
|
||||
Width = 308
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 585
|
||||
Top = 57
|
||||
@ -175,14 +183,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
ExplicitWidth = 308
|
||||
Width = 308
|
||||
end
|
||||
inherited cbContrato: TcxDBComboBox
|
||||
Left = 585
|
||||
Top = 270
|
||||
ExplicitLeft = 585
|
||||
ExplicitTop = 270
|
||||
ExplicitWidth = 308
|
||||
Width = 308
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 585
|
||||
Top = 84
|
||||
@ -205,6 +205,14 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
ExplicitWidth = 341
|
||||
Width = 341
|
||||
end
|
||||
inherited eDuracionContrato: TcxDBTextEdit
|
||||
Left = 585
|
||||
Top = 297
|
||||
ExplicitLeft = 585
|
||||
ExplicitTop = 297
|
||||
ExplicitWidth = 308
|
||||
Width = 308
|
||||
end
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 259
|
||||
Top = 30
|
||||
@ -231,14 +239,6 @@ inherited fEditorEmpleado: TfEditorEmpleado
|
||||
ExplicitWidth = 279
|
||||
Width = 279
|
||||
end
|
||||
inherited eDuracionContrato: TcxDBTextEdit
|
||||
Left = 585
|
||||
Top = 297
|
||||
ExplicitLeft = 585
|
||||
ExplicitTop = 297
|
||||
ExplicitWidth = 308
|
||||
Width = 308
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 585
|
||||
Top = 217
|
||||
|
||||
@ -1,17 +1,16 @@
|
||||
inherited fEditorProveedor: TfEditorProveedor
|
||||
Caption = 'fEditorProveedor'
|
||||
ClientHeight = 617
|
||||
ClientWidth = 839
|
||||
ExplicitTop = -87
|
||||
ExplicitWidth = 847
|
||||
ExplicitHeight = 644
|
||||
ClientHeight = 620
|
||||
ClientWidth = 830
|
||||
ExplicitWidth = 838
|
||||
ExplicitHeight = 654
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
Width = 839
|
||||
Width = 830
|
||||
ExplicitWidth = 839
|
||||
inherited Image1: TImage
|
||||
Left = 812
|
||||
Left = 803
|
||||
Picture.Data = {
|
||||
0A54504E474F626A65637489504E470D0A1A0A0000000D494844520000001800
|
||||
0000180806000000E0773DF80000000970485973000017120000171201679FD2
|
||||
@ -47,29 +46,29 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
end
|
||||
end
|
||||
inherited TBXDock: TTBXDock
|
||||
Width = 839
|
||||
Width = 830
|
||||
ExplicitWidth = 839
|
||||
inherited tbxMain: TTBXToolbar
|
||||
ExplicitWidth = 330
|
||||
end
|
||||
inherited tbxMenu: TTBXToolbar
|
||||
ExplicitWidth = 839
|
||||
ExplicitWidth = 830
|
||||
end
|
||||
end
|
||||
inherited pgPaginas: TPageControl
|
||||
Width = 833
|
||||
Height = 516
|
||||
Width = 824
|
||||
Height = 519
|
||||
ActivePage = pagGeneral
|
||||
ExplicitWidth = 833
|
||||
ExplicitHeight = 451
|
||||
ExplicitHeight = 516
|
||||
inherited pagGeneral: TTabSheet
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 423
|
||||
ExplicitHeight = 488
|
||||
inline frViewProveedor1: TfrViewProveedor
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 825
|
||||
Height = 488
|
||||
Width = 816
|
||||
Height = 491
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -80,56 +79,54 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 423
|
||||
ExplicitHeight = 488
|
||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||
Width = 825
|
||||
Height = 488
|
||||
Width = 816
|
||||
Height = 491
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 423
|
||||
ExplicitHeight = 488
|
||||
inherited PngSpeedButton1: TPngSpeedButton
|
||||
Left = 780
|
||||
Left = 771
|
||||
Top = 218
|
||||
ExplicitLeft = 780
|
||||
ExplicitLeft = 771
|
||||
ExplicitTop = 218
|
||||
end
|
||||
inherited PngSpeedButton2: TPngSpeedButton
|
||||
Left = 780
|
||||
Left = 771
|
||||
Top = 190
|
||||
ExplicitLeft = 780
|
||||
ExplicitLeft = 771
|
||||
ExplicitTop = 190
|
||||
end
|
||||
inherited PngSpeedButton3: TPngSpeedButton
|
||||
Left = 780
|
||||
Left = 771
|
||||
Top = 162
|
||||
ExplicitLeft = 780
|
||||
ExplicitLeft = 771
|
||||
ExplicitTop = 162
|
||||
end
|
||||
inherited Label1: TLabel
|
||||
Left = 504
|
||||
Top = 297
|
||||
Width = 342
|
||||
ExplicitLeft = 504
|
||||
ExplicitTop = 297
|
||||
ExplicitWidth = 342
|
||||
Left = 493
|
||||
Top = 251
|
||||
ExplicitLeft = 493
|
||||
ExplicitTop = 251
|
||||
end
|
||||
inherited eCalle: TcxDBTextEdit
|
||||
Top = 267
|
||||
ExplicitTop = 267
|
||||
ExplicitWidth = 174
|
||||
Width = 174
|
||||
ExplicitWidth = 366
|
||||
Width = 366
|
||||
end
|
||||
inherited eProvincia: TcxDBTextEdit
|
||||
Top = 321
|
||||
ExplicitTop = 321
|
||||
ExplicitWidth = 174
|
||||
Width = 174
|
||||
end
|
||||
inherited ePoblacion: TcxDBTextEdit
|
||||
inherited cbProvincia: TcxDBComboBox
|
||||
Top = 294
|
||||
ExplicitTop = 294
|
||||
ExplicitWidth = 108
|
||||
Width = 108
|
||||
ExplicitWidth = 265
|
||||
Width = 265
|
||||
end
|
||||
inherited cbPoblacion: TcxDBComboBox
|
||||
Top = 321
|
||||
ExplicitTop = 321
|
||||
ExplicitWidth = 366
|
||||
Width = 366
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 411
|
||||
@ -140,94 +137,86 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
Top = 399
|
||||
ExplicitTop = 399
|
||||
ExplicitWidth = 580
|
||||
ExplicitHeight = 56
|
||||
Height = 56
|
||||
Width = 580
|
||||
end
|
||||
inherited cxDBCheckBox1: TcxDBCheckBox
|
||||
Left = 504
|
||||
Top = 270
|
||||
ExplicitLeft = 504
|
||||
ExplicitTop = 270
|
||||
ExplicitWidth = 310
|
||||
Width = 310
|
||||
ExplicitWidth = 772
|
||||
ExplicitHeight = 76
|
||||
Height = 76
|
||||
Width = 772
|
||||
end
|
||||
inherited cxDBCheckBox2: TcxDBCheckBox
|
||||
Top = 189
|
||||
ExplicitTop = 189
|
||||
ExplicitWidth = 326
|
||||
Width = 326
|
||||
ExplicitWidth = 478
|
||||
Width = 478
|
||||
end
|
||||
inherited eCertificaciones: TcxDBTextEdit
|
||||
Top = 216
|
||||
ExplicitTop = 216
|
||||
ExplicitWidth = 227
|
||||
Width = 227
|
||||
ExplicitWidth = 366
|
||||
Width = 366
|
||||
end
|
||||
inherited cbGrupoProveedor: TcxDBComboBox
|
||||
Top = 138
|
||||
ExplicitTop = 138
|
||||
ExplicitWidth = 227
|
||||
Width = 227
|
||||
ExplicitWidth = 277
|
||||
Width = 277
|
||||
end
|
||||
inherited cbDescripcionProveedor: TcxDBComboBox
|
||||
Top = 84
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
ExplicitWidth = 366
|
||||
Width = 366
|
||||
end
|
||||
inherited eCodigoAsignado: TcxDBTextEdit
|
||||
Top = 111
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
ExplicitWidth = 366
|
||||
Width = 366
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 599
|
||||
Top = 57
|
||||
ExplicitLeft = 599
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 172
|
||||
Width = 172
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 599
|
||||
Top = 30
|
||||
ExplicitLeft = 599
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 172
|
||||
Width = 172
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 599
|
||||
Top = 84
|
||||
ExplicitLeft = 599
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 172
|
||||
Width = 172
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 599
|
||||
Top = 111
|
||||
ExplicitLeft = 599
|
||||
ExplicitTop = 111
|
||||
ExplicitWidth = 172
|
||||
Width = 172
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eNombre: TcxDBTextEdit
|
||||
Top = 57
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 263
|
||||
Width = 263
|
||||
ExplicitWidth = 366
|
||||
Width = 366
|
||||
end
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 260
|
||||
Left = 261
|
||||
Top = 30
|
||||
ExplicitLeft = 260
|
||||
ExplicitLeft = 261
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 254
|
||||
Width = 254
|
||||
ExplicitWidth = 229
|
||||
Width = 229
|
||||
end
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||
Left = 599
|
||||
@ -235,8 +224,8 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Properties.Prefix = 'mailto:'
|
||||
ExplicitLeft = 599
|
||||
ExplicitTop = 162
|
||||
ExplicitWidth = 129
|
||||
Width = 129
|
||||
ExplicitWidth = 142
|
||||
Width = 142
|
||||
end
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 599
|
||||
@ -244,8 +233,8 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Properties.Prefix = 'mailto:'
|
||||
ExplicitLeft = 599
|
||||
ExplicitTop = 190
|
||||
ExplicitWidth = 165
|
||||
Width = 165
|
||||
ExplicitWidth = 142
|
||||
Width = 142
|
||||
end
|
||||
inherited cxDBCheckBox3: TcxDBCheckBox
|
||||
Left = 393
|
||||
@ -258,40 +247,46 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
Top = 217
|
||||
ExplicitLeft = 599
|
||||
ExplicitTop = 217
|
||||
ExplicitWidth = 165
|
||||
Width = 165
|
||||
ExplicitWidth = 142
|
||||
Width = 142
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Top = 30
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 100
|
||||
Width = 100
|
||||
ExplicitWidth = 84
|
||||
Width = 84
|
||||
end
|
||||
inherited ePersonaContacto: TcxDBTextEdit
|
||||
Top = 348
|
||||
ExplicitTop = 348
|
||||
ExplicitWidth = 253
|
||||
Width = 253
|
||||
ExplicitWidth = 366
|
||||
Width = 366
|
||||
end
|
||||
inherited cxDBCheckBox1: TcxDBCheckBox
|
||||
Left = 493
|
||||
Top = 283
|
||||
ExplicitLeft = 493
|
||||
ExplicitTop = 283
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited pagDatosBancarios: TTabSheet
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 423
|
||||
ExplicitHeight = 488
|
||||
inherited frViewListaDatosBancarios: TfrViewListaDatosBancarios
|
||||
Width = 825
|
||||
Height = 488
|
||||
Width = 816
|
||||
Height = 491
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 423
|
||||
ExplicitHeight = 488
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 825
|
||||
Height = 463
|
||||
Width = 816
|
||||
Height = 466
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 398
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 825
|
||||
Width = 816
|
||||
ExplicitWidth = 825
|
||||
end
|
||||
end
|
||||
@ -299,11 +294,12 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
object pagDatosComerciales: TTabSheet [2]
|
||||
Caption = 'Datos comerciales'
|
||||
ImageIndex = 2
|
||||
ExplicitHeight = 423
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 488
|
||||
inline frViewProveedorDatosComerciales1: TfrViewProveedorDatosComerciales
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 825
|
||||
Width = 816
|
||||
Height = 121
|
||||
Align = alTop
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
@ -317,54 +313,54 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 121
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 825
|
||||
Width = 816
|
||||
LookAndFeel = dxLayoutOfficeLookAndFeel
|
||||
ExplicitWidth = 825
|
||||
inherited Label1: TLabel
|
||||
Left = 533
|
||||
Left = 527
|
||||
Top = 30
|
||||
Width = 190
|
||||
ExplicitLeft = 533
|
||||
ExplicitLeft = 527
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 190
|
||||
end
|
||||
inherited cbRegimenIVA: TcxDBComboBox
|
||||
Top = 30
|
||||
ExplicitTop = 30
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
ExplicitWidth = 398
|
||||
Width = 398
|
||||
end
|
||||
inherited cbFormaPago: TcxDBLookupComboBox
|
||||
Top = 57
|
||||
ExplicitTop = 57
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
end
|
||||
inherited bFormasPago: TButton
|
||||
Left = 373
|
||||
Left = 367
|
||||
Top = 57
|
||||
ExplicitLeft = 373
|
||||
ExplicitLeft = 367
|
||||
ExplicitTop = 57
|
||||
end
|
||||
inherited eIVA: TcxDBLookupComboBox
|
||||
Top = 84
|
||||
ExplicitTop = 84
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
end
|
||||
inherited bTiposIVA: TButton
|
||||
Left = 373
|
||||
Left = 367
|
||||
Top = 84
|
||||
ExplicitLeft = 373
|
||||
ExplicitLeft = 367
|
||||
ExplicitTop = 84
|
||||
end
|
||||
inherited eDescuento: TcxDBSpinEdit
|
||||
Left = 577
|
||||
Left = 571
|
||||
Top = 62
|
||||
ExplicitLeft = 577
|
||||
ExplicitLeft = 571
|
||||
ExplicitTop = 62
|
||||
ExplicitWidth = 73
|
||||
Width = 73
|
||||
ExplicitWidth = 226
|
||||
Width = 226
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -372,12 +368,13 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
object pagDirecciones: TTabSheet [3]
|
||||
Caption = 'Direcciones'
|
||||
ImageIndex = 3
|
||||
ExplicitHeight = 423
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 488
|
||||
inline frViewDireccionesEntrega1: TfrViewDireccionesEntrega
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 825
|
||||
Height = 488
|
||||
Width = 816
|
||||
Height = 491
|
||||
Align = alClient
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -388,15 +385,15 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
TabOrder = 0
|
||||
ReadOnly = False
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 423
|
||||
ExplicitHeight = 488
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 825
|
||||
Height = 463
|
||||
Width = 816
|
||||
Height = 466
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 398
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 825
|
||||
Width = 816
|
||||
ExplicitWidth = 825
|
||||
inherited ToolButton1: TToolButton
|
||||
ExplicitWidth = 113
|
||||
@ -415,29 +412,29 @@ inherited fEditorProveedor: TfEditorProveedor
|
||||
end
|
||||
inherited pagPersonal: TTabSheet
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 423
|
||||
ExplicitHeight = 488
|
||||
inherited frViewPersonalContacto1: TfrViewPersonalContacto
|
||||
Width = 825
|
||||
Height = 488
|
||||
Width = 816
|
||||
Height = 491
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 423
|
||||
ExplicitHeight = 488
|
||||
inherited cxGrid: TcxGrid
|
||||
Width = 825
|
||||
Height = 463
|
||||
Width = 816
|
||||
Height = 466
|
||||
ExplicitWidth = 825
|
||||
ExplicitHeight = 398
|
||||
end
|
||||
inherited ToolBar1: TToolBar
|
||||
Width = 825
|
||||
Width = 816
|
||||
ExplicitWidth = 825
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited StatusBar: TJvStatusBar
|
||||
Top = 598
|
||||
Width = 839
|
||||
ExplicitTop = 533
|
||||
Top = 601
|
||||
Width = 830
|
||||
ExplicitTop = 598
|
||||
ExplicitWidth = 839
|
||||
end
|
||||
inherited EditorActionList: TActionList
|
||||
|
||||
@ -1,32 +1,32 @@
|
||||
inherited frViewCliente: TfrViewCliente
|
||||
Width = 742
|
||||
Height = 470
|
||||
Width = 777
|
||||
Height = 506
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
ExplicitWidth = 742
|
||||
ExplicitHeight = 470
|
||||
ExplicitWidth = 777
|
||||
ExplicitHeight = 506
|
||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||
Width = 742
|
||||
Height = 470
|
||||
ExplicitWidth = 646
|
||||
ExplicitHeight = 470
|
||||
Width = 777
|
||||
Height = 506
|
||||
ExplicitWidth = 777
|
||||
ExplicitHeight = 506
|
||||
inherited PngSpeedButton1: TPngSpeedButton
|
||||
Left = 680
|
||||
ExplicitLeft = 680
|
||||
Left = 732
|
||||
ExplicitLeft = 732
|
||||
end
|
||||
inherited PngSpeedButton2: TPngSpeedButton
|
||||
Left = 680
|
||||
ExplicitLeft = 680
|
||||
Left = 732
|
||||
ExplicitLeft = 732
|
||||
end
|
||||
inherited PngSpeedButton3: TPngSpeedButton
|
||||
Left = 680
|
||||
ExplicitLeft = 680
|
||||
Left = 732
|
||||
ExplicitLeft = 732
|
||||
end
|
||||
object Label1: TLabel [3]
|
||||
Left = 423
|
||||
Top = 280
|
||||
Width = 269
|
||||
Height = 39
|
||||
Left = 410
|
||||
Top = 262
|
||||
Width = 161
|
||||
Height = 65
|
||||
Margins.Bottom = 0
|
||||
Caption =
|
||||
'Para que el cliente pueda tener acceso a la tienda web, obligato' +
|
||||
@ -36,65 +36,46 @@ inherited frViewCliente: TfrViewCliente
|
||||
inherited eCalle: TcxDBTextEdit
|
||||
Left = 132
|
||||
Top = 277
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 8
|
||||
ExplicitLeft = 132
|
||||
ExplicitTop = 277
|
||||
ExplicitWidth = 175
|
||||
Width = 175
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
end
|
||||
inherited eProvincia: TcxDBTextEdit
|
||||
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
|
||||
inherited cbProvincia: TcxDBComboBox
|
||||
Left = 132
|
||||
Top = 304
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
Properties.OnValidate = nil
|
||||
TabOrder = 9
|
||||
ExplicitLeft = 132
|
||||
ExplicitTop = 304
|
||||
ExplicitWidth = 71
|
||||
Width = 71
|
||||
ExplicitWidth = 159
|
||||
Width = 159
|
||||
end
|
||||
inherited cbPoblacion: TcxDBComboBox
|
||||
Left = 132
|
||||
Top = 331
|
||||
TabOrder = 11
|
||||
ExplicitLeft = 132
|
||||
ExplicitTop = 331
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 328
|
||||
Left = 327
|
||||
Top = 304
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 10
|
||||
ExplicitLeft = 328
|
||||
ExplicitLeft = 327
|
||||
ExplicitTop = 304
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
Top = 415
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 21
|
||||
ExplicitTop = 415
|
||||
ExplicitWidth = 609
|
||||
ExplicitHeight = 42
|
||||
Height = 42
|
||||
Width = 609
|
||||
ExplicitWidth = 733
|
||||
ExplicitHeight = 69
|
||||
Height = 69
|
||||
Width = 733
|
||||
end
|
||||
object eNombreComercial: TcxDBTextEdit [9]
|
||||
Left = 132
|
||||
@ -107,18 +88,14 @@ inherited frViewCliente: TfrViewCliente
|
||||
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 = 3
|
||||
Width = 143
|
||||
Width = 260
|
||||
end
|
||||
object cbClienteBloqueado: TcxDBCheckBox [10]
|
||||
Left = 22
|
||||
@ -135,18 +112,14 @@ inherited frViewCliente: TfrViewCliente
|
||||
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 = 6
|
||||
Width = 163
|
||||
Width = 370
|
||||
end
|
||||
object cbGrupoCliente: TcxDBComboBox [11]
|
||||
Left = 132
|
||||
@ -161,20 +134,16 @@ inherited frViewCliente: TfrViewCliente
|
||||
Style.HotTrack = False
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
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 = 5
|
||||
Width = 87
|
||||
Width = 260
|
||||
end
|
||||
object eBloqueo: TcxDBTextEdit [12]
|
||||
Left = 132
|
||||
@ -186,22 +155,94 @@ inherited frViewCliente: TfrViewCliente
|
||||
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 = 7
|
||||
Width = 113
|
||||
Width = 260
|
||||
end
|
||||
object cxDBCheckBox1: TcxDBCheckBox [13]
|
||||
Left = 423
|
||||
Top = 325
|
||||
object eCodigoAsignado: TcxDBTextEdit [13]
|
||||
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
|
||||
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'
|
||||
DataBinding.DataField = 'TIENDA_WEB'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -215,160 +256,34 @@ inherited frViewCliente: TfrViewCliente
|
||||
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 = 20
|
||||
Width = 276
|
||||
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
|
||||
Width = 357
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 518
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
Left = 517
|
||||
TabOrder = 19
|
||||
ExplicitLeft = 518
|
||||
ExplicitWidth = 128
|
||||
Width = 128
|
||||
ExplicitLeft = 517
|
||||
ExplicitWidth = 209
|
||||
Width = 209
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Left = 132
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
ExplicitLeft = 132
|
||||
end
|
||||
inherited ePersonaContacto: TcxDBTextEdit
|
||||
Left = 132
|
||||
Top = 358
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
StyleDisabled.LookAndFeel.SkinName = ''
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 12
|
||||
ExplicitLeft = 132
|
||||
ExplicitTop = 358
|
||||
ExplicitWidth = 260
|
||||
Width = 260
|
||||
end
|
||||
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
|
||||
AutoAligns = [aaHorizontal]
|
||||
@ -415,25 +330,25 @@ inherited frViewCliente: TfrViewCliente
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControlContactoGroup6: TdxLayoutGroup
|
||||
object dxLayoutControlContactoGroup10: TdxLayoutGroup
|
||||
AutoAligns = [aaHorizontal]
|
||||
AlignVert = avClient
|
||||
Caption = 'Acceso a la tienda web'
|
||||
Visible = False
|
||||
object dxLayoutControlContactoItem21: TdxLayoutItem
|
||||
object dxLayoutControlContactoItem20: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
ShowCaption = False
|
||||
Visible = False
|
||||
Control = Label1
|
||||
ControlOptions.AutoColor = True
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlContactoItem20: TdxLayoutItem
|
||||
object dxLayoutControlContactoItem21: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
ShowCaption = False
|
||||
Visible = False
|
||||
Control = cxDBCheckBox1
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControlContactoGroup7: TdxLayoutGroup
|
||||
inherited dxLayoutControlContactoItem8: TdxLayoutItem
|
||||
ControlOptions.MinHeight = 10
|
||||
|
||||
@ -35,13 +35,12 @@ type
|
||||
dxLayoutControlContactoItem16: TdxLayoutItem;
|
||||
eBloqueo: TcxDBTextEdit;
|
||||
actBloqueoCliente: TAction;
|
||||
dxLayoutControlContactoGroup10: TdxLayoutGroup;
|
||||
dxLayoutControlContactoItem20: TdxLayoutItem;
|
||||
cxDBCheckBox1: TcxDBCheckBox;
|
||||
dxLayoutControlContactoItem21: TdxLayoutItem;
|
||||
Label1: TLabel;
|
||||
dxLayoutControlContactoItem22: TdxLayoutItem;
|
||||
eCodigoAsignado: TcxDBTextEdit;
|
||||
dxLayoutControlContactoItem20: TdxLayoutItem;
|
||||
Label1: TLabel;
|
||||
dxLayoutControlContactoItem21: TdxLayoutItem;
|
||||
cxDBCheckBox1: TcxDBCheckBox;
|
||||
procedure cbGrupoClientePropertiesInitPopup(Sender: TObject);
|
||||
procedure cbGrupoClientePropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
|
||||
@ -112,65 +112,65 @@ inherited frViewContacto: TfrViewContacto
|
||||
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 = 3
|
||||
Width = 181
|
||||
Width = 256
|
||||
end
|
||||
object eProvincia: TcxDBTextEdit
|
||||
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
|
||||
object cbProvincia: TcxDBComboBox
|
||||
Left = 115
|
||||
Top = 169
|
||||
DataBinding.DataField = 'POBLACION'
|
||||
DataBinding.DataField = 'PROVINCIA'
|
||||
DataBinding.DataSource = dsContacto
|
||||
Properties.ImmediatePost = True
|
||||
Properties.ImmediateUpdateText = True
|
||||
Properties.PostPopupValueOnTab = True
|
||||
Properties.OnInitPopup = eProvinciaPropertiesInitPopup
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.LookAndFeel.Kind = lfStandard
|
||||
Style.LookAndFeel.NativeStyle = True
|
||||
Style.LookAndFeel.SkinName = ''
|
||||
Style.ButtonStyle = bts3D
|
||||
Style.PopupBorderStyle = epbsFrame3D
|
||||
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 = 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
|
||||
object eCodigoPostal: TcxDBTextEdit
|
||||
Left = 303
|
||||
Left = 306
|
||||
Top = 169
|
||||
DataBinding.DataField = 'CODIGO_POSTAL'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -178,16 +178,12 @@ inherited frViewContacto: TfrViewContacto
|
||||
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 = 5
|
||||
Width = 65
|
||||
end
|
||||
@ -201,22 +197,18 @@ inherited frViewContacto: TfrViewContacto
|
||||
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 = 15
|
||||
Height = 54
|
||||
Height = 86
|
||||
Width = 630
|
||||
end
|
||||
object eTlfParticular: TcxDBTextEdit
|
||||
Left = 493
|
||||
Left = 496
|
||||
Top = 55
|
||||
DataBinding.DataField = 'TELEFONO_2'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -224,21 +216,17 @@ inherited frViewContacto: TfrViewContacto
|
||||
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 = 9
|
||||
Width = 91
|
||||
Width = 156
|
||||
end
|
||||
object eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 493
|
||||
Left = 496
|
||||
Top = 28
|
||||
DataBinding.DataField = 'TELEFONO_1'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -246,21 +234,17 @@ inherited frViewContacto: TfrViewContacto
|
||||
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 = 8
|
||||
Width = 127
|
||||
Width = 156
|
||||
end
|
||||
object eTlfMovil: TcxDBTextEdit
|
||||
Left = 493
|
||||
Left = 496
|
||||
Top = 82
|
||||
DataBinding.DataField = 'MOVIL_1'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -268,21 +252,17 @@ inherited frViewContacto: TfrViewContacto
|
||||
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 = 10
|
||||
Width = 155
|
||||
Width = 156
|
||||
end
|
||||
object eFax: TcxDBTextEdit
|
||||
Left = 493
|
||||
Left = 496
|
||||
Top = 109
|
||||
DataBinding.DataField = 'FAX'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -290,18 +270,14 @@ inherited frViewContacto: TfrViewContacto
|
||||
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 = 11
|
||||
Width = 121
|
||||
Width = 156
|
||||
end
|
||||
object eNombre: TcxDBTextEdit
|
||||
Left = 115
|
||||
@ -314,21 +290,17 @@ inherited frViewContacto: TfrViewContacto
|
||||
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 = 2
|
||||
Width = 221
|
||||
Width = 256
|
||||
end
|
||||
object eNIFCIF: TcxDBTextEdit
|
||||
Left = 265
|
||||
Left = 267
|
||||
Top = 28
|
||||
DataBinding.DataField = 'NIF_CIF'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -337,21 +309,17 @@ inherited frViewContacto: TfrViewContacto
|
||||
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 = 1
|
||||
Width = 57
|
||||
Width = 104
|
||||
end
|
||||
object eMailTrabajo: TcxDBHyperLinkEdit
|
||||
Left = 493
|
||||
Left = 496
|
||||
Top = 166
|
||||
DataBinding.DataField = 'EMAIL_1'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -363,21 +331,17 @@ inherited frViewContacto: TfrViewContacto
|
||||
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 = 12
|
||||
Width = 133
|
||||
Width = 127
|
||||
end
|
||||
object eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 493
|
||||
Left = 496
|
||||
Top = 194
|
||||
DataBinding.DataField = 'EMAIL_2'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -389,21 +353,17 @@ inherited frViewContacto: TfrViewContacto
|
||||
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 = 13
|
||||
Width = 133
|
||||
Width = 127
|
||||
end
|
||||
object ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 493
|
||||
Left = 496
|
||||
Top = 221
|
||||
DataBinding.DataField = 'PAGINA_WEB'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -415,18 +375,14 @@ inherited frViewContacto: TfrViewContacto
|
||||
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 = 14
|
||||
Width = 133
|
||||
Width = 127
|
||||
end
|
||||
object eReferencia: TcxDBTextEdit
|
||||
Left = 115
|
||||
@ -440,19 +396,15 @@ inherited frViewContacto: TfrViewContacto
|
||||
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 = ''
|
||||
StyleDisabled.TextColor = clWindowText
|
||||
StyleFocused.LookAndFeel.Kind = lfStandard
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleFocused.LookAndFeel.SkinName = ''
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.SkinName = ''
|
||||
TabOrder = 0
|
||||
Width = 38
|
||||
Width = 99
|
||||
end
|
||||
object ePersonaContacto: TcxDBTextEdit
|
||||
Left = 115
|
||||
@ -464,16 +416,12 @@ inherited frViewContacto: TfrViewContacto
|
||||
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 = 7
|
||||
Width = 256
|
||||
end
|
||||
@ -530,27 +478,31 @@ inherited frViewContacto: TfrViewContacto
|
||||
Control = eCalle
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlContactoGroup8: TdxLayoutGroup
|
||||
object dxLayoutControlContactoGroup10: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControlContactoItem3: TdxLayoutItem
|
||||
object dxLayoutControlContactoItem2: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Poblaci'#243'n:'
|
||||
Control = ePoblacion
|
||||
Caption = 'Provincia:'
|
||||
Control = cbProvincia
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlContactoItem4: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahRight
|
||||
Caption = 'C.P.:'
|
||||
Control = eCodigoPostal
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControlContactoItem2: TdxLayoutItem
|
||||
Caption = 'Provincia:'
|
||||
Control = eProvincia
|
||||
object dxLayoutControlContactoItem3: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Poblaci'#243'n:'
|
||||
Control = cbPoblacion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlContactoItem167: TdxLayoutItem
|
||||
@ -686,8 +638,8 @@ inherited frViewContacto: TfrViewContacto
|
||||
end
|
||||
object ActionList1: TActionList
|
||||
Images = ImageList1
|
||||
Left = 200
|
||||
Top = 160
|
||||
Left = 32
|
||||
Top = 176
|
||||
object actMandarCorreoParticular: TAction
|
||||
ImageIndex = 0
|
||||
OnExecute = actMandarCorreoParticularExecute
|
||||
@ -706,7 +658,7 @@ inherited frViewContacto: TfrViewContacto
|
||||
end
|
||||
object ImageList1: TPngImageList
|
||||
PngImages = <>
|
||||
Left = 200
|
||||
Top = 136
|
||||
Left = 64
|
||||
Top = 176
|
||||
end
|
||||
end
|
||||
|
||||
@ -14,7 +14,8 @@ uses
|
||||
dxSkinLondonLiquidSky, dxSkinMcSkin, dxSkinMoneyTwins, dxSkinOffice2007Black,
|
||||
dxSkinOffice2007Blue, dxSkinOffice2007Green, dxSkinOffice2007Pink,
|
||||
dxSkinOffice2007Silver, dxSkinSilver, dxSkinStardust, dxSkinsDefaultPainters,
|
||||
dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxLCPainter;
|
||||
dxSkinValentine, dxSkinXmas2008Blue, dxSkinsdxLCPainter, cxGraphics,
|
||||
cxMaskEdit, cxDropDownEdit;
|
||||
|
||||
type
|
||||
IViewContacto = interface(IViewBase)
|
||||
@ -44,12 +45,11 @@ type
|
||||
dxLayoutControlContactoItem1: TdxLayoutItem;
|
||||
eCalle: TcxDBTextEdit;
|
||||
dxLayoutControlContactoItem2: TdxLayoutItem;
|
||||
eProvincia: TcxDBTextEdit;
|
||||
cbProvincia: TcxDBComboBox;
|
||||
dxLayoutControlContactoItem3: TdxLayoutItem;
|
||||
ePoblacion: TcxDBTextEdit;
|
||||
cbPoblacion: TcxDBComboBox;
|
||||
dxLayoutControlContactoItem4: TdxLayoutItem;
|
||||
eCodigoPostal: TcxDBTextEdit;
|
||||
dxLayoutControlContactoGroup8: TdxLayoutGroup;
|
||||
eObservaciones: TcxDBMemo;
|
||||
dxLayoutControlContactoItem8: TdxLayoutItem;
|
||||
dxLayoutControlContactoItem9: TdxLayoutItem;
|
||||
@ -90,6 +90,7 @@ type
|
||||
dxLayoutControlContactoGroup16: TdxLayoutGroup;
|
||||
dxLayoutControlContactoItem167: TdxLayoutItem;
|
||||
ePersonaContacto: TcxDBTextEdit;
|
||||
dxLayoutControlContactoGroup10: TdxLayoutGroup;
|
||||
procedure eMailTrabajoPropertiesEditValueChanged(Sender: TObject);
|
||||
procedure actMandarCorreoParticularExecute(Sender: TObject);
|
||||
procedure actMandarCorreoTrabajoExecute(Sender: TObject);
|
||||
@ -99,15 +100,22 @@ type
|
||||
procedure actVerPaginaWebUpdate(Sender: TObject);
|
||||
procedure eMailTrabajoPropertiesValidate(Sender: TObject;
|
||||
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
|
||||
procedure eProvinciaPropertiesInitPopup(Sender: TObject);
|
||||
procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
|
||||
protected
|
||||
FContacto: IBizContacto;
|
||||
FController : IContactosController;
|
||||
FProvincias : TStringList;
|
||||
FPoblaciones : TStringList;
|
||||
procedure CargarProvincias;
|
||||
procedure CargarPoblaciones;
|
||||
function GetContacto: IBizContacto; virtual;
|
||||
procedure SetContacto(const Value: IBizContacto); virtual;
|
||||
function GetController : IContactosController; virtual;
|
||||
procedure SetController (const Value : IContactosController); virtual;
|
||||
public
|
||||
constructor Create(AOwner : TComponent); override;
|
||||
destructor Destroy;
|
||||
property Controller : IContactosController read GetController
|
||||
write SetController;
|
||||
property Contacto: IBizContacto read GetContacto write SetContacto;
|
||||
@ -116,6 +124,9 @@ type
|
||||
implementation
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
uProvinciasPoblacionesController, uStringsUtils;
|
||||
|
||||
type
|
||||
THackcxDBHyperLinkEdit = class(TcxDBHyperLinkEdit);
|
||||
|
||||
@ -160,9 +171,86 @@ begin
|
||||
(Sender as TAction).Enabled := (Length(ePaginaWeb.Text) > 0)
|
||||
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);
|
||||
begin
|
||||
inherited;
|
||||
FProvincias := NIL;
|
||||
FPoblaciones := NIL;
|
||||
end;
|
||||
|
||||
destructor TfrViewContacto.Destroy;
|
||||
begin
|
||||
if Assigned(FProvincias) then
|
||||
FreeANDNIL(FProvincias);
|
||||
|
||||
if Assigned(FPoblaciones) then
|
||||
FreeANDNIL(FPoblaciones);
|
||||
end;
|
||||
|
||||
procedure TfrViewContacto.eMailTrabajoPropertiesEditValueChanged(Sender: TObject);
|
||||
@ -180,6 +268,18 @@ begin
|
||||
DisplayValue := StringReplace(DisplayValue, (Sender as TcxDBHyperLinkEdit).Properties.Prefix, '', []);
|
||||
end;
|
||||
|
||||
procedure TfrViewContacto.eProvinciaPropertiesInitPopup(Sender: TObject);
|
||||
begin
|
||||
inherited;
|
||||
ShowHourglassCursor;
|
||||
try
|
||||
if not Assigned(FProvincias) then
|
||||
CargarProvincias;
|
||||
finally
|
||||
HideHourglassCursor;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TfrViewContacto.GetContacto: IBizContacto;
|
||||
begin
|
||||
Result := FContacto;
|
||||
|
||||
@ -8,7 +8,8 @@ inherited frViewEmpleado: TfrViewEmpleado
|
||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||
Width = 673
|
||||
Height = 424
|
||||
ExplicitHeight = 391
|
||||
ExplicitWidth = 673
|
||||
ExplicitHeight = 424
|
||||
inherited PngSpeedButton1: TPngSpeedButton
|
||||
Left = 628
|
||||
ExplicitLeft = 628
|
||||
@ -27,42 +28,42 @@ inherited frViewEmpleado: TfrViewEmpleado
|
||||
TabOrder = 6
|
||||
ExplicitLeft = 121
|
||||
ExplicitTop = 226
|
||||
ExplicitWidth = 183
|
||||
Width = 183
|
||||
ExplicitWidth = 239
|
||||
Width = 239
|
||||
end
|
||||
inherited eProvincia: TcxDBTextEdit
|
||||
Left = 121
|
||||
Top = 280
|
||||
TabOrder = 9
|
||||
ExplicitLeft = 121
|
||||
ExplicitTop = 280
|
||||
ExplicitWidth = 183
|
||||
Width = 183
|
||||
end
|
||||
inherited ePoblacion: TcxDBTextEdit
|
||||
inherited cbProvincia: TcxDBComboBox
|
||||
Left = 121
|
||||
Top = 253
|
||||
TabOrder = 7
|
||||
ExplicitLeft = 121
|
||||
ExplicitTop = 253
|
||||
ExplicitWidth = 82
|
||||
Width = 82
|
||||
ExplicitWidth = 138
|
||||
Width = 138
|
||||
end
|
||||
inherited cbPoblacion: TcxDBComboBox
|
||||
Left = 121
|
||||
Top = 280
|
||||
TabOrder = 9
|
||||
ExplicitLeft = 121
|
||||
ExplicitTop = 280
|
||||
ExplicitWidth = 239
|
||||
Width = 239
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 247
|
||||
Left = 295
|
||||
Top = 253
|
||||
TabOrder = 8
|
||||
ExplicitLeft = 247
|
||||
ExplicitLeft = 295
|
||||
ExplicitTop = 253
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
Top = 364
|
||||
TabOrder = 20
|
||||
ExplicitTop = 364
|
||||
ExplicitWidth = 613
|
||||
ExplicitHeight = 20
|
||||
Height = 20
|
||||
Width = 613
|
||||
ExplicitWidth = 629
|
||||
ExplicitHeight = 38
|
||||
Height = 38
|
||||
Width = 629
|
||||
end
|
||||
object eFechaNacimiento: TcxDBDateEdit [8]
|
||||
Left = 121
|
||||
@ -79,7 +80,7 @@ inherited frViewEmpleado: TfrViewEmpleado
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 3
|
||||
Width = 183
|
||||
Width = 239
|
||||
end
|
||||
object eFechaAltaEmpresa: TcxDBDateEdit [9]
|
||||
Left = 121
|
||||
@ -96,7 +97,7 @@ inherited frViewEmpleado: TfrViewEmpleado
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
Width = 183
|
||||
Width = 239
|
||||
end
|
||||
object cbCategoria: TcxDBComboBox [10]
|
||||
Left = 121
|
||||
@ -120,10 +121,10 @@ inherited frViewEmpleado: TfrViewEmpleado
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 5
|
||||
Width = 183
|
||||
Width = 239
|
||||
end
|
||||
object cbContrato: TcxDBComboBox [11]
|
||||
Left = 437
|
||||
Left = 485
|
||||
Top = 280
|
||||
DataBinding.DataField = 'CONTRATO'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -144,44 +145,10 @@ inherited frViewEmpleado: TfrViewEmpleado
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 18
|
||||
Width = 206
|
||||
Width = 166
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 437
|
||||
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
|
||||
object eDuracionContrato: TcxDBTextEdit [12]
|
||||
Left = 485
|
||||
Top = 307
|
||||
DataBinding.DataField = 'DURACION'
|
||||
DataBinding.DataSource = dsContacto
|
||||
@ -196,42 +163,76 @@ inherited frViewEmpleado: TfrViewEmpleado
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
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
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 202
|
||||
ExplicitLeft = 202
|
||||
ExplicitWidth = 106
|
||||
Width = 106
|
||||
Left = 227
|
||||
ExplicitLeft = 227
|
||||
ExplicitWidth = 133
|
||||
Width = 133
|
||||
end
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||
Left = 437
|
||||
Left = 485
|
||||
Properties.Prefix = 'mailto:'
|
||||
TabOrder = 15
|
||||
ExplicitLeft = 437
|
||||
ExplicitWidth = 177
|
||||
Width = 177
|
||||
ExplicitLeft = 485
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
end
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 437
|
||||
Left = 485
|
||||
Properties.Prefix = 'mailto:'
|
||||
TabOrder = 16
|
||||
ExplicitLeft = 437
|
||||
ExplicitWidth = 177
|
||||
Width = 177
|
||||
ExplicitLeft = 485
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 437
|
||||
Left = 485
|
||||
TabOrder = 17
|
||||
ExplicitLeft = 437
|
||||
ExplicitWidth = 177
|
||||
Width = 177
|
||||
ExplicitLeft = 485
|
||||
ExplicitWidth = 137
|
||||
Width = 137
|
||||
end
|
||||
inherited eReferencia: TcxDBTextEdit
|
||||
Left = 121
|
||||
ExplicitLeft = 121
|
||||
ExplicitWidth = 44
|
||||
Width = 44
|
||||
ExplicitWidth = 73
|
||||
Width = 73
|
||||
end
|
||||
inherited ePersonaContacto: TcxDBTextEdit
|
||||
Left = 121
|
||||
@ -239,8 +240,8 @@ inherited frViewEmpleado: TfrViewEmpleado
|
||||
TabOrder = 10
|
||||
ExplicitLeft = 121
|
||||
ExplicitTop = 307
|
||||
ExplicitWidth = 183
|
||||
Width = 183
|
||||
ExplicitWidth = 239
|
||||
Width = 239
|
||||
end
|
||||
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
|
||||
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
|
||||
|
||||
@ -1,30 +1,30 @@
|
||||
inherited frViewProveedor: TfrViewProveedor
|
||||
Width = 799
|
||||
Height = 454
|
||||
Height = 492
|
||||
OnCreate = CustomViewCreate
|
||||
OnDestroy = CustomViewDestroy
|
||||
ExplicitWidth = 799
|
||||
ExplicitHeight = 454
|
||||
ExplicitHeight = 492
|
||||
inherited dxLayoutControlContacto: TdxLayoutControl
|
||||
Width = 799
|
||||
Height = 454
|
||||
Height = 492
|
||||
ExplicitWidth = 799
|
||||
ExplicitHeight = 454
|
||||
inherited PngSpeedButton1: TPngSpeedButton
|
||||
Left = 738
|
||||
ExplicitLeft = 738
|
||||
Left = 754
|
||||
ExplicitLeft = 754
|
||||
end
|
||||
inherited PngSpeedButton2: TPngSpeedButton
|
||||
Left = 738
|
||||
ExplicitLeft = 738
|
||||
Left = 754
|
||||
ExplicitLeft = 754
|
||||
end
|
||||
inherited PngSpeedButton3: TPngSpeedButton
|
||||
Left = 738
|
||||
ExplicitLeft = 738
|
||||
Left = 754
|
||||
ExplicitLeft = 754
|
||||
end
|
||||
object Label1: TLabel [3]
|
||||
Left = 446
|
||||
Top = 307
|
||||
Left = 462
|
||||
Top = 262
|
||||
Width = 342
|
||||
Height = 26
|
||||
Caption =
|
||||
@ -38,32 +38,28 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
TabOrder = 9
|
||||
ExplicitLeft = 134
|
||||
ExplicitTop = 277
|
||||
ExplicitWidth = 264
|
||||
Width = 264
|
||||
ExplicitWidth = 330
|
||||
Width = 330
|
||||
end
|
||||
inherited eProvincia: TcxDBTextEdit
|
||||
Left = 134
|
||||
Top = 331
|
||||
TabOrder = 12
|
||||
ExplicitLeft = 134
|
||||
ExplicitTop = 331
|
||||
ExplicitWidth = 264
|
||||
Width = 264
|
||||
end
|
||||
inherited ePoblacion: TcxDBTextEdit
|
||||
inherited cbProvincia: TcxDBComboBox
|
||||
Left = 134
|
||||
Top = 304
|
||||
TabOrder = 10
|
||||
ExplicitLeft = 134
|
||||
ExplicitTop = 304
|
||||
ExplicitWidth = 163
|
||||
Width = 163
|
||||
end
|
||||
inherited cbPoblacion: TcxDBComboBox
|
||||
Left = 134
|
||||
Top = 331
|
||||
TabOrder = 12
|
||||
ExplicitLeft = 134
|
||||
ExplicitTop = 331
|
||||
end
|
||||
inherited eCodigoPostal: TcxDBTextEdit
|
||||
Left = 351
|
||||
Left = 379
|
||||
Top = 304
|
||||
TabOrder = 11
|
||||
ExplicitLeft = 351
|
||||
ExplicitLeft = 379
|
||||
ExplicitTop = 304
|
||||
end
|
||||
inherited eObservaciones: TcxDBMemo
|
||||
@ -73,32 +69,7 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
ExplicitHeight = 20
|
||||
Height = 20
|
||||
end
|
||||
object cxDBCheckBox1: 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]
|
||||
object cxDBCheckBox2: TcxDBCheckBox [9]
|
||||
Left = 22
|
||||
Top = 193
|
||||
Caption = 'El proveedor est'#225' homologado'
|
||||
@ -120,9 +91,9 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
Width = 326
|
||||
Width = 442
|
||||
end
|
||||
object eCertificaciones: TcxDBTextEdit [11]
|
||||
object eCertificaciones: TcxDBTextEdit [10]
|
||||
Left = 134
|
||||
Top = 220
|
||||
DataBinding.DataField = 'CERTIFICACION'
|
||||
@ -139,9 +110,9 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 8
|
||||
Width = 227
|
||||
Width = 330
|
||||
end
|
||||
object cbGrupoProveedor: TcxDBComboBox [12]
|
||||
object cbGrupoProveedor: TcxDBComboBox [11]
|
||||
Left = 134
|
||||
Top = 136
|
||||
DataBinding.DataField = 'GRUPO_PROVEEDOR'
|
||||
@ -163,9 +134,9 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 5
|
||||
Width = 227
|
||||
Width = 241
|
||||
end
|
||||
object cbDescripcionProveedor: TcxDBComboBox [13]
|
||||
object cbDescripcionProveedor: TcxDBComboBox [12]
|
||||
Left = 134
|
||||
Top = 82
|
||||
DataBinding.DataField = 'DESCRIPCION_PROVEEDOR'
|
||||
@ -178,6 +149,8 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
Style.HotTrack = False
|
||||
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
|
||||
@ -185,9 +158,9 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 3
|
||||
Width = 221
|
||||
Width = 330
|
||||
end
|
||||
object eCodigoAsignado: TcxDBTextEdit [14]
|
||||
object eCodigoAsignado: TcxDBTextEdit [13]
|
||||
Left = 134
|
||||
Top = 109
|
||||
DataBinding.DataField = 'CODIGO_ASIGNADO'
|
||||
@ -204,88 +177,66 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
Width = 221
|
||||
Width = 330
|
||||
end
|
||||
inherited eTlfParticular: TcxDBTextEdit
|
||||
Left = 541
|
||||
Left = 569
|
||||
TabOrder = 15
|
||||
ExplicitLeft = 541
|
||||
ExplicitWidth = 91
|
||||
Width = 91
|
||||
ExplicitLeft = 569
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eTlfTrabajo: TcxDBTextEdit
|
||||
Left = 541
|
||||
Left = 569
|
||||
TabOrder = 14
|
||||
ExplicitLeft = 541
|
||||
ExplicitWidth = 127
|
||||
Width = 127
|
||||
ExplicitLeft = 569
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eTlfMovil: TcxDBTextEdit
|
||||
Left = 541
|
||||
Left = 569
|
||||
TabOrder = 16
|
||||
ExplicitLeft = 541
|
||||
ExplicitWidth = 155
|
||||
Width = 155
|
||||
ExplicitLeft = 569
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eFax: TcxDBTextEdit
|
||||
Left = 541
|
||||
Left = 569
|
||||
TabOrder = 17
|
||||
ExplicitLeft = 541
|
||||
ExplicitWidth = 121
|
||||
Width = 121
|
||||
ExplicitLeft = 569
|
||||
ExplicitWidth = 171
|
||||
Width = 171
|
||||
end
|
||||
inherited eNombre: TcxDBTextEdit
|
||||
Left = 134
|
||||
ExplicitLeft = 134
|
||||
ExplicitWidth = 221
|
||||
Width = 221
|
||||
ExplicitWidth = 330
|
||||
Width = 330
|
||||
end
|
||||
inherited eNIFCIF: TcxDBTextEdit
|
||||
Left = 220
|
||||
ExplicitLeft = 220
|
||||
ExplicitWidth = 205
|
||||
Width = 205
|
||||
Left = 231
|
||||
ExplicitLeft = 231
|
||||
ExplicitWidth = 226
|
||||
Width = 226
|
||||
end
|
||||
inherited eMailTrabajo: TcxDBHyperLinkEdit
|
||||
Left = 541
|
||||
Left = 569
|
||||
Properties.Prefix = 'mailto:'
|
||||
TabOrder = 18
|
||||
ExplicitLeft = 541
|
||||
ExplicitWidth = 133
|
||||
Width = 133
|
||||
ExplicitLeft = 569
|
||||
ExplicitWidth = 142
|
||||
Width = 142
|
||||
end
|
||||
inherited eMailParticular: TcxDBHyperLinkEdit
|
||||
Left = 541
|
||||
Left = 569
|
||||
Properties.Prefix = 'mailto:'
|
||||
TabOrder = 19
|
||||
ExplicitLeft = 541
|
||||
ExplicitWidth = 133
|
||||
Width = 133
|
||||
ExplicitLeft = 569
|
||||
ExplicitWidth = 142
|
||||
Width = 142
|
||||
end
|
||||
inherited ePaginaWeb: TcxDBHyperLinkEdit
|
||||
Left = 541
|
||||
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
|
||||
object cxDBCheckBox3: TcxDBCheckBox [22]
|
||||
Left = 361
|
||||
Top = 136
|
||||
Caption = 'Subcontrata'
|
||||
DataBinding.DataField = 'SUBCONTRATA'
|
||||
@ -308,6 +259,53 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
TabOrder = 6
|
||||
Width = 83
|
||||
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 dxLayoutControlContactoGroup9: TdxLayoutGroup
|
||||
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
|
||||
@ -359,20 +357,18 @@ inherited frViewProveedor: TfrViewProveedor
|
||||
end
|
||||
end
|
||||
inherited dxLayoutControlContactoGroup6: TdxLayoutGroup
|
||||
object dxLayoutControlContactoGroup10: TdxLayoutGroup
|
||||
Caption = 'Tienda web'
|
||||
Visible = False
|
||||
object dxLayoutControlContactoItem19: TdxLayoutItem
|
||||
ShowCaption = False
|
||||
Control = cxDBCheckBox1
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlContactoItem16: TdxLayoutItem
|
||||
ShowCaption = False
|
||||
Visible = False
|
||||
Control = Label1
|
||||
ControlOptions.AutoColor = True
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlContactoItem16: TdxLayoutItem
|
||||
ShowCaption = False
|
||||
Visible = False
|
||||
Control = cxDBCheckBox1
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
@ -8,7 +8,13 @@ uses
|
||||
dxLayoutControl, cxMemo, cxDBEdit, cxContainer, cxEdit, cxTextEdit, cxControls,
|
||||
cxMaskEdit, cxSpinEdit, ImgList, PngImageList, ActnList, cxHyperLinkEdit,
|
||||
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
|
||||
IViewProveedor = interface(IViewContacto)
|
||||
@ -16,11 +22,6 @@ type
|
||||
end;
|
||||
|
||||
TfrViewProveedor = class(TfrViewContacto, IViewProveedor)
|
||||
dxLayoutControlContactoGroup10: TdxLayoutGroup;
|
||||
dxLayoutControlContactoItem16: TdxLayoutItem;
|
||||
Label1: TLabel;
|
||||
dxLayoutControlContactoItem19: TdxLayoutItem;
|
||||
cxDBCheckBox1: TcxDBCheckBox;
|
||||
dxLayoutControlContactoItem22: TdxLayoutItem;
|
||||
cxDBCheckBox2: TcxDBCheckBox;
|
||||
dxLayoutControlContactoItem23: TdxLayoutItem;
|
||||
@ -35,6 +36,10 @@ type
|
||||
dxLayoutControlContactoItem26: TdxLayoutItem;
|
||||
cxDBCheckBox3: TcxDBCheckBox;
|
||||
dxLayoutControlContactoGroup15: TdxLayoutGroup;
|
||||
dxLayoutControlContactoItem16: TdxLayoutItem;
|
||||
cxDBCheckBox1: TcxDBCheckBox;
|
||||
dxLayoutControlContactoItem19: TdxLayoutItem;
|
||||
Label1: TLabel;
|
||||
procedure CustomViewCreate(Sender: TObject);
|
||||
procedure CustomViewDestroy(Sender: TObject);
|
||||
procedure cbGrupoProveedorPropertiesInitPopup(Sender: TObject);
|
||||
|
||||
@ -13,6 +13,7 @@ inherited frViewProveedorDatosComerciales: TfrViewProveedorDatosComerciales
|
||||
Align = alTop
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth]
|
||||
object Label1: TLabel
|
||||
Left = 417
|
||||
|
||||
@ -8,7 +8,13 @@ uses
|
||||
cxContainer, cxEdit, cxTextEdit, cxMaskEdit, cxDropDownEdit, cxLookupEdit,
|
||||
cxDBLookupEdit, cxDBLookupComboBox, cxControls, cxSpinEdit, cxDBEdit,
|
||||
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
|
||||
IViewProveedorDatosComerciales = interface(IViewBase)
|
||||
|
||||
@ -8,7 +8,6 @@ inherited fEditorObra: TfEditorObra
|
||||
Scaled = False
|
||||
OnClose = CustomEditorClose
|
||||
ExplicitWidth = 640
|
||||
ExplicitHeight = 488
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
inherited JvNavPanelHeader: TJvNavPanelHeader
|
||||
|
||||
@ -8,6 +8,9 @@ inherited frViewClienteAsociadoObra: TfrViewClienteAsociadoObra
|
||||
Height = 247
|
||||
ExplicitWidth = 518
|
||||
ExplicitHeight = 219
|
||||
DesignSize = (
|
||||
420
|
||||
247)
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
Top = 99
|
||||
TabOrder = 4
|
||||
|
||||
@ -6,7 +6,13 @@ uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewDatosYSeleccionCliente, ImgList, PngImageList, ActnList, DB,
|
||||
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
|
||||
TfrViewClienteAsociadoObra = class(TfrViewDatosYSeleccionCliente)
|
||||
|
||||
@ -1,6 +1,6 @@
|
||||
inherited frViewObra: TfrViewObra
|
||||
Width = 838
|
||||
Height = 585
|
||||
Width = 661
|
||||
Height = 479
|
||||
Align = alClient
|
||||
AutoSize = True
|
||||
ExplicitWidth = 451
|
||||
@ -8,17 +8,18 @@ inherited frViewObra: TfrViewObra
|
||||
object dxLayoutControlObra: TdxLayoutControl
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 838
|
||||
Height = 585
|
||||
Width = 661
|
||||
Height = 479
|
||||
Align = alClient
|
||||
ParentBackground = True
|
||||
TabOrder = 0
|
||||
TabStop = False
|
||||
AutoContentSizes = [acsWidth, acsHeight]
|
||||
ExplicitWidth = 451
|
||||
ExplicitHeight = 304
|
||||
DesignSize = (
|
||||
838
|
||||
585)
|
||||
661
|
||||
479)
|
||||
object eNombre: TcxDBTextEdit
|
||||
Left = 130
|
||||
Top = 34
|
||||
@ -35,7 +36,7 @@ inherited frViewObra: TfrViewObra
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 0
|
||||
Width = 204
|
||||
Width = 116
|
||||
end
|
||||
object ePersonaContacto: TcxDBTextEdit
|
||||
Left = 130
|
||||
@ -51,7 +52,7 @@ inherited frViewObra: TfrViewObra
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 1
|
||||
Width = 204
|
||||
Width = 116
|
||||
end
|
||||
object eTlfTelefono: TcxDBTextEdit
|
||||
Left = 130
|
||||
@ -66,7 +67,7 @@ inherited frViewObra: TfrViewObra
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 6
|
||||
Width = 173
|
||||
Width = 116
|
||||
end
|
||||
object eTlfMovil: TcxDBTextEdit
|
||||
Left = 130
|
||||
@ -81,7 +82,7 @@ inherited frViewObra: TfrViewObra
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 7
|
||||
Width = 173
|
||||
Width = 116
|
||||
end
|
||||
object eFax: TcxDBTextEdit
|
||||
Left = 130
|
||||
@ -96,7 +97,7 @@ inherited frViewObra: TfrViewObra
|
||||
StyleFocused.LookAndFeel.NativeStyle = True
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 8
|
||||
Width = 173
|
||||
Width = 116
|
||||
end
|
||||
object eCalle: TcxDBTextEdit
|
||||
Left = 130
|
||||
@ -115,29 +116,35 @@ inherited frViewObra: TfrViewObra
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 2
|
||||
Width = 278
|
||||
Width = 116
|
||||
end
|
||||
object ePoblacion: TcxDBTextEdit
|
||||
object cbPoblacion: TcxDBComboBox
|
||||
Left = 130
|
||||
Top = 145
|
||||
Top = 172
|
||||
DataBinding.DataField = 'POBLACION'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.ImmediatePost = True
|
||||
Properties.ImmediateUpdateText = True
|
||||
Properties.PostPopupValueOnTab = True
|
||||
Properties.OnInitPopup = cbPoblacionPropertiesInitPopup
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
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 = 3
|
||||
Width = 177
|
||||
TabOrder = 5
|
||||
Width = 205
|
||||
end
|
||||
object eCodigoPostal: TcxDBTextEdit
|
||||
Left = 333
|
||||
Left = 234
|
||||
Top = 145
|
||||
DataBinding.DataField = 'CODIGO_POSTAL'
|
||||
DataBinding.DataSource = DADataSource
|
||||
@ -153,30 +160,36 @@ inherited frViewObra: TfrViewObra
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 4
|
||||
Width = 65
|
||||
Width = 57
|
||||
end
|
||||
object eProvincia: TcxDBTextEdit
|
||||
object cbProvincia: TcxDBComboBox
|
||||
Left = 130
|
||||
Top = 172
|
||||
Top = 145
|
||||
DataBinding.DataField = 'PROVINCIA'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.ImmediatePost = True
|
||||
Properties.ImmediateUpdateText = True
|
||||
Properties.PostPopupValueOnTab = True
|
||||
Properties.OnInitPopup = cbProvinciaPropertiesInitPopup
|
||||
Style.BorderColor = clWindowFrame
|
||||
Style.BorderStyle = ebs3D
|
||||
Style.HotTrack = False
|
||||
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 = 5
|
||||
Width = 278
|
||||
TabOrder = 3
|
||||
Width = 65
|
||||
end
|
||||
object eObservaciones: TcxDBMemo
|
||||
Left = 22
|
||||
Top = 355
|
||||
Top = 469
|
||||
DataBinding.DataField = 'OBSERVACIONES'
|
||||
DataBinding.DataSource = DADataSource
|
||||
Properties.ScrollBars = ssVertical
|
||||
@ -191,13 +204,13 @@ inherited frViewObra: TfrViewObra
|
||||
StyleHot.LookAndFeel.Kind = lfStandard
|
||||
StyleHot.LookAndFeel.NativeStyle = True
|
||||
TabOrder = 11
|
||||
Height = 86
|
||||
Width = 630
|
||||
Height = 20
|
||||
Width = 390
|
||||
end
|
||||
inline frViewSubcontrataObra1: TfrViewSubcontrataObra
|
||||
Left = 424
|
||||
Top = 169
|
||||
Width = 409
|
||||
Left = 321
|
||||
Top = 283
|
||||
Width = 136
|
||||
Height = 150
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
@ -207,51 +220,52 @@ inherited frViewObra: TfrViewObra
|
||||
ParentFont = False
|
||||
TabOrder = 10
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 424
|
||||
ExplicitTop = 169
|
||||
ExplicitWidth = 409
|
||||
ExplicitLeft = 321
|
||||
ExplicitTop = 283
|
||||
ExplicitWidth = 136
|
||||
ExplicitHeight = 150
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 409
|
||||
Width = 136
|
||||
ExplicitWidth = 173
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
ExplicitWidth = 213
|
||||
Width = 213
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
ExplicitWidth = 213
|
||||
Width = 213
|
||||
end
|
||||
inherited edtCalle: TcxDBTextEdit
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
ExplicitWidth = 213
|
||||
Width = 213
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
ExplicitWidth = 158
|
||||
Width = 158
|
||||
ExplicitWidth = 95
|
||||
Width = 95
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
ExplicitWidth = 213
|
||||
Width = 213
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 300
|
||||
ExplicitLeft = 300
|
||||
Left = 249
|
||||
ExplicitLeft = 249
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 159
|
||||
ExplicitLeft = 159
|
||||
Left = 108
|
||||
ExplicitLeft = 108
|
||||
end
|
||||
inherited edtPersonaContacto: TcxDBTextEdit
|
||||
ExplicitWidth = 585
|
||||
Width = 585
|
||||
ExplicitWidth = 213
|
||||
Width = 213
|
||||
end
|
||||
inherited edtReferenciaAsignada: TcxDBTextEdit
|
||||
Left = 261
|
||||
ExplicitLeft = 261
|
||||
Left = 210
|
||||
ExplicitLeft = 210
|
||||
end
|
||||
inherited edtTlf: TcxDBTextEdit
|
||||
ExplicitWidth = 169
|
||||
Width = 169
|
||||
ExplicitWidth = 20
|
||||
Width = 20
|
||||
end
|
||||
end
|
||||
inherited DADataSource: TDADataSource
|
||||
@ -268,10 +282,10 @@ inherited frViewObra: TfrViewObra
|
||||
end
|
||||
end
|
||||
inline frViewClienteAsociadoObra1: TfrViewClienteAsociadoObra
|
||||
Left = 424
|
||||
Left = 321
|
||||
Top = 34
|
||||
Width = 392
|
||||
Height = 99
|
||||
Width = 351
|
||||
Height = 213
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
@ -280,42 +294,42 @@ inherited frViewObra: TfrViewObra
|
||||
ParentFont = False
|
||||
TabOrder = 9
|
||||
ReadOnly = False
|
||||
ExplicitLeft = 424
|
||||
ExplicitLeft = 321
|
||||
ExplicitTop = 34
|
||||
ExplicitWidth = 392
|
||||
ExplicitHeight = 99
|
||||
ExplicitWidth = 351
|
||||
ExplicitHeight = 213
|
||||
inherited dxLayoutControl1: TdxLayoutControl
|
||||
Width = 392
|
||||
Height = 99
|
||||
ExplicitWidth = 420
|
||||
ExplicitHeight = 247
|
||||
Width = 351
|
||||
Height = 213
|
||||
ExplicitWidth = 405
|
||||
ExplicitHeight = 159
|
||||
inherited edtlNombre: TcxDBTextEdit
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
ExplicitWidth = 210
|
||||
Width = 210
|
||||
end
|
||||
inherited edtNIFCIF: TcxDBTextEdit
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
ExplicitWidth = 210
|
||||
Width = 210
|
||||
end
|
||||
inherited edtCalle: TcxDBTextEdit
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
ExplicitWidth = 210
|
||||
Width = 210
|
||||
end
|
||||
inherited edtPoblacion: TcxDBTextEdit
|
||||
ExplicitWidth = 158
|
||||
Width = 158
|
||||
ExplicitWidth = 92
|
||||
Width = 92
|
||||
end
|
||||
inherited edtProvincia: TcxDBTextEdit
|
||||
ExplicitWidth = 276
|
||||
Width = 276
|
||||
ExplicitWidth = 210
|
||||
Width = 210
|
||||
end
|
||||
inherited edtCodigoPostal: TcxDBTextEdit
|
||||
Left = 284
|
||||
ExplicitLeft = 284
|
||||
Left = 209
|
||||
ExplicitLeft = 209
|
||||
end
|
||||
inherited Button3: TBitBtn
|
||||
Left = 174
|
||||
ExplicitLeft = 174
|
||||
Left = 99
|
||||
ExplicitLeft = 99
|
||||
end
|
||||
end
|
||||
end
|
||||
@ -360,33 +374,35 @@ inherited frViewObra: TfrViewObra
|
||||
Control = eCalle
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlObraGroup5: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControlObraGroup6: TdxLayoutGroup
|
||||
object dxLayoutControlObraGroup11: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
LayoutDirection = ldHorizontal
|
||||
ShowBorder = False
|
||||
object dxLayoutControlObraItem2: TdxLayoutItem
|
||||
object dxLayoutControlObraItem9: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Poblaci'#243'n:'
|
||||
Control = ePoblacion
|
||||
Caption = 'Provincia:'
|
||||
Control = cbProvincia
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlObraItem7: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
AlignHorz = ahRight
|
||||
Caption = 'C. P.:'
|
||||
Control = eCodigoPostal
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
end
|
||||
object dxLayoutControlObraItem9: TdxLayoutItem
|
||||
Caption = 'Provincia:'
|
||||
Control = eProvincia
|
||||
object dxLayoutControlObraGroup5: TdxLayoutGroup
|
||||
ShowCaption = False
|
||||
Hidden = True
|
||||
ShowBorder = False
|
||||
object dxLayoutControlObraItem2: TdxLayoutItem
|
||||
AutoAligns = [aaVertical]
|
||||
AlignHorz = ahClient
|
||||
Caption = 'Poblaci'#243'n:'
|
||||
Control = cbPoblacion
|
||||
ControlOptions.ShowBorder = False
|
||||
end
|
||||
object dxLayoutControlObraItem1: TdxLayoutItem
|
||||
|
||||
@ -8,7 +8,13 @@ uses
|
||||
DBCtrls, Grids, DBGrids, uBizObras, Mask, ComCtrls, uCustomView,
|
||||
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
|
||||
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
|
||||
IViewObra = interface(IViewBase)
|
||||
@ -37,13 +43,12 @@ type
|
||||
dxLayoutControlObraItem10: TdxLayoutItem;
|
||||
eCalle: TcxDBTextEdit;
|
||||
dxLayoutControlObraItem2: TdxLayoutItem;
|
||||
ePoblacion: TcxDBTextEdit;
|
||||
cbPoblacion: TcxDBComboBox;
|
||||
dxLayoutControlObraItem7: TdxLayoutItem;
|
||||
dxLayoutControlObraGroup5: TdxLayoutGroup;
|
||||
eCodigoPostal: TcxDBTextEdit;
|
||||
dxLayoutControlObraItem9: TdxLayoutItem;
|
||||
dxLayoutControlObraGroup6: TdxLayoutGroup;
|
||||
eProvincia: TcxDBTextEdit;
|
||||
cbProvincia: TcxDBComboBox;
|
||||
dxLayoutControlObraGroup7: TdxLayoutGroup;
|
||||
dxLayoutControlObraGroup4: TdxLayoutGroup;
|
||||
dxLayoutControlObraItem11: TdxLayoutItem;
|
||||
@ -57,19 +62,29 @@ type
|
||||
frViewClienteAsociadoObra1: TfrViewClienteAsociadoObra;
|
||||
dxLayoutControlObraItem12: TdxLayoutItem;
|
||||
dxLayoutControlObraItem13: TdxLayoutItem;
|
||||
dxLayoutControlObraGroup11: TdxLayoutGroup;
|
||||
procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
|
||||
procedure cbProvinciaPropertiesInitPopup(Sender: TObject);
|
||||
protected
|
||||
FObra: IBizObra;
|
||||
FProvincias : TStringList;
|
||||
FPoblaciones : TStringList;
|
||||
procedure CargarProvincias;
|
||||
procedure CargarPoblaciones;
|
||||
function GetObra: IBizObra;
|
||||
procedure SetObra(const Value: IBizObra);
|
||||
procedure OnClienteChanged(Sender : TObject);
|
||||
procedure OnSubcontrataChanged(Sender : TObject);
|
||||
public
|
||||
constructor Create(AOwner : TComponent); override;
|
||||
destructor Destroy; override;
|
||||
property Obra: IBizObra read GetObra write SetObra;
|
||||
end;
|
||||
|
||||
implementation
|
||||
|
||||
uses uDataModuleObras;
|
||||
uses
|
||||
uDataModuleObras, uProvinciasPoblacionesController, uStringsUtils;
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
@ -79,6 +94,99 @@ uses uDataModuleObras;
|
||||
******************************* 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;
|
||||
begin
|
||||
Result := FObra;
|
||||
|
||||
@ -6,7 +6,13 @@ uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, uViewDatosYSeleccionProveedor, ImgList, PngImageList, ActnList, DB,
|
||||
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
|
||||
TfrViewSubcontrataObra = class(TfrViewDatosYSeleccionProveedor)
|
||||
|
||||
@ -433,6 +433,29 @@
|
||||
</Interface>
|
||||
</Interfaces>
|
||||
</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>
|
||||
<EventSinks>
|
||||
</EventSinks>
|
||||
|
||||
@ -49,6 +49,7 @@ const
|
||||
IsrvUnidadesMedida_IID : TGUID = '{8B4C72F0-5ACE-46FF-9F00-D70C2B611652}';
|
||||
IsrvFabricantes_IID : TGUID = '{E26547E0-9E61-4BC8-B154-49ACC9339875}';
|
||||
IsrvObras_IID : TGUID = '{39277224-A0BD-4249-9ACA-39D238798B25}';
|
||||
IsrvProvinciasPoblaciones_IID : TGUID = '{551D8756-51AE-4929-B235-107CD7B05C38}';
|
||||
|
||||
{ Event ID's }
|
||||
|
||||
@ -80,6 +81,7 @@ type
|
||||
IsrvUnidadesMedida = interface;
|
||||
IsrvFabricantes = interface;
|
||||
IsrvObras = interface;
|
||||
IsrvProvinciasPoblaciones = interface;
|
||||
|
||||
TRdxEmpresasArray = class;
|
||||
|
||||
@ -654,6 +656,27 @@ type
|
||||
|
||||
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
|
||||
|
||||
uses
|
||||
@ -1706,6 +1729,53 @@ begin
|
||||
result := 'srvObras';
|
||||
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
|
||||
RegisterROClass(TRdxLoginInfo);
|
||||
RegisterROClass(TRdxEmpresasArray);
|
||||
@ -1735,6 +1805,7 @@ initialization
|
||||
RegisterProxyClass(IsrvUnidadesMedida_IID, TsrvUnidadesMedida_Proxy);
|
||||
RegisterProxyClass(IsrvFabricantes_IID, TsrvFabricantes_Proxy);
|
||||
RegisterProxyClass(IsrvObras_IID, TsrvObras_Proxy);
|
||||
RegisterProxyClass(IsrvProvinciasPoblaciones_IID, TsrvProvinciasPoblaciones_Proxy);
|
||||
|
||||
|
||||
finalization
|
||||
@ -1766,5 +1837,6 @@ finalization
|
||||
UnregisterProxyClass(IsrvUnidadesMedida_IID);
|
||||
UnregisterProxyClass(IsrvFabricantes_IID);
|
||||
UnregisterProxyClass(IsrvObras_IID);
|
||||
UnregisterProxyClass(IsrvProvinciasPoblaciones_IID);
|
||||
|
||||
end.
|
||||
|
||||
@ -202,6 +202,14 @@ type
|
||||
published
|
||||
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
|
||||
|
||||
uses
|
||||
@ -907,5 +915,60 @@ begin
|
||||
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
|
||||
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},
|
||||
schFabricantesClient_Intf in '..\Modulos\Fabricantes\Model\schFabricantesClient_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},
|
||||
uRptWordPedidoProveedor in '..\Modulos\Pedidos a proveedor\Reports\uRptWordPedidoProveedor.pas' {RptWordPedidoProveedor: TDataModule},
|
||||
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},
|
||||
schFacturasProveedorClient_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorClient_Intf.pas',
|
||||
schFacturasProveedorServer_Intf in '..\Modulos\Facturas de proveedor\Model\schFacturasProveedorServer_Intf.pas',
|
||||
schArticulosClient_Intf in '..\Modulos\Articulos\Model\schArticulosClient_Intf.pas',
|
||||
schArticulosServer_Intf in '..\Modulos\Articulos\Model\schArticulosServer_Intf.pas';
|
||||
srvProvinciasPoblaciones_Impl in '..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas';
|
||||
|
||||
{$R *.res}
|
||||
{$R ..\Servicios\RODLFile.res}
|
||||
|
||||
@ -35,7 +35,7 @@
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<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>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
@ -48,6 +48,7 @@
|
||||
<Form>srvEmpresas</Form>
|
||||
<DesignClass>TDARemoteService</DesignClass>
|
||||
</DCCReference>
|
||||
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas" />
|
||||
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas" />
|
||||
|
||||
@ -1,7 +1,7 @@
|
||||
MAINICON ICON "C:\Codigo Tecsitel\Resources\Iconos\Servidor.ico"
|
||||
1 VERSIONINFO
|
||||
FILEVERSION 1,0,5,0
|
||||
PRODUCTVERSION 1,0,5,0
|
||||
FILEVERSION 1,0,7,0
|
||||
PRODUCTVERSION 1,0,7,0
|
||||
FILEFLAGSMASK 0x3FL
|
||||
FILEFLAGS 0x00L
|
||||
FILEOS 0x40004L
|
||||
@ -12,9 +12,9 @@ BEGIN
|
||||
BEGIN
|
||||
BLOCK "0C0A04E4"
|
||||
BEGIN
|
||||
VALUE "FileVersion", "1.0.5.0\0"
|
||||
VALUE "ProductVersion", "1.0.5.0\0"
|
||||
VALUE "CompileDate", "viernes, 06 de junio de 2008 10:48\0"
|
||||
VALUE "FileVersion", "1.0.7.0\0"
|
||||
VALUE "ProductVersion", "1.0.7.0\0"
|
||||
VALUE "CompileDate", "lunes, 09 de junio de 2008 19:29\0"
|
||||
END
|
||||
END
|
||||
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