From b7444f16ab23369cf4073f05d08c4a94fc3e16ea Mon Sep 17 00:00:00 2001 From: roberto Date: Tue, 15 Jan 2008 19:51:09 +0000 Subject: [PATCH] Establecer en presupuesto la tienda y el vendedor(empleado) por defecto (segun el usuario con el que se haya accedido) git-svn-id: https://192.168.0.254/svn/Proyectos.Acana_FactuGES2/trunk@112 f4e31baf-9722-1c47-927c-6f952f962d4b --- .../Empresas/Views/uViewTienda.pas | 9 ++ .../Controller/uUsuariosController.pas | 3 + .../Usuarios/Data/uDataModuleUsuarios.dfm | 8 ++ .../Usuarios/Model/schUsuariosClient_Intf.pas | 94 +++++++++++++-- .../Usuarios/Model/schUsuariosServer_Intf.pas | 110 ++++++++++++++++-- .../Usuarios/Servidor/srvUsuarios_Impl.dfm | 32 +++-- Source/Base/Base.dproj | 96 +++++++-------- .../Contactos/Model/uBizEmpleadosServer.pas | 2 + .../Modulos/Contactos/Views/uViewEmpleado.dfm | 29 ++++- .../Modulos/Contactos/Views/uViewEmpleado.pas | 3 +- .../uPresupuestosClienteController.pas | 18 ++- .../Model/PresupuestosCliente_model.dproj | 22 ++-- .../Model/uBizPresupuestosCliente.pas | 9 +- .../Views/uViewPresupuestoCliente.dfm | 3 +- .../Views/uViewPresupuestoCliente.pas | 26 ++++- Source/Servidor/FactuGES_Server.RES | Bin 23200 -> 23200 bytes Source/Servidor/FactuGES_Server.dpr | 6 +- Source/Servidor/FactuGES_Server.rc | 2 +- 18 files changed, 352 insertions(+), 120 deletions(-) diff --git a/Source/ApplicationBase/Empresas/Views/uViewTienda.pas b/Source/ApplicationBase/Empresas/Views/uViewTienda.pas index 24f61a07..98df11c3 100644 --- a/Source/ApplicationBase/Empresas/Views/uViewTienda.pas +++ b/Source/ApplicationBase/Empresas/Views/uViewTienda.pas @@ -29,6 +29,7 @@ type public function getIDTienda: Integer; + procedure SetIDTienda(const ID: Integer); end; @@ -81,4 +82,12 @@ begin Result := FListaIDTiendas.Integers[FListaTiendas.IndexOf(cbTienda.Text)]; end; +procedure TfrViewTienda.SetIDTienda(const ID: Integer); +var + AIndex: Integer; +begin + if FListaIDTiendas.Find(ID, AIndex) then + cbTienda.Text := FListaTiendas.Strings[AIndex]; +end; + end. diff --git a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas index c2721542..3e3badc1 100644 --- a/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas +++ b/Source/ApplicationBase/Usuarios/Controller/uUsuariosController.pas @@ -487,7 +487,10 @@ end; function TUsuariosController.GetCurrentUser: IBizUsuario; begin if not Assigned(FCurrentUser) or (FCurrentUser.ID <> FUserControl.CurrentUser.UserID) then + begin FCurrentUser := BuscarUsuario(FUserControl.CurrentUser.UserID); + FCurrentUser.DataTable.Active := True; + end; Result := FCurrentUser; end; diff --git a/Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.dfm b/Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.dfm index 473654b1..3d0aab51 100644 --- a/Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.dfm +++ b/Source/ApplicationBase/Usuarios/Data/uDataModuleUsuarios.dfm @@ -358,6 +358,14 @@ inherited DataModuleUsuarios: TDataModuleUsuarios Size = 250 DisplayLabel = 'Checksum' DictionaryEntry = 'USUARIOS_CHECKSUM' + end + item + Name = 'ID_EMPLEADO' + DataType = datInteger + end + item + Name = 'ID_TIENDA' + DataType = datInteger end> Params = <> StreamingOptions = [soDisableEventsWhileStreaming] diff --git a/Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas b/Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas index 13d25c03..cc9b7b47 100644 --- a/Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas +++ b/Source/ApplicationBase/Usuarios/Model/schUsuariosClient_Intf.pas @@ -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 = '{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}'; + RID_USUARIOS = '{65B7BC42-83C2-459A-8F99-C8DCCC5AD9B6}'; + RID_USUARIOS_EVENTOS = '{C3A73414-3473-4FF2-9994-AE5A0B64C1B5}'; + RID_USUARIOS_LOGON = '{5BECFBB1-EEA4-4EA3-936D-7EB7AE7771E5}'; + RID_PERMISOS = '{15383330-12A0-4322-A74B-D9BCE77F7DC1}'; + RID_PERMISOSEX = '{73F57CFD-17AC-4F91-BCD8-497A6F9A81D8}'; + RID_PERFILES = '{F2615EE5-08AB-4A18-A97C-345924BEE04F}'; { Data table names } nme_USUARIOS = 'USUARIOS'; @@ -37,6 +37,8 @@ const fld_USUARIOSTIPO = 'TIPO'; fld_USUARIOSID_PERFIL = 'ID_PERFIL'; fld_USUARIOSCHECKSUM = 'CHECKSUM'; + fld_USUARIOSID_EMPLEADO = 'ID_EMPLEADO'; + fld_USUARIOSID_TIENDA = 'ID_TIENDA'; { USUARIOS field indexes } idx_USUARIOSID = 0; @@ -51,6 +53,8 @@ const idx_USUARIOSTIPO = 9; idx_USUARIOSID_PERFIL = 10; idx_USUARIOSCHECKSUM = 11; + idx_USUARIOSID_EMPLEADO = 12; + idx_USUARIOSID_TIENDA = 13; { USUARIOS_EVENTOS fields } fld_USUARIOS_EVENTOSAPLICACION = 'APLICACION'; @@ -129,7 +133,7 @@ const type { IUSUARIOS } IUSUARIOS = interface(IDAStronglyTypedDataTable) - ['{30EDE872-B7DB-48D5-91B1-01659A9C9475}'] + ['{99CA8E68-602A-4E23-BE22-1243423EB570}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -179,6 +183,14 @@ type procedure SetCHECKSUMValue(const aValue: String); function GetCHECKSUMIsNull: Boolean; procedure SetCHECKSUMIsNull(const aValue: Boolean); + function GetID_EMPLEADOValue: Integer; + procedure SetID_EMPLEADOValue(const aValue: Integer); + function GetID_EMPLEADOIsNull: Boolean; + procedure SetID_EMPLEADOIsNull(const aValue: Boolean); + function GetID_TIENDAValue: Integer; + procedure SetID_TIENDAValue(const aValue: Integer); + function GetID_TIENDAIsNull: Boolean; + procedure SetID_TIENDAIsNull(const aValue: Boolean); { Properties } @@ -206,6 +218,10 @@ type property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull; property CHECKSUM: String read GetCHECKSUMValue write SetCHECKSUMValue; property CHECKSUMIsNull: Boolean read GetCHECKSUMIsNull write SetCHECKSUMIsNull; + property ID_EMPLEADO: Integer read GetID_EMPLEADOValue write SetID_EMPLEADOValue; + property ID_EMPLEADOIsNull: Boolean read GetID_EMPLEADOIsNull write SetID_EMPLEADOIsNull; + property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue; + property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; end; { TUSUARIOSDataTableRules } @@ -261,6 +277,14 @@ type procedure SetCHECKSUMValue(const aValue: String); virtual; function GetCHECKSUMIsNull: Boolean; virtual; procedure SetCHECKSUMIsNull(const aValue: Boolean); virtual; + function GetID_EMPLEADOValue: Integer; virtual; + procedure SetID_EMPLEADOValue(const aValue: Integer); virtual; + function GetID_EMPLEADOIsNull: Boolean; virtual; + procedure SetID_EMPLEADOIsNull(const aValue: Boolean); virtual; + function GetID_TIENDAValue: Integer; virtual; + procedure SetID_TIENDAValue(const aValue: Integer); virtual; + function GetID_TIENDAIsNull: Boolean; virtual; + procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual; { Properties } property ID: Integer read GetIDValue write SetIDValue; @@ -287,6 +311,10 @@ type property ID_PERFILIsNull: Boolean read GetID_PERFILIsNull write SetID_PERFILIsNull; property CHECKSUM: String read GetCHECKSUMValue write SetCHECKSUMValue; property CHECKSUMIsNull: Boolean read GetCHECKSUMIsNull write SetCHECKSUMIsNull; + property ID_EMPLEADO: Integer read GetID_EMPLEADOValue write SetID_EMPLEADOValue; + property ID_EMPLEADOIsNull: Boolean read GetID_EMPLEADOIsNull write SetID_EMPLEADOIsNull; + property ID_TIENDA: Integer read GetID_TIENDAValue write SetID_TIENDAValue; + property ID_TIENDAIsNull: Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; public constructor Create(aDataTable: TDADataTable); override; @@ -296,7 +324,7 @@ type { IUSUARIOS_EVENTOS } IUSUARIOS_EVENTOS = interface(IDAStronglyTypedDataTable) - ['{351226EB-9947-4892-A278-211C9F071DBF}'] + ['{8266AB36-18C0-48E4-8CB1-13779322E8C7}'] { Property getters and setters } function GetAPLICACIONValue: String; procedure SetAPLICACIONValue(const aValue: String); @@ -427,7 +455,7 @@ type { IUSUARIOS_LOGON } IUSUARIOS_LOGON = interface(IDAStronglyTypedDataTable) - ['{E20DC12D-CE5C-4CBF-A6E4-3EDF551CF78F}'] + ['{1721EA9B-77A8-4E0E-978A-EDCD53AA859F}'] { Property getters and setters } function GetLOGONIDValue: String; procedure SetLOGONIDValue(const aValue: String); @@ -510,7 +538,7 @@ type { IPERMISOS } IPERMISOS = interface(IDAStronglyTypedDataTable) - ['{E5102A92-D8E5-4EBE-B311-813248EB7D0E}'] + ['{92A64248-1BF3-424E-B311-4C879E30177A}'] { Property getters and setters } function GetID_USUARIOValue: Integer; procedure SetID_USUARIOValue(const aValue: Integer); @@ -581,7 +609,7 @@ type { IPERMISOSEX } IPERMISOSEX = interface(IDAStronglyTypedDataTable) - ['{8E1FEA71-ABDC-4688-A6A7-145E11A8C18D}'] + ['{C134946D-8CCA-44D0-9C52-7B3B5EB08E49}'] { Property getters and setters } function GetID_USUARIOValue: Integer; procedure SetID_USUARIOValue(const aValue: Integer); @@ -664,7 +692,7 @@ type { IPERFILES } IPERFILES = interface(IDAStronglyTypedDataTable) - ['{8A8536E6-95D0-4D6C-9F52-8EF5D46948A9}'] + ['{4B59467A-22C8-4D7C-A516-BBF3D6C6801A}'] { Property getters and setters } function GetIDValue: Integer; procedure SetIDValue(const aValue: Integer); @@ -1000,6 +1028,48 @@ begin DataTable.Fields[idx_USUARIOSCHECKSUM].AsVariant := Null; end; +function TUSUARIOSDataTableRules.GetID_EMPLEADOValue: Integer; +begin + result := DataTable.Fields[idx_USUARIOSID_EMPLEADO].AsInteger; +end; + +procedure TUSUARIOSDataTableRules.SetID_EMPLEADOValue(const aValue: Integer); +begin + DataTable.Fields[idx_USUARIOSID_EMPLEADO].AsInteger := aValue; +end; + +function TUSUARIOSDataTableRules.GetID_EMPLEADOIsNull: boolean; +begin + result := DataTable.Fields[idx_USUARIOSID_EMPLEADO].IsNull; +end; + +procedure TUSUARIOSDataTableRules.SetID_EMPLEADOIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_USUARIOSID_EMPLEADO].AsVariant := Null; +end; + +function TUSUARIOSDataTableRules.GetID_TIENDAValue: Integer; +begin + result := DataTable.Fields[idx_USUARIOSID_TIENDA].AsInteger; +end; + +procedure TUSUARIOSDataTableRules.SetID_TIENDAValue(const aValue: Integer); +begin + DataTable.Fields[idx_USUARIOSID_TIENDA].AsInteger := aValue; +end; + +function TUSUARIOSDataTableRules.GetID_TIENDAIsNull: boolean; +begin + result := DataTable.Fields[idx_USUARIOSID_TIENDA].IsNull; +end; + +procedure TUSUARIOSDataTableRules.SetID_TIENDAIsNull(const aValue: Boolean); +begin + if aValue then + DataTable.Fields[idx_USUARIOSID_TIENDA].AsVariant := Null; +end; + { TUSUARIOS_EVENTOSDataTableRules } constructor TUSUARIOS_EVENTOSDataTableRules.Create(aDataTable: TDADataTable); diff --git a/Source/ApplicationBase/Usuarios/Model/schUsuariosServer_Intf.pas b/Source/ApplicationBase/Usuarios/Model/schUsuariosServer_Intf.pas index 9be1d2bc..dde25a82 100644 --- a/Source/ApplicationBase/Usuarios/Model/schUsuariosServer_Intf.pas +++ b/Source/ApplicationBase/Usuarios/Model/schUsuariosServer_Intf.pas @@ -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 = '{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}'; + RID_USUARIOSDelta = '{767AECF0-73DF-483C-BCD3-83A9E425177B}'; + RID_USUARIOS_EVENTOSDelta = '{AF20CF49-049C-4541-B01D-CCAAC2CDA912}'; + RID_USUARIOS_LOGONDelta = '{C4702DF5-B82A-469C-A97E-79BAF8012A26}'; + RID_PERMISOSDelta = '{97700BF0-18B1-4CB0-8AFD-340B150C6A59}'; + RID_PERMISOSEXDelta = '{2F16E82F-201A-48B6-8898-32C56932E696}'; + RID_PERFILESDelta = '{CA9075EF-2994-4366-94B6-7416B3D9936E}'; type { IUSUARIOSDelta } IUSUARIOSDelta = interface(IUSUARIOS) - ['{06A56FDC-D1B7-4F90-B90A-5D74FCD7F5C6}'] + ['{767AECF0-73DF-483C-BCD3-83A9E425177B}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldUSERNAMEValue : String; @@ -33,6 +33,8 @@ type function GetOldTIPOValue : String; function GetOldID_PERFILValue : Integer; function GetOldCHECKSUMValue : String; + function GetOldID_EMPLEADOValue : Integer; + function GetOldID_TIENDAValue : Integer; { Properties } property OldID : Integer read GetOldIDValue; @@ -47,6 +49,8 @@ type property OldTIPO : String read GetOldTIPOValue; property OldID_PERFIL : Integer read GetOldID_PERFILValue; property OldCHECKSUM : String read GetOldCHECKSUMValue; + property OldID_EMPLEADO : Integer read GetOldID_EMPLEADOValue; + property OldID_TIENDA : Integer read GetOldID_TIENDAValue; end; { TUSUARIOSBusinessProcessorRules } @@ -126,6 +130,18 @@ type function GetOldCHECKSUMIsNull: Boolean; virtual; procedure SetCHECKSUMValue(const aValue: String); virtual; procedure SetCHECKSUMIsNull(const aValue: Boolean); virtual; + function GetID_EMPLEADOValue: Integer; virtual; + function GetID_EMPLEADOIsNull: Boolean; virtual; + function GetOldID_EMPLEADOValue: Integer; virtual; + function GetOldID_EMPLEADOIsNull: Boolean; virtual; + procedure SetID_EMPLEADOValue(const aValue: Integer); virtual; + procedure SetID_EMPLEADOIsNull(const aValue: Boolean); virtual; + function GetID_TIENDAValue: Integer; virtual; + function GetID_TIENDAIsNull: Boolean; virtual; + function GetOldID_TIENDAValue: Integer; virtual; + function GetOldID_TIENDAIsNull: Boolean; virtual; + procedure SetID_TIENDAValue(const aValue: Integer); virtual; + procedure SetID_TIENDAIsNull(const aValue: Boolean); virtual; { Properties } property ID : Integer read GetIDValue write SetIDValue; @@ -176,6 +192,14 @@ type property CHECKSUMIsNull : Boolean read GetCHECKSUMIsNull write SetCHECKSUMIsNull; property OldCHECKSUM : String read GetOldCHECKSUMValue; property OldCHECKSUMIsNull : Boolean read GetOldCHECKSUMIsNull; + property ID_EMPLEADO : Integer read GetID_EMPLEADOValue write SetID_EMPLEADOValue; + property ID_EMPLEADOIsNull : Boolean read GetID_EMPLEADOIsNull write SetID_EMPLEADOIsNull; + property OldID_EMPLEADO : Integer read GetOldID_EMPLEADOValue; + property OldID_EMPLEADOIsNull : Boolean read GetOldID_EMPLEADOIsNull; + property ID_TIENDA : Integer read GetID_TIENDAValue write SetID_TIENDAValue; + property ID_TIENDAIsNull : Boolean read GetID_TIENDAIsNull write SetID_TIENDAIsNull; + property OldID_TIENDA : Integer read GetOldID_TIENDAValue; + property OldID_TIENDAIsNull : Boolean read GetOldID_TIENDAIsNull; public constructor Create(aBusinessProcessor: TDABusinessProcessor); override; @@ -185,7 +209,7 @@ type { IUSUARIOS_EVENTOSDelta } IUSUARIOS_EVENTOSDelta = interface(IUSUARIOS_EVENTOS) - ['{94A19FD9-F4DA-45FE-85BE-70F2BBA6409F}'] + ['{AF20CF49-049C-4541-B01D-CCAAC2CDA912}'] { Property getters and setters } function GetOldAPLICACIONValue : String; function GetOldID_USUARIOValue : Integer; @@ -316,7 +340,7 @@ type { IUSUARIOS_LOGONDelta } IUSUARIOS_LOGONDelta = interface(IUSUARIOS_LOGON) - ['{FEDB5A65-D568-46CE-A595-5DC807BAB7DC}'] + ['{C4702DF5-B82A-469C-A97E-79BAF8012A26}'] { Property getters and setters } function GetOldLOGONIDValue : String; function GetOldID_USUARIOValue : Integer; @@ -398,7 +422,7 @@ type { IPERMISOSDelta } IPERMISOSDelta = interface(IPERMISOS) - ['{5B04B65B-14D8-4485-A305-214FDE2E6B38}'] + ['{97700BF0-18B1-4CB0-8AFD-340B150C6A59}'] { Property getters and setters } function GetOldID_USUARIOValue : Integer; function GetOldMODULOValue : String; @@ -468,7 +492,7 @@ type { IPERMISOSEXDelta } IPERMISOSEXDelta = interface(IPERMISOSEX) - ['{FF8FC2AF-6D29-4EEE-A4CD-4DFD01041C25}'] + ['{2F16E82F-201A-48B6-8898-32C56932E696}'] { Property getters and setters } function GetOldID_USUARIOValue : Integer; function GetOldMODULOValue : String; @@ -550,7 +574,7 @@ type { IPERFILESDelta } IPERFILESDelta = interface(IPERFILES) - ['{E9F8FD20-4505-4698-80CF-F4F641EB05F6}'] + ['{CA9075EF-2994-4366-94B6-7416B3D9936E}'] { Property getters and setters } function GetOldIDValue : Integer; function GetOldUSERNAMEValue : String; @@ -1006,6 +1030,68 @@ begin BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSCHECKSUM] := Null; end; +function TUSUARIOSBusinessProcessorRules.GetID_EMPLEADOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_EMPLEADO]; +end; + +function TUSUARIOSBusinessProcessorRules.GetID_EMPLEADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_EMPLEADO]); +end; + +function TUSUARIOSBusinessProcessorRules.GetOldID_EMPLEADOValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSID_EMPLEADO]; +end; + +function TUSUARIOSBusinessProcessorRules.GetOldID_EMPLEADOIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSID_EMPLEADO]); +end; + +procedure TUSUARIOSBusinessProcessorRules.SetID_EMPLEADOValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_EMPLEADO] := aValue; +end; + +procedure TUSUARIOSBusinessProcessorRules.SetID_EMPLEADOIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_EMPLEADO] := Null; +end; + +function TUSUARIOSBusinessProcessorRules.GetID_TIENDAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_TIENDA]; +end; + +function TUSUARIOSBusinessProcessorRules.GetID_TIENDAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_TIENDA]); +end; + +function TUSUARIOSBusinessProcessorRules.GetOldID_TIENDAValue: Integer; +begin + result := BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSID_TIENDA]; +end; + +function TUSUARIOSBusinessProcessorRules.GetOldID_TIENDAIsNull: Boolean; +begin + result := VarIsNull(BusinessProcessor.CurrentChange.OldValueByName[fld_USUARIOSID_TIENDA]); +end; + +procedure TUSUARIOSBusinessProcessorRules.SetID_TIENDAValue(const aValue: Integer); +begin + BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_TIENDA] := aValue; +end; + +procedure TUSUARIOSBusinessProcessorRules.SetID_TIENDAIsNull(const aValue: Boolean); +begin + if aValue then + BusinessProcessor.CurrentChange.NewValueByName[fld_USUARIOSID_TIENDA] := Null; +end; + { TUSUARIOS_EVENTOSBusinessProcessorRules } constructor TUSUARIOS_EVENTOSBusinessProcessorRules.Create(aBusinessProcessor: TDABusinessProcessor); diff --git a/Source/ApplicationBase/Usuarios/Servidor/srvUsuarios_Impl.dfm b/Source/ApplicationBase/Usuarios/Servidor/srvUsuarios_Impl.dfm index 77511a83..74877148 100644 --- a/Source/ApplicationBase/Usuarios/Servidor/srvUsuarios_Impl.dfm +++ b/Source/ApplicationBase/Usuarios/Servidor/srvUsuarios_Impl.dfm @@ -124,13 +124,8 @@ object srvUsuarios: TsrvUsuarios Connection = 'IBX' ConnectionType = 'Interbase' Default = True - TargetTable = 'USUARIOS' - SQL = - 'SELECT '#10' ID, USERNAME, LOGIN, PASS, PASSEXPIRED, BLOQUEADO,'#10' ' + - ' EMAIL, USERDAYSSUN, PRIVILEGED, TIPO, ID_PERFIL, CHECKSUM'#10' F' + - 'ROM'#10' USUARIOS'#10' WHERE TIPO = '#39'U'#39' AND {Where}'#10' ORDER BY USERN' + - 'AME'#10 - StatementType = stSQL + TargetTable = 'V_USUARIOS' + StatementType = stAutoSQL ColumnMappings = < item DatasetField = 'ID' @@ -179,6 +174,14 @@ object srvUsuarios: TsrvUsuarios item DatasetField = 'CHECKSUM' TableField = 'CHECKSUM' + end + item + DatasetField = 'ID_EMPLEADO' + TableField = 'ID_EMPLEADO' + end + item + DatasetField = 'ID_TIENDA' + TableField = 'ID_TIENDA' end> end> Name = 'USUARIOS' @@ -250,6 +253,14 @@ object srvUsuarios: TsrvUsuarios DataType = datString Size = 250 DictionaryEntry = 'USUARIOS_CHECKSUM' + end + item + Name = 'ID_EMPLEADO' + DataType = datInteger + end + item + Name = 'ID_TIENDA' + DataType = datInteger end> end item @@ -517,11 +528,8 @@ object srvUsuarios: TsrvUsuarios Statements = < item Connection = 'IBX' - TargetTable = 'USUARIOS' - SQL = - 'SELECT '#10' ID, USERNAME, LOGIN, TIPO'#10' FROM'#10' USUARIOS'#10' WHER' + - 'E TIPO = '#39'P'#39' AND {Where}'#10' ORDER BY USERNAME'#10 - StatementType = stSQL + TargetTable = 'V_PERFILES' + StatementType = stAutoSQL ColumnMappings = < item DatasetField = 'ID' diff --git a/Source/Base/Base.dproj b/Source/Base/Base.dproj index 4622730a..fa98d17f 100644 --- a/Source/Base/Base.dproj +++ b/Source/Base/Base.dproj @@ -50,20 +50,6 @@ - - - - - - - - - - - - - - VCL for the Web Design Package for CodeGear RAD Studio CodeGear WebSnap Components @@ -93,8 +79,48 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + -
fConfigurarConexion
TForm @@ -109,40 +135,7 @@ - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
DataModuleBase
TDataModule @@ -167,13 +160,6 @@ - - - - - - -