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

Provincias y poblaciones

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@250 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
David Arranz 2008-06-23 17:39:17 +00:00
parent 40e374cfeb
commit 10b07951a5
41 changed files with 34585 additions and 2137 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Database/RodaxSoftware.FactuGES.Database.proj
View File

@ -55,6 +55,12 @@
<Target Name="InsertSysData"> <Target Name="InsertSysData">
<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_sysdata.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)" <Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_sysdata.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)"
WorkingDirectory="$(OutputPath)" /> WorkingDirectory="$(OutputPath)" />
<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_listaprovincias.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)"
WorkingDirectory="$(OutputPath)" />
<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_listapoblaciones.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)"
WorkingDirectory="$(OutputPath)" />
<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_sysdata_plan_general_contable.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)" <Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_sysdata_plan_general_contable.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)"
WorkingDirectory="$(OutputPath)" /> WorkingDirectory="$(OutputPath)" />

13
Database/scripts/factuges.sql
View File

@ -1130,6 +1130,12 @@ CREATE TABLE PERMISOSEX (
CHECKSUM VARCHAR(250) CHECKSUM VARCHAR(250)
); );
CREATE TABLE POBLACIONES (
ID TIPO_ID NOT NULL,
ID_PROVINCIA TIPO_ID NOT NULL,
DESCRIPCION VARCHAR(255) NOT NULL
);
CREATE TABLE PRESUPUESTOS_CLIENTE ( CREATE TABLE PRESUPUESTOS_CLIENTE (
ID TIPO_ID NOT NULL, ID TIPO_ID NOT NULL,
ID_EMPRESA TIPO_ID, ID_EMPRESA TIPO_ID,
@ -1201,6 +1207,11 @@ CREATE TABLE PROVEEDORES_GRUPOS (
DESCRIPCION VARCHAR(255) DESCRIPCION VARCHAR(255)
); );
CREATE TABLE PROVINCIAS (
ID TIPO_ID NOT NULL,
DESCRIPCION VARCHAR(255) NOT NULL
);
CREATE TABLE RECIBOS_CLIENTE ( CREATE TABLE RECIBOS_CLIENTE (
ID TIPO_ID NOT NULL, ID TIPO_ID NOT NULL,
ID_EMPRESA TIPO_ID, ID_EMPRESA TIPO_ID,
@ -3711,10 +3722,12 @@ ALTER TABLE PEDIDOS_PROVEEDOR ADD CONSTRAINT PK_PEDIDOS_PROVEEDOR PRIMARY KEY (I
ALTER TABLE PEDIDOS_PROVEEDOR_DETALLES ADD CONSTRAINT PK_PEDIDOS_PROVEEDOR_DETALLES PRIMARY KEY (ID); ALTER TABLE PEDIDOS_PROVEEDOR_DETALLES ADD CONSTRAINT PK_PEDIDOS_PROVEEDOR_DETALLES PRIMARY KEY (ID);
ALTER TABLE PERMISOS ADD CONSTRAINT PK_PERMISOS PRIMARY KEY (ID); ALTER TABLE PERMISOS ADD CONSTRAINT PK_PERMISOS PRIMARY KEY (ID);
ALTER TABLE PERMISOSEX ADD CONSTRAINT PK_PERMISOSEX PRIMARY KEY (ID); ALTER TABLE PERMISOSEX ADD CONSTRAINT PK_PERMISOSEX PRIMARY KEY (ID);
ALTER TABLE POBLACIONES ADD CONSTRAINT PK_POBLACIONES PRIMARY KEY (ID);
ALTER TABLE PRESUPUESTOS_CLIENTE ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE PRIMARY KEY (ID); ALTER TABLE PRESUPUESTOS_CLIENTE ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE PRIMARY KEY (ID);
ALTER TABLE PRESUPUESTOS_CLIENTE_DETALLES ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE_DETALLE PRIMARY KEY (ID); ALTER TABLE PRESUPUESTOS_CLIENTE_DETALLES ADD CONSTRAINT PK_PRESUPUESTOS_CLIENTE_DETALLE PRIMARY KEY (ID);
ALTER TABLE PROVEEDORES_DATOS ADD CONSTRAINT PK_PROVEEDORES_DATOS PRIMARY KEY (ID_PROVEEDOR); ALTER TABLE PROVEEDORES_DATOS ADD CONSTRAINT PK_PROVEEDORES_DATOS PRIMARY KEY (ID_PROVEEDOR);
ALTER TABLE PROVEEDORES_GRUPOS ADD CONSTRAINT PK_PROVEEDORES_GRUPOS PRIMARY KEY (ID); ALTER TABLE PROVEEDORES_GRUPOS ADD CONSTRAINT PK_PROVEEDORES_GRUPOS PRIMARY KEY (ID);
ALTER TABLE PROVINCIAS ADD CONSTRAINT PK_PROVINCIAS PRIMARY KEY (ID);
ALTER TABLE RECIBOS_CLIENTE ADD CONSTRAINT PK_RECIBOS_CLIENTE PRIMARY KEY (ID); ALTER TABLE RECIBOS_CLIENTE ADD CONSTRAINT PK_RECIBOS_CLIENTE PRIMARY KEY (ID);
ALTER TABLE RECIBOS_PROVEEDOR ADD CONSTRAINT PK_RECIBOS_PROVEEDOR PRIMARY KEY (ID); ALTER TABLE RECIBOS_PROVEEDOR ADD CONSTRAINT PK_RECIBOS_PROVEEDOR PRIMARY KEY (ID);
ALTER TABLE REMESAS_CLIENTE ADD CONSTRAINT PK_REMESAS_CLIENTE PRIMARY KEY (ID); ALTER TABLE REMESAS_CLIENTE ADD CONSTRAINT PK_REMESAS_CLIENTE PRIMARY KEY (ID);

33066
Database/scripts/factuges_listapoblaciones.sql Normal file
View File

File diff suppressed because it is too large Load Diff

54
Database/scripts/factuges_listaprovincias.sql Normal file
View 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;

BIN
Source/ApplicationBase/ApplicationBase.dpk
View File

Binary file not shown.

29
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -46,6 +46,13 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -60,12 +67,6 @@
<DelphiCompile Include="ApplicationBase.dpk"> <DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\Modulos\Contactos\Base.dcp" />
<DCCReference Include="..\Modulos\Contactos\dbrtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\GUIBase.dcp" />
<DCCReference Include="..\Modulos\Contactos\JvJansD11R.dcp" />
<DCCReference Include="..\Modulos\Contactos\rtl.dcp" />
<DCCReference Include="..\Modulos\Contactos\vcl.dcp" />
<DCCReference Include="Ejercicios\Controller\uEjerciciosController.pas" /> <DCCReference Include="Ejercicios\Controller\uEjerciciosController.pas" />
<DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicio.pas" /> <DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicio.pas" />
<DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicios.pas" /> <DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicios.pas" />
@ -138,6 +139,22 @@
<Form>frViewTiendas</Form> <Form>frViewTiendas</Form>
<DesignClass>TCustomView</DesignClass> <DesignClass>TCustomView</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="ProvinciasPoblaciones\Controller\adortl.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\Base.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\cxLibraryD11.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\DataAbstract_Core_D11.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\dbrtl.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\dsnap.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\dxGDIPlusD11.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\dxThemeD11.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\GUIBase.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\JvJansD11R.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\RemObjects_Core_D11.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\rtl.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\uProvinciasPoblacionesController.pas" />
<DCCReference Include="ProvinciasPoblaciones\Controller\vcl.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Controller\vcldb.dcp" />
<DCCReference Include="ProvinciasPoblaciones\Data\uDataModuleProvinciasPoblaciones.pas" />
<DCCReference Include="uFactuGES_App.pas" /> <DCCReference Include="uFactuGES_App.pas" />
<DCCReference Include="Usuarios\Controller\uUsuariosController.pas" /> <DCCReference Include="Usuarios\Controller\uUsuariosController.pas" />
<DCCReference Include="Usuarios\Controller\View\uIEditorLogin.pas" /> <DCCReference Include="Usuarios\Controller\View\uIEditorLogin.pas" />

53
Source/ApplicationBase/Empresas/Views/uEditorEmpresa.dfm
View File

@ -8,7 +8,7 @@ inherited fEditorEmpresa: TfEditorEmpresa
ClientWidth = 674 ClientWidth = 674
Scaled = False Scaled = False
ExplicitWidth = 682 ExplicitWidth = 682
ExplicitHeight = 581 ExplicitHeight = 588
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader
@ -77,7 +77,6 @@ inherited fEditorEmpresa: TfEditorEmpresa
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 668 Width = 668
Height = 453 Height = 453
ActivePage = pagTiendas
ExplicitLeft = 3 ExplicitLeft = 3
ExplicitTop = 79 ExplicitTop = 79
ExplicitWidth = 668 ExplicitWidth = 668
@ -127,44 +126,44 @@ inherited fEditorEmpresa: TfEditorEmpresa
ExplicitWidth = 84 ExplicitWidth = 84
Width = 84 Width = 84
end end
inherited eProvincia: TcxDBTextEdit inherited cbProvincia: TcxDBComboBox
Top = 243
ExplicitTop = 243
ExplicitWidth = 60
Width = 60
end
inherited ePoblacion: TcxDBTextEdit
Top = 216 Top = 216
ExplicitTop = 216 ExplicitTop = 216
ExplicitWidth = 106
Width = 106
end
inherited cbPoblacion: TcxDBComboBox
Top = 243
ExplicitTop = 243
ExplicitWidth = 100 ExplicitWidth = 100
Width = 100 Width = 100
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 286 Left = 289
Top = 216 Top = 216
ExplicitLeft = 286 ExplicitLeft = 289
ExplicitTop = 216 ExplicitTop = 216
end end
inherited ePaginaWeb: TcxDBTextEdit inherited ePaginaWeb: TcxDBTextEdit
Left = 474 Left = 477
Top = 216 Top = 216
ExplicitLeft = 474 ExplicitLeft = 477
ExplicitTop = 216 ExplicitTop = 216
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited eMailParticular: TcxDBTextEdit inherited eMailParticular: TcxDBTextEdit
Left = 474 Left = 477
Top = 189 Top = 189
ExplicitLeft = 474 ExplicitLeft = 477
ExplicitTop = 189 ExplicitTop = 189
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited eMailTrabajo: TcxDBTextEdit inherited eMailTrabajo: TcxDBTextEdit
Left = 474 Left = 477
Top = 162 Top = 162
ExplicitLeft = 474 ExplicitLeft = 477
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 129 ExplicitWidth = 129
Width = 129 Width = 129
@ -178,33 +177,33 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 107 Width = 107
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 474 Left = 477
Top = 57 Top = 57
ExplicitLeft = 474 ExplicitLeft = 477
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 91 ExplicitWidth = 91
Width = 91 Width = 91
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 474 Left = 477
Top = 30 Top = 30
ExplicitLeft = 474 ExplicitLeft = 477
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 127 ExplicitWidth = 127
Width = 127 Width = 127
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 474 Left = 477
Top = 84 Top = 84
ExplicitLeft = 474 ExplicitLeft = 477
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 155 ExplicitWidth = 155
Width = 155 Width = 155
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 474 Left = 477
Top = 111 Top = 111
ExplicitLeft = 474 ExplicitLeft = 477
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
@ -232,9 +231,9 @@ inherited fEditorEmpresa: TfEditorEmpresa
ExplicitTop = 138 ExplicitTop = 138
end end
inherited cxDBImage1: TcxDBImage inherited cxDBImage1: TcxDBImage
Left = 379 Left = 382
Top = 267 Top = 267
ExplicitLeft = 379 ExplicitLeft = 382
ExplicitTop = 267 ExplicitTop = 267
ExplicitWidth = 140 ExplicitWidth = 140
ExplicitHeight = 100 ExplicitHeight = 100

105
Source/ApplicationBase/Empresas/Views/uEditorTiendaEmpresa.dfm
View File

@ -5,20 +5,20 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
BorderStyle = bsDialog BorderStyle = bsDialog
Caption = 'Cambiar datos de la tienda' Caption = 'Cambiar datos de la tienda'
ClientHeight = 551 ClientHeight = 551
ClientWidth = 432 ClientWidth = 468
Color = clBtnFace Color = clBtnFace
ParentFont = True ParentFont = True
OldCreateOrder = True OldCreateOrder = True
Position = poOwnerFormCenter Position = poOwnerFormCenter
DesignSize = ( DesignSize = (
432 468
551) 551)
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
object Bevel1: TBevel object Bevel1: TBevel
Left = 8 Left = 8
Top = 8 Top = 8
Width = 328 Width = 364
Height = 465 Height = 465
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Shape = bsFrame Shape = bsFrame
@ -34,15 +34,15 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
end end
object Label2: TLabel object Label2: TLabel
Left = 20 Left = 20
Top = 131 Top = 158
Width = 110 Width = 110
Height = 13 Height = 13
AutoSize = False AutoSize = False
Caption = 'Poblaci'#243'n:' Caption = 'Poblaci'#243'n:'
end end
object Label3: TLabel object Label3: TLabel
Left = 20 Left = 19
Top = 159 Top = 133
Width = 110 Width = 110
Height = 13 Height = 13
AutoSize = False AutoSize = False
@ -81,10 +81,11 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
Caption = 'Tel'#233'fono:' Caption = 'Tel'#233'fono:'
end end
object PngSpeedButton3: TPngSpeedButton object PngSpeedButton3: TPngSpeedButton
Left = 304 Left = 333
Top = 320 Top = 320
Width = 23 Width = 23
Height = 22 Height = 22
Anchors = [akTop, akRight]
OnClick = PngSpeedButton3Click OnClick = PngSpeedButton3Click
PngImage.Data = { PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF 89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
@ -104,6 +105,7 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
021806F44D5D44B46618801B400900007F4518F05E90AAF20000000049454E44 021806F44D5D44B46618801B400900007F4518F05E90AAF20000000049454E44
AE426082} AE426082}
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled] PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
ExplicitLeft = 304
end end
object Label8: TLabel object Label8: TLabel
Left = 21 Left = 21
@ -140,10 +142,11 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
object Bevel2: TBevel object Bevel2: TBevel
Left = 8 Left = 8
Top = 479 Top = 479
Width = 328 Width = 364
Height = 58 Height = 58
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
Shape = bsFrame Shape = bsFrame
ExplicitWidth = 328
end end
object Label10: TLabel object Label10: TLabel
Left = 19 Left = 19
@ -154,7 +157,7 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
Caption = 'C'#243'digo contable:' Caption = 'C'#243'digo contable:'
end end
object OKBtn: TButton object OKBtn: TButton
Left = 349 Left = 385
Top = 7 Top = 7
Width = 75 Width = 75
Height = 25 Height = 25
@ -164,7 +167,7 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
TabOrder = 0 TabOrder = 0
end end
object CancelBtn: TButton object CancelBtn: TButton
Left = 349 Left = 385
Top = 38 Top = 38
Width = 75 Width = 75
Height = 25 Height = 25
@ -177,37 +180,63 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
object eDireccion: TDBEdit object eDireccion: TDBEdit
Left = 135 Left = 135
Top = 65 Top = 65
Width = 191 Width = 220
Height = 57 Height = 57
Anchors = [akLeft, akTop, akRight]
AutoSelect = False AutoSelect = False
AutoSize = False AutoSize = False
DataField = 'CALLE' DataField = 'CALLE'
DataSource = dsTienda DataSource = dsTienda
TabOrder = 3 TabOrder = 3
end end
object ePoblacion: TDBEdit object cbPoblacion: TcxDBComboBox
Left = 135
Top = 155
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = dsTienda
Properties.OnInitPopup = cbPoblacionPropertiesInitPopup
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 = 4
Width = 220
end
object cbProvincia: TcxDBComboBox
Left = 135 Left = 135
Top = 128 Top = 128
Width = 191 Anchors = [akLeft, akTop, akRight]
Height = 21 DataBinding.DataField = 'PROVINCIA'
DataField = 'POBLACION' DataBinding.DataSource = dsTienda
DataSource = dsTienda Properties.OnInitPopup = cbProvinciaPropertiesInitPopup
TabOrder = 4 Style.BorderColor = clWindowFrame
end Style.BorderStyle = ebs3D
object eProvincia: TDBEdit Style.HotTrack = False
Left = 135 Style.LookAndFeel.Kind = lfStandard
Top = 156 Style.LookAndFeel.NativeStyle = True
Width = 191 StyleDisabled.LookAndFeel.Kind = lfStandard
Height = 21 StyleDisabled.LookAndFeel.NativeStyle = True
DataField = 'PROVINCIA' StyleFocused.LookAndFeel.Kind = lfStandard
DataSource = dsTienda StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 5
Width = 220
end end
object eCodigoPostal: TDBEdit object eCodigoPostal: TDBEdit
Left = 135 Left = 135
Top = 182 Top = 182
Width = 191 Width = 220
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'CODIGO_POSTAL' DataField = 'CODIGO_POSTAL'
DataSource = dsTienda DataSource = dsTienda
TabOrder = 6 TabOrder = 6
@ -215,8 +244,9 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
object eNombre: TDBEdit object eNombre: TDBEdit
Left = 135 Left = 135
Top = 24 Top = 24
Width = 191 Width = 220
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'NOMBRE' DataField = 'NOMBRE'
DataSource = dsTienda DataSource = dsTienda
TabOrder = 2 TabOrder = 2
@ -224,8 +254,9 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
object ePersonaContacto: TDBEdit object ePersonaContacto: TDBEdit
Left = 135 Left = 135
Top = 224 Top = 224
Width = 191 Width = 220
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'PERSONA_CONTACTO' DataField = 'PERSONA_CONTACTO'
DataSource = dsTienda DataSource = dsTienda
TabOrder = 7 TabOrder = 7
@ -233,8 +264,9 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
object eTelefono: TDBEdit object eTelefono: TDBEdit
Left = 136 Left = 136
Top = 248 Top = 248
Width = 191 Width = 220
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'TELEFONO' DataField = 'TELEFONO'
DataSource = dsTienda DataSource = dsTienda
TabOrder = 8 TabOrder = 8
@ -242,6 +274,7 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
object eMail: TcxDBHyperLinkEdit object eMail: TcxDBHyperLinkEdit
Left = 136 Left = 136
Top = 320 Top = 320
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'EMAIL' DataBinding.DataField = 'EMAIL'
DataBinding.DataSource = dsTienda DataBinding.DataSource = dsTienda
Properties.OnEditValueChanged = eMailPropertiesEditValueChanged Properties.OnEditValueChanged = eMailPropertiesEditValueChanged
@ -259,13 +292,14 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9 TabOrder = 9
Width = 162 Width = 191
end end
object eNotas: TDBMemo object eNotas: TDBMemo
Left = 136 Left = 136
Top = 360 Top = 360
Width = 190 Width = 219
Height = 94 Height = 94
Anchors = [akLeft, akTop, akRight]
DataField = 'NOTAS' DataField = 'NOTAS'
DataSource = dsTienda DataSource = dsTienda
ScrollBars = ssVertical ScrollBars = ssVertical
@ -274,8 +308,9 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
object eMovil: TDBEdit object eMovil: TDBEdit
Left = 136 Left = 136
Top = 272 Top = 272
Width = 191 Width = 220
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'MOVIL' DataField = 'MOVIL'
DataSource = dsTienda DataSource = dsTienda
TabOrder = 11 TabOrder = 11
@ -283,8 +318,9 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
object eFax: TDBEdit object eFax: TDBEdit
Left = 136 Left = 136
Top = 296 Top = 296
Width = 191 Width = 220
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'FAX' DataField = 'FAX'
DataSource = dsTienda DataSource = dsTienda
TabOrder = 12 TabOrder = 12
@ -292,8 +328,9 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
object eCodigoContable: TDBEdit object eCodigoContable: TDBEdit
Left = 135 Left = 135
Top = 496 Top = 496
Width = 191 Width = 220
Height = 21 Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'CODIGO_CONTABLE' DataField = 'CODIGO_CONTABLE'
DataSource = dsTienda DataSource = dsTienda
TabOrder = 13 TabOrder = 13

104
Source/ApplicationBase/Empresas/Views/uEditorTiendaEmpresa.pas
View File

@ -6,7 +6,7 @@ uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable, PngSpeedButton, Buttons, ExtCtrls, Mask, DBCtrls, DB, uDADataTable, PngSpeedButton,
cxControls, cxContainer, cxEdit, cxTextEdit, cxHyperLinkEdit, cxDBEdit, cxControls, cxContainer, cxEdit, cxTextEdit, cxHyperLinkEdit, cxDBEdit,
uIEditorTiendaEmpresa, uTiendasEmpresaController, uBizEmpresasTiendas, uIEditorTiendaEmpresa, uTiendasEmpresaController, uBizEmpresasTiendas,
cxCurrencyEdit, uDAInterfaces; cxCurrencyEdit, uDAInterfaces, cxGraphics, cxMaskEdit, cxDropDownEdit;
type type
TfEditorTiendaEmpresa = class(TForm, IEditorTiendaEmpresa) TfEditorTiendaEmpresa = class(TForm, IEditorTiendaEmpresa)
@ -14,8 +14,8 @@ type
CancelBtn: TButton; CancelBtn: TButton;
Bevel1: TBevel; Bevel1: TBevel;
eDireccion: TDBEdit; eDireccion: TDBEdit;
ePoblacion: TDBEdit; cbPoblacion: TcxDBComboBox;
eProvincia: TDBEdit; cbProvincia: TcxDBComboBox;
eCodigoPostal: TDBEdit; eCodigoPostal: TDBEdit;
Label1: TLabel; Label1: TLabel;
Label2: TLabel; Label2: TLabel;
@ -44,6 +44,13 @@ type
procedure eMailPropertiesEditValueChanged(Sender: TObject); procedure eMailPropertiesEditValueChanged(Sender: TObject);
procedure eMailPropertiesValidate(Sender: TObject; procedure eMailPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
procedure cbProvinciaPropertiesInitPopup(Sender: TObject);
private
FProvincias : TStringList;
FPoblaciones : TStringList;
procedure CargarProvincias;
procedure CargarPoblaciones;
protected protected
FController : ITiendasEmpresaController; FController : ITiendasEmpresaController;
FTienda: IBizEmpresasTiendas; FTienda: IBizEmpresasTiendas;
@ -60,11 +67,12 @@ type
end; end;
implementation implementation
{$R *.dfm} {$R *.dfm}
{$INCLUDE ..\..\..\FactuGES.inc} {$INCLUDE ..\..\..\FactuGES.inc}
uses uses
Variants; Variants, uProvinciasPoblacionesController, uStringsUtils;
type type
@ -72,11 +80,91 @@ type
{ TfEditorTiendaEmpresa } { TfEditorTiendaEmpresa }
procedure TfEditorTiendaEmpresa.CargarPoblaciones;
var
i : integer;
AID : Integer;
begin
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
with TProvinciasPoblacionesController.Create do
begin
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;
end;
procedure TfEditorTiendaEmpresa.CargarProvincias;
var
i : integer;
begin
with TProvinciasPoblacionesController.Create do
begin
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;
end;
procedure TfEditorTiendaEmpresa.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 TfEditorTiendaEmpresa.cbProvinciaPropertiesInitPopup(Sender: TObject);
begin
ShowHourglassCursor;
try
if not Assigned(FProvincias) then
CargarProvincias;
finally
HideHourglassCursor;
end;
end;
constructor TfEditorTiendaEmpresa.Create(AOwner: TComponent); constructor TfEditorTiendaEmpresa.Create(AOwner: TComponent);
begin begin
inherited; inherited;
FController := NIL; FController := NIL;
FProvincias := NIL;
FPoblaciones := NIL;
{$IFDEF CONTABILIDAD} {$IFDEF CONTABILIDAD}
Bevel2.Visible := True; Bevel2.Visible := True;
Label10.Visible := True; Label10.Visible := True;
@ -90,6 +178,12 @@ end;
destructor TfEditorTiendaEmpresa.Destroy; destructor TfEditorTiendaEmpresa.Destroy;
begin begin
if Assigned(FProvincias) then
FreeANDNIL(FProvincias);
if Assigned(FPoblaciones) then
FreeANDNIL(FPoblaciones);
FController := NIL; FController := NIL;
inherited; inherited;
end; end;

78
Source/ApplicationBase/Empresas/Views/uViewEmpresa.dfm
View File

@ -46,29 +46,12 @@ inherited frViewEmpresa: TfrViewEmpresa
TabOrder = 4 TabOrder = 4
Width = 84 Width = 84
end end
object eProvincia: TcxDBTextEdit object cbProvincia: TcxDBComboBox
Left = 117
Top = 247
DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Width = 60
end
object ePoblacion: TcxDBTextEdit
Left = 117 Left = 117
Top = 220 Top = 220
DataBinding.DataField = 'POBLACION' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.OnInitPopup = eProvinciaPropertiesInitPopup
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
@ -80,10 +63,29 @@ inherited frViewEmpresa: TfrViewEmpresa
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 5
Width = 106
end
object cbPoblacion: TcxDBComboBox
Left = 117
Top = 247
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = DADataSource
Properties.OnInitPopup = ePoblacionPropertiesInitPopup
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Width = 100 Width = 100
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 246 Left = 248
Top = 220 Top = 220
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -101,7 +103,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 65 Width = 65
end end
object ePaginaWeb: TcxDBTextEdit object ePaginaWeb: TcxDBTextEdit
Left = 436 Left = 438
Top = 220 Top = 220
DataBinding.DataField = 'PAGINA_WEB' DataBinding.DataField = 'PAGINA_WEB'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -119,7 +121,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 165 Width = 165
end end
object eMailParticular: TcxDBTextEdit object eMailParticular: TcxDBTextEdit
Left = 436 Left = 438
Top = 193 Top = 193
DataBinding.DataField = 'EMAIL_2' DataBinding.DataField = 'EMAIL_2'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -137,7 +139,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 165 Width = 165
end end
object eMailTrabajo: TcxDBTextEdit object eMailTrabajo: TcxDBTextEdit
Left = 436 Left = 438
Top = 166 Top = 166
DataBinding.DataField = 'EMAIL_1' DataBinding.DataField = 'EMAIL_1'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -174,7 +176,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 107 Width = 107
end end
object eTlfParticular: TcxDBTextEdit object eTlfParticular: TcxDBTextEdit
Left = 436 Left = 438
Top = 55 Top = 55
DataBinding.DataField = 'TELEFONO_2' DataBinding.DataField = 'TELEFONO_2'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -192,7 +194,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 91 Width = 91
end end
object eTlfTrabajo: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
Left = 436 Left = 438
Top = 28 Top = 28
DataBinding.DataField = 'TELEFONO_1' DataBinding.DataField = 'TELEFONO_1'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -210,7 +212,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 127 Width = 127
end end
object eTlfMovil: TcxDBTextEdit object eTlfMovil: TcxDBTextEdit
Left = 436 Left = 438
Top = 82 Top = 82
DataBinding.DataField = 'MOVIL_1' DataBinding.DataField = 'MOVIL_1'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -228,7 +230,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 155 Width = 155
end end
object eFax: TcxDBTextEdit object eFax: TcxDBTextEdit
Left = 436 Left = 438
Top = 109 Top = 109
DataBinding.DataField = 'FAX' DataBinding.DataField = 'FAX'
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
@ -324,7 +326,7 @@ inherited frViewEmpresa: TfrViewEmpresa
Width = 60 Width = 60
end end
object cxDBImage1: TcxDBImage object cxDBImage1: TcxDBImage
Left = 341 Left = 343
Top = 277 Top = 277
DataBinding.DataSource = DADataSource DataBinding.DataSource = DADataSource
Properties.Stretch = True Properties.Stretch = True
@ -386,27 +388,31 @@ inherited frViewEmpresa: TfrViewEmpresa
Control = eCalle Control = eCalle
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Group8: TdxLayoutGroup object dxLayoutControl1Group13: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControl1Item3: TdxLayoutItem object dxLayoutControl1Item2: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Poblaci'#243'n:' Caption = 'Provincia:'
Control = ePoblacion Control = cbProvincia
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControl1Item4: TdxLayoutItem object dxLayoutControl1Item4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'C'#243'd. postal:' Caption = 'C'#243'd. postal:'
Control = eCodigoPostal Control = eCodigoPostal
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControl1Item2: TdxLayoutItem object dxLayoutControl1Item3: TdxLayoutItem
Caption = 'Provincia:' AutoAligns = [aaVertical]
Control = eProvincia AlignHorz = ahClient
Caption = 'Poblaci'#243'n:'
Control = cbPoblacion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end

109
Source/ApplicationBase/Empresas/Views/uViewEmpresa.pas
View File

@ -9,7 +9,8 @@ uses
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit, JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxMaskEdit, cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxMaskEdit,
cxSpinEdit, cxImage, JvExControls, JvBitmapButton, ActnList, ImgList, cxSpinEdit, cxImage, JvExControls, JvBitmapButton, ActnList, ImgList,
PngImageList, TB2Item, TBX, TB2Dock, TB2Toolbar, PngSpeedButton, uDAInterfaces; PngImageList, TB2Item, TBX, TB2Dock, TB2Toolbar, PngSpeedButton, uDAInterfaces,
cxGraphics, cxDropDownEdit;
type type
IViewEmpresa = interface(IViewBase) IViewEmpresa = interface(IViewBase)
@ -33,9 +34,9 @@ type
dxLayoutControl1Item1: TdxLayoutItem; dxLayoutControl1Item1: TdxLayoutItem;
eCalle: TcxDBTextEdit; eCalle: TcxDBTextEdit;
dxLayoutControl1Item2: TdxLayoutItem; dxLayoutControl1Item2: TdxLayoutItem;
eProvincia: TcxDBTextEdit; cbProvincia: TcxDBComboBox;
dxLayoutControl1Item3: TdxLayoutItem; dxLayoutControl1Item3: TdxLayoutItem;
ePoblacion: TcxDBTextEdit; cbPoblacion: TcxDBComboBox;
dxLayoutControl1Item4: TdxLayoutItem; dxLayoutControl1Item4: TdxLayoutItem;
eCodigoPostal: TcxDBTextEdit; eCodigoPostal: TcxDBTextEdit;
dxLayoutControl1Item5: TdxLayoutItem; dxLayoutControl1Item5: TdxLayoutItem;
@ -63,7 +64,6 @@ type
dxLayoutControl1Group10: TdxLayoutGroup; dxLayoutControl1Group10: TdxLayoutGroup;
dxLayoutControl1Group9: TdxLayoutGroup; dxLayoutControl1Group9: TdxLayoutGroup;
dxLayoutControl1Group11: TdxLayoutGroup; dxLayoutControl1Group11: TdxLayoutGroup;
dxLayoutControl1Group8: TdxLayoutGroup;
cxDBSpinEdit1: TcxDBSpinEdit; cxDBSpinEdit1: TcxDBSpinEdit;
dxLayoutControl1Item16: TdxLayoutItem; dxLayoutControl1Item16: TdxLayoutItem;
ActionList1: TActionList; ActionList1: TActionList;
@ -78,23 +78,31 @@ type
PngSpeedButton2: TPngSpeedButton; PngSpeedButton2: TPngSpeedButton;
dxLayoutControl1Item20: TdxLayoutItem; dxLayoutControl1Item20: TdxLayoutItem;
dxLayoutControl1Group12: TdxLayoutGroup; dxLayoutControl1Group12: TdxLayoutGroup;
dxLayoutControl1Group13: TdxLayoutGroup;
procedure actAnadirExecute(Sender: TObject); procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject); procedure actEliminarExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject); procedure actEliminarUpdate(Sender: TObject);
procedure actAnadirUpdate(Sender: TObject); procedure actAnadirUpdate(Sender: TObject);
procedure eProvinciaPropertiesInitPopup(Sender: TObject);
procedure ePoblacionPropertiesInitPopup(Sender: TObject);
private private
FEmpresa: IBizEmpresa; FEmpresa: IBizEmpresa;
FProvincias : TStringList;
FPoblaciones : TStringList;
procedure CargarProvincias;
procedure CargarPoblaciones;
protected protected
function GetEmpresa: IBizEmpresa; function GetEmpresa: IBizEmpresa;
procedure SetEmpresa(const Value: IBizEmpresa); procedure SetEmpresa(const Value: IBizEmpresa);
public public
constructor Create(AOwner : TComponent); override; constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
end; end;
implementation implementation
{$R *.dfm} {$R *.dfm}
uses uROClasses, uROTypes; uses uROClasses, uROTypes, uProvinciasPoblacionesController, uStringsUtils;
{ TfrViewEmpresas } { TfrViewEmpresas }
@ -150,9 +158,100 @@ begin
// (Sender as TAction).Enabled := not cxDBImage1.Picture.Graphic.Empty; // (Sender as TAction).Enabled := not cxDBImage1.Picture.Graphic.Empty;
end; end;
procedure TfrViewEmpresa.CargarPoblaciones;
var
i : integer;
AID : Integer;
begin
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
with TProvinciasPoblacionesController.Create do
begin
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;
end;
procedure TfrViewEmpresa.CargarProvincias;
var
i : integer;
begin
with TProvinciasPoblacionesController.Create do
begin
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;
end;
constructor TfrViewEmpresa.Create(AOwner : TComponent); constructor TfrViewEmpresa.Create(AOwner : TComponent);
begin begin
inherited; inherited;
FProvincias := NIL;
FPoblaciones := NIL;
end;
destructor TfrViewEmpresa.Destroy;
begin
if Assigned(FProvincias) then
FreeANDNIL(FProvincias);
if Assigned(FPoblaciones) then
FreeANDNIL(FPoblaciones);
inherited;
end;
procedure TfrViewEmpresa.ePoblacionPropertiesInitPopup(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 TfrViewEmpresa.eProvinciaPropertiesInitPopup(Sender: TObject);
begin
ShowHourglassCursor;
try
if not Assigned(FProvincias) then
CargarProvincias;
finally
HideHourglassCursor;
end;
end; end;
function TfrViewEmpresa.GetEmpresa: IBizEmpresa; function TfrViewEmpresa.GetEmpresa: IBizEmpresa;

BIN
Source/ApplicationBase/ProvinciasPoblaciones/Controller/uProvinciasPoblacionesController.dcu Normal file
View File

Binary file not shown.

68
Source/ApplicationBase/ProvinciasPoblaciones/Controller/uProvinciasPoblacionesController.pas Normal file
View File

@ -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.

BIN
Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.dcu Normal file
View File

Binary file not shown.

12
Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.dfm Normal file
View File

@ -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

50
Source/ApplicationBase/ProvinciasPoblaciones/Data/uDataModuleProvinciasPoblaciones.pas Normal file
View File

@ -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.

BIN
Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.dcu Normal file
View File

Binary file not shown.

100
Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.dfm Normal file
View File

@ -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

132
Source/ApplicationBase/ProvinciasPoblaciones/Servidor/srvProvinciasPoblaciones_Impl.pas Normal file
View File

@ -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.

89
Source/Base/Base.dproj
View File

@ -44,6 +44,13 @@
<Borland.ProjectType>Package</Borland.ProjectType> <Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject> <BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages> <BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">Libreria base de FactuGES</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages> <Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -58,48 +65,48 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </DelphiCompile>
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\adortl.dcp" /> <DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxIntl6D11.dcp" /> <DCCReference Include="..\cxIntl6D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxIntlPrintSys3D11.dcp" /> <DCCReference Include="..\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\DataAbstract_Core_D11.dcp" /> <DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\dbrtl.dcp" /> <DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\dclIndyCore.dcp" /> <DCCReference Include="..\dclIndyCore.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\designide.dcp" /> <DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\dsnap.dcp" /> <DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\GUISDK_D11.dcp" /> <DCCReference Include="..\GUISDK_D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\IndyCore.dcp" /> <DCCReference Include="..\IndyCore.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\IndyProtocols.dcp" /> <DCCReference Include="..\IndyProtocols.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\IndySystem.dcp" /> <DCCReference Include="..\IndySystem.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\Jcl.dcp" /> <DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JclVcl.dcp" /> <DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JSDialog100.dcp" /> <DCCReference Include="..\JSDialog100.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvCmpD11R.dcp" /> <DCCReference Include="..\JvCmpD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvCoreD11R.dcp" /> <DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvCtrlsD11R.dcp" /> <DCCReference Include="..\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvDlgsD11R.dcp" /> <DCCReference Include="..\JvDlgsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvMMD11R.dcp" /> <DCCReference Include="..\JvMMD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvNetD11R.dcp" /> <DCCReference Include="..\JvNetD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvPageCompsD11R.dcp" /> <DCCReference Include="..\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvStdCtrlsD11R.dcp" /> <DCCReference Include="..\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvSystemD11R.dcp" /> <DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\pckMD5.dcp" /> <DCCReference Include="..\pckMD5.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\pckUCDataConnector.dcp" /> <DCCReference Include="..\pckUCDataConnector.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\pckUserControl_RT.dcp" /> <DCCReference Include="..\pckUserControl_RT.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\PluginSDK_D10R.dcp" /> <DCCReference Include="..\PluginSDK_D10R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\PngComponentsD10.dcp" /> <DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\PNG_D10.dcp" /> <DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\RemObjects_Core_D11.dcp" /> <DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\rtl.dcp" /> <DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\TB2k_D10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\tbx_d10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\vcl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\vclactnband.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\vcldb.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\vcljpg.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\VclSmp.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\vclx.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" /> <DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\TB2k_D10.dcp" />
<DCCReference Include="..\tbx_d10.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\VclSmp.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>

1458
Source/Modulos/Articulos/Model/schArticulosClient_Intf.pas
View File

File diff suppressed because it is too large Load Diff

112
Source/Modulos/Contactos/Views/uEditorCliente.dfm
View File

@ -110,41 +110,33 @@ inherited fEditorCliente: TfEditorCliente
ExplicitLeft = 837 ExplicitLeft = 837
ExplicitTop = 162 ExplicitTop = 162
end end
inherited Label1: TLabel
Left = 586
Top = 341
Width = 269
ExplicitLeft = 586
ExplicitTop = 341
ExplicitWidth = 269
end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 280 Top = 243
ExplicitTop = 280 ExplicitTop = 243
ExplicitWidth = 268 ExplicitWidth = 268
Width = 268 Width = 268
end end
inherited eProvincia: TcxDBTextEdit inherited cbProvincia: TcxDBComboBox
Top = 334 Top = 270
ExplicitTop = 334 ExplicitTop = 270
ExplicitWidth = 268 ExplicitWidth = 121
Width = 268 Width = 121
end end
inherited ePoblacion: TcxDBTextEdit inherited cbPoblacion: TcxDBComboBox
Top = 307 Top = 297
ExplicitTop = 307 ExplicitTop = 297
ExplicitWidth = 78 ExplicitWidth = 213
Width = 78 Width = 213
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 493 Left = 504
Top = 307 Top = 270
ExplicitLeft = 493 ExplicitLeft = 504
ExplicitTop = 307 ExplicitTop = 270
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 463 Top = 426
ExplicitTop = 463 ExplicitTop = 426
ExplicitWidth = 587 ExplicitWidth = 587
ExplicitHeight = 33 ExplicitHeight = 33
Height = 33 Height = 33
@ -157,8 +149,8 @@ inherited fEditorCliente: TfEditorCliente
Width = 265 Width = 265
end end
inherited cbClienteBloqueado: TcxDBCheckBox inherited cbClienteBloqueado: TcxDBCheckBox
Top = 385 Top = 348
ExplicitTop = 385 ExplicitTop = 348
ExplicitWidth = 163 ExplicitWidth = 163
Width = 163 Width = 163
end end
@ -169,19 +161,11 @@ inherited fEditorCliente: TfEditorCliente
Width = 40 Width = 40
end end
inherited eBloqueo: TcxDBTextEdit inherited eBloqueo: TcxDBTextEdit
Top = 412 Top = 375
ExplicitTop = 412 ExplicitTop = 375
ExplicitWidth = 205 ExplicitWidth = 205
Width = 205 Width = 205
end end
inherited cxDBCheckBox1: TcxDBCheckBox
Left = 586
Top = 386
ExplicitLeft = 586
ExplicitTop = 386
ExplicitWidth = 272
Width = 272
end
inherited eCodigoAsignado: TcxDBTextEdit inherited eCodigoAsignado: TcxDBTextEdit
Top = 111 Top = 111
ExplicitTop = 111 ExplicitTop = 111
@ -195,33 +179,33 @@ inherited fEditorCliente: TfEditorCliente
Width = 211 Width = 211
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 681 Left = 683
Top = 57 Top = 57
ExplicitLeft = 681 ExplicitLeft = 683
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 91 ExplicitWidth = 91
Width = 91 Width = 91
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 681 Left = 683
Top = 30 Top = 30
ExplicitLeft = 681 ExplicitLeft = 683
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 127 ExplicitWidth = 127
Width = 127 Width = 127
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 681 Left = 683
Top = 84 Top = 84
ExplicitLeft = 681 ExplicitLeft = 683
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 157 ExplicitWidth = 157
Width = 157 Width = 157
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 681 Left = 683
Top = 111 Top = 111
ExplicitLeft = 681 ExplicitLeft = 683
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
@ -233,35 +217,35 @@ inherited fEditorCliente: TfEditorCliente
Width = 158 Width = 158
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 288 Left = 289
Top = 30 Top = 30
ExplicitLeft = 288 ExplicitLeft = 289
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 268 ExplicitWidth = 268
Width = 268 Width = 268
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 681 Left = 683
Top = 162 Top = 162
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 681 ExplicitLeft = 683
ExplicitTop = 162 ExplicitTop = 162
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 681 Left = 683
Top = 190 Top = 190
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
ExplicitLeft = 681 ExplicitLeft = 683
ExplicitTop = 190 ExplicitTop = 190
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 681 Left = 683
Top = 217 Top = 217
ExplicitLeft = 681 ExplicitLeft = 683
ExplicitTop = 217 ExplicitTop = 217
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
@ -273,15 +257,15 @@ inherited fEditorCliente: TfEditorCliente
Width = 102 Width = 102
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 253 Top = 216
ExplicitTop = 253 ExplicitTop = 216
ExplicitWidth = 253 ExplicitWidth = 253
Width = 253 Width = 253
end end
inherited frViewTienda1: TfrViewTienda inherited frViewTienda1: TfrViewTienda
Left = 586 Left = 588
Top = 270 Top = 270
ExplicitLeft = 586 ExplicitLeft = 588
ExplicitTop = 270 ExplicitTop = 270
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
@ -452,18 +436,6 @@ inherited fEditorCliente: TfEditorCliente
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 882 Width = 882
ExplicitWidth = 882 ExplicitWidth = 882
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end

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

@ -7,7 +7,6 @@ inherited fEditorContacto: TfEditorContacto
ClientWidth = 632 ClientWidth = 632
Scaled = False Scaled = False
ExplicitWidth = 640 ExplicitWidth = 640
ExplicitHeight = 240
PixelsPerInch = 96 PixelsPerInch = 96
TextHeight = 13 TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader inherited JvNavPanelHeader: TJvNavPanelHeader

129
Source/Modulos/Contactos/Views/uEditorProveedor.dfm
View File

@ -55,7 +55,6 @@ inherited fEditorProveedor: TfEditorProveedor
inherited pgPaginas: TPageControl inherited pgPaginas: TPageControl
Width = 642 Width = 642
Height = 489 Height = 489
ActivePage = PagContabilidad
ExplicitWidth = 642 ExplicitWidth = 642
ExplicitHeight = 489 ExplicitHeight = 489
inherited pagGeneral: TTabSheet inherited pagGeneral: TTabSheet
@ -101,36 +100,28 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitLeft = 572 ExplicitLeft = 572
ExplicitTop = 162 ExplicitTop = 162
end end
inherited Label1: TLabel
Left = 381
Top = 341
Width = 342
ExplicitLeft = 381
ExplicitTop = 341
ExplicitWidth = 342
end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 243 Top = 243
ExplicitTop = 243 ExplicitTop = 243
ExplicitWidth = 174 ExplicitWidth = 174
Width = 174 Width = 174
end end
inherited eProvincia: TcxDBTextEdit inherited cbProvincia: TcxDBComboBox
Top = 297
ExplicitTop = 297
ExplicitWidth = 174
Width = 174
end
inherited ePoblacion: TcxDBTextEdit
Top = 270 Top = 270
ExplicitTop = 270 ExplicitTop = 270
ExplicitWidth = 108 ExplicitWidth = 175
Width = 108 Width = 175
end
inherited cbPoblacion: TcxDBComboBox
Top = 297
ExplicitTop = 297
ExplicitWidth = 267
Width = 267
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 288 Left = 310
Top = 270 Top = 270
ExplicitLeft = 288 ExplicitLeft = 310
ExplicitTop = 270 ExplicitTop = 270
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
@ -141,14 +132,6 @@ inherited fEditorProveedor: TfEditorProveedor
Height = 56 Height = 56
Width = 580 Width = 580
end end
inherited cxDBCheckBox1: TcxDBCheckBox
Left = 381
Top = 373
ExplicitLeft = 381
ExplicitTop = 373
ExplicitWidth = 310
Width = 310
end
inherited cxDBCheckBox2: TcxDBCheckBox inherited cxDBCheckBox2: TcxDBCheckBox
Top = 348 Top = 348
ExplicitTop = 348 ExplicitTop = 348
@ -180,33 +163,33 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 221 Width = 221
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 476 Left = 489
Top = 57 Top = 57
ExplicitLeft = 476 ExplicitLeft = 489
ExplicitTop = 57 ExplicitTop = 57
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 476 Left = 489
Top = 30 Top = 30
ExplicitLeft = 476 ExplicitLeft = 489
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 476 Left = 489
Top = 84 Top = 84
ExplicitLeft = 476 ExplicitLeft = 489
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 476 Left = 489
Top = 111 Top = 111
ExplicitLeft = 476 ExplicitLeft = 489
ExplicitTop = 111 ExplicitTop = 111
ExplicitWidth = 172 ExplicitWidth = 172
Width = 172 Width = 172
@ -218,43 +201,45 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 263 Width = 263
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 216
Top = 30 Top = 30
ExplicitLeft = 216
ExplicitTop = 30 ExplicitTop = 30
ExplicitWidth = 254 ExplicitWidth = 254
Width = 254 Width = 254
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 476
Top = 162
Properties.Prefix = 'mailto:'
ExplicitLeft = 476
ExplicitTop = 162
ExplicitWidth = 129
Width = 129
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 476
Top = 190
Properties.Prefix = 'mailto:'
ExplicitLeft = 476
ExplicitTop = 190
ExplicitWidth = 165
Width = 165
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 476
Top = 217
ExplicitLeft = 476
ExplicitTop = 217
ExplicitWidth = 165
Width = 165
end
inherited eNombreComercial: TcxDBTextEdit inherited eNombreComercial: TcxDBTextEdit
Top = 84 Top = 84
ExplicitTop = 84 ExplicitTop = 84
ExplicitWidth = 192 ExplicitWidth = 192
Width = 192 Width = 192
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 489
Top = 162
Properties.Prefix = 'mailto:'
ExplicitLeft = 489
ExplicitTop = 162
ExplicitWidth = 129
Width = 129
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 489
Top = 190
Properties.Prefix = 'mailto:'
ExplicitLeft = 489
ExplicitTop = 190
ExplicitWidth = 165
Width = 165
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 489
Top = 217
ExplicitLeft = 489
ExplicitTop = 217
ExplicitWidth = 165
Width = 165
end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Top = 30 Top = 30
ExplicitTop = 30 ExplicitTop = 30
@ -268,11 +253,15 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 253 Width = 253
end end
inherited frViewTienda1: TfrViewTienda inherited frViewTienda1: TfrViewTienda
Left = 381 Left = 394
Top = 270 Top = 270
ExplicitLeft = 381 Width = 290
ExplicitLeft = 394
ExplicitTop = 270 ExplicitTop = 270
ExplicitWidth = 290
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
Width = 290
ExplicitWidth = 290
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
ExplicitWidth = 250 ExplicitWidth = 250
Width = 250 Width = 250
@ -415,6 +404,18 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ToolBar1: TToolBar inherited ToolBar1: TToolBar
Width = 634 Width = 634
ExplicitWidth = 634 ExplicitWidth = 634
inherited ToolButton1: TToolButton
ExplicitWidth = 113
end
inherited ToolButton4: TToolButton
ExplicitWidth = 113
end
inherited ToolButton2: TToolButton
ExplicitWidth = 113
end
inherited ToolButton7: TToolButton
ExplicitWidth = 113
end
end end
end end
end end

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

@ -106,28 +106,28 @@ inherited fEditorVendedor: TfEditorVendedor
ExplicitTop = 162 ExplicitTop = 162
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Top = 236 Top = 189
ExplicitTop = 236 ExplicitTop = 189
ExplicitWidth = 174 ExplicitWidth = 174
Width = 174 Width = 174
end end
inherited eProvincia: TcxDBTextEdit inherited cbProvincia: TcxDBComboBox
Top = 290 Top = 216
ExplicitTop = 290 ExplicitTop = 216
ExplicitWidth = 174 ExplicitWidth = 144
Width = 174 Width = 144
end end
inherited ePoblacion: TcxDBTextEdit inherited cbPoblacion: TcxDBComboBox
Top = 263 Top = 243
ExplicitTop = 263 ExplicitTop = 243
ExplicitWidth = 108 ExplicitWidth = 236
Width = 108 Width = 236
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 242 Left = 251
Top = 263 Top = 216
ExplicitLeft = 242 ExplicitLeft = 251
ExplicitTop = 263 ExplicitTop = 216
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 341 Top = 341
@ -209,6 +209,19 @@ inherited fEditorVendedor: TfEditorVendedor
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited cbUsuario: TcxComboBox
Top = 84
ExplicitTop = 84
ExplicitWidth = 201
Width = 201
end
inherited edtComision: TcxDBSpinEdit
Top = 111
Style.IsFontAssigned = True
ExplicitTop = 111
ExplicitWidth = 65
Width = 65
end
inherited eReferencia: TcxDBTextEdit inherited eReferencia: TcxDBTextEdit
Top = 30 Top = 30
ExplicitTop = 30 ExplicitTop = 30
@ -216,8 +229,8 @@ inherited fEditorVendedor: TfEditorVendedor
Width = 97 Width = 97
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Top = 209 Top = 162
ExplicitTop = 209 ExplicitTop = 162
ExplicitWidth = 256 ExplicitWidth = 256
Width = 256 Width = 256
end end
@ -237,19 +250,6 @@ inherited fEditorVendedor: TfEditorVendedor
end end
end end
end end
inherited cbUsuario: TcxComboBox
Top = 84
ExplicitTop = 84
ExplicitWidth = 201
Width = 201
end
inherited edtComision: TcxDBSpinEdit
Top = 111
Style.IsFontAssigned = True
ExplicitTop = 111
ExplicitWidth = 65
Width = 65
end
end end
inherited dsContacto: TDADataSource inherited dsContacto: TDADataSource
Left = 8 Left = 8
@ -269,9 +269,23 @@ inherited fEditorVendedor: TfEditorVendedor
Width = 662 Width = 662
LookAndFeel = dxLayoutOfficeLookAndFeel LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 662 ExplicitWidth = 662
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited eSucursal: TcxDBTextEdit inherited eSucursal: TcxDBTextEdit
Left = 426 Left = 426
ExplicitLeft = 426 ExplicitLeft = 426
ExplicitWidth = 112
Width = 112
end
inherited eCuenta: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end
inherited eTitular: TcxDBTextEdit
ExplicitWidth = 194
Width = 194
end end
end end
end end

119
Source/Modulos/Contactos/Views/uViewCliente.dfm
View File

@ -22,61 +22,50 @@ inherited frViewCliente: TfrViewCliente
Left = 601 Left = 601
ExplicitLeft = 601 ExplicitLeft = 601
end end
object Label1: TLabel [3]
Left = 354
Top = 357
Width = 269
Height = 39
Margins.Bottom = 0
Caption =
'Para que el cliente pueda tener acceso a la tienda web, obligato' +
'riamente debe tener indicado un correo electr'#243'nico de trabajo'
WordWrap = True
end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 132 Left = 132
Top = 273 Top = 247
TabOrder = 8 TabOrder = 8
ExplicitLeft = 132 ExplicitLeft = 132
ExplicitTop = 273 ExplicitTop = 247
ExplicitWidth = 181 ExplicitWidth = 181
Width = 181 Width = 181
end end
inherited eProvincia: TcxDBTextEdit inherited cbProvincia: TcxDBComboBox
Left = 132 Left = 132
Top = 327 Top = 274
TabOrder = 11
ExplicitLeft = 132
ExplicitTop = 327
ExplicitWidth = 133
Width = 133
end
inherited ePoblacion: TcxDBTextEdit
Left = 132
Top = 300
TabOrder = 9 TabOrder = 9
ExplicitLeft = 132 ExplicitLeft = 132
ExplicitTop = 300 ExplicitTop = 274
ExplicitWidth = 111 ExplicitWidth = 121
Width = 111 Width = 121
end
inherited cbPoblacion: TcxDBComboBox
Left = 132
Top = 301
TabOrder = 11
ExplicitLeft = 132
ExplicitTop = 301
ExplicitWidth = 213
Width = 213
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 259 Left = 268
Top = 300 Top = 274
TabOrder = 10 TabOrder = 10
ExplicitLeft = 259 ExplicitLeft = 268
ExplicitTop = 300 ExplicitTop = 274
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 468 Top = 442
TabOrder = 23 TabOrder = 22
ExplicitTop = 468 ExplicitTop = 442
ExplicitWidth = 609 ExplicitWidth = 609
ExplicitHeight = 42 ExplicitHeight = 42
Height = 42 Height = 42
Width = 609 Width = 609
end end
object eNombreComercial: TcxDBTextEdit [9] object eNombreComercial: TcxDBTextEdit [8]
Left = 132 Left = 132
Top = 82 Top = 82
DataBinding.DataField = 'NOMBRE_COMERCIAL' DataBinding.DataField = 'NOMBRE_COMERCIAL'
@ -96,9 +85,9 @@ inherited frViewCliente: TfrViewCliente
TabOrder = 3 TabOrder = 3
Width = 143 Width = 143
end end
object cbClienteBloqueado: TcxDBCheckBox [10] object cbClienteBloqueado: TcxDBCheckBox [9]
Left = 22 Left = 22
Top = 384 Top = 358
Action = actBloqueoCliente Action = actBloqueoCliente
DataBinding.DataField = 'BLOQUEADO' DataBinding.DataField = 'BLOQUEADO'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -120,7 +109,7 @@ inherited frViewCliente: TfrViewCliente
TabOrder = 12 TabOrder = 12
Width = 163 Width = 163
end end
object cbGrupoCliente: TcxDBComboBox [11] object cbGrupoCliente: TcxDBComboBox [10]
Left = 132 Left = 132
Top = 136 Top = 136
DataBinding.DataField = 'GRUPO_CLIENTE' DataBinding.DataField = 'GRUPO_CLIENTE'
@ -144,9 +133,9 @@ inherited frViewCliente: TfrViewCliente
TabOrder = 5 TabOrder = 5
Width = 87 Width = 87
end end
object eBloqueo: TcxDBTextEdit [12] object eBloqueo: TcxDBTextEdit [11]
Left = 132 Left = 132
Top = 411 Top = 385
DataBinding.DataField = 'MOTIVO_BLOQUEO' DataBinding.DataField = 'MOTIVO_BLOQUEO'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -163,32 +152,7 @@ inherited frViewCliente: TfrViewCliente
TabOrder = 13 TabOrder = 13
Width = 113 Width = 113
end end
object cxDBCheckBox1: TcxDBCheckBox [13] object eCodigoAsignado: TcxDBTextEdit [12]
Left = 354
Top = 402
Caption = 'Permitir el acceso de este cliente a 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 = 22
Width = 325
end
object eCodigoAsignado: TcxDBTextEdit [14]
Left = 132 Left = 132
Top = 109 Top = 109
DataBinding.DataField = 'CODIGO_ASIGNADO' DataBinding.DataField = 'CODIGO_ASIGNADO'
@ -208,7 +172,7 @@ inherited frViewCliente: TfrViewCliente
TabOrder = 4 TabOrder = 4
Width = 227 Width = 227
end end
object cbProcedenciaCliente: TcxDBComboBox [15] object cbProcedenciaCliente: TcxDBComboBox [13]
Left = 132 Left = 132
Top = 163 Top = 163
DataBinding.DataField = 'PROCEDENCIA_CLIENTE' DataBinding.DataField = 'PROCEDENCIA_CLIENTE'
@ -303,10 +267,10 @@ inherited frViewCliente: TfrViewCliente
end end
inherited ePersonaContacto: TcxDBTextEdit inherited ePersonaContacto: TcxDBTextEdit
Left = 132 Left = 132
Top = 246 Top = 220
TabOrder = 7 TabOrder = 7
ExplicitLeft = 132 ExplicitLeft = 132
ExplicitTop = 246 ExplicitTop = 220
ExplicitWidth = 256 ExplicitWidth = 256
Width = 256 Width = 256
end end
@ -381,23 +345,6 @@ inherited frViewCliente: TfrViewCliente
inherited dxLayoutControlContactoGroup100: TdxLayoutGroup inherited dxLayoutControlContactoGroup100: TdxLayoutGroup
Caption = 'El cliente pertenece a la tienda' Caption = 'El cliente pertenece a la tienda'
end end
object dxLayoutControlContactoGroup10: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Acceso a la tienda web'
Visible = False
object dxLayoutControlContactoItem21: TdxLayoutItem
ShowCaption = False
Control = Label1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem20: TdxLayoutItem
ShowCaption = False
Control = cxDBCheckBox1
ControlOptions.ShowBorder = False
end
end
end end
end end
inherited dxLayoutControlContactoGroup7: TdxLayoutGroup inherited dxLayoutControlContactoGroup7: TdxLayoutGroup

5
Source/Modulos/Contactos/Views/uViewCliente.pas
View File

@ -29,11 +29,6 @@ type
cbGrupoCliente: TcxDBComboBox; cbGrupoCliente: TcxDBComboBox;
eBloqueo: TcxDBTextEdit; eBloqueo: TcxDBTextEdit;
actBloqueoCliente: TAction; actBloqueoCliente: TAction;
dxLayoutControlContactoGroup10: TdxLayoutGroup;
dxLayoutControlContactoItem20: TdxLayoutItem;
cxDBCheckBox1: TcxDBCheckBox;
dxLayoutControlContactoItem21: TdxLayoutItem;
Label1: TLabel;
dxLayoutControlContactoItem22: TdxLayoutItem; dxLayoutControlContactoItem22: TdxLayoutItem;
eCodigoAsignado: TcxDBTextEdit; eCodigoAsignado: TcxDBTextEdit;
dxLayoutControlContactoItem23: TdxLayoutItem; dxLayoutControlContactoItem23: TdxLayoutItem;

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

@ -104,7 +104,7 @@ inherited frViewContacto: TfrViewContacto
end end
object eCalle: TcxDBTextEdit object eCalle: TcxDBTextEdit
Left = 115 Left = 115
Top = 328 Top = 139
DataBinding.DataField = 'CALLE' DataBinding.DataField = 'CALLE'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -120,29 +120,12 @@ inherited frViewContacto: TfrViewContacto
TabOrder = 4 TabOrder = 4
Width = 181 Width = 181
end end
object eProvincia: TcxDBTextEdit object cbProvincia: TcxDBComboBox
Left = 115 Left = 115
Top = 382 Top = 166
DataBinding.DataField = 'PROVINCIA' DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Properties.OnInitPopup = cbProvinciaPropertiesInitPopup
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Width = 133
end
object ePoblacion: TcxDBTextEdit
Left = 115
Top = 355
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard Style.LookAndFeel.Kind = lfStandard
@ -154,11 +137,30 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 5 TabOrder = 5
Width = 222
end
object cbPoblacion: TcxDBComboBox
Left = 115
Top = 193
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = dsContacto
Properties.OnInitPopup = cbPoblacionPropertiesInitPopup
Style.BorderColor = clWindowFrame
Style.BorderStyle = ebs3D
Style.LookAndFeel.Kind = lfStandard
Style.LookAndFeel.NativeStyle = True
StyleDisabled.LookAndFeel.Kind = lfStandard
StyleDisabled.LookAndFeel.NativeStyle = True
StyleFocused.LookAndFeel.Kind = lfStandard
StyleFocused.LookAndFeel.NativeStyle = True
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 7
Width = 111 Width = 111
end end
object eCodigoPostal: TcxDBTextEdit object eCodigoPostal: TcxDBTextEdit
Left = 196 Left = 226
Top = 355 Top = 166
DataBinding.DataField = 'CODIGO_POSTAL' DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -172,11 +174,11 @@ inherited frViewContacto: TfrViewContacto
StyleHot.LookAndFeel.Kind = lfStandard StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 6 TabOrder = 6
Width = 65 Width = 56
end end
object eObservaciones: TcxDBMemo object eObservaciones: TcxDBMemo
Left = 22 Left = 22
Top = 439 Top = 357
DataBinding.DataField = 'NOTAS' DataBinding.DataField = 'NOTAS'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Properties.ScrollBars = ssVertical Properties.ScrollBars = ssVertical
@ -195,7 +197,7 @@ inherited frViewContacto: TfrViewContacto
Width = 630 Width = 630
end end
object eTlfParticular: TcxDBTextEdit object eTlfParticular: TcxDBTextEdit
Left = 386 Left = 407
Top = 55 Top = 55
DataBinding.DataField = 'TELEFONO_2' DataBinding.DataField = 'TELEFONO_2'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -213,7 +215,7 @@ inherited frViewContacto: TfrViewContacto
Width = 91 Width = 91
end end
object eTlfTrabajo: TcxDBTextEdit object eTlfTrabajo: TcxDBTextEdit
Left = 386 Left = 407
Top = 28 Top = 28
DataBinding.DataField = 'TELEFONO_1' DataBinding.DataField = 'TELEFONO_1'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -231,7 +233,7 @@ inherited frViewContacto: TfrViewContacto
Width = 127 Width = 127
end end
object eTlfMovil: TcxDBTextEdit object eTlfMovil: TcxDBTextEdit
Left = 386 Left = 407
Top = 82 Top = 82
DataBinding.DataField = 'MOVIL_1' DataBinding.DataField = 'MOVIL_1'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -249,7 +251,7 @@ inherited frViewContacto: TfrViewContacto
Width = 155 Width = 155
end end
object eFax: TcxDBTextEdit object eFax: TcxDBTextEdit
Left = 386 Left = 407
Top = 109 Top = 109
DataBinding.DataField = 'FAX' DataBinding.DataField = 'FAX'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -287,7 +289,7 @@ inherited frViewContacto: TfrViewContacto
Width = 221 Width = 221
end end
object eNIFCIF: TcxDBTextEdit object eNIFCIF: TcxDBTextEdit
Left = 205 Left = 217
Top = 28 Top = 28
DataBinding.DataField = 'NIF_CIF' DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -306,7 +308,7 @@ inherited frViewContacto: TfrViewContacto
Width = 57 Width = 57
end end
object eMailTrabajo: TcxDBHyperLinkEdit object eMailTrabajo: TcxDBHyperLinkEdit
Left = 386 Left = 407
Top = 166 Top = 166
DataBinding.DataField = 'EMAIL_1' DataBinding.DataField = 'EMAIL_1'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -328,7 +330,7 @@ inherited frViewContacto: TfrViewContacto
Width = 133 Width = 133
end end
object eMailParticular: TcxDBHyperLinkEdit object eMailParticular: TcxDBHyperLinkEdit
Left = 386 Left = 407
Top = 194 Top = 194
DataBinding.DataField = 'EMAIL_2' DataBinding.DataField = 'EMAIL_2'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -350,7 +352,7 @@ inherited frViewContacto: TfrViewContacto
Width = 133 Width = 133
end end
object ePaginaWeb: TcxDBHyperLinkEdit object ePaginaWeb: TcxDBHyperLinkEdit
Left = 386 Left = 407
Top = 221 Top = 221
DataBinding.DataField = 'PAGINA_WEB' DataBinding.DataField = 'PAGINA_WEB'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -393,7 +395,7 @@ inherited frViewContacto: TfrViewContacto
end end
object ePersonaContacto: TcxDBTextEdit object ePersonaContacto: TcxDBTextEdit
Left = 115 Left = 115
Top = 301 Top = 112
DataBinding.DataField = 'PERSONA_CONTACTO' DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -411,7 +413,7 @@ inherited frViewContacto: TfrViewContacto
Width = 256 Width = 256
end end
inline frViewTienda1: TfrViewTienda inline frViewTienda1: TfrViewTienda
Left = 291 Left = 312
Top = 280 Top = 280
Width = 451 Width = 451
Height = 41 Height = 41
@ -423,7 +425,7 @@ inherited frViewContacto: TfrViewContacto
ParentFont = False ParentFont = False
TabOrder = 15 TabOrder = 15
ReadOnly = False ReadOnly = False
ExplicitLeft = 291 ExplicitLeft = 312
ExplicitTop = 280 ExplicitTop = 280
inherited dxLayoutControl1: TdxLayoutControl inherited dxLayoutControl1: TdxLayoutControl
inherited cbTienda: TcxComboBox inherited cbTienda: TcxComboBox
@ -438,20 +440,18 @@ inherited frViewContacto: TfrViewContacto
ShowBorder = False ShowBorder = False
object dxLayoutControlContactoGroup9: TdxLayoutGroup object dxLayoutControlContactoGroup9: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControlContactoGroup4: TdxLayoutGroup object dxLayoutControlContactoGroup4: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
ShowBorder = False ShowBorder = False
object dxLayoutControlContactoGroup1: TdxLayoutGroup object dxLayoutControlContactoGroup1: TdxLayoutGroup
AutoAligns = [aaHorizontal] AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'Datos generales' Caption = 'Datos generales'
object dxLayoutControlContactoGroup16: TdxLayoutGroup object dxLayoutControlContactoGroup16: TdxLayoutGroup
ShowCaption = False ShowCaption = False
@ -492,33 +492,37 @@ inherited frViewContacto: TfrViewContacto
Control = eCalle Control = eCalle
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoGroup8: TdxLayoutGroup object dxLayoutControlContactoGroup10: TdxLayoutGroup
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True
LayoutDirection = ldHorizontal LayoutDirection = ldHorizontal
ShowBorder = False ShowBorder = False
object dxLayoutControlContactoItem3: TdxLayoutItem object dxLayoutControlContactoItem2: TdxLayoutItem
AutoAligns = [aaVertical] AutoAligns = [aaVertical]
AlignHorz = ahClient AlignHorz = ahClient
Caption = 'Poblaci'#243'n:' Caption = 'Provincia:'
Control = ePoblacion Control = cbProvincia
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
object dxLayoutControlContactoItem4: TdxLayoutItem object dxLayoutControlContactoItem4: TdxLayoutItem
AutoAligns = [aaVertical]
AlignHorz = ahRight
Caption = 'C.P.:' Caption = 'C.P.:'
Control = eCodigoPostal Control = eCodigoPostal
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
object dxLayoutControlContactoItem2: TdxLayoutItem object dxLayoutControlContactoItem3: TdxLayoutItem
Caption = 'Provincia:' AutoAligns = [aaVertical]
Control = eProvincia AlignHorz = ahClient
Caption = 'Poblaci'#243'n:'
Control = cbPoblacion
ControlOptions.ShowBorder = False ControlOptions.ShowBorder = False
end end
end end
end end
object dxLayoutControlContactoGroup6: TdxLayoutGroup object dxLayoutControlContactoGroup6: TdxLayoutGroup
AutoAligns = [aaVertical] AutoAligns = []
AlignHorz = ahClient AlignHorz = ahClient
ShowCaption = False ShowCaption = False
Hidden = True Hidden = True

113
Source/Modulos/Contactos/Views/uViewContacto.pas
View File

@ -40,12 +40,11 @@ type
dxLayoutControlContactoItem1: TdxLayoutItem; dxLayoutControlContactoItem1: TdxLayoutItem;
eCalle: TcxDBTextEdit; eCalle: TcxDBTextEdit;
dxLayoutControlContactoItem2: TdxLayoutItem; dxLayoutControlContactoItem2: TdxLayoutItem;
eProvincia: TcxDBTextEdit; cbProvincia: TcxDBComboBox;
dxLayoutControlContactoItem3: TdxLayoutItem; dxLayoutControlContactoItem3: TdxLayoutItem;
ePoblacion: TcxDBTextEdit; cbPoblacion: TcxDBComboBox;
dxLayoutControlContactoItem4: TdxLayoutItem; dxLayoutControlContactoItem4: TdxLayoutItem;
eCodigoPostal: TcxDBTextEdit; eCodigoPostal: TcxDBTextEdit;
dxLayoutControlContactoGroup8: TdxLayoutGroup;
eObservaciones: TcxDBMemo; eObservaciones: TcxDBMemo;
dxLayoutControlContactoItem8: TdxLayoutItem; dxLayoutControlContactoItem8: TdxLayoutItem;
dxLayoutControlContactoItem9: TdxLayoutItem; dxLayoutControlContactoItem9: TdxLayoutItem;
@ -89,6 +88,7 @@ type
dxLayoutControlContactoGroup100: TdxLayoutGroup; dxLayoutControlContactoGroup100: TdxLayoutGroup;
frViewTienda1: TfrViewTienda; frViewTienda1: TfrViewTienda;
dxLayoutControlContactoItem16: TdxLayoutItem; dxLayoutControlContactoItem16: TdxLayoutItem;
dxLayoutControlContactoGroup10: TdxLayoutGroup;
procedure eMailTrabajoPropertiesEditValueChanged(Sender: TObject); procedure eMailTrabajoPropertiesEditValueChanged(Sender: TObject);
procedure actMandarCorreoParticularExecute(Sender: TObject); procedure actMandarCorreoParticularExecute(Sender: TObject);
procedure actMandarCorreoTrabajoExecute(Sender: TObject); procedure actMandarCorreoTrabajoExecute(Sender: TObject);
@ -98,6 +98,13 @@ type
procedure actVerPaginaWebUpdate(Sender: TObject); procedure actVerPaginaWebUpdate(Sender: TObject);
procedure eMailTrabajoPropertiesValidate(Sender: TObject; procedure eMailTrabajoPropertiesValidate(Sender: TObject;
var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean); var DisplayValue: Variant; var ErrorText: TCaption; var Error: Boolean);
procedure cbProvinciaPropertiesInitPopup(Sender: TObject);
procedure cbPoblacionPropertiesInitPopup(Sender: TObject);
private
FProvincias : TStringList;
FPoblaciones : TStringList;
procedure CargarProvincias;
procedure CargarPoblaciones;
protected protected
FContacto: IBizContacto; FContacto: IBizContacto;
FController: IContactosController; FController: IContactosController;
@ -106,6 +113,8 @@ type
function GetController : IContactosController; function GetController : IContactosController;
procedure SetController (const Value : IContactosController); procedure SetController (const Value : IContactosController);
public public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
property Contacto: IBizContacto read GetContacto write SetContacto; property Contacto: IBizContacto read GetContacto write SetContacto;
property Controller : IContactosController read GetController write SetController; property Controller : IContactosController read GetController write SetController;
end; end;
@ -114,7 +123,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uFactuGES_App; uFactuGES_App, uProvinciasPoblacionesController, uStringsUtils;
type type
THackcxDBHyperLinkEdit = class(TcxDBHyperLinkEdit); THackcxDBHyperLinkEdit = class(TcxDBHyperLinkEdit);
@ -160,6 +169,102 @@ begin
(Sender as TAction).Enabled := (Length(ePaginaWeb.Text) > 0) (Sender as TAction).Enabled := (Length(ePaginaWeb.Text) > 0)
end; end;
procedure TfrViewContacto.CargarPoblaciones;
var
i : integer;
AID : Integer;
begin
AID := StrToInt(FProvincias.Values[cbProvincia.Text]);
with TProvinciasPoblacionesController.Create do
begin
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;
end;
procedure TfrViewContacto.CargarProvincias;
var
i : integer;
begin
with TProvinciasPoblacionesController.Create do
begin
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;
end;
procedure TfrViewContacto.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 TfrViewContacto.cbProvinciaPropertiesInitPopup(Sender: TObject);
begin
ShowHourglassCursor;
try
if not Assigned(FProvincias) then
CargarProvincias;
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);
inherited;
end;
procedure TfrViewContacto.eMailTrabajoPropertiesEditValueChanged(Sender: TObject); procedure TfrViewContacto.eMailTrabajoPropertiesEditValueChanged(Sender: TObject);
begin begin
inherited; inherited;

234
Source/Modulos/Contactos/Views/uViewProveedor.dfm
View File

@ -22,87 +22,52 @@ inherited frViewProveedor: TfrViewProveedor
Left = 669 Left = 669
ExplicitLeft = 669 ExplicitLeft = 669
end end
object Label1: TLabel [3]
Left = 402
Top = 357
Width = 342
Height = 26
Caption =
'(Al incluir un proveedor en la tienda, todos los materiales que ' +
'sirve ese proveedor ser'#225'n tambi'#233'n incluidos)'
WordWrap = True
end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 138 Left = 138
Top = 380 Top = 247
TabOrder = 8 TabOrder = 8
ExplicitLeft = 138 ExplicitLeft = 138
ExplicitTop = 380 ExplicitTop = 247
ExplicitWidth = 264 ExplicitWidth = 264
Width = 264 Width = 264
end end
inherited eProvincia: TcxDBTextEdit inherited cbProvincia: TcxDBComboBox
Left = 138 Left = 138
Top = 434 Top = 274
TabOrder = 11
ExplicitLeft = 138
ExplicitTop = 434
ExplicitWidth = 264
Width = 264
end
inherited ePoblacion: TcxDBTextEdit
Left = 138
Top = 407
TabOrder = 9 TabOrder = 9
ExplicitLeft = 138 ExplicitLeft = 138
ExplicitTop = 407 ExplicitTop = 274
ExplicitWidth = 163 ExplicitWidth = 175
Width = 163 Width = 175
end
inherited cbPoblacion: TcxDBComboBox
Left = 138
Top = 301
TabOrder = 11
ExplicitLeft = 138
ExplicitTop = 301
ExplicitWidth = 267
Width = 267
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 307 Left = 271
Top = 407 Top = 274
TabOrder = 10 TabOrder = 10
ExplicitLeft = 307 ExplicitLeft = 271
ExplicitTop = 407 ExplicitTop = 274
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 575 Top = 442
TabOrder = 23 TabOrder = 22
ExplicitTop = 575 ExplicitTop = 442
ExplicitWidth = 630 ExplicitWidth = 630
ExplicitHeight = 20 ExplicitHeight = 20
Height = 20 Height = 20
Width = 630 Width = 630
end end
object cxDBCheckBox1: TcxDBCheckBox [9] object cxDBCheckBox2: TcxDBCheckBox [8]
Left = 402
Top = 389
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 = 22
Width = 310
end
object cxDBCheckBox2: TcxDBCheckBox [10]
Left = 22 Left = 22
Top = 491 Top = 358
Caption = 'El proveedor est'#225' homologado' Caption = 'El proveedor est'#225' homologado'
DataBinding.DataField = 'HOMOLOGADO' DataBinding.DataField = 'HOMOLOGADO'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
@ -124,9 +89,9 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 12 TabOrder = 12
Width = 326 Width = 326
end end
object eCertificaciones: TcxDBTextEdit [11] object eCertificaciones: TcxDBTextEdit [9]
Left = 138 Left = 138
Top = 518 Top = 385
DataBinding.DataField = 'CERTIFICACION' DataBinding.DataField = 'CERTIFICACION'
DataBinding.DataSource = dsContacto DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame Style.BorderColor = clWindowFrame
@ -143,7 +108,7 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 13 TabOrder = 13
Width = 227 Width = 227
end end
object cbGrupoProveedor: TcxDBComboBox [12] object cbGrupoProveedor: TcxDBComboBox [10]
Left = 138 Left = 138
Top = 163 Top = 163
DataBinding.DataField = 'GRUPO_PROVEEDOR' DataBinding.DataField = 'GRUPO_PROVEEDOR'
@ -167,7 +132,7 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 6 TabOrder = 6
Width = 227 Width = 227
end end
object eDescripcionProveedor: TcxDBTextEdit [13] object eDescripcionProveedor: TcxDBTextEdit [11]
Left = 138 Left = 138
Top = 109 Top = 109
DataBinding.DataField = 'DESCRIPCION_PROVEEDOR' DataBinding.DataField = 'DESCRIPCION_PROVEEDOR'
@ -186,7 +151,7 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 4 TabOrder = 4
Width = 221 Width = 221
end end
object eCodigoAsignado: TcxDBTextEdit [14] object eCodigoAsignado: TcxDBTextEdit [12]
Left = 138 Left = 138
Top = 136 Top = 136
DataBinding.DataField = 'CODIGO_ASIGNADO' DataBinding.DataField = 'CODIGO_ASIGNADO'
@ -206,30 +171,30 @@ inherited frViewProveedor: TfrViewProveedor
Width = 221 Width = 221
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 497 Left = 452
TabOrder = 15 TabOrder = 15
ExplicitLeft = 497 ExplicitLeft = 452
ExplicitWidth = 91 ExplicitWidth = 91
Width = 91 Width = 91
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 497 Left = 452
TabOrder = 14 TabOrder = 14
ExplicitLeft = 497 ExplicitLeft = 452
ExplicitWidth = 127 ExplicitWidth = 127
Width = 127 Width = 127
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 497 Left = 452
TabOrder = 16 TabOrder = 16
ExplicitLeft = 497 ExplicitLeft = 452
ExplicitWidth = 155 ExplicitWidth = 155
Width = 155 Width = 155
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 497 Left = 452
TabOrder = 17 TabOrder = 17
ExplicitLeft = 497 ExplicitLeft = 452
ExplicitWidth = 121 ExplicitWidth = 121
Width = 121 Width = 121
end end
@ -245,60 +210,7 @@ inherited frViewProveedor: TfrViewProveedor
ExplicitWidth = 205 ExplicitWidth = 205
Width = 205 Width = 205
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit object eNombreComercial: TcxDBTextEdit [19]
Left = 497
Properties.Prefix = 'mailto:'
TabOrder = 18
ExplicitLeft = 497
ExplicitWidth = 133
Width = 133
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 497
Properties.Prefix = 'mailto:'
TabOrder = 19
ExplicitLeft = 497
ExplicitWidth = 133
Width = 133
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 497
TabOrder = 20
ExplicitLeft = 497
ExplicitWidth = 133
Width = 133
end
inherited eReferencia: TcxDBTextEdit
Left = 138
ExplicitLeft = 138
ExplicitWidth = 38
Width = 38
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 138
Top = 353
TabOrder = 7
ExplicitLeft = 138
ExplicitTop = 353
ExplicitWidth = 256
Width = 256
end
inherited frViewTienda1: TfrViewTienda
Left = 402
Width = 290
TabOrder = 21
ExplicitLeft = 402
ExplicitWidth = 290
inherited dxLayoutControl1: TdxLayoutControl
Width = 290
ExplicitWidth = 290
inherited cbTienda: TcxComboBox
ExplicitWidth = 376
Width = 376
end
end
end
object eNombreComercial: TcxDBTextEdit [27]
Left = 138 Left = 138
Top = 82 Top = 82
DataBinding.DataField = 'NOMBRE_COMERCIAL' DataBinding.DataField = 'NOMBRE_COMERCIAL'
@ -318,6 +230,58 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 3 TabOrder = 3
Width = 192 Width = 192
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 452
Properties.Prefix = 'mailto:'
TabOrder = 18
ExplicitLeft = 452
ExplicitWidth = 133
Width = 133
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 452
Properties.Prefix = 'mailto:'
TabOrder = 19
ExplicitLeft = 452
ExplicitWidth = 133
Width = 133
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 452
TabOrder = 20
ExplicitLeft = 452
ExplicitWidth = 133
Width = 133
end
inherited eReferencia: TcxDBTextEdit
Left = 138
ExplicitLeft = 138
ExplicitWidth = 38
Width = 38
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 138
Top = 220
TabOrder = 7
ExplicitLeft = 138
ExplicitTop = 220
ExplicitWidth = 256
Width = 256
end
inherited frViewTienda1: TfrViewTienda
Left = 357
Width = 451
TabOrder = 21
ExplicitLeft = 357
ExplicitWidth = 451
inherited dxLayoutControl1: TdxLayoutControl
Width = 451
inherited cbTienda: TcxComboBox
ExplicitWidth = 376
Width = 376
end
end
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
@ -364,22 +328,6 @@ inherited frViewProveedor: TfrViewProveedor
inherited dxLayoutControlContactoGroup100: TdxLayoutGroup inherited dxLayoutControlContactoGroup100: TdxLayoutGroup
Caption = 'El proveedor pertenece a la tienda' Caption = 'El proveedor pertenece a la tienda'
end end
object dxLayoutControlContactoGroup10: TdxLayoutGroup
Caption = 'Tienda web'
Visible = False
object dxLayoutControlContactoItem26: TdxLayoutItem
Caption = 'New Item'
ShowCaption = False
Control = Label1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False
end
object dxLayoutControlContactoItem19: TdxLayoutItem
ShowCaption = False
Control = cxDBCheckBox1
ControlOptions.ShowBorder = False
end
end
end end
end end
end end

5
Source/Modulos/Contactos/Views/uViewProveedor.pas
View File

@ -16,10 +16,6 @@ type
end; end;
TfrViewProveedor = class(TfrViewContacto, IViewProveedor) TfrViewProveedor = class(TfrViewContacto, IViewProveedor)
dxLayoutControlContactoGroup10: TdxLayoutGroup;
Label1: TLabel;
dxLayoutControlContactoItem19: TdxLayoutItem;
cxDBCheckBox1: TcxDBCheckBox;
dxLayoutControlContactoItem22: TdxLayoutItem; dxLayoutControlContactoItem22: TdxLayoutItem;
cxDBCheckBox2: TcxDBCheckBox; cxDBCheckBox2: TcxDBCheckBox;
dxLayoutControlContactoItem23: TdxLayoutItem; dxLayoutControlContactoItem23: TdxLayoutItem;
@ -31,7 +27,6 @@ type
eDescripcionProveedor: TcxDBTextEdit; eDescripcionProveedor: TcxDBTextEdit;
dxLayoutControlContactoItem24: TdxLayoutItem; dxLayoutControlContactoItem24: TdxLayoutItem;
eCodigoAsignado: TcxDBTextEdit; eCodigoAsignado: TcxDBTextEdit;
dxLayoutControlContactoItem26: TdxLayoutItem;
dxLayoutControlContactoItem27: TdxLayoutItem; dxLayoutControlContactoItem27: TdxLayoutItem;
eNombreComercial: TcxDBTextEdit; eNombreComercial: TcxDBTextEdit;
procedure CustomViewCreate(Sender: TObject); procedure CustomViewCreate(Sender: TObject);

136
Source/Modulos/Contactos/Views/uViewVendedor.dfm
View File

@ -24,66 +24,64 @@ inherited frViewVendedor: TfrViewVendedor
end end
inherited eCalle: TcxDBTextEdit inherited eCalle: TcxDBTextEdit
Left = 121 Left = 121
Top = 246 Top = 193
TabOrder = 6 TabOrder = 6
ExplicitLeft = 121 ExplicitLeft = 121
ExplicitTop = 246 ExplicitTop = 193
ExplicitWidth = 152 ExplicitWidth = 152
Width = 152 Width = 152
end end
inherited eProvincia: TcxDBTextEdit inherited cbProvincia: TcxDBComboBox
Left = 121
Top = 300
TabOrder = 9
ExplicitLeft = 121
ExplicitTop = 300
ExplicitWidth = 152
Width = 152
end
inherited ePoblacion: TcxDBTextEdit
Left = 121
Top = 273
TabOrder = 7 TabOrder = 7
ExplicitLeft = 121 ExplicitWidth = 144
ExplicitTop = 273 Width = 144
ExplicitWidth = 51 end
Width = 51 inherited cbPoblacion: TcxDBComboBox
TabOrder = 9
ExplicitWidth = 236
Width = 236
end end
inherited eCodigoPostal: TcxDBTextEdit inherited eCodigoPostal: TcxDBTextEdit
Left = 263 Left = 301
Top = 273 Top = 220
TabOrder = 8 TabOrder = 8
ExplicitLeft = 263 ExplicitLeft = 301
ExplicitTop = 273 ExplicitTop = 220
end end
inherited eObservaciones: TcxDBMemo inherited eObservaciones: TcxDBMemo
Top = 357
TabOrder = 18 TabOrder = 18
ExplicitTop = 357
ExplicitWidth = 596 ExplicitWidth = 596
ExplicitHeight = 151 ExplicitHeight = 151
Height = 151 Height = 151
Width = 596 Width = 596
end end
inherited eTlfParticular: TcxDBTextEdit inherited eTlfParticular: TcxDBTextEdit
Left = 453 Left = 482
TabOrder = 11 TabOrder = 11
ExplicitLeft = 453 ExplicitLeft = 482
ExplicitWidth = 91
Width = 91
end end
inherited eTlfTrabajo: TcxDBTextEdit inherited eTlfTrabajo: TcxDBTextEdit
Left = 453 Left = 482
TabOrder = 10 TabOrder = 10
ExplicitLeft = 453 ExplicitLeft = 482
ExplicitWidth = 127
Width = 127
end end
inherited eTlfMovil: TcxDBTextEdit inherited eTlfMovil: TcxDBTextEdit
Left = 453 Left = 482
TabOrder = 12 TabOrder = 12
ExplicitLeft = 453 ExplicitLeft = 482
ExplicitWidth = 155
Width = 155
end end
inherited eFax: TcxDBTextEdit inherited eFax: TcxDBTextEdit
Left = 453 Left = 482
TabOrder = 13 TabOrder = 13
ExplicitLeft = 453 ExplicitLeft = 482
ExplicitWidth = 121
Width = 121
end end
inherited eNombre: TcxDBTextEdit inherited eNombre: TcxDBTextEdit
Left = 121 Left = 121
@ -92,59 +90,35 @@ inherited frViewVendedor: TfrViewVendedor
Width = 263 Width = 263
end end
inherited eNIFCIF: TcxDBTextEdit inherited eNIFCIF: TcxDBTextEdit
Left = 210 Left = 226
ExplicitLeft = 210 ExplicitLeft = 226
ExplicitWidth = 100 ExplicitWidth = 100
Width = 100 Width = 100
end end
inherited eMailTrabajo: TcxDBHyperLinkEdit inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 453 Left = 482
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
TabOrder = 14 TabOrder = 14
ExplicitLeft = 453 ExplicitLeft = 482
ExplicitWidth = 129 ExplicitWidth = 129
Width = 129 Width = 129
end end
inherited eMailParticular: TcxDBHyperLinkEdit inherited eMailParticular: TcxDBHyperLinkEdit
Left = 453 Left = 482
Properties.Prefix = 'mailto:' Properties.Prefix = 'mailto:'
TabOrder = 15 TabOrder = 15
ExplicitLeft = 453 ExplicitLeft = 482
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited ePaginaWeb: TcxDBHyperLinkEdit inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 453 Left = 482
TabOrder = 16 TabOrder = 16
ExplicitLeft = 453 ExplicitLeft = 482
ExplicitWidth = 165 ExplicitWidth = 165
Width = 165 Width = 165
end end
inherited eReferencia: TcxDBTextEdit object cbUsuario: TcxComboBox [17]
Left = 121
ExplicitLeft = 121
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 121
Top = 219
TabOrder = 5
ExplicitLeft = 121
ExplicitTop = 219
ExplicitWidth = 152
Width = 152
end
inherited frViewTienda1: TfrViewTienda
Left = 358
Width = 264
TabOrder = 17
ExplicitLeft = 358
ExplicitWidth = 264
inherited dxLayoutControl1: TdxLayoutControl
Width = 264
ExplicitWidth = 262
end
end
object cbUsuario: TcxComboBox [20]
Left = 121 Left = 121
Top = 82 Top = 82
Anchors = [akLeft, akTop, akRight] Anchors = [akLeft, akTop, akRight]
@ -167,7 +141,7 @@ inherited frViewVendedor: TfrViewVendedor
TabOrder = 3 TabOrder = 3
Width = 201 Width = 201
end end
object edtComision: TcxDBSpinEdit [21] object edtComision: TcxDBSpinEdit [18]
Left = 121 Left = 121
Top = 109 Top = 109
AutoSize = False AutoSize = False
@ -197,6 +171,36 @@ inherited frViewVendedor: TfrViewVendedor
Height = 21 Height = 21
Width = 65 Width = 65
end end
inherited eReferencia: TcxDBTextEdit
Left = 121
ExplicitLeft = 121
ExplicitWidth = 38
Width = 38
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 121
Top = 166
TabOrder = 5
ExplicitLeft = 121
ExplicitTop = 166
ExplicitWidth = 152
Width = 152
end
inherited frViewTienda1: TfrViewTienda
Left = 387
Width = 264
TabOrder = 17
ExplicitLeft = 387
ExplicitWidth = 264
inherited dxLayoutControl1: TdxLayoutControl
Width = 264
ExplicitWidth = 264
inherited cbTienda: TcxComboBox
ExplicitWidth = 376
Width = 376
end
end
end
inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup inherited dxLayoutControlContactoGroup_Root: TdxLayoutGroup
inherited dxLayoutControlContactoGroup9: TdxLayoutGroup inherited dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup inherited dxLayoutControlContactoGroup4: TdxLayoutGroup

23
Source/Servicios/FactuGES.RODL
View File

@ -458,6 +458,29 @@
</Interface> </Interface>
</Interfaces> </Interfaces>
</Service> </Service>
<Service Name="srvProvinciasPoblaciones" UID="{0ABD7F76-9219-4A8A-BCF5-BC82D41AA92D}">
<Group Under="{B6013F6E-68F8-4EDF-85C1-1904BBA5008E}" />
<Interfaces>
<Interface Name="Default" UID="{C9925D63-0F5F-4546-8657-54F59FE51359}">
<Operations>
<Operation Name="DarListaProvincias" UID="{4E7F0F9D-CE63-4205-9129-51DE22A37C1E}">
<Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result">
</Parameter>
</Parameters>
</Operation>
<Operation Name="DarListaPoblaciones" UID="{20160B75-09BD-4ED4-A7BD-4782E307964D}">
<Parameters>
<Parameter Name="Result" DataType="Binary" Flag="Result">
</Parameter>
<Parameter Name="ID_Provincia" DataType="Integer" Flag="In" >
</Parameter>
</Parameters>
</Operation>
</Operations>
</Interface>
</Interfaces>
</Service>
</Services> </Services>
<EventSinks> <EventSinks>
</EventSinks> </EventSinks>

72
Source/Servicios/FactuGES_Intf.pas
View File

@ -50,6 +50,7 @@ const
IsrvContabilidad_IID : TGUID = '{04CDF2E1-EFC2-4247-AA4F-09BE782C73FA}'; IsrvContabilidad_IID : TGUID = '{04CDF2E1-EFC2-4247-AA4F-09BE782C73FA}';
IsrvUnidadesMedida_IID : TGUID = '{C1B36FAB-7514-40D2-A20C-04A86C9E71AB}'; IsrvUnidadesMedida_IID : TGUID = '{C1B36FAB-7514-40D2-A20C-04A86C9E71AB}';
IsrvComisiones_IID : TGUID = '{B600E9A1-28EC-484E-A74D-B5BB96FDF20A}'; IsrvComisiones_IID : TGUID = '{B600E9A1-28EC-484E-A74D-B5BB96FDF20A}';
IsrvProvinciasPoblaciones_IID : TGUID = '{C9925D63-0F5F-4546-8657-54F59FE51359}';
{ Event ID's } { Event ID's }
@ -82,6 +83,7 @@ type
IsrvContabilidad = interface; IsrvContabilidad = interface;
IsrvUnidadesMedida = interface; IsrvUnidadesMedida = interface;
IsrvComisiones = interface; IsrvComisiones = interface;
IsrvProvinciasPoblaciones = interface;
TRdxEmpresasArray = class; TRdxEmpresasArray = class;
@ -671,6 +673,27 @@ type
function GenerateReport(const ComisionID: String): Binary; function GenerateReport(const ComisionID: String): Binary;
end; end;
{ IsrvProvinciasPoblaciones }
IsrvProvinciasPoblaciones = interface
['{C9925D63-0F5F-4546-8657-54F59FE51359}']
function DarListaProvincias: Binary;
function DarListaPoblaciones(const ID_Provincia: Integer): Binary;
end;
{ CosrvProvinciasPoblaciones }
CosrvProvinciasPoblaciones = class
class function Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvProvinciasPoblaciones;
end;
{ TsrvProvinciasPoblaciones_Proxy }
TsrvProvinciasPoblaciones_Proxy = class(TROProxy, IsrvProvinciasPoblaciones)
protected
function __GetInterfaceName:string; override;
function DarListaProvincias: Binary;
function DarListaPoblaciones(const ID_Provincia: Integer): Binary;
end;
implementation implementation
uses uses
@ -1735,6 +1758,53 @@ begin
end end
end; end;
{ CosrvProvinciasPoblaciones }
class function CosrvProvinciasPoblaciones.Create(const aMessage: IROMessage; aTransportChannel: IROTransportChannel): IsrvProvinciasPoblaciones;
begin
result := TsrvProvinciasPoblaciones_Proxy.Create(aMessage, aTransportChannel);
end;
{ TsrvProvinciasPoblaciones_Proxy }
function TsrvProvinciasPoblaciones_Proxy.__GetInterfaceName:string;
begin
result := 'srvProvinciasPoblaciones';
end;
function TsrvProvinciasPoblaciones_Proxy.DarListaProvincias: Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaProvincias');
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
function TsrvProvinciasPoblaciones_Proxy.DarListaPoblaciones(const ID_Provincia: Integer): Binary;
begin
try
result := nil;
__Message.InitializeRequestMessage(__TransportChannel, 'FactuGES', __InterfaceName, 'DarListaPoblaciones');
__Message.Write('ID_Provincia', TypeInfo(Integer), ID_Provincia, []);
__Message.Finalize;
__TransportChannel.Dispatch(__Message);
__Message.Read('Result', TypeInfo(Binary), result, []);
finally
__Message.UnsetAttributes(__TransportChannel);
__Message.FreeStream;
end
end;
initialization initialization
RegisterROClass(TRdxLoginInfo); RegisterROClass(TRdxLoginInfo);
RegisterROClass(TRdxEmpresasArray); RegisterROClass(TRdxEmpresasArray);
@ -1765,6 +1835,7 @@ initialization
RegisterProxyClass(IsrvContabilidad_IID, TsrvContabilidad_Proxy); RegisterProxyClass(IsrvContabilidad_IID, TsrvContabilidad_Proxy);
RegisterProxyClass(IsrvUnidadesMedida_IID, TsrvUnidadesMedida_Proxy); RegisterProxyClass(IsrvUnidadesMedida_IID, TsrvUnidadesMedida_Proxy);
RegisterProxyClass(IsrvComisiones_IID, TsrvComisiones_Proxy); RegisterProxyClass(IsrvComisiones_IID, TsrvComisiones_Proxy);
RegisterProxyClass(IsrvProvinciasPoblaciones_IID, TsrvProvinciasPoblaciones_Proxy);
finalization finalization
@ -1797,5 +1868,6 @@ finalization
UnregisterProxyClass(IsrvContabilidad_IID); UnregisterProxyClass(IsrvContabilidad_IID);
UnregisterProxyClass(IsrvUnidadesMedida_IID); UnregisterProxyClass(IsrvUnidadesMedida_IID);
UnregisterProxyClass(IsrvComisiones_IID); UnregisterProxyClass(IsrvComisiones_IID);
UnregisterProxyClass(IsrvProvinciasPoblaciones_IID);
end. end.

63
Source/Servicios/FactuGES_Invk.pas
View File

@ -207,6 +207,14 @@ type
procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions); procedure Invoke_GenerateReport(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end; end;
TsrvProvinciasPoblaciones_Invoker = class(TROInvoker)
private
protected
published
procedure Invoke_DarListaProvincias(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_DarListaPoblaciones(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
implementation implementation
uses uses
@ -888,5 +896,60 @@ begin
end; end;
end; end;
{ TsrvProvinciasPoblaciones_Invoker }
procedure TsrvProvinciasPoblaciones_Invoker.Invoke_DarListaProvincias(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarListaProvincias: Binary; }
var
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
lResult := nil;
try
lResult := (__Instance as IsrvProvinciasPoblaciones).DarListaProvincias;
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvProvinciasPoblaciones', 'DarListaProvinciasResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TsrvProvinciasPoblaciones_Invoker.Invoke_DarListaPoblaciones(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarListaPoblaciones(const ID_Provincia: Integer): Binary; }
var
ID_Provincia: Integer;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
lResult := nil;
try
__Message.Read('ID_Provincia', TypeInfo(Integer), ID_Provincia, []);
lResult := (__Instance as IsrvProvinciasPoblaciones).DarListaPoblaciones(ID_Provincia);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvProvinciasPoblaciones', 'DarListaPoblacionesResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
initialization initialization
end. end.

BIN
Source/Servicios/RODLFILE.res
View File

Binary file not shown.

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

3
Source/Servidor/FactuGES_Server.dpr
View File

@ -124,7 +124,8 @@ uses
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas', schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
schComisionesClient_Intf in '..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas', schComisionesClient_Intf in '..\Modulos\Comisiones\Model\schComisionesClient_Intf.pas',
schComisionesServer_Intf in '..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas', schComisionesServer_Intf in '..\Modulos\Comisiones\Model\schComisionesServer_Intf.pas',
uRptComisiones_Server in '..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas' {RptComisiones: TDataModule}; uRptComisiones_Server in '..\Modulos\Comisiones\Reports\uRptComisiones_Server.pas' {RptComisiones: TDataModule},
srvProvinciasPoblaciones_Impl in '..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas' {srvProvinciasPoblaciones: TRORemoteDataModule};
{$R *.res} {$R *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

4
Source/Servidor/FactuGES_Server.dproj
View File

@ -50,6 +50,10 @@
<Form>srvEmpresas</Form> <Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass> <DesignClass>TDARemoteService</DesignClass>
</DCCReference> </DCCReference>
<DCCReference Include="..\ApplicationBase\ProvinciasPoblaciones\Servidor\srvProvinciasPoblaciones_Impl.pas">
<Form>srvProvinciasPoblaciones</Form>
<DesignClass>TRORemoteDataModule</DesignClass>
</DCCReference>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas"/>
<DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/> <DCCReference Include="..\ApplicationBase\Usuarios\Servidor\srvUsuarios_Impl.pas"/>

2
Source/Servidor/FactuGES_Server.rc
View File

@ -16,7 +16,7 @@ BEGIN
VALUE "FileVersion", "2.2.3.0\0" VALUE "FileVersion", "2.2.3.0\0"
VALUE "ProductName", "FactuGES (Servidor)\0" VALUE "ProductName", "FactuGES (Servidor)\0"
VALUE "ProductVersion", "2.2.3.0\0" VALUE "ProductVersion", "2.2.3.0\0"
VALUE "CompileDate", "lunes, 02 de junio de 2008 20:25\0" VALUE "CompileDate", "lunes, 23 de junio de 2008 19:18\0"
END END
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"

1
Source/Servidor/uAcercaDe.pas
View File

@ -25,7 +25,6 @@ uses JclFileUtils;
procedure TfAcercaDe.FormShow(Sender: TObject); procedure TfAcercaDe.FormShow(Sender: TObject);
var var
i : integer;
Obj : TJclFileVersionInfo; Obj : TJclFileVersionInfo;
begin begin
memModulos.Lines.Clear; memModulos.Lines.Clear;