Breakout - SM- Debtors mixed Support Packs/Special Rates

Discussions relating to 3rd party solutions (customisations, reports, modules, applications) which are a value-add to the Jiwa product.

Breakout - SM- Debtors mixed Support Packs/Special Rates

Postby Hyperus » Mon Oct 27, 2008 12:47 pm

Breakout - SM- Debtors mixed Support Packs/Special Rates

This is a double-breakout that may come in handy for help desks where Debtors you are servicing use a mix of Support Packs with different values and some are special support packs. It is a reminder that if you are mixing the use of support packs, special support packs and casual rates to take a quick look at what support pack values remain for this debtor.

The second part of this checks the price scheme status for the Debtor to also remind the help desk operator that special pricing rates *might* apply. The idea is that if the price scheme for this debtor is "default" then no warning occurs, but if the price is *not* default, then a warning pops up reminding the operator that special pricing *might* apply.

Some editing will be required in the second part of this - I have left an example in here showing the case where a price scheme description (not ID) is "NewRates20041101" or "OldRateLoyalClients". It should be fairly straight forward to edit/customise, but please feel free to ask for assistance / customisation help if you require it.

from Jiwa :-
JIWA - Service Manager - Maintenance
Record Menu - Utilities - Manage Breakouts

Left-Click "Task Create New Before" Breakout
add this one line at the top :-

Code: Select all
'
' Task Create New Before
'

Dim PriceScheme, SPString

If ((JobObject.RemainingNormalSupportPackHours = 0) And (JobObject.RemainingSpecialSupportPackHours = 0)) Then
      ' Do Nothing if no support packs
Else
      SPString = ""
      If (JobObject.RemainingNormalSupportPackHours > 0) Then
            SPString = SPString + VBCrLf + "NOTE:- NORMAL Support Pack Hours exist for this client"
            If (JobObject.RemainingSpecialSupportPackHours > 0) Then
                  SPString = SPString + VBCrLf + "SPECIAL Support Packs ALSO Exist for this Client" + VBCrLf + "A Special Support Pack may be required on MAIN Tab"
            End If
      Else
            SPString = SPString + VBCrLf + "ONLY SPECIAL Support Packs Exist for this Client" + VBCrLf + "A Special Support Pack MUST Be Selected on MAIN Tab !!!"
      End If
      MsgBox "Normal Hours Left = " + CStr(JobObject.RemainingNormalSupportPackHours) + VBCrLF + "Special Hours Left = " + CStr(JobObject.RemainingSpecialSupportPackHours) + SPString
End If

PriceScheme = Trim(JobObject.PriceScheme.Description)

If (PriceScheme <> "Default Scheme") Then
      If (PriceScheme = "NewRates20041101") Then
            MsgBox "NOTE - This is a SUPPORT165 $165/Hour Client - Please ensure labour lines are billed accoringly"
      Else
            If(PriceScheme = "OldRateLoyalClients") Then
                  ' MsgBox "NOTE - Adam is SUPPORT1 - $125/Hour here"
            End If
      End If
End If


End Sub


dont forget to leave the "End Sub" line at the end.
Click OK, Click Close, Close Service Manager and ReOpen Service Manager.

/Roy Adams
Hyperus
Occasional Contributor
Occasional Contributor
 
Posts: 23
Joined: Mon Feb 18, 2008 1:12 pm
Location: Shailer Park, Queensland

Return to Third Party modules and solutions

Who is online

Users browsing this forum: No registered users and 1 guest

cron