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">
<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_sysdata.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)"
WorkingDirectory="$(OutputPath)" />
<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_listaprovincias.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)"
WorkingDirectory="$(OutputPath)" />
<Exec Command="$(DOUBLE_QUOTES)$(SqlCmdRunner)$(DOUBLE_QUOTES) -i $(DOUBLE_QUOTES)$(SqlScriptsFolder)\factuges_listapoblaciones.sql$(DOUBLE_QUOTES) -u $(DBUser) -p $(DBPassword) -q $(DOUBLE_QUOTES)$(OutputPath)\factuges.fdb$(DOUBLE_QUOTES)"
WorkingDirectory="$(OutputPath)" />
<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)" />

13
Database/scripts/factuges.sql
View File

@ -1130,6 +1130,12 @@ CREATE TABLE PERMISOSEX (
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 (
ID TIPO_ID NOT NULL,
ID_EMPRESA TIPO_ID,
@ -1201,6 +1207,11 @@ CREATE TABLE PROVEEDORES_GRUPOS (
DESCRIPCION VARCHAR(255)
);
CREATE TABLE PROVINCIAS (
ID TIPO_ID NOT NULL,
DESCRIPCION VARCHAR(255) NOT NULL
);
CREATE TABLE RECIBOS_CLIENTE (
ID TIPO_ID NOT NULL,
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 PERMISOS ADD CONSTRAINT PK_PERMISOS 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_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_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_PROVEEDOR ADD CONSTRAINT PK_RECIBOS_PROVEEDOR 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>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">3082</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -60,12 +67,6 @@
<DelphiCompile Include="ApplicationBase.dpk">
<MainSource>MainSource</MainSource>
</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\View\uIEditorEjercicio.pas" />
<DCCReference Include="Ejercicios\Controller\View\uIEditorEjercicios.pas" />
@ -138,6 +139,22 @@
<Form>frViewTiendas</Form>
<DesignClass>TCustomView</DesignClass>
</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="Usuarios\Controller\uUsuariosController.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
Scaled = False
ExplicitWidth = 682
ExplicitHeight = 581
ExplicitHeight = 588
PixelsPerInch = 96
TextHeight = 13
inherited JvNavPanelHeader: TJvNavPanelHeader
@ -77,7 +77,6 @@ inherited fEditorEmpresa: TfEditorEmpresa
inherited pgPaginas: TPageControl
Width = 668
Height = 453
ActivePage = pagTiendas
ExplicitLeft = 3
ExplicitTop = 79
ExplicitWidth = 668
@ -127,44 +126,44 @@ inherited fEditorEmpresa: TfEditorEmpresa
ExplicitWidth = 84
Width = 84
end
inherited eProvincia: TcxDBTextEdit
Top = 243
ExplicitTop = 243
ExplicitWidth = 60
Width = 60
end
inherited ePoblacion: TcxDBTextEdit
inherited cbProvincia: TcxDBComboBox
Top = 216
ExplicitTop = 216
ExplicitWidth = 106
Width = 106
end
inherited cbPoblacion: TcxDBComboBox
Top = 243
ExplicitTop = 243
ExplicitWidth = 100
Width = 100
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 286
Left = 289
Top = 216
ExplicitLeft = 286
ExplicitLeft = 289
ExplicitTop = 216
end
inherited ePaginaWeb: TcxDBTextEdit
Left = 474
Left = 477
Top = 216
ExplicitLeft = 474
ExplicitLeft = 477
ExplicitTop = 216
ExplicitWidth = 165
Width = 165
end
inherited eMailParticular: TcxDBTextEdit
Left = 474
Left = 477
Top = 189
ExplicitLeft = 474
ExplicitLeft = 477
ExplicitTop = 189
ExplicitWidth = 165
Width = 165
end
inherited eMailTrabajo: TcxDBTextEdit
Left = 474
Left = 477
Top = 162
ExplicitLeft = 474
ExplicitLeft = 477
ExplicitTop = 162
ExplicitWidth = 129
Width = 129
@ -178,33 +177,33 @@ inherited fEditorEmpresa: TfEditorEmpresa
Width = 107
end
inherited eTlfParticular: TcxDBTextEdit
Left = 474
Left = 477
Top = 57
ExplicitLeft = 474
ExplicitLeft = 477
ExplicitTop = 57
ExplicitWidth = 91
Width = 91
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 474
Left = 477
Top = 30
ExplicitLeft = 474
ExplicitLeft = 477
ExplicitTop = 30
ExplicitWidth = 127
Width = 127
end
inherited eTlfMovil: TcxDBTextEdit
Left = 474
Left = 477
Top = 84
ExplicitLeft = 474
ExplicitLeft = 477
ExplicitTop = 84
ExplicitWidth = 155
Width = 155
end
inherited eFax: TcxDBTextEdit
Left = 474
Left = 477
Top = 111
ExplicitLeft = 474
ExplicitLeft = 477
ExplicitTop = 111
ExplicitWidth = 121
Width = 121
@ -232,9 +231,9 @@ inherited fEditorEmpresa: TfEditorEmpresa
ExplicitTop = 138
end
inherited cxDBImage1: TcxDBImage
Left = 379
Left = 382
Top = 267
ExplicitLeft = 379
ExplicitLeft = 382
ExplicitTop = 267
ExplicitWidth = 140
ExplicitHeight = 100

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

@ -5,20 +5,20 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
BorderStyle = bsDialog
Caption = 'Cambiar datos de la tienda'
ClientHeight = 551
ClientWidth = 432
ClientWidth = 468
Color = clBtnFace
ParentFont = True
OldCreateOrder = True
Position = poOwnerFormCenter
DesignSize = (
432
468
551)
PixelsPerInch = 96
TextHeight = 13
object Bevel1: TBevel
Left = 8
Top = 8
Width = 328
Width = 364
Height = 465
Anchors = [akLeft, akTop, akRight]
Shape = bsFrame
@ -34,15 +34,15 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
end
object Label2: TLabel
Left = 20
Top = 131
Top = 158
Width = 110
Height = 13
AutoSize = False
Caption = 'Poblaci'#243'n:'
end
object Label3: TLabel
Left = 20
Top = 159
Left = 19
Top = 133
Width = 110
Height = 13
AutoSize = False
@ -81,10 +81,11 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
Caption = 'Tel'#233'fono:'
end
object PngSpeedButton3: TPngSpeedButton
Left = 304
Left = 333
Top = 320
Width = 23
Height = 22
Anchors = [akTop, akRight]
OnClick = PngSpeedButton3Click
PngImage.Data = {
89504E470D0A1A0A0000000D49484452000000100000001008060000001FF3FF
@ -104,6 +105,7 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
021806F44D5D44B46618801B400900007F4518F05E90AAF20000000049454E44
AE426082}
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
ExplicitLeft = 304
end
object Label8: TLabel
Left = 21
@ -140,10 +142,11 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
object Bevel2: TBevel
Left = 8
Top = 479
Width = 328
Width = 364
Height = 58
Anchors = [akLeft, akTop, akRight]
Shape = bsFrame
ExplicitWidth = 328
end
object Label10: TLabel
Left = 19
@ -154,7 +157,7 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
Caption = 'C'#243'digo contable:'
end
object OKBtn: TButton
Left = 349
Left = 385
Top = 7
Width = 75
Height = 25
@ -164,7 +167,7 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
TabOrder = 0
end
object CancelBtn: TButton
Left = 349
Left = 385
Top = 38
Width = 75
Height = 25
@ -177,37 +180,63 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
object eDireccion: TDBEdit
Left = 135
Top = 65
Width = 191
Width = 220
Height = 57
Anchors = [akLeft, akTop, akRight]
AutoSelect = False
AutoSize = False
DataField = 'CALLE'
DataSource = dsTienda
TabOrder = 3
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
Top = 128
Width = 191
Height = 21
DataField = 'POBLACION'
DataSource = dsTienda
TabOrder = 4
end
object eProvincia: TDBEdit
Left = 135
Top = 156
Width = 191
Height = 21
DataField = 'PROVINCIA'
DataSource = dsTienda
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = dsTienda
Properties.OnInitPopup = cbProvinciaPropertiesInitPopup
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 = 5
Width = 220
end
object eCodigoPostal: TDBEdit
Left = 135
Top = 182
Width = 191
Width = 220
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'CODIGO_POSTAL'
DataSource = dsTienda
TabOrder = 6
@ -215,8 +244,9 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
object eNombre: TDBEdit
Left = 135
Top = 24
Width = 191
Width = 220
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'NOMBRE'
DataSource = dsTienda
TabOrder = 2
@ -224,8 +254,9 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
object ePersonaContacto: TDBEdit
Left = 135
Top = 224
Width = 191
Width = 220
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'PERSONA_CONTACTO'
DataSource = dsTienda
TabOrder = 7
@ -233,8 +264,9 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
object eTelefono: TDBEdit
Left = 136
Top = 248
Width = 191
Width = 220
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'TELEFONO'
DataSource = dsTienda
TabOrder = 8
@ -242,6 +274,7 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
object eMail: TcxDBHyperLinkEdit
Left = 136
Top = 320
Anchors = [akLeft, akTop, akRight]
DataBinding.DataField = 'EMAIL'
DataBinding.DataSource = dsTienda
Properties.OnEditValueChanged = eMailPropertiesEditValueChanged
@ -259,13 +292,14 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
StyleHot.LookAndFeel.Kind = lfStandard
StyleHot.LookAndFeel.NativeStyle = True
TabOrder = 9
Width = 162
Width = 191
end
object eNotas: TDBMemo
Left = 136
Top = 360
Width = 190
Width = 219
Height = 94
Anchors = [akLeft, akTop, akRight]
DataField = 'NOTAS'
DataSource = dsTienda
ScrollBars = ssVertical
@ -274,8 +308,9 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
object eMovil: TDBEdit
Left = 136
Top = 272
Width = 191
Width = 220
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'MOVIL'
DataSource = dsTienda
TabOrder = 11
@ -283,8 +318,9 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
object eFax: TDBEdit
Left = 136
Top = 296
Width = 191
Width = 220
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'FAX'
DataSource = dsTienda
TabOrder = 12
@ -292,8 +328,9 @@ object fEditorTiendaEmpresa: TfEditorTiendaEmpresa
object eCodigoContable: TDBEdit
Left = 135
Top = 496
Width = 191
Width = 220
Height = 21
Anchors = [akLeft, akTop, akRight]
DataField = 'CODIGO_CONTABLE'
DataSource = dsTienda
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,
cxControls, cxContainer, cxEdit, cxTextEdit, cxHyperLinkEdit, cxDBEdit,
uIEditorTiendaEmpresa, uTiendasEmpresaController, uBizEmpresasTiendas,
cxCurrencyEdit, uDAInterfaces;
cxCurrencyEdit, uDAInterfaces, cxGraphics, cxMaskEdit, cxDropDownEdit;
type
TfEditorTiendaEmpresa = class(TForm, IEditorTiendaEmpresa)
@ -14,8 +14,8 @@ type
CancelBtn: TButton;
Bevel1: TBevel;
eDireccion: TDBEdit;
ePoblacion: TDBEdit;
eProvincia: TDBEdit;
cbPoblacion: TcxDBComboBox;
cbProvincia: TcxDBComboBox;
eCodigoPostal: TDBEdit;
Label1: TLabel;
Label2: TLabel;
@ -44,6 +44,13 @@ type
procedure eMailPropertiesEditValueChanged(Sender: TObject);
procedure eMailPropertiesValidate(Sender: TObject;
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
FController : ITiendasEmpresaController;
FTienda: IBizEmpresasTiendas;
@ -60,11 +67,12 @@ type
end;
implementation
{$R *.dfm}
{$INCLUDE ..\..\..\FactuGES.inc}
uses
Variants;
Variants, uProvinciasPoblacionesController, uStringsUtils;
type
@ -72,11 +80,91 @@ type
{ 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);
begin
inherited;
FController := NIL;
FProvincias := NIL;
FPoblaciones := NIL;
{$IFDEF CONTABILIDAD}
Bevel2.Visible := True;
Label10.Visible := True;
@ -90,6 +178,12 @@ end;
destructor TfEditorTiendaEmpresa.Destroy;
begin
if Assigned(FProvincias) then
FreeANDNIL(FProvincias);
if Assigned(FPoblaciones) then
FreeANDNIL(FPoblaciones);
FController := NIL;
inherited;
end;

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

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

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

@ -9,7 +9,8 @@ uses
JvComponent, JvFormAutoSize, cxControls, cxContainer, cxEdit, cxTextEdit,
cxDBEdit, dxLayoutControl, dxLayoutLookAndFeels, cxMemo, cxMaskEdit,
cxSpinEdit, cxImage, JvExControls, JvBitmapButton, ActnList, ImgList,
PngImageList, TB2Item, TBX, TB2Dock, TB2Toolbar, PngSpeedButton, uDAInterfaces;
PngImageList, TB2Item, TBX, TB2Dock, TB2Toolbar, PngSpeedButton, uDAInterfaces,
cxGraphics, cxDropDownEdit;
type
IViewEmpresa = interface(IViewBase)
@ -33,9 +34,9 @@ type
dxLayoutControl1Item1: TdxLayoutItem;
eCalle: TcxDBTextEdit;
dxLayoutControl1Item2: TdxLayoutItem;
eProvincia: TcxDBTextEdit;
cbProvincia: TcxDBComboBox;
dxLayoutControl1Item3: TdxLayoutItem;
ePoblacion: TcxDBTextEdit;
cbPoblacion: TcxDBComboBox;
dxLayoutControl1Item4: TdxLayoutItem;
eCodigoPostal: TcxDBTextEdit;
dxLayoutControl1Item5: TdxLayoutItem;
@ -63,7 +64,6 @@ type
dxLayoutControl1Group10: TdxLayoutGroup;
dxLayoutControl1Group9: TdxLayoutGroup;
dxLayoutControl1Group11: TdxLayoutGroup;
dxLayoutControl1Group8: TdxLayoutGroup;
cxDBSpinEdit1: TcxDBSpinEdit;
dxLayoutControl1Item16: TdxLayoutItem;
ActionList1: TActionList;
@ -78,23 +78,31 @@ type
PngSpeedButton2: TPngSpeedButton;
dxLayoutControl1Item20: TdxLayoutItem;
dxLayoutControl1Group12: TdxLayoutGroup;
dxLayoutControl1Group13: TdxLayoutGroup;
procedure actAnadirExecute(Sender: TObject);
procedure actEliminarExecute(Sender: TObject);
procedure actEliminarUpdate(Sender: TObject);
procedure actAnadirUpdate(Sender: TObject);
procedure eProvinciaPropertiesInitPopup(Sender: TObject);
procedure ePoblacionPropertiesInitPopup(Sender: TObject);
private
FEmpresa: IBizEmpresa;
FProvincias : TStringList;
FPoblaciones : TStringList;
procedure CargarProvincias;
procedure CargarPoblaciones;
protected
function GetEmpresa: IBizEmpresa;
procedure SetEmpresa(const Value: IBizEmpresa);
public
constructor Create(AOwner : TComponent); override;
destructor Destroy; override;
end;
implementation
{$R *.dfm}
uses uROClasses, uROTypes;
uses uROClasses, uROTypes, uProvinciasPoblacionesController, uStringsUtils;
{ TfrViewEmpresas }
@ -150,9 +158,100 @@ begin
// (Sender as TAction).Enabled := not cxDBImage1.Picture.Graphic.Empty;
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);
begin
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;
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>
<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>
<Excluded_Packages Name="$(BDS)\Bin\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>
@ -58,48 +65,48 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\adortl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxIntl6D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\dbrtl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\dclIndyCore.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\designide.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\dsnap.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\GUISDK_D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\IndyCore.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\IndyProtocols.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\IndySystem.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\Jcl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JclVcl.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JSDialog100.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvCmpD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvCoreD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvCtrlsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvDlgsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvMMD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvNetD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvPageCompsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\JvSystemD11R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\pckMD5.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\pckUCDataConnector.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\pckUserControl_RT.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\PluginSDK_D10R.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\PngComponentsD10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\PNG_D10.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\..\Output\Debug\Servidor\Informes\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="..\adortl.dcp" />
<DCCReference Include="..\cxIntl6D11.dcp" />
<DCCReference Include="..\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\dclIndyCore.dcp" />
<DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\GUISDK_D11.dcp" />
<DCCReference Include="..\IndyCore.dcp" />
<DCCReference Include="..\IndyProtocols.dcp" />
<DCCReference Include="..\IndySystem.dcp" />
<DCCReference Include="..\Jcl.dcp" />
<DCCReference Include="..\JclVcl.dcp" />
<DCCReference Include="..\JSDialog100.dcp" />
<DCCReference Include="..\JvCmpD11R.dcp" />
<DCCReference Include="..\JvCoreD11R.dcp" />
<DCCReference Include="..\JvCtrlsD11R.dcp" />
<DCCReference Include="..\JvDlgsD11R.dcp" />
<DCCReference Include="..\JvMMD11R.dcp" />
<DCCReference Include="..\JvNetD11R.dcp" />
<DCCReference Include="..\JvPageCompsD11R.dcp" />
<DCCReference Include="..\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\JvSystemD11R.dcp" />
<DCCReference Include="..\pckMD5.dcp" />
<DCCReference Include="..\pckUCDataConnector.dcp" />
<DCCReference Include="..\pckUserControl_RT.dcp" />
<DCCReference Include="..\PluginSDK_D10R.dcp" />
<DCCReference Include="..\PngComponentsD10.dcp" />
<DCCReference Include="..\PNG_D10.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="..\TB2k_D10.dcp" />
<DCCReference Include="..\tbx_d10.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vcljpg.dcp" />
<DCCReference Include="..\VclSmp.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>

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

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

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

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

@ -55,7 +55,6 @@ inherited fEditorProveedor: TfEditorProveedor
inherited pgPaginas: TPageControl
Width = 642
Height = 489
ActivePage = PagContabilidad
ExplicitWidth = 642
ExplicitHeight = 489
inherited pagGeneral: TTabSheet
@ -101,36 +100,28 @@ inherited fEditorProveedor: TfEditorProveedor
ExplicitLeft = 572
ExplicitTop = 162
end
inherited Label1: TLabel
Left = 381
Top = 341
Width = 342
ExplicitLeft = 381
ExplicitTop = 341
ExplicitWidth = 342
end
inherited eCalle: TcxDBTextEdit
Top = 243
ExplicitTop = 243
ExplicitWidth = 174
Width = 174
end
inherited eProvincia: TcxDBTextEdit
Top = 297
ExplicitTop = 297
ExplicitWidth = 174
Width = 174
end
inherited ePoblacion: TcxDBTextEdit
inherited cbProvincia: TcxDBComboBox
Top = 270
ExplicitTop = 270
ExplicitWidth = 108
Width = 108
ExplicitWidth = 175
Width = 175
end
inherited cbPoblacion: TcxDBComboBox
Top = 297
ExplicitTop = 297
ExplicitWidth = 267
Width = 267
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 288
Left = 310
Top = 270
ExplicitLeft = 288
ExplicitLeft = 310
ExplicitTop = 270
end
inherited eObservaciones: TcxDBMemo
@ -141,14 +132,6 @@ inherited fEditorProveedor: TfEditorProveedor
Height = 56
Width = 580
end
inherited cxDBCheckBox1: TcxDBCheckBox
Left = 381
Top = 373
ExplicitLeft = 381
ExplicitTop = 373
ExplicitWidth = 310
Width = 310
end
inherited cxDBCheckBox2: TcxDBCheckBox
Top = 348
ExplicitTop = 348
@ -180,33 +163,33 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 221
end
inherited eTlfParticular: TcxDBTextEdit
Left = 476
Left = 489
Top = 57
ExplicitLeft = 476
ExplicitLeft = 489
ExplicitTop = 57
ExplicitWidth = 172
Width = 172
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 476
Left = 489
Top = 30
ExplicitLeft = 476
ExplicitLeft = 489
ExplicitTop = 30
ExplicitWidth = 172
Width = 172
end
inherited eTlfMovil: TcxDBTextEdit
Left = 476
Left = 489
Top = 84
ExplicitLeft = 476
ExplicitLeft = 489
ExplicitTop = 84
ExplicitWidth = 172
Width = 172
end
inherited eFax: TcxDBTextEdit
Left = 476
Left = 489
Top = 111
ExplicitLeft = 476
ExplicitLeft = 489
ExplicitTop = 111
ExplicitWidth = 172
Width = 172
@ -218,43 +201,45 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 263
end
inherited eNIFCIF: TcxDBTextEdit
Left = 216
Top = 30
ExplicitLeft = 216
ExplicitTop = 30
ExplicitWidth = 254
Width = 254
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
Top = 84
ExplicitTop = 84
ExplicitWidth = 192
Width = 192
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
Top = 30
ExplicitTop = 30
@ -268,11 +253,15 @@ inherited fEditorProveedor: TfEditorProveedor
Width = 253
end
inherited frViewTienda1: TfrViewTienda
Left = 381
Left = 394
Top = 270
ExplicitLeft = 381
Width = 290
ExplicitLeft = 394
ExplicitTop = 270
ExplicitWidth = 290
inherited dxLayoutControl1: TdxLayoutControl
Width = 290
ExplicitWidth = 290
inherited cbTienda: TcxComboBox
ExplicitWidth = 250
Width = 250
@ -415,6 +404,18 @@ inherited fEditorProveedor: TfEditorProveedor
inherited ToolBar1: TToolBar
Width = 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

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

@ -106,28 +106,28 @@ inherited fEditorVendedor: TfEditorVendedor
ExplicitTop = 162
end
inherited eCalle: TcxDBTextEdit
Top = 236
ExplicitTop = 236
Top = 189
ExplicitTop = 189
ExplicitWidth = 174
Width = 174
end
inherited eProvincia: TcxDBTextEdit
Top = 290
ExplicitTop = 290
ExplicitWidth = 174
Width = 174
inherited cbProvincia: TcxDBComboBox
Top = 216
ExplicitTop = 216
ExplicitWidth = 144
Width = 144
end
inherited ePoblacion: TcxDBTextEdit
Top = 263
ExplicitTop = 263
ExplicitWidth = 108
Width = 108
inherited cbPoblacion: TcxDBComboBox
Top = 243
ExplicitTop = 243
ExplicitWidth = 236
Width = 236
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 242
Top = 263
ExplicitLeft = 242
ExplicitTop = 263
Left = 251
Top = 216
ExplicitLeft = 251
ExplicitTop = 216
end
inherited eObservaciones: TcxDBMemo
Top = 341
@ -209,6 +209,19 @@ inherited fEditorVendedor: TfEditorVendedor
ExplicitWidth = 165
Width = 165
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
Top = 30
ExplicitTop = 30
@ -216,8 +229,8 @@ inherited fEditorVendedor: TfEditorVendedor
Width = 97
end
inherited ePersonaContacto: TcxDBTextEdit
Top = 209
ExplicitTop = 209
Top = 162
ExplicitTop = 162
ExplicitWidth = 256
Width = 256
end
@ -237,19 +250,6 @@ inherited fEditorVendedor: TfEditorVendedor
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
inherited dsContacto: TDADataSource
Left = 8
@ -269,9 +269,23 @@ inherited fEditorVendedor: TfEditorVendedor
Width = 662
LookAndFeel = dxLayoutOfficeLookAndFeel
ExplicitWidth = 662
inherited eEntidad: TcxDBTextEdit
ExplicitWidth = 114
Width = 114
end
inherited eSucursal: TcxDBTextEdit
Left = 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

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

@ -22,61 +22,50 @@ inherited frViewCliente: TfrViewCliente
Left = 601
ExplicitLeft = 601
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
Left = 132
Top = 273
Top = 247
TabOrder = 8
ExplicitLeft = 132
ExplicitTop = 273
ExplicitTop = 247
ExplicitWidth = 181
Width = 181
end
inherited eProvincia: TcxDBTextEdit
inherited cbProvincia: TcxDBComboBox
Left = 132
Top = 327
TabOrder = 11
ExplicitLeft = 132
ExplicitTop = 327
ExplicitWidth = 133
Width = 133
end
inherited ePoblacion: TcxDBTextEdit
Left = 132
Top = 300
Top = 274
TabOrder = 9
ExplicitLeft = 132
ExplicitTop = 300
ExplicitWidth = 111
Width = 111
ExplicitTop = 274
ExplicitWidth = 121
Width = 121
end
inherited cbPoblacion: TcxDBComboBox
Left = 132
Top = 301
TabOrder = 11
ExplicitLeft = 132
ExplicitTop = 301
ExplicitWidth = 213
Width = 213
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 259
Top = 300
Left = 268
Top = 274
TabOrder = 10
ExplicitLeft = 259
ExplicitTop = 300
ExplicitLeft = 268
ExplicitTop = 274
end
inherited eObservaciones: TcxDBMemo
Top = 468
TabOrder = 23
ExplicitTop = 468
Top = 442
TabOrder = 22
ExplicitTop = 442
ExplicitWidth = 609
ExplicitHeight = 42
Height = 42
Width = 609
end
object eNombreComercial: TcxDBTextEdit [9]
object eNombreComercial: TcxDBTextEdit [8]
Left = 132
Top = 82
DataBinding.DataField = 'NOMBRE_COMERCIAL'
@ -96,9 +85,9 @@ inherited frViewCliente: TfrViewCliente
TabOrder = 3
Width = 143
end
object cbClienteBloqueado: TcxDBCheckBox [10]
object cbClienteBloqueado: TcxDBCheckBox [9]
Left = 22
Top = 384
Top = 358
Action = actBloqueoCliente
DataBinding.DataField = 'BLOQUEADO'
DataBinding.DataSource = dsContacto
@ -120,7 +109,7 @@ inherited frViewCliente: TfrViewCliente
TabOrder = 12
Width = 163
end
object cbGrupoCliente: TcxDBComboBox [11]
object cbGrupoCliente: TcxDBComboBox [10]
Left = 132
Top = 136
DataBinding.DataField = 'GRUPO_CLIENTE'
@ -144,9 +133,9 @@ inherited frViewCliente: TfrViewCliente
TabOrder = 5
Width = 87
end
object eBloqueo: TcxDBTextEdit [12]
object eBloqueo: TcxDBTextEdit [11]
Left = 132
Top = 411
Top = 385
DataBinding.DataField = 'MOTIVO_BLOQUEO'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -163,32 +152,7 @@ inherited frViewCliente: TfrViewCliente
TabOrder = 13
Width = 113
end
object cxDBCheckBox1: TcxDBCheckBox [13]
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]
object eCodigoAsignado: TcxDBTextEdit [12]
Left = 132
Top = 109
DataBinding.DataField = 'CODIGO_ASIGNADO'
@ -208,7 +172,7 @@ inherited frViewCliente: TfrViewCliente
TabOrder = 4
Width = 227
end
object cbProcedenciaCliente: TcxDBComboBox [15]
object cbProcedenciaCliente: TcxDBComboBox [13]
Left = 132
Top = 163
DataBinding.DataField = 'PROCEDENCIA_CLIENTE'
@ -303,10 +267,10 @@ inherited frViewCliente: TfrViewCliente
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 132
Top = 246
Top = 220
TabOrder = 7
ExplicitLeft = 132
ExplicitTop = 246
ExplicitTop = 220
ExplicitWidth = 256
Width = 256
end
@ -381,23 +345,6 @@ inherited frViewCliente: TfrViewCliente
inherited dxLayoutControlContactoGroup100: TdxLayoutGroup
Caption = 'El cliente pertenece a la tienda'
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
inherited dxLayoutControlContactoGroup7: TdxLayoutGroup

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

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

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

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

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

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

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

@ -22,87 +22,52 @@ inherited frViewProveedor: TfrViewProveedor
Left = 669
ExplicitLeft = 669
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
Left = 138
Top = 380
Top = 247
TabOrder = 8
ExplicitLeft = 138
ExplicitTop = 380
ExplicitTop = 247
ExplicitWidth = 264
Width = 264
end
inherited eProvincia: TcxDBTextEdit
inherited cbProvincia: TcxDBComboBox
Left = 138
Top = 434
TabOrder = 11
ExplicitLeft = 138
ExplicitTop = 434
ExplicitWidth = 264
Width = 264
end
inherited ePoblacion: TcxDBTextEdit
Left = 138
Top = 407
Top = 274
TabOrder = 9
ExplicitLeft = 138
ExplicitTop = 407
ExplicitWidth = 163
Width = 163
ExplicitTop = 274
ExplicitWidth = 175
Width = 175
end
inherited cbPoblacion: TcxDBComboBox
Left = 138
Top = 301
TabOrder = 11
ExplicitLeft = 138
ExplicitTop = 301
ExplicitWidth = 267
Width = 267
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 307
Top = 407
Left = 271
Top = 274
TabOrder = 10
ExplicitLeft = 307
ExplicitTop = 407
ExplicitLeft = 271
ExplicitTop = 274
end
inherited eObservaciones: TcxDBMemo
Top = 575
TabOrder = 23
ExplicitTop = 575
Top = 442
TabOrder = 22
ExplicitTop = 442
ExplicitWidth = 630
ExplicitHeight = 20
Height = 20
Width = 630
end
object cxDBCheckBox1: TcxDBCheckBox [9]
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]
object cxDBCheckBox2: TcxDBCheckBox [8]
Left = 22
Top = 491
Top = 358
Caption = 'El proveedor est'#225' homologado'
DataBinding.DataField = 'HOMOLOGADO'
DataBinding.DataSource = dsContacto
@ -124,9 +89,9 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 12
Width = 326
end
object eCertificaciones: TcxDBTextEdit [11]
object eCertificaciones: TcxDBTextEdit [9]
Left = 138
Top = 518
Top = 385
DataBinding.DataField = 'CERTIFICACION'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -143,7 +108,7 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 13
Width = 227
end
object cbGrupoProveedor: TcxDBComboBox [12]
object cbGrupoProveedor: TcxDBComboBox [10]
Left = 138
Top = 163
DataBinding.DataField = 'GRUPO_PROVEEDOR'
@ -167,7 +132,7 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 6
Width = 227
end
object eDescripcionProveedor: TcxDBTextEdit [13]
object eDescripcionProveedor: TcxDBTextEdit [11]
Left = 138
Top = 109
DataBinding.DataField = 'DESCRIPCION_PROVEEDOR'
@ -186,7 +151,7 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 4
Width = 221
end
object eCodigoAsignado: TcxDBTextEdit [14]
object eCodigoAsignado: TcxDBTextEdit [12]
Left = 138
Top = 136
DataBinding.DataField = 'CODIGO_ASIGNADO'
@ -206,30 +171,30 @@ inherited frViewProveedor: TfrViewProveedor
Width = 221
end
inherited eTlfParticular: TcxDBTextEdit
Left = 497
Left = 452
TabOrder = 15
ExplicitLeft = 497
ExplicitLeft = 452
ExplicitWidth = 91
Width = 91
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 497
Left = 452
TabOrder = 14
ExplicitLeft = 497
ExplicitLeft = 452
ExplicitWidth = 127
Width = 127
end
inherited eTlfMovil: TcxDBTextEdit
Left = 497
Left = 452
TabOrder = 16
ExplicitLeft = 497
ExplicitLeft = 452
ExplicitWidth = 155
Width = 155
end
inherited eFax: TcxDBTextEdit
Left = 497
Left = 452
TabOrder = 17
ExplicitLeft = 497
ExplicitLeft = 452
ExplicitWidth = 121
Width = 121
end
@ -245,60 +210,7 @@ inherited frViewProveedor: TfrViewProveedor
ExplicitWidth = 205
Width = 205
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
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]
object eNombreComercial: TcxDBTextEdit [19]
Left = 138
Top = 82
DataBinding.DataField = 'NOMBRE_COMERCIAL'
@ -318,6 +230,58 @@ inherited frViewProveedor: TfrViewProveedor
TabOrder = 3
Width = 192
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 dxLayoutControlContactoGroup9: TdxLayoutGroup
inherited dxLayoutControlContactoGroup4: TdxLayoutGroup
@ -364,22 +328,6 @@ inherited frViewProveedor: TfrViewProveedor
inherited dxLayoutControlContactoGroup100: TdxLayoutGroup
Caption = 'El proveedor pertenece a la tienda'
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

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

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

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

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

