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

Preparar empleados para que se les asignen usuarios

Browse Source 
git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@109 f4e31baf-9722-1c47-927c-6f952f962d4b
This commit is contained in:
roberto 2008-01-15 17:04:57 +00:00
parent 697793a4b4
commit fe4d7a0f53
19 changed files with 393 additions and 327 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
Source/ApplicationBase/ApplicationBase.dproj
View File

@ -60,62 +60,6 @@
<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>

BIN
Source/ApplicationBase/ApplicationBase.res
View File

Binary file not shown.

24
Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas
View File

@ -9,12 +9,12 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_USUARIOS = '{CFE175CF-EB6D-4BF8-91B4-F0140B57453E}';
RID_USUARIOS_EVENTOS = '{6013DEA6-697A-4A8C-8D92-51677BB6F39F}';
RID_USUARIOS_LOGON = '{C666C96E-401A-4FB5-A0E2-F3DB7BAB5F3D}';
RID_PERMISOS = '{02CCB513-8F98-406C-ADAC-21C189AABA29}';
RID_PERMISOSEX = '{B8D57BF7-0B57-4A0B-8F9E-12E87D0B6B60}';
RID_PERFILES = '{0AF2374A-D201-4B82-BB13-07265E1BAEBE}';
RID_USUARIOS = '{4ED84753-A082-44F4-BEA1-B84E494129F1}';
RID_USUARIOS_EVENTOS = '{5A454EB1-F5D2-4E55-8DC3-2C42AF250C42}';
RID_USUARIOS_LOGON = '{50AFB47C-FF60-4F01-B19C-FED2D4E6C884}';
RID_PERMISOS = '{65C900D5-5EF1-4B26-9D61-CD0183BD5CAF}';
RID_PERMISOSEX = '{66351DE2-540F-4456-A330-2634D71EA2E4}';
RID_PERFILES = '{A054E0CE-4F22-4376-88E2-07ABF712361C}';
{ Data table names }
nme_USUARIOS = 'USUARIOS';
@ -129,7 +129,7 @@ const
type
{ IUSUARIOS }
IUSUARIOS = interface(IDAStronglyTypedDataTable)
['{12D98238-4C08-4CB7-BAD1-1E2827ADE7A7}']
['{30EDE872-B7DB-48D5-91B1-01659A9C9475}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -296,7 +296,7 @@ type
{ IUSUARIOS_EVENTOS }
IUSUARIOS_EVENTOS = interface(IDAStronglyTypedDataTable)
['{54DEE63E-4D88-43D8-8D34-1F51030428DE}']
['{351226EB-9947-4892-A278-211C9F071DBF}']
{ Property getters and setters }
function GetAPLICACIONValue: String;
procedure SetAPLICACIONValue(const aValue: String);
@ -427,7 +427,7 @@ type
{ IUSUARIOS_LOGON }
IUSUARIOS_LOGON = interface(IDAStronglyTypedDataTable)
['{D98BF482-EFA8-49ED-894A-E7774859C830}']
['{E20DC12D-CE5C-4CBF-A6E4-3EDF551CF78F}']
{ Property getters and setters }
function GetLOGONIDValue: String;
procedure SetLOGONIDValue(const aValue: String);
@ -510,7 +510,7 @@ type
{ IPERMISOS }
IPERMISOS = interface(IDAStronglyTypedDataTable)
['{076A52A0-4BD5-4617-80DB-69BB4B4C4E4E}']
['{E5102A92-D8E5-4EBE-B311-813248EB7D0E}']
{ Property getters and setters }
function GetID_USUARIOValue: Integer;
procedure SetID_USUARIOValue(const aValue: Integer);
@ -581,7 +581,7 @@ type
{ IPERMISOSEX }
IPERMISOSEX = interface(IDAStronglyTypedDataTable)
['{5778D823-11A3-4B43-8336-FB2ACBBCFCE5}']
['{8E1FEA71-ABDC-4688-A6A7-145E11A8C18D}']
{ Property getters and setters }
function GetID_USUARIOValue: Integer;
procedure SetID_USUARIOValue(const aValue: Integer);
@ -664,7 +664,7 @@ type
{ IPERFILES }
IPERFILES = interface(IDAStronglyTypedDataTable)
['{44741F58-0B27-462C-BA49-A6944FFA7BAC}']
['{8A8536E6-95D0-4D6C-9F52-8EF5D46948A9}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);

24
Source/ApplicationBase/Usuarios/Model/schUsuariosServer_Intf.pas
View File

@ -9,17 +9,17 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_USUARIOSDelta = '{D0217428-91FB-4128-8A0D-AF4A8A742D5A}';
RID_USUARIOS_EVENTOSDelta = '{16B87039-04DC-47AD-81D6-E8648C69A484}';
RID_USUARIOS_LOGONDelta = '{856F2E25-24EE-43BB-94F5-70DD65E4FD02}';
RID_PERMISOSDelta = '{DB34A951-27E2-4A70-843F-9C41FF29179D}';
RID_PERMISOSEXDelta = '{F40FC2C9-2DFF-4B12-8EE6-DAD609901516}';
RID_PERFILESDelta = '{07C28883-A52C-4111-ABBE-14E908E7C705}';
RID_USUARIOSDelta = '{06A56FDC-D1B7-4F90-B90A-5D74FCD7F5C6}';
RID_USUARIOS_EVENTOSDelta = '{94A19FD9-F4DA-45FE-85BE-70F2BBA6409F}';
RID_USUARIOS_LOGONDelta = '{FEDB5A65-D568-46CE-A595-5DC807BAB7DC}';
RID_PERMISOSDelta = '{5B04B65B-14D8-4485-A305-214FDE2E6B38}';
RID_PERMISOSEXDelta = '{FF8FC2AF-6D29-4EEE-A4CD-4DFD01041C25}';
RID_PERFILESDelta = '{E9F8FD20-4505-4698-80CF-F4F641EB05F6}';
type
{ IUSUARIOSDelta }
IUSUARIOSDelta = interface(IUSUARIOS)
['{D0217428-91FB-4128-8A0D-AF4A8A742D5A}']
['{06A56FDC-D1B7-4F90-B90A-5D74FCD7F5C6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldUSERNAMEValue : String;
@ -185,7 +185,7 @@ type
{ IUSUARIOS_EVENTOSDelta }
IUSUARIOS_EVENTOSDelta = interface(IUSUARIOS_EVENTOS)
['{16B87039-04DC-47AD-81D6-E8648C69A484}']
['{94A19FD9-F4DA-45FE-85BE-70F2BBA6409F}']
{ Property getters and setters }
function GetOldAPLICACIONValue : String;
function GetOldID_USUARIOValue : Integer;
@ -316,7 +316,7 @@ type
{ IUSUARIOS_LOGONDelta }
IUSUARIOS_LOGONDelta = interface(IUSUARIOS_LOGON)
['{856F2E25-24EE-43BB-94F5-70DD65E4FD02}']
['{FEDB5A65-D568-46CE-A595-5DC807BAB7DC}']
{ Property getters and setters }
function GetOldLOGONIDValue : String;
function GetOldID_USUARIOValue : Integer;
@ -398,7 +398,7 @@ type
{ IPERMISOSDelta }
IPERMISOSDelta = interface(IPERMISOS)
['{DB34A951-27E2-4A70-843F-9C41FF29179D}']
['{5B04B65B-14D8-4485-A305-214FDE2E6B38}']
{ Property getters and setters }
function GetOldID_USUARIOValue : Integer;
function GetOldMODULOValue : String;
@ -468,7 +468,7 @@ type
{ IPERMISOSEXDelta }
IPERMISOSEXDelta = interface(IPERMISOSEX)
['{F40FC2C9-2DFF-4B12-8EE6-DAD609901516}']
['{FF8FC2AF-6D29-4EEE-A4CD-4DFD01041C25}']
{ Property getters and setters }
function GetOldID_USUARIOValue : Integer;
function GetOldMODULOValue : String;
@ -550,7 +550,7 @@ type
{ IPERFILESDelta }
IPERFILESDelta = interface(IPERFILES)
['{07C28883-A52C-4111-ABBE-14E908E7C705}']
['{E9F8FD20-4505-4698-80CF-F4F641EB05F6}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldUSERNAMEValue : String;

16
Source/ApplicationBase/Usuarios/Views/uViewUsuario.dfm
View File

@ -1,22 +1,22 @@
inherited frViewUsuario: TfrViewUsuario
Width = 509
Height = 275
Width = 510
Height = 321
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitWidth = 509
ExplicitHeight = 275
ExplicitWidth = 510
ExplicitHeight = 321
object dxLayoutControlArticulo: TdxLayoutControl
Left = 0
Top = 0
Width = 509
Height = 249
Width = 510
Height = 273
Align = alTop
ParentBackground = True
TabOrder = 0
AutoContentSizes = [acsWidth]
DesignSize = (
509
249)
510
273)
object PngSpeedButton3: TPngSpeedButton
Left = 335
Top = 82

3
Source/ApplicationBase/Usuarios/Views/uViewUsuario.pas
View File

@ -8,7 +8,8 @@ uses
dxLayoutControl, cxCurrencyEdit, uCustomView, cxControls, DB, uDAInterfaces,
uDADataTable, ActnList, cxCheckBox, cxDBEdit, cxMaskEdit, cxSpinEdit,
cxHyperLinkEdit, cxContainer, cxEdit, cxTextEdit, Buttons, PngSpeedButton,
uBizUsuarios, cxDropDownEdit, ExtCtrls;
uBizUsuarios, cxDropDownEdit, ExtCtrls, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox;
type
IViewUsuario = interface(IViewBase)

95
Source/Base/Base.dproj
View File

@ -50,6 +50,20 @@
<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>
@ -65,33 +79,6 @@
<DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\ApplicationBase\Usuarios\Views\adortl.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\cxIntl6D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\cxIntlPrintSys3D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\dbrtl.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\dclIndyCore.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\designide.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\dsnap.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\GUISDK_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\IndyCore.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\IndyProtocols.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\IndySystem.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\Jcl.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\JclVcl.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\JSDialog100.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\JvCmpD11R.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\JvCoreD11R.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\JvCtrlsD11R.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\JvDlgsD11R.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\JvMMD11R.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\JvNetD11R.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\JvPageCompsD11R.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\JvStdCtrlsD11R.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\JvSystemD11R.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\pckMD5.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\pckUCDataConnector.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\pckUserControl_RT.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PlRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PluginRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PluginSDKRemObjects_Core_D11.dcp" />
@ -105,21 +92,9 @@
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PlugiRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PlugRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PluRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PngComponentsD10.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PNG_D10.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\rtl.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\TB2k_D10.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\tbx_d10.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\vcl.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\vclactnband.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\vcldb.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\vcljpg.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\VclSmp.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\vclx.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\xmlrtl.dcp" />
<DCCReference Include="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass>
@ -134,7 +109,40 @@
</DCCReference>
<DCCReference Include="Controladores\uControllerBase.pas" />
<DCCReference Include="Controladores\uControllerDetallesBase.pas" />
<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="schBase_Intf.pas" />
<DCCReference Include="TB2k_D10.dcp" />
<DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="uDataModuleBase.pas">
<Form>DataModuleBase</Form>
<DesignClass>TDataModule</DesignClass>
@ -159,6 +167,13 @@
<DCCReference Include="Utiles\uNumUtils.pas" />
<DCCReference Include="Utiles\uPasswordUtils.pas" />
<DCCReference Include="Utiles\uSistemaFunc.pas" />
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vcljpg.dcp" />
<DCCReference Include="VclSmp.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

BIN
Source/Base/Base.res
View File

Binary file not shown.

4
Source/Modulos/Contactos/Data/uDataModuleEmpleados.dfm
View File

@ -219,6 +219,10 @@ inherited DataModuleEmpleados: TDataModuleEmpleados
DataType = datMemo
DisplayLabel = 'Experiencia'
DictionaryEntry = 'Empleados_EXPERIENCIA'
end
item
Name = 'ID_USUARIO'
DataType = datInteger
end>
Params = <>
StreamingOptions = [soDisableEventsWhileStreaming]

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

@ -9,19 +9,19 @@ const
{ Data table rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_SubCuentasContacto = '{3A96F518-FDB3-4AC2-A03B-E6A87E434350}';
RID_Contactos = '{2AB96FC3-B708-437B-910D-B0F12F202B45}';
RID_GruposCliente = '{DB1F7DCC-1A8D-4525-BC51-10168E3EB2F4}';
RID_DatosBancarios = '{0F6ADAA7-D882-4625-9761-0B1ECF8E4BBA}';
RID_Clientes = '{6B00E0B5-04DE-4C21-BF6F-E8547E10685A}';
RID_Proveedores = '{B6D14402-6D0B-4298-B466-5C1C11395730}';
RID_Empleados = '{C304A1E1-DB77-4C8C-BB54-87D0CC769466}';
RID_DireccionesContacto = '{7ABAAEB2-3F40-4C20-9A22-DD179F8B0174}';
RID_ClientesDescuentos = '{4F492473-E809-4FD5-B08F-19C02A0DE54F}';
RID_ProcedenciasCliente = '{A04D69D3-1A89-481F-9BE1-0ABD999BA8BB}';
RID_GruposProveedor = '{7361DD28-0C5E-4EFF-B65A-8664041D72B6}';
RID_GruposEmpleado = '{9E3186CA-2430-4277-84EA-7A42DFAB10DF}';
RID_Contactos_Refresh = '{742D6F1E-3935-4FA1-9F7D-D15F1F529F60}';
RID_SubCuentasContacto = '{BC709B14-569A-481A-AF2D-082B06DAD5BC}';
RID_Contactos = '{62A32748-9F85-4236-8D26-B9B3D8F9D108}';
RID_GruposCliente = '{FBBCA246-CCE1-444E-82B6-D3A03BCEF3AB}';
RID_DatosBancarios = '{7A84A957-75FA-4633-87DF-342160EB8A63}';
RID_Clientes = '{19780EDE-5603-4077-ACCF-78AECDFB2CF4}';
RID_Proveedores = '{FEE8B919-B708-440E-A7AC-206D6094BA05}';
RID_Empleados = '{4ADF005C-5C53-47EE-B005-0F6B2C592984}';
RID_DireccionesContacto = '{9A348CA2-7CD2-4F33-B87D-77ECACF35AA7}';
RID_ClientesDescuentos = '{7DD9C4C4-EBA3-4754-AE48-6D7C717FA906}';
RID_ProcedenciasCliente = '{11DAEA2C-AE68-4B21-AE46-0047E2AD0AD9}';
RID_GruposProveedor = '{D0D6EDF8-E981-4A4A-B9A4-E53845E7C94D}';
RID_GruposEmpleado = '{F23C537D-81CD-49B4-8582-99DCB92191F9}';
RID_Contactos_Refresh = '{DE1F8BFE-AB5E-44F2-83D4-DE83EAE66507}';
{ Data table names }
nme_SubCuentasContacto = 'SubCuentasContacto';
@ -325,6 +325,7 @@ const
fld_EmpleadosFORMACION_COMPLE = 'FORMACION_COMPLE';
fld_EmpleadosFORMACION_RECIBIDA = 'FORMACION_RECIBIDA';
fld_EmpleadosEXPERIENCIA = 'EXPERIENCIA';
fld_EmpleadosID_USUARIO = 'ID_USUARIO';
{ Empleados field indexes }
idx_EmpleadosID = 0;
@ -359,6 +360,7 @@ const
idx_EmpleadosFORMACION_COMPLE = 29;
idx_EmpleadosFORMACION_RECIBIDA = 30;
idx_EmpleadosEXPERIENCIA = 31;
idx_EmpleadosID_USUARIO = 32;
{ DireccionesContacto fields }
fld_DireccionesContactoID = 'ID';
@ -477,7 +479,7 @@ const
type
{ ISubCuentasContacto }
ISubCuentasContacto = interface(IDAStronglyTypedDataTable)
['{9FF7577F-4313-4FEA-987A-D218DC543E48}']
['{9DB21B89-AE1E-4FB7-8A9F-C6B9DBB35E27}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -572,7 +574,7 @@ type
{ IContactos }
IContactos = interface(IDAStronglyTypedDataTable)
['{530524E9-A1F1-4D7F-B294-FAB84777226E}']
['{0D74753B-294F-4295-A957-25252E811EED}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -895,7 +897,7 @@ type
{ IGruposCliente }
IGruposCliente = interface(IDAStronglyTypedDataTable)
['{810F6CD7-D979-46BE-94C4-07F426E19F2D}']
['{4B0A05E7-9028-47AD-8D6D-3A7C891B918C}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
@ -930,7 +932,7 @@ type
{ IDatosBancarios }
IDatosBancarios = interface(IDAStronglyTypedDataTable)
['{7AF95A78-AF46-45D7-A4A4-91824509EB3E}']
['{BD57663C-3BAB-4814-8F32-F8E965ED0085}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1061,7 +1063,7 @@ type
{ IClientes }
IClientes = interface(IDAStronglyTypedDataTable)
['{30750111-6673-481A-8668-5FE5C3785BCD}']
['{CAFA7702-80A7-42E8-855B-472153773022}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1540,7 +1542,7 @@ type
{ IProveedores }
IProveedores = interface(IDAStronglyTypedDataTable)
['{D980D2A9-F073-470C-AB36-6AFC59FB23CF}']
['{D1A6AABD-216D-4562-BB15-C73522794C41}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -1995,7 +1997,7 @@ type
{ IEmpleados }
IEmpleados = interface(IDAStronglyTypedDataTable)
['{32911CBD-340A-4B63-B0EA-B443174FF112}']
['{DE0C5E2A-7D5A-47DD-8291-E63789580ADC}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2120,6 +2122,10 @@ type
function GetEXPERIENCIAValue: IROStrings;
function GetEXPERIENCIAIsNull: Boolean;
procedure SetEXPERIENCIAIsNull(const aValue: Boolean);
function GetID_USUARIOValue: Integer;
procedure SetID_USUARIOValue(const aValue: Integer);
function GetID_USUARIOIsNull: Boolean;
procedure SetID_USUARIOIsNull(const aValue: Boolean);
{ Properties }
@ -2187,6 +2193,8 @@ type
property FORMACION_RECIBIDAIsNull: Boolean read GetFORMACION_RECIBIDAIsNull write SetFORMACION_RECIBIDAIsNull;
property EXPERIENCIA: IROStrings read GetEXPERIENCIAValue;
property EXPERIENCIAIsNull: Boolean read GetEXPERIENCIAIsNull write SetEXPERIENCIAIsNull;
property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue;
property ID_USUARIOIsNull: Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull;
end;
{ TEmpleadosDataTableRules }
@ -2327,6 +2335,10 @@ type
function GetEXPERIENCIAValue: IROStrings; virtual;
function GetEXPERIENCIAIsNull: Boolean; virtual;
procedure SetEXPERIENCIAIsNull(const aValue: Boolean); virtual;
function GetID_USUARIOValue: Integer; virtual;
procedure SetID_USUARIOValue(const aValue: Integer); virtual;
function GetID_USUARIOIsNull: Boolean; virtual;
procedure SetID_USUARIOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID: Integer read GetIDValue write SetIDValue;
@ -2393,6 +2405,8 @@ type
property FORMACION_RECIBIDAIsNull: Boolean read GetFORMACION_RECIBIDAIsNull write SetFORMACION_RECIBIDAIsNull;
property EXPERIENCIA: IROStrings read GetEXPERIENCIAValue;
property EXPERIENCIAIsNull: Boolean read GetEXPERIENCIAIsNull write SetEXPERIENCIAIsNull;
property ID_USUARIO: Integer read GetID_USUARIOValue write SetID_USUARIOValue;
property ID_USUARIOIsNull: Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull;
public
constructor Create(aDataTable: TDADataTable); override;
@ -2402,7 +2416,7 @@ type
{ IDireccionesContacto }
IDireccionesContacto = interface(IDAStronglyTypedDataTable)
['{900C6878-B37A-41B1-96B2-426A1CD3A652}']
['{BE6D59E5-167C-4905-BD43-8DE05B45368B}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2617,7 +2631,7 @@ type
{ IClientesDescuentos }
IClientesDescuentos = interface(IDAStronglyTypedDataTable)
['{B6866B3B-4F38-48EF-907D-AC8F80485285}']
['{33EE7628-C3FF-4420-A217-CF598B6022BE}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -2700,7 +2714,7 @@ type
{ IProcedenciasCliente }
IProcedenciasCliente = interface(IDAStronglyTypedDataTable)
['{F718A6F0-2A1F-4080-A040-DA9409E9660E}']
['{D39B7429-57BD-4158-B428-6A2B02909F4A}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
@ -2735,7 +2749,7 @@ type
{ IGruposProveedor }
IGruposProveedor = interface(IDAStronglyTypedDataTable)
['{5204D63E-E6F3-4B54-8C86-3344BD64101F}']
['{287BAF88-0611-4200-B0F7-6CCEB75EB333}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
@ -2770,7 +2784,7 @@ type
{ IGruposEmpleado }
IGruposEmpleado = interface(IDAStronglyTypedDataTable)
['{38FA7116-C170-456A-B912-BD6B266F62E1}']
['{4295FDEB-FC3A-4FAB-B32F-6C313505585B}']
{ Property getters and setters }
function GetDESCRIPCIONValue: String;
procedure SetDESCRIPCIONValue(const aValue: String);
@ -2805,7 +2819,7 @@ type
{ IContactos_Refresh }
IContactos_Refresh = interface(IDAStronglyTypedDataTable)
['{C3BF2C92-354C-4F19-A70F-83E055C3AAB1}']
['{89529E22-0411-4186-8C29-4050253D8C78}']
{ Property getters and setters }
function GetIDValue: Integer;
procedure SetIDValue(const aValue: Integer);
@ -6300,6 +6314,27 @@ begin
DataTable.Fields[idx_EmpleadosEXPERIENCIA].AsVariant := Null;
end;
function TEmpleadosDataTableRules.GetID_USUARIOValue: Integer;
begin
result := DataTable.Fields[idx_EmpleadosID_USUARIO].AsInteger;
end;
procedure TEmpleadosDataTableRules.SetID_USUARIOValue(const aValue: Integer);
begin
DataTable.Fields[idx_EmpleadosID_USUARIO].AsInteger := aValue;
end;
function TEmpleadosDataTableRules.GetID_USUARIOIsNull: boolean;
begin
result := DataTable.Fields[idx_EmpleadosID_USUARIO].IsNull;
end;
procedure TEmpleadosDataTableRules.SetID_USUARIOIsNull(const aValue: Boolean);
begin
if aValue then
DataTable.Fields[idx_EmpleadosID_USUARIO].AsVariant := Null;
end;
{ TDireccionesContactoDataTableRules }
constructor TDireccionesContactoDataTableRules.Create(aDataTable: TDADataTable);

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

@ -9,24 +9,24 @@ const
{ Delta rules ids
Feel free to change them to something more human readable
but make sure they are unique in the context of your application }
RID_SubCuentasContactoDelta = '{844CBC4C-F303-4212-B512-0F088D4D2DE8}';
RID_ContactosDelta = '{CF6AA40B-157B-42C4-B1EF-F9324F337617}';
RID_GruposClienteDelta = '{3A64B415-0076-49BE-9D31-7A6AAD06EA95}';
RID_DatosBancariosDelta = '{182267B6-AFFA-4841-837E-2027F2ECF6A0}';
RID_ClientesDelta = '{64D1EDAB-D2BB-453E-BF15-16EC54AE8872}';
RID_ProveedoresDelta = '{76B5A819-CAE4-4387-B8F6-C1AC1F5C5B42}';
RID_EmpleadosDelta = '{E62BA535-957D-4D58-AB3A-36FB30A641C6}';
RID_DireccionesContactoDelta = '{A8561877-52B9-4454-BAA5-502896D6B351}';
RID_ClientesDescuentosDelta = '{371E055B-D355-49E6-A5AE-BE4B505739DA}';
RID_ProcedenciasClienteDelta = '{52616C3D-CED6-4FEF-978E-A85829763A02}';
RID_GruposProveedorDelta = '{CD081869-8C8B-4CA0-B932-AB7F83A367B8}';
RID_GruposEmpleadoDelta = '{FF95A575-46BC-4FE6-9609-A5678AA0C28E}';
RID_Contactos_RefreshDelta = '{F1A4A005-4BE8-4CAF-86BE-3969B69F7D60}';
RID_SubCuentasContactoDelta = '{ABF020CE-2FFD-47BE-8F94-AAE06B9AC4E0}';
RID_ContactosDelta = '{F25558D1-84A6-4464-AFCE-6FC6D2B2FE0A}';
RID_GruposClienteDelta = '{FB40F5F1-F9F8-47DF-95D1-59B5A95674DD}';
RID_DatosBancariosDelta = '{5D618E3A-6F82-4437-881C-770F62608B2C}';
RID_ClientesDelta = '{D44360F9-227E-478E-BD3B-E0E0F3507908}';
RID_ProveedoresDelta = '{D7DD8B5C-4584-4D3E-9B36-53755442F86C}';
RID_EmpleadosDelta = '{6E12E3F2-A061-423F-816D-F11E35BABEEC}';
RID_DireccionesContactoDelta = '{21432D98-82C1-4473-916A-7A6D1E3C3ADB}';
RID_ClientesDescuentosDelta = '{B9412AD0-C06C-4A90-BCF5-01881A1418D9}';
RID_ProcedenciasClienteDelta = '{D2811841-6506-4B82-B5BE-52F1951EA033}';
RID_GruposProveedorDelta = '{F28BC584-D730-4A7D-A2EC-AFD829F64FD5}';
RID_GruposEmpleadoDelta = '{36D5667B-1688-4F2A-8ECC-BE8E120223FB}';
RID_Contactos_RefreshDelta = '{2283997F-19D7-4845-ACCD-4E3BCF0E1B80}';
type
{ ISubCuentasContactoDelta }
ISubCuentasContactoDelta = interface(ISubCuentasContacto)
['{844CBC4C-F303-4212-B512-0F088D4D2DE8}']
['{ABF020CE-2FFD-47BE-8F94-AAE06B9AC4E0}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldREF_SUBCUENTAValue : String;
@ -120,7 +120,7 @@ type
{ IContactosDelta }
IContactosDelta = interface(IContactos)
['{CF6AA40B-157B-42C4-B1EF-F9324F337617}']
['{F25558D1-84A6-4464-AFCE-6FC6D2B2FE0A}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -443,7 +443,7 @@ type
{ IGruposClienteDelta }
IGruposClienteDelta = interface(IGruposCliente)
['{3A64B415-0076-49BE-9D31-7A6AAD06EA95}']
['{FB40F5F1-F9F8-47DF-95D1-59B5A95674DD}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@ -477,7 +477,7 @@ type
{ IDatosBancariosDelta }
IDatosBancariosDelta = interface(IDatosBancarios)
['{182267B6-AFFA-4841-837E-2027F2ECF6A0}']
['{5D618E3A-6F82-4437-881C-770F62608B2C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -607,7 +607,7 @@ type
{ IClientesDelta }
IClientesDelta = interface(IClientes)
['{64D1EDAB-D2BB-453E-BF15-16EC54AE8872}']
['{D44360F9-227E-478E-BD3B-E0E0F3507908}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1086,7 +1086,7 @@ type
{ IProveedoresDelta }
IProveedoresDelta = interface(IProveedores)
['{76B5A819-CAE4-4387-B8F6-C1AC1F5C5B42}']
['{D7DD8B5C-4584-4D3E-9B36-53755442F86C}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1541,7 +1541,7 @@ type
{ IEmpleadosDelta }
IEmpleadosDelta = interface(IEmpleados)
['{E62BA535-957D-4D58-AB3A-36FB30A641C6}']
['{6E12E3F2-A061-423F-816D-F11E35BABEEC}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CATEGORIAValue : Integer;
@ -1575,6 +1575,7 @@ type
function GetOldFORMACION_COMPLEValue : IROStrings;
function GetOldFORMACION_RECIBIDAValue : IROStrings;
function GetOldEXPERIENCIAValue : IROStrings;
function GetOldID_USUARIOValue : Integer;
{ Properties }
property OldID : Integer read GetOldIDValue;
@ -1609,6 +1610,7 @@ type
property OldFORMACION_COMPLE : IROStrings read GetOldFORMACION_COMPLEValue;
property OldFORMACION_RECIBIDA : IROStrings read GetOldFORMACION_RECIBIDAValue;
property OldEXPERIENCIA : IROStrings read GetOldEXPERIENCIAValue;
property OldID_USUARIO : Integer read GetOldID_USUARIOValue;
end;
{ TEmpleadosBusinessProcessorRules }
@ -1813,6 +1815,12 @@ type
function GetOldEXPERIENCIAValue: IROStrings; virtual;
function GetOldEXPERIENCIAIsNull: Boolean; virtual;
procedure SetEXPERIENCIAIsNull(const aValue: Boolean); virtual;
function GetID_USUARIOValue: Integer; virtual;
function GetID_USUARIOIsNull: Boolean; virtual;
function GetOldID_USUARIOValue: Integer; virtual;
function GetOldID_USUARIOIsNull: Boolean; virtual;
procedure SetID_USUARIOValue(const aValue: Integer); virtual;
procedure SetID_USUARIOIsNull(const aValue: Boolean); virtual;
{ Properties }
property ID : Integer read GetIDValue write SetIDValue;
@ -1943,6 +1951,10 @@ type
property EXPERIENCIAIsNull : Boolean read GetEXPERIENCIAIsNull write SetEXPERIENCIAIsNull;
property OldEXPERIENCIA : IROStrings read GetOldEXPERIENCIAValue;
property OldEXPERIENCIAIsNull : Boolean read GetOldEXPERIENCIAIsNull;
property ID_USUARIO : Integer read GetID_USUARIOValue write SetID_USUARIOValue;
property ID_USUARIOIsNull : Boolean read GetID_USUARIOIsNull write SetID_USUARIOIsNull;
property OldID_USUARIO : Integer read GetOldID_USUARIOValue;
property OldID_USUARIOIsNull : Boolean read GetOldID_USUARIOIsNull;
public
constructor Create(aBusinessProcessor: TDABusinessProcessor); override;
@ -1952,7 +1964,7 @@ type
{ IDireccionesContactoDelta }
IDireccionesContactoDelta = interface(IDireccionesContacto)
['{A8561877-52B9-4454-BAA5-502896D6B351}']
['{21432D98-82C1-4473-916A-7A6D1E3C3ADB}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CONTACTOValue : Integer;
@ -2167,7 +2179,7 @@ type
{ IClientesDescuentosDelta }
IClientesDescuentosDelta = interface(IClientesDescuentos)
['{371E055B-D355-49E6-A5AE-BE4B505739DA}']
['{B9412AD0-C06C-4A90-BCF5-01881A1418D9}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldID_CLIENTEValue : Integer;
@ -2249,7 +2261,7 @@ type
{ IProcedenciasClienteDelta }
IProcedenciasClienteDelta = interface(IProcedenciasCliente)
['{52616C3D-CED6-4FEF-978E-A85829763A02}']
['{D2811841-6506-4B82-B5BE-52F1951EA033}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@ -2283,7 +2295,7 @@ type
{ IGruposProveedorDelta }
IGruposProveedorDelta = interface(IGruposProveedor)
['{CD081869-8C8B-4CA0-B932-AB7F83A367B8}']
['{F28BC584-D730-4A7D-A2EC-AFD829F64FD5}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@ -2317,7 +2329,7 @@ type
{ IGruposEmpleadoDelta }
IGruposEmpleadoDelta = interface(IGruposEmpleado)
['{FF95A575-46BC-4FE6-9609-A5678AA0C28E}']
['{36D5667B-1688-4F2A-8ECC-BE8E120223FB}']
{ Property getters and setters }
function GetOldDESCRIPCIONValue : String;
@ -2351,7 +2363,7 @@ type
{ IContactos_RefreshDelta }
IContactos_RefreshDelta = interface(IContactos_Refresh)
['{F1A4A005-4BE8-4CAF-86BE-3969B69F7D60}']
['{2283997F-19D7-4845-ACCD-4E3BCF0E1B80}']
{ Property getters and setters }
function GetOldIDValue : Integer;
function GetOldNIF_CIFValue : String;
@ -7325,6 +7337,37 @@ begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosEXPERIENCIA] := Null;
end;
function TEmpleadosBusinessProcessorRules.GetID_USUARIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_USUARIO];
end;
function TEmpleadosBusinessProcessorRules.GetID_USUARIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_USUARIO]);
end;
function TEmpleadosBusinessProcessorRules.GetOldID_USUARIOValue: Integer;
begin
result := BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_USUARIO];
end;
function TEmpleadosBusinessProcessorRules.GetOldID_USUARIOIsNull: Boolean;
begin
result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_EmpleadosID_USUARIO]);
end;
procedure TEmpleadosBusinessProcessorRules.SetID_USUARIOValue(const aValue: Integer);
begin
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_USUARIO] := aValue;
end;
procedure TEmpleadosBusinessProcessorRules.SetID_USUARIOIsNull(const aValue: Boolean);
begin
if aValue then
BusinessProcessor.CurrentChange.NewValueByName[fld_EmpleadosID_USUARIO] := Null;
end;
{ TDireccionesContactoBusinessProcessorRules }
constructor TDireccionesContactoBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor);

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

@ -1350,6 +1350,10 @@ object srvContactos: TsrvContactos
item
DatasetField = 'EXPERIENCIA'
TableField = 'EXPERIENCIA'
end
item
DatasetField = 'ID_USUARIO'
TableField = 'ID_USUARIO'
end>
end>
Name = 'Empleados'
@ -1535,6 +1539,10 @@ object srvContactos: TsrvContactos
Name = 'EXPERIENCIA'
DataType = datMemo
DictionaryEntry = 'Empleados_EXPERIENCIA'
end
item
Name = 'ID_USUARIO'
DataType = datInteger
end>
end
item
@ -3311,52 +3319,39 @@ object srvContactos: TsrvContactos
Params = <
item
Name = 'ID_EMPLEADO'
DataType = datInteger
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_NACIMIENTO'
DataType = datDateTime
Value = ''
ParamType = daptInput
end
item
Name = 'CATEGORIA'
DataType = datString
Size = 255
Value = ''
ParamType = daptInput
end
item
Name = 'FECHA_ALTA_EMPRESA'
DataType = datDateTime
Value = ''
ParamType = daptInput
end
item
Name = 'FORMACION_BASE'
DataType = datMemo
Value = ''
ParamType = daptInput
end
item
Name = 'FORMACION_COMPLE'
DataType = datMemo
Value = ''
ParamType = daptInput
end
item
Name = 'FORMACION_RECIBIDA'
DataType = datMemo
Value = ''
ParamType = daptInput
end
item
Name = 'EXPERIENCIA'
DataType = datMemo
Value = ''
ParamType = daptInput
end
item
Name = 'ID_USUARIO'
Value = ''
end>
Statements = <
item
@ -3365,10 +3360,10 @@ object srvContactos: TsrvContactos
SQL =
'INSERT'#10' INTO EMPLEADOS_DATOS'#10' (ID_EMPLEADO, FECHA_NACIMIENTO' +
', CATEGORIA, FECHA_ALTA_EMPRESA, FORMACION_BASE,'#10' FORMACION_C' +
'OMPLE, FORMACION_RECIBIDA, EXPERIENCIA)'#10' VALUES'#10' (:ID_EMPLEA' +
'DO, :FECHA_NACIMIENTO, :CATEGORIA, :FECHA_ALTA_EMPRESA, :FORMACI' +
'ON_BASE,'#10' :FORMACION_COMPLE, :FORMACION_RECIBIDA, :EXPERIENCI' +
'A)'
'OMPLE, FORMACION_RECIBIDA, EXPERIENCIA, ID_USUARIO)'#10' VALUES'#10' ' +
' (:ID_EMPLEADO, :FECHA_NACIMIENTO, :CATEGORIA, :FECHA_ALTA_EMPRE' +
'SA, :FORMACION_BASE,'#10' :FORMACION_COMPLE, :FORMACION_RECIBIDA,' +
' :EXPERIENCIA, :ID_USUARIO)'#10
StatementType = stSQL
ColumnMappings = <>
end>
@ -3404,6 +3399,10 @@ object srvContactos: TsrvContactos
Name = 'EXPERIENCIA'
Value = ''
end
item
Name = 'ID_USUARIO'
Value = ''
end
item
Name = 'OLD_ID_EMPLEADO'
Value = ''
@ -3417,8 +3416,8 @@ object srvContactos: TsrvContactos
'MIENTO,'#10' CATEGORIA = :CATEGORIA,'#10' FECHA_ALTA_EMPRESA = :FE' +
'CHA_ALTA_EMPRESA,'#10' FORMACION_BASE = :FORMACION_BASE,'#10' FORM' +
'ACION_COMPLE = :FORMACION_COMPLE,'#10' FORMACION_RECIBIDA = :FORM' +
'ACION_RECIBIDA,'#10' EXPERIENCIA = :EXPERIENCIA'#10' WHERE'#10' (ID_E' +
'MPLEADO = :OLD_ID_EMPLEADO)'
'ACION_RECIBIDA,'#10' EXPERIENCIA = :EXPERIENCIA,'#10' ID_USUARIO =' +
' :ID_USUARIO'#10' WHERE'#10' (ID_EMPLEADO = :OLD_ID_EMPLEADO)'#10
StatementType = stSQL
ColumnMappings = <>
end>

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

@ -49,26 +49,31 @@
<DelphiCompile Include="Contactos_view.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="adortl.dcp" />
<DCCReference Include="ApplicationBase.dcp" />
<DCCReference Include="Base.dcp" />
<DCCReference Include="ccpackD11.dcp" />
<DCCReference Include="cfpack_d11.dcp" />
<DCCReference Include="Contactos_controller.dcp" />
<DCCReference Include="Contactos_model.dcp" />
<DCCReference Include="DataAbstract_Core_D11.dcp" />
<DCCReference Include="dbrtl.dcp" />
<DCCReference Include="designide.dcp" />
<DCCReference Include="dsnap.dcp" />
<DCCReference Include="FormasPago_controller.dcp" />
<DCCReference Include="FormasPago_model.dcp" />
<DCCReference Include="GUIBase.dcp" />
<DCCReference Include="GUISDK_D11.dcp" />
<DCCReference Include="JvGlobusD11R.dcp" />
<DCCReference Include="RemObjects_Core_D11.dcp" />
<DCCReference Include="rtl.dcp" />
<DCCReference Include="TiposIVA_controller.dcp" />
<DCCReference Include="TiposIVA_model.dcp" />
<DCCReference Include="..\adortl.dcp" />
<DCCReference Include="..\ApplicationBase.dcp" />
<DCCReference Include="..\Base.dcp" />
<DCCReference Include="..\ccpackD11.dcp" />
<DCCReference Include="..\cfpack_d11.dcp" />
<DCCReference Include="..\Contactos_controller.dcp" />
<DCCReference Include="..\Contactos_model.dcp" />
<DCCReference Include="..\DataAbstract_Core_D11.dcp" />
<DCCReference Include="..\dbrtl.dcp" />
<DCCReference Include="..\designide.dcp" />
<DCCReference Include="..\dsnap.dcp" />
<DCCReference Include="..\FormasPago_controller.dcp" />
<DCCReference Include="..\FormasPago_model.dcp" />
<DCCReference Include="..\GUIBase.dcp" />
<DCCReference Include="..\GUISDK_D11.dcp" />
<DCCReference Include="..\JvGlobusD11R.dcp" />
<DCCReference Include="..\RemObjects_Core_D11.dcp" />
<DCCReference Include="..\rtl.dcp" />
<DCCReference Include="..\TiposIVA_controller.dcp" />
<DCCReference Include="..\TiposIVA_model.dcp" />
<DCCReference Include="..\vcl.dcp" />
<DCCReference Include="..\vclactnband.dcp" />
<DCCReference Include="..\vcldb.dcp" />
<DCCReference Include="..\vclx.dcp" />
<DCCReference Include="..\xmlrtl.dcp" />
<DCCReference Include="uContactosViewRegister.pas" />
<DCCReference Include="uEditorCliente.pas">
<Form>fEditorCliente</Form>
@ -205,11 +210,6 @@
<Form>frViewSubCuentaContacto</Form>
<DesignClass>TCustomView</DesignClass>
</DCCReference>
<DCCReference Include="vcl.dcp" />
<DCCReference Include="vclactnband.dcp" />
<DCCReference Include="vcldb.dcp" />
<DCCReference Include="vclx.dcp" />
<DCCReference Include="xmlrtl.dcp" />
</ItemGroup>
</Project>
<!-- EurekaLog First Line

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

@ -1,19 +1,19 @@
inherited frViewContacto: TfrViewContacto
Width = 581
Height = 453
ExplicitWidth = 581
ExplicitHeight = 453
Width = 624
Height = 536
ExplicitWidth = 624
ExplicitHeight = 536
object dxLayoutControlContacto: TdxLayoutControl
Left = 0
Top = 0
Width = 581
Height = 453
Width = 624
Height = 536
Align = alClient
ParentBackground = True
TabOrder = 0
AutoContentSizes = [acsWidth, acsHeight]
object PngSpeedButton1: TPngSpeedButton
Left = 536
Left = 579
Top = 222
Width = 23
Height = 22
@ -53,7 +53,7 @@ inherited frViewContacto: TfrViewContacto
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end
object PngSpeedButton2: TPngSpeedButton
Left = 536
Left = 579
Top = 194
Width = 23
Height = 22
@ -78,7 +78,7 @@ inherited frViewContacto: TfrViewContacto
PngOptions = [pngBlendOnDisabled, pngGrayscaleOnDisabled]
end
object PngSpeedButton3: TPngSpeedButton
Left = 536
Left = 579
Top = 166
Width = 23
Height = 22
@ -104,7 +104,7 @@ inherited frViewContacto: TfrViewContacto
end
object eCalle: TcxDBTextEdit
Left = 115
Top = 247
Top = 328
DataBinding.DataField = 'CALLE'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -122,7 +122,7 @@ inherited frViewContacto: TfrViewContacto
end
object eProvincia: TcxDBTextEdit
Left = 115
Top = 301
Top = 382
DataBinding.DataField = 'PROVINCIA'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -140,7 +140,7 @@ inherited frViewContacto: TfrViewContacto
end
object ePoblacion: TcxDBTextEdit
Left = 115
Top = 274
Top = 355
DataBinding.DataField = 'POBLACION'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -157,8 +157,8 @@ inherited frViewContacto: TfrViewContacto
Width = 111
end
object eCodigoPostal: TcxDBTextEdit
Left = 188
Top = 274
Left = 196
Top = 355
DataBinding.DataField = 'CODIGO_POSTAL'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -176,7 +176,7 @@ inherited frViewContacto: TfrViewContacto
end
object eObservaciones: TcxDBMemo
Left = 22
Top = 358
Top = 439
DataBinding.DataField = 'NOTAS'
DataBinding.DataSource = dsContacto
Properties.ScrollBars = ssVertical
@ -195,7 +195,7 @@ inherited frViewContacto: TfrViewContacto
Width = 630
end
object eTlfParticular: TcxDBTextEdit
Left = 378
Left = 386
Top = 55
DataBinding.DataField = 'TELEFONO_2'
DataBinding.DataSource = dsContacto
@ -213,7 +213,7 @@ inherited frViewContacto: TfrViewContacto
Width = 91
end
object eTlfTrabajo: TcxDBTextEdit
Left = 378
Left = 386
Top = 28
DataBinding.DataField = 'TELEFONO_1'
DataBinding.DataSource = dsContacto
@ -231,7 +231,7 @@ inherited frViewContacto: TfrViewContacto
Width = 127
end
object eTlfMovil: TcxDBTextEdit
Left = 378
Left = 386
Top = 82
DataBinding.DataField = 'MOVIL_1'
DataBinding.DataSource = dsContacto
@ -249,7 +249,7 @@ inherited frViewContacto: TfrViewContacto
Width = 155
end
object eFax: TcxDBTextEdit
Left = 378
Left = 386
Top = 109
DataBinding.DataField = 'FAX'
DataBinding.DataSource = dsContacto
@ -287,7 +287,7 @@ inherited frViewContacto: TfrViewContacto
Width = 221
end
object eNIFCIF: TcxDBTextEdit
Left = 200
Left = 205
Top = 28
DataBinding.DataField = 'NIF_CIF'
DataBinding.DataSource = dsContacto
@ -306,7 +306,7 @@ inherited frViewContacto: TfrViewContacto
Width = 57
end
object eMailTrabajo: TcxDBHyperLinkEdit
Left = 378
Left = 386
Top = 166
DataBinding.DataField = 'EMAIL_1'
DataBinding.DataSource = dsContacto
@ -328,7 +328,7 @@ inherited frViewContacto: TfrViewContacto
Width = 133
end
object eMailParticular: TcxDBHyperLinkEdit
Left = 378
Left = 386
Top = 194
DataBinding.DataField = 'EMAIL_2'
DataBinding.DataSource = dsContacto
@ -350,7 +350,7 @@ inherited frViewContacto: TfrViewContacto
Width = 133
end
object ePaginaWeb: TcxDBHyperLinkEdit
Left = 378
Left = 386
Top = 221
DataBinding.DataField = 'PAGINA_WEB'
DataBinding.DataSource = dsContacto
@ -393,7 +393,7 @@ inherited frViewContacto: TfrViewContacto
end
object ePersonaContacto: TcxDBTextEdit
Left = 115
Top = 220
Top = 301
DataBinding.DataField = 'PERSONA_CONTACTO'
DataBinding.DataSource = dsContacto
Style.BorderColor = clWindowFrame
@ -411,7 +411,7 @@ inherited frViewContacto: TfrViewContacto
Width = 256
end
inline frViewTienda1: TfrViewTienda
Left = 283
Left = 291
Top = 280
Width = 451
Height = 42
@ -424,12 +424,11 @@ inherited frViewContacto: TfrViewContacto
ParentFont = False
TabOrder = 15
ReadOnly = False
ExplicitLeft = 283
ExplicitLeft = 291
ExplicitTop = 280
ExplicitHeight = 42
inherited dxLayoutControl1: TdxLayoutControl
Height = 42
ExplicitWidth = 451
ExplicitHeight = 42
inherited cbTienda: TcxDBComboBox
DataBinding.DataSource = dsContacto
@ -437,6 +436,11 @@ inherited frViewContacto: TfrViewContacto
ExplicitWidth = 412
Width = 412
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item2: TdxLayoutItem
Visible = False
end
end
end
end
object dxLayoutControlContactoGroup_Root: TdxLayoutGroup
@ -444,6 +448,8 @@ inherited frViewContacto: TfrViewContacto
Hidden = True
ShowBorder = False
object dxLayoutControlContactoGroup9: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
ShowCaption = False
Hidden = True
LayoutDirection = ldHorizontal
@ -627,8 +633,12 @@ inherited frViewContacto: TfrViewContacto
end
end
object dxLayoutControlContactoGroup100: TdxLayoutGroup
AutoAligns = [aaHorizontal]
AlignVert = avClient
Caption = 'El contacto pertenece a la tienda'
object dxLayoutControlContactoItem16: TdxLayoutItem
AutoAligns = [aaHorizontal]
AlignVert = avClient
Control = frViewTienda1
ControlOptions.AutoColor = True
ControlOptions.ShowBorder = False

142
Source/Modulos/Contactos/Views/uViewEmpleado.dfm
View File

@ -1,55 +1,69 @@
inherited frViewEmpleado: TfrViewEmpleado
Height = 391
Width = 642
Height = 578
OnCreate = CustomViewCreate
OnDestroy = CustomViewDestroy
ExplicitHeight = 391
ExplicitWidth = 642
ExplicitHeight = 578
inherited dxLayoutControlContacto: TdxLayoutControl
Height = 391
ExplicitHeight = 391
Width = 642
Height = 578
ExplicitWidth = 640
ExplicitHeight = 534
inherited PngSpeedButton1: TPngSpeedButton
Left = 520
ExplicitLeft = 520
Left = 597
ExplicitLeft = 597
end
inherited PngSpeedButton2: TPngSpeedButton
Left = 520
ExplicitLeft = 520
Left = 597
ExplicitLeft = 597
end
inherited PngSpeedButton3: TPngSpeedButton
Left = 520
ExplicitLeft = 520
Left = 597
ExplicitLeft = 597
end
inherited eCalle: TcxDBTextEdit
Left = 121
Top = 277
TabOrder = 6
ExplicitLeft = 121
ExplicitWidth = 260
Width = 260
ExplicitTop = 277
ExplicitWidth = 152
Width = 152
end
inherited eProvincia: TcxDBTextEdit
Left = 121
Top = 331
TabOrder = 9
ExplicitLeft = 121
ExplicitWidth = 260
Width = 260
ExplicitTop = 331
ExplicitWidth = 152
Width = 152
end
inherited ePoblacion: TcxDBTextEdit
Left = 121
Top = 304
TabOrder = 7
ExplicitLeft = 121
ExplicitWidth = 159
Width = 159
ExplicitTop = 304
ExplicitWidth = 51
Width = 51
end
inherited eCodigoPostal: TcxDBTextEdit
Left = 177
Left = 209
Top = 304
TabOrder = 8
ExplicitLeft = 177
ExplicitLeft = 209
ExplicitTop = 304
end
inherited eObservaciones: TcxDBMemo
Top = 388
TabOrder = 18
ExplicitWidth = 630
ExplicitHeight = 148
Height = 148
Width = 630
ExplicitTop = 388
ExplicitWidth = 596
ExplicitHeight = 151
Height = 151
Width = 596
end
object eFechaNacimiento: TcxDBDateEdit [8]
Left = 121
@ -85,21 +99,7 @@ inherited frViewEmpleado: TfrViewEmpleado
TabOrder = 3
Width = 235
end
inherited eTlfParticular: TcxDBTextEdit
Left = 367
TabOrder = 11
ExplicitLeft = 367
ExplicitWidth = 91
Width = 91
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 367
TabOrder = 10
ExplicitLeft = 367
ExplicitWidth = 127
Width = 127
end
object cbCategoria: TcxDBComboBox [12]
object cbCategoria: TcxDBComboBox [10]
Left = 121
Top = 109
DataBinding.DataField = 'CATEGORIA'
@ -123,19 +123,25 @@ inherited frViewEmpleado: TfrViewEmpleado
TabOrder = 4
Width = 225
end
inherited eTlfParticular: TcxDBTextEdit
Left = 399
TabOrder = 11
ExplicitLeft = 399
end
inherited eTlfTrabajo: TcxDBTextEdit
Left = 399
TabOrder = 10
ExplicitLeft = 399
end
inherited eTlfMovil: TcxDBTextEdit
Left = 367
Left = 399
TabOrder = 12
ExplicitLeft = 367
ExplicitWidth = 155
Width = 155
ExplicitLeft = 399
end
inherited eFax: TcxDBTextEdit
Left = 367
Left = 399
TabOrder = 13
ExplicitLeft = 367
ExplicitWidth = 121
Width = 121
ExplicitLeft = 399
end
inherited eNombre: TcxDBTextEdit
Left = 121
@ -144,59 +150,67 @@ inherited frViewEmpleado: TfrViewEmpleado
Width = 263
end
inherited eNIFCIF: TcxDBTextEdit
Left = 177
ExplicitLeft = 177
Left = 183
ExplicitLeft = 183
ExplicitWidth = 100
Width = 100
end
inherited eMailTrabajo: TcxDBHyperLinkEdit
Left = 367
Left = 399
Properties.Prefix = 'mailto:'
TabOrder = 14
ExplicitLeft = 367
ExplicitLeft = 399
ExplicitWidth = 129
Width = 129
end
inherited eMailParticular: TcxDBHyperLinkEdit
Left = 367
Left = 399
Properties.Prefix = 'mailto:'
TabOrder = 15
ExplicitLeft = 367
ExplicitLeft = 399
ExplicitWidth = 165
Width = 165
end
inherited ePaginaWeb: TcxDBHyperLinkEdit
Left = 367
Left = 399
TabOrder = 16
ExplicitLeft = 367
ExplicitLeft = 399
ExplicitWidth = 165
Width = 165
end
inherited eReferencia: TcxDBTextEdit
Left = 121
ExplicitLeft = 121
ExplicitWidth = 38
Width = 38
end
inherited ePersonaContacto: TcxDBTextEdit
Left = 121
Top = 250
TabOrder = 5
ExplicitLeft = 121
ExplicitWidth = 256
Width = 256
ExplicitTop = 250
ExplicitWidth = 152
Width = 152
end
inherited frViewTienda1: TfrViewTienda
Left = 272
Width = 451
Left = 304
TabOrder = 17
ExplicitLeft = 272
ExplicitWidth = 451
ExplicitLeft = 304
inherited dxLayoutControl1: TdxLayoutControl
Width = 451
inherited cbTienda: TcxDBComboBox
Left = 55
DataBinding.DataSource = dsContacto
ExplicitWidth = 412
Width = 412
ExplicitLeft = 55
end
inherited cbVendedor: TcxDBLookupComboBox
Left = 55
DataBinding.DataField = 'ID_USUARIO'
DataBinding.DataSource = dsContacto
ExplicitLeft = 55
end
inherited dxLayoutControl1Group_Root: TdxLayoutGroup
inherited dxLayoutControl1Item2: TdxLayoutItem
Caption = 'Usuario:'
end
end
end
end

3
Source/Modulos/Contactos/Views/uViewEmpleado.pas
View File

@ -37,7 +37,7 @@ implementation
{$R *.dfm}
uses
uBizGruposEmpleado, uBizContactos;
uBizGruposEmpleado, uBizContactos, uFactuGES_App;
procedure TfrViewEmpleado.cbCategoriaPropertiesInitPopup(Sender: TObject);
begin
@ -85,6 +85,7 @@ procedure TfrViewEmpleado.CustomViewCreate(Sender: TObject);
begin
inherited;
FGrupoController := TGruposEmpleadoController.Create;
// AppFactuGES.UsuariosController.
end;
procedure TfrViewEmpleado.CustomViewDestroy(Sender: TObject);

BIN
Source/Servidor/FactuGES_Server.RES
View File

Binary file not shown.

10
Source/Servidor/FactuGES_Server.dpr
View File

@ -38,8 +38,6 @@ uses
schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas',
schTiposIVAServer_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas',
schTiposIVAClient_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAClient_Intf.pas',
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
schBase_Intf in '..\Base\schBase_Intf.pas',
srvPresupuestosCliente_Impl in '..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas' {srvPresupuestosCliente: TDataAbstractService},
uBizPresupuestosClienteServer in '..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas',
@ -99,8 +97,6 @@ uses
uRptEtiquetasContacto_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas' {RptEtiquetasContacto: TDataModule},
uRptFacturasCliente_Server in '..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas' {RptFacturasCliente: TDataModule},
uRptRecibosCliente_Server in '..\Modulos\Recibos de cliente\Reports\uRptRecibosCliente_Server.pas' {RptRecibosCliente: TDataModule},
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas',
schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_Intf.pas',
@ -114,7 +110,11 @@ uses
schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_Intf.pas',
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas';
schPresupuestosClienteServer_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteServer_Intf.pas',
schUsuariosClient_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosClient_Intf.pas',
schUsuariosServer_Intf in '..\ApplicationBase\Usuarios\Model\schUsuariosServer_Intf.pas',
schContactosClient_Intf in '..\Modulos\Contactos\Model\schContactosClient_Intf.pas',
schContactosServer_Intf in '..\Modulos\Contactos\Model\schContactosServer_Intf.pas';
{$R *.res}
{$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN
VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "1.0.0.0\0"
VALUE "CompileDate", "lunes, 14 de enero de 2008 13:43\0"
VALUE "CompileDate", "martes, 15 de enero de 2008 17:58\0"
END
END
BLOCK "VarFileInfo"