USP_DATAFORMTEMPLATE_EDIT_DEFAULTWEALTHPOINTCREDENTIALS_2

The save procedure used by the edit dataform template "Default WealthPoint Credentials Edit Form 2".
Parameters

Parameter	Parameter Type	Mode	Description
@CURRENTAPPUSERID	uniqueidentifier	IN	Input parameter indicating the ID of the current user.
@CHANGEAGENTID	uniqueidentifier	IN	Input parameter indicating the ID of the change agent invoking the procedure.
@USERNAME	nvarchar(100)	IN	User name
@PASSWORD	nvarchar(100)	IN	Password
Definition

Copy


                    CREATE procedure dbo.USP_DATAFORMTEMPLATE_EDIT_DEFAULTWEALTHPOINTCREDENTIALS_2(
                        @CURRENTAPPUSERID uniqueidentifier,
                        @CHANGEAGENTID uniqueidentifier = null,
                        @USERNAME nvarchar(100),
                        @PASSWORD nvarchar(100)
                    ) as
                        set nocount on;

                        declare @CURRENTDATE                datetime;

                        if @CHANGEAGENTID is null  
                            exec dbo.USP_CHANGEAGENT_GETORCREATECHANGEAGENT @CHANGEAGENTID output;

                        set @CURRENTDATE = getdate();

                        begin try

                            exec dbo.USP_GET_KEY_ACCESS;

                            if not exists(select 1 from dbo.WEALTHPOINTCREDENTIALS where ID=@CURRENTAPPUSERID)
                                insert into dbo.WEALTHPOINTCREDENTIALS
                                (
                                    [ID],
                                    [USERNAME],
                                    [PASSWORD],
                                    [DESCRIPTION],
                                    [ADDEDBYID],
                                    [CHANGEDBYID],
                                    [DATEADDED],
                                    [DATECHANGED]
                                )
                                values
                                (
                                    @CURRENTAPPUSERID,
                                    @USERNAME,
                                    EncryptByKey(key_GUID('sym_BBInfinity'), @PASSWORD),
                                    '',
                                    @CHANGEAGENTID,
                                    @CHANGEAGENTID,
                                    @CURRENTDATE,
                                    @CURRENTDATE
                                )
                            else begin

                                update dbo.WEALTHPOINTCREDENTIALS set
                                    USERNAME = @USERNAME,
                                    PASSWORD = EncryptByKey(key_GUID('sym_BBInfinity'), @PASSWORD),
                                    CHANGEDBYID = @CHANGEAGENTID,
                                    DATECHANGED = @CURRENTDATE
                                where
                                    ID=@CURRENTAPPUSERID;
                            end

                            close symmetric key sym_BBInfinity;

                        end try
                        begin catch
                            exec dbo.USP_RAISE_ERROR;
                            return 1;
                        end catch

                        return 0;