Solved

Custom function to SSRS using array and dataset values

Posted on 2014-04-10
6
5,413 Views
Last Modified: 2014-05-05
I'm experimenting with a report where the Project Managers can play around with the hours of employees and see how it would impact their budgets.  I've got a report that shows a project's employee list with budgeted hours/cost and actual hours/cost.  I've removed the actual figures and am including a variance column to hold the number of hours the PM wants to change (-/+ #).  

I'm using 2 parameters to allow the PM to enter their proposed changes: one is a drop-down list of employees on that specific project and the other is a text box where they can manually enter a number representing the hours they want added/deducted from the employee's budgeted hours.
I'm using global variables to hold the hours entered and the id of the employee chosen
In a column of the details part of my table I'm calling a function and passing the employee id of that row's data and the parameters selected
=Code.getAdjustedHours(Fields!WipEmp_ID.Value, Parameters!Hours.Value, Parameters!EmployeeID.Value)

Open in new window

My function tests to see if the current employee id matches the one selected from the drop-down and if so it assigns the hours entered to the hours variable
Dim public adjustHours as String
Dim public adjustingEmployee as String

Public Function getAdjustedHours(ByVal e as String, ByVal h as String, ByVal c as String)
	Dim empID as String= e
	adjustingEmployee = c
	adjustHours = "0"
	If (adjustingEmployee = empID) Then
		adjustHours = h
	End if
End Function

Open in new window


This is working great  in that I can change the employee and hours and the table updates appropriately as to who should get the added/subtracted hours.  But it only works for the currently adjusted employee.  If I select a new employee and enter a new hour amount then the previous entry is lost.
Note*  I'm not sending this information to the database; it is intended for PM's to play around with the team's hours and see the changes it would cause to the budget given the varying pay rates

I'd like to change my function so that it uses a two-dimensional array using RowCount to set the size of the array and entering the employee id as the identifier and all 0's as the hours.  Then as the hours are entered I'd use the employee id parameter to attach hours to that employee.  Then under New Hours I'd take the currently recorded hours budgeted and add the hours of the array to the employee's hours to get the new hours.  Then multiply that by their rate the new cost associated with those changes.

Example of my finished table
It's been a number of years since I programmed with VB so I'm at a bit of a loss at how to change the global hours variable to a global array and how to set the hours to 0 initially, then add the hours added.  Any help is greatly appreciated!!!!
0
Comment
Question by:HSI_guelph
  • 4
  • 2
6 Comments
 
LVL 27

Assisted Solution

by:planocz
planocz earned 250 total points
ID: 40000310
I don't know if this will help your problem,
but thiss is all you need for your function.....

 Public Function getAdjustedHours(ByVal empID As String, ByVal adjEmp As String, ByVal adjHrs As String) As String
        If Trim(adjEmp) = Trim(empID) Then
            Return adjHrs
        Else
            Return "0"
        End If
        Return Nothing
    End Function
0
 

Author Comment

by:HSI_guelph
ID: 40015279
Sorry I missed this, I had another question that was on fire.  Is this an improvement on the function I have
Public Function getAdjustedHours(ByVal e as String, ByVal h as String, ByVal c as String)
	Dim empID as String= e
	adjustingEmployee = c
	adjustHours = "0"
	If (adjustingEmployee = empID) Then
		adjustHours = h
	End if
End Function

Open in new window


I'm not sure about returning nothing since I want a column for variance and it will be 0 if that employee hasn't been adjusted.  But what I really need is to incorporate an array.
0
 
LVL 27

Expert Comment

by:planocz
ID: 40016306
The function I have above is the correct way to do it.
If you want somekind of return on the function when the if statements fails, then change the return nothing to return "0".
0
Comprehensive Backup Solutions for Microsoft

Acronis protects the complete Microsoft technology stack: Windows Server, Windows PC, laptop and Surface data; Microsoft business applications; Microsoft Hyper-V; Azure VMs; Microsoft Windows Server 2016; Microsoft Exchange 2016 and SQL Server 2016.

 

Accepted Solution

by:
HSI_guelph earned 0 total points
ID: 40017404
Cool, I'll update that.  Unfortunately it will change when I figure out how to put an array in.  I found this code that lets me pass a field to an array but I need a two-dimensional array that will hold the employee ID and the adjusting hours.  It lets me send one field but I was wondering if it could be modified to take two fields.  I tried adding another ByVal to the function and put values.Add(value, secondvalue) but it said I was sending too many arguments.  Perhaps I need to alter the Dim to initialize it as a two-dimensional array.

Just wondering if you have any suggestions on this before I close the thread down.

Dim values As System.Collections.ArrayList=New System.Collections.ArrayList()
 Function SetText(ByVal value As Integer) As Integer
     values.Add(value)
     return value
 End Function

Open in new window

0
 

Author Comment

by:HSI_guelph
ID: 40033121
I want to give some points for planocz because he tried to help me but I needed help converting from a variable to an array and I still don't' know how to do this.
0
 

Author Closing Comment

by:HSI_guelph
ID: 40041623
This didn't really solve my specific problem but provided some valuable input into what I was currently doing.
0

Featured Post

How to improve team productivity

Quip adds documents, spreadsheets, and tasklists to your Slack experience
- Elevate ideas to Quip docs
- Share Quip docs in Slack
- Get notified of changes to your docs
- Available on iOS/Android/Desktop/Web
- Online/Offline

Join & Write a Comment

In this article we will get to know that how can we recover deleted data if it happens accidently. We really can recover deleted rows if we know the time when data is deleted by using the transaction log.
It was really hard time for me to get the understanding of Delegates in C#. I went through many websites and articles but I found them very clumsy. After going through those sites, I noted down the points in a easy way so here I am sharing that unde…
Internet Business Fax to Email Made Easy - With eFax Corporate (http://www.enterprise.efax.com), you'll receive a dedicated online fax number, which is used the same way as a typical analog fax number. You'll receive secure faxes in your email, fr…
You have products, that come in variants and want to set different prices for them? Watch this micro tutorial that describes how to configure prices for Magento super attributes. Assigning simple products to configurable: We assigned simple products…

743 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

14 Experts available now in Live!

Get 1:1 Help Now