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