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\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclsoap100.bpl">CodeGear SOAP Components</Excluded_Packages>

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

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

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

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

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

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

@ -8,7 +8,8 @@ uses
dxLayoutControl, cxCurrencyEdit, uCustomView, cxControls, DB, uDAInterfaces, dxLayoutControl, cxCurrencyEdit, uCustomView, cxControls, DB, uDAInterfaces,
uDADataTable, ActnList, cxCheckBox, cxDBEdit, cxMaskEdit, cxSpinEdit, uDADataTable, ActnList, cxCheckBox, cxDBEdit, cxMaskEdit, cxSpinEdit,
cxHyperLinkEdit, cxContainer, cxEdit, cxTextEdit, Buttons, PngSpeedButton, cxHyperLinkEdit, cxContainer, cxEdit, cxTextEdit, Buttons, PngSpeedButton,
uBizUsuarios, cxDropDownEdit, ExtCtrls; uBizUsuarios, cxDropDownEdit, ExtCtrls, cxLookupEdit, cxDBLookupEdit,
cxDBLookupComboBox;
type type
IViewUsuario = interface(IViewBase) 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\dclintraweb_90_100.bpl">VCL for the Web Design Package for CodeGear RAD Studio</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages> <Excluded_Packages Name="$(BDS)\bin\dclwebsnap100.bpl">CodeGear WebSnap Components</Excluded_Packages>
@ -65,33 +79,6 @@
<DelphiCompile Include="Base.dpk"> <DelphiCompile Include="Base.dpk">
<MainSource>MainSource</MainSource> <MainSource>MainSource</MainSource>
</DelphiCompile> </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\PlRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PluginRemObjects_Core_D11.dcp" /> <DCCReference Include="..\ApplicationBase\Usuarios\Views\PluginRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PluginSDKRemObjects_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\PlugiRemObjects_Core_D11.dcp" />
<DCCReference Include="..\ApplicationBase\Usuarios\Views\PlugRemObjects_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\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\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="..\Servicios\FactuGES_Intf.pas" />
<DCCReference Include="adortl.dcp" />
<DCCReference Include="Conexion\uConfigurarConexion.pas"> <DCCReference Include="Conexion\uConfigurarConexion.pas">
<Form>fConfigurarConexion</Form> <Form>fConfigurarConexion</Form>
<DesignClass>TForm</DesignClass> <DesignClass>TForm</DesignClass>
@ -134,7 +109,40 @@
</DCCReference> </DCCReference>
<DCCReference Include="Controladores\uControllerBase.pas" /> <DCCReference Include="Controladores\uControllerBase.pas" />
<DCCReference Include="Controladores\uControllerDetallesBase.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="schBase_Intf.pas" />
<DCCReference Include="TB2k_D10.dcp" />
<DCCReference Include="tbx_d10.dcp" />
<DCCReference Include="uDataModuleBase.pas"> <DCCReference Include="uDataModuleBase.pas">
<Form>DataModuleBase</Form> <Form>DataModuleBase</Form>
<DesignClass>TDataModule</DesignClass> <DesignClass>TDataModule</DesignClass>
@ -159,6 +167,13 @@
<DCCReference Include="Utiles\uNumUtils.pas" /> <DCCReference Include="Utiles\uNumUtils.pas" />
<DCCReference Include="Utiles\uPasswordUtils.pas" /> <DCCReference Include="Utiles\uPasswordUtils.pas" />
<DCCReference Include="Utiles\uSistemaFunc.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> </ItemGroup>
</Project> </Project>
<!-- EurekaLog First Line <!-- 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 DataType = datMemo
DisplayLabel = 'Experiencia' DisplayLabel = 'Experiencia'
DictionaryEntry = 'Empleados_EXPERIENCIA' DictionaryEntry = 'Empleados_EXPERIENCIA'
end
item
Name = 'ID_USUARIO'
DataType = datInteger
end> end>
Params = <> Params = <>
StreamingOptions = [soDisableEventsWhileStreaming] StreamingOptions = [soDisableEventsWhileStreaming]

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

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

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

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

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

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

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

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

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

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

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

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

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

@ -37,7 +37,7 @@ implementation
{$R *.dfm} {$R *.dfm}
uses uses
uBizGruposEmpleado, uBizContactos; uBizGruposEmpleado, uBizContactos, uFactuGES_App;
procedure TfrViewEmpleado.cbCategoriaPropertiesInitPopup(Sender: TObject); procedure TfrViewEmpleado.cbCategoriaPropertiesInitPopup(Sender: TObject);
begin begin
@ -85,6 +85,7 @@ procedure TfrViewEmpleado.CustomViewCreate(Sender: TObject);
begin begin
inherited; inherited;
FGrupoController := TGruposEmpleadoController.Create; FGrupoController := TGruposEmpleadoController.Create;
// AppFactuGES.UsuariosController.
end; end;
procedure TfrViewEmpleado.CustomViewDestroy(Sender: TObject); 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', schFamiliasClient_Intf in '..\Modulos\Familias\Model\schFamiliasClient_Intf.pas',
schTiposIVAServer_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas', schTiposIVAServer_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAServer_Intf.pas',
schTiposIVAClient_Intf in '..\Modulos\Tipos de IVA\Model\schTiposIVAClient_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', schBase_Intf in '..\Base\schBase_Intf.pas',
srvPresupuestosCliente_Impl in '..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas' {srvPresupuestosCliente: TDataAbstractService}, srvPresupuestosCliente_Impl in '..\Modulos\Presupuestos de cliente\Servidor\srvPresupuestosCliente_Impl.pas' {srvPresupuestosCliente: TDataAbstractService},
uBizPresupuestosClienteServer in '..\Modulos\Presupuestos de cliente\Model\uBizPresupuestosClienteServer.pas', 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}, uRptEtiquetasContacto_Server in '..\Modulos\Contactos\Reports\uRptEtiquetasContacto_Server.pas' {RptEtiquetasContacto: TDataModule},
uRptFacturasCliente_Server in '..\Modulos\Facturas de cliente\Reports\uRptFacturasCliente_Server.pas' {RptFacturasCliente: 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}, 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', schAlbaranesClienteClient_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteClient_Intf.pas',
schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas', schAlbaranesClienteServer_Intf in '..\Modulos\Albaranes de cliente\Model\schAlbaranesClienteServer_Intf.pas',
schAlbaranesProveedorClient_Intf in '..\Modulos\Albaranes de proveedor\Model\schAlbaranesProveedorClient_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', schEmpresasClient_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasClient_Intf.pas',
schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas', schEmpresasServer_Intf in '..\ApplicationBase\Empresas\Model\schEmpresasServer_Intf.pas',
schPresupuestosClienteClient_Intf in '..\Modulos\Presupuestos de cliente\Model\schPresupuestosClienteClient_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 *.res}
{$R ..\Servicios\RODLFile.res} {$R ..\Servicios\RODLFile.res}

2
Source/Servidor/FactuGES_Server.rc
View File

@ -14,7 +14,7 @@ BEGIN
BEGIN BEGIN
VALUE "FileVersion", "1.0.0.0\0" VALUE "FileVersion", "1.0.0.0\0"
VALUE "ProductVersion", "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
END END
BLOCK "VarFileInfo" BLOCK "VarFileInfo"