23
Source/Servicios/FactuGES.RODL
View File

@ -458,6 +458,29 @@
</Interface>
</Interfaces>
</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>
<EventSinks>
</EventSinks>

72
Source/Servicios/FactuGES_Intf.pas
View File

@ -50,6 +50,7 @@ const
IsrvContabilidad_IID : TGUID = '{04CDF2E1-EFC2-4247-AA4F-09BE782C73FA}';
IsrvUnidadesMedida_IID : TGUID = '{C1B36FAB-7514-40D2-A20C-04A86C9E71AB}';
IsrvComisiones_IID : TGUID = '{B600E9A1-28EC-484E-A74D-B5BB96FDF20A}';
IsrvProvinciasPoblaciones_IID : TGUID = '{C9925D63-0F5F-4546-8657-54F59FE51359}';
{ Event ID's }
@ -82,6 +83,7 @@ type
IsrvContabilidad = interface;
IsrvUnidadesMedida = interface;
IsrvComisiones = interface;
IsrvProvinciasPoblaciones = interface;
TRdxEmpresasArray = class;
@ -671,6 +673,27 @@ type
function GenerateReport(const ComisionID: String): Binary;
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
uses
@ -1735,6 +1758,53 @@ begin
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
RegisterROClass(TRdxLoginInfo);
RegisterROClass(TRdxEmpresasArray);
@ -1765,6 +1835,7 @@ initialization
RegisterProxyClass(IsrvContabilidad_IID, TsrvContabilidad_Proxy);
RegisterProxyClass(IsrvUnidadesMedida_IID, TsrvUnidadesMedida_Proxy);
RegisterProxyClass(IsrvComisiones_IID, TsrvComisiones_Proxy);
RegisterProxyClass(IsrvProvinciasPoblaciones_IID, TsrvProvinciasPoblaciones_Proxy);
finalization
@ -1797,5 +1868,6 @@ finalization
UnregisterProxyClass(IsrvContabilidad_IID);
UnregisterProxyClass(IsrvUnidadesMedida_IID);
UnregisterProxyClass(IsrvComisiones_IID);
UnregisterProxyClass(IsrvProvinciasPoblaciones_IID);
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);
end;
TsrvProvinciasPoblaciones_Invoker = class(TROInvoker)
private
protected
published
procedure Invoke_DarListaProvincias(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
procedure Invoke_DarListaPoblaciones(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
end;
implementation
uses
@ -888,5 +896,60 @@ begin
end;
end;
{ TsrvProvinciasPoblaciones_Invoker }
procedure TsrvProvinciasPoblaciones_Invoker.Invoke_DarListaProvincias(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarListaProvincias: Binary; }
var
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
lResult := nil;
try
lResult := (__Instance as IsrvProvinciasPoblaciones).DarListaProvincias;
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvProvinciasPoblaciones', 'DarListaProvinciasResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
procedure TsrvProvinciasPoblaciones_Invoker.Invoke_DarListaPoblaciones(const __Instance:IInterface; const __Message:IROMessage; const __Transport:IROTransport; out __oResponseOptions:TROResponseOptions);
{ function DarListaPoblaciones(const ID_Provincia: Integer): Binary; }
var
ID_Provincia: Integer;
lResult: Binary;
__lObjectDisposer: TROObjectDisposer;
begin
lResult := nil;
try
__Message.Read('ID_Provincia', TypeInfo(Integer), ID_Provincia, []);
lResult := (__Instance as IsrvProvinciasPoblaciones).DarListaPoblaciones(ID_Provincia);
__Message.InitializeResponseMessage(__Transport, 'FactuGES', 'srvProvinciasPoblaciones', 'DarListaPoblacionesResponse');
__Message.Write('Result', TypeInfo(Binary), lResult, []);
__Message.Finalize;
__Message.UnsetAttributes(__Transport);
finally
__lObjectDisposer := TROObjectDisposer.Create(__Instance);
try
__lObjectDisposer.Add(lResult);
finally
__lObjectDisposer.Free();
end;
end;
end;
initialization
end.

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',
schComisionesClient_Intf in '..\Modulos\Comisiones\Model\schComisionesClient_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 ..\Servicios\RODLFile.res}

4
Source/Servidor/FactuGES_Server.dproj
View File

@ -50,6 +50,10 @@
<Form>srvEmpresas</Form>
<DesignClass>TDARemoteService</DesignClass>
</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\schUsuariosServer_Intf.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 "ProductName", "FactuGES (Servidor)\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
BLOCK "VarFileInfo"

1
Source/Servidor/uAcercaDe.pas
View File

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