Hi Karen, thanks for your suggestions. I have not heard of the Personally ReSharper before and I will check this out. It appears to be a paid for program. I have already created a class to handle sql functions and it is working. After some experimentation, I correctly suspected that I could IN FACT pass sender and e to another sub...How about that? You didn't mention that in your post. I have the result as shown below:
Protected Sub initialize(sender As Object, e As EventArgs)
txtborfee.Text = ""
txtsellerfee.Text = ""
txtbrokerfee.Text = ""
txtlenderfee.Text = ""
txt3partyfee.Text = ""
txtcorresfee.Text = ""
End Sub
Protected Sub assignpercent(sender As Object, e As EventArgs, ByVal results As Array, ByVal amount As Decimal)
Dim borfee As Decimal, selfee As Decimal, bkrfee As Decimal, lenfee As Decimal, ptyfee As Decimal, corfee As Decimal, totpercent As Decimal = 0
txtborpercent.Text = results(0)
txtsellerpercent.Text = results(1)
txtbrokerpercent.Text = results(2)
txtlenderpercent.Text = results(3)
txt3partypercent.Text = results(4)
txtcorrespercent.Text = results(5)
If results(0) <> "" Then
borfee = amount * results(0) / 100
txtborfee.Text = borfee
totpercent = results(0)
End If
If results(1) <> "" Then
selfee = amount * results(1) / 100
txtsellerfee.Text = selfee
totpercent = totpercent + results(1)
End If
If results(2) <> "" Then
bkrfee = amount * results(2) / 100
txtbrokerfee.Text = bkrfee
totpercent = totpercent + results(2)
End If
If results(3) <> "" Then
lenfee = amount * results(3) / 100
txtlenderfee.Text = lenfee
totpercent = totpercent + results(3)
End If
If results(4) <> "" Then
ptyfee = amount * results(4) / 100
txt3partyfee.Text = ptyfee
totpercent = totpercent + results(4)
End If
If results(5) <> "" Then
corfee = amount * results(5) / 100
txtcorresfee.Text = corfee
totpercent = totpercent + results(5)
End If
txtfeepercent.Text = totpercent
txtfeeamount.Text = borfee + selfee + bkrfee + lenfee + ptyfee + corfee
End Sub
Protected Sub assignamt(sender As Object, e As EventArgs, ByVal results As Array)
Dim borfee As Decimal, selfee As Decimal, bkrfee As Decimal, lenfee As Decimal, ptyfee As Decimal, corfee As Decimal, totpercent As Decimal = 0
txtborfee.Text = results(0)
txtsellerfee.Text = results(1)
txtbrokerfee.Text = results(2)
txtlenderfee.Text = results(3)
txt3partyfee.Text = results(4)
txtcorresfee.Text = results(5)
If results(0) <> "" Then
borfee = results(0)
End If
If results(1) <> "" Then
selfee = results(1)
End If
If results(2) <> "" Then
bkrfee = results(2)
End If
If results(3) <> "" Then
lenfee = results(3)
End If
If results(4) <> "" Then
ptyfee = results(4)
End If
If results(5) <> "" Then
corfee = results(5)
End If
txtfeeamount.Text = borfee + selfee + bkrfee + lenfee + ptyfee + corfee
End Sub
Protected Sub btndiscountfee_Click(sender As Object, e As EventArgs)
initialize(sender, e)
txtfeename.Text = "Loan Discount"
Dim tblfeesplitadapter As New FeesplitTableAdapter
Dim feesplit As New DataSet1.FeesplitDataTable
feesplit = tblfeesplitadapter.GetData(CInt(Session("ApplicantID")))
For Each feesplitrow As DataSet1.FeesplitRow In feesplit
ddparty.SelectedIndex = feesplitrow.discpty
Rbsplit.SelectedIndex = feesplitrow.discsplit
If feesplitrow.discsplit = 0 Then
Dim results As String() = feesplitrow.discpntamt.Split(",")
If txtdiscounttotal.Text <> "" Then
assignpercent(sender, e, results, txtdiscounttotal.Text)
End If
Else
Dim results As String() = feesplitrow.discpntamt.Split(",")
assignamt(sender, e, results)
End If
Next
If feesplit.Rows.Count = 0 Then
InsertFeesplit()
txtborpercent.Text = "100"
txtborfee.Text = txtdiscounttotal.Text
txtfeepercent.Text = "100"
txtfeeamount.Text = txtdiscounttotal.Text
End If
HiddenField1.Value = txtdiscounttotal.Text
HiddenField2.Value = "disc"
Me.ModalPopupExtender1.Show()
End Sub