Devart Forums

Code: Select all

        Try

            Dim db As New CommonDBContext
            Using oScope As New TransactionScope
                Dim oUser As New User

                With oUser
                    .Address_1 = txtAddress1.Text
                    .Address_2 = txtAddress2.Text
                    .Address_3 = txtAddress3.Text
                    .City = txtCity.Text
                    .State_Code = ddlState.SelectedValue
                    .Country_Code = ddlCountry.SelectedValue
                    If ddlCountry.SelectedValue = "US" Then
                        .County_Code = ddlCounty.SelectedValue
                    Else
                        .County_Code = ""
                    End If
                    .Postal_Code = txtZip.Text
                    .Company_Name = txtCompany.Text
                    .Email_Address = txtEmail.Text
                    .First_Name = txtFirstName.Text
                    .Last_Name = txtLastName.Text
                    .Middle_Name = txtMiddle.Text
                    .Ldap_Account = sLdap
                    .Work_Phone = txtWorkPhone.Text
                    .Mobile_Phone = txtMobilePhone.Text
                    .Fax_Number = txtFax.Text
                    .State_Name = ddlState.SelectedItem.Text
                    If ddlCountry.SelectedValue = "US" Then
                        .County_Name = ddlCounty.SelectedItem.Text
                    Else
                        .County_Name = ""
                    End If
                    .Modified_By = sLdap
                    .Modified_Date = Now
                    .Is_Active = True
                    .Created_By = sLdap
                    .Created_Date = Now
                End With
                db.Users.InsertOnSubmit(oUser)
                db.SubmitChanges()
                Dim oAUR As New App_User_Role
                With oAUR
                    .App_Name = ConfigConstants.GC_APP_NAME
                    .Role_Code = 3 ' requester
                    .Ldap_Account = sLdap
                End With
                db.App_User_Roles.InsertOnSubmit(oAUR)
                db.SubmitChanges()
                oScope.Complete()
            End Using
        Catch ex As Exception
            ErrorLog.Handle_Error(ex)
        End Try

Code: Select all

       ''' 
        ''' There are no comments for Get_App_Role_List in the schema.
        ''' 
         _
        Public Function Get_App_Role_List( Sappname As String) As System.Int32
            Dim res As IExecuteResult = Me.ExecuteMethodCall(Me, CType(MethodInfo.GetCurrentMethod(), MethodInfo), Sappname)
            Return CType(res.ReturnValue, System.Int32)
        End Function


 PROCEDURE Get_App_Role_List(sAppName IN VARCHAR2, cData OUT cOutput) IS 
   /* --------------------------------------------------------------------------- 
          Procedure:    Get_App_Role_List 
          Developer:      Ed Staffin 
          Date:           12/5/8
          Description:  GET  list of roles
       --------------------------------------------------------------------------- */ 
  
      BEGIN 
          sProcName := 'Get_App_Role_List'; 
          OPEN cData FOR 
          SELECT ROLE_CODE, ROLE_DESC
          FROM APP_ROLE
        WHERE APP_NAME = sAppName; 
                                                          
      EXCEPTION 
      WHEN OTHERS THEN 
          BEGIN 
            COMMON.COMMON_PKG.Log_Error(APPNAME, USER, SQLERRM, sProcName); 
            RAISE_APPLICATION_ERROR(ORAERROR, 'An error has occurred.  Please contact system support for resolution'); 
          END; 
  END Get_App_Role_List;           

Code: Select all