Behind-the-Scenes Printer Name Matching
In Sherpa, for Printer Pricer to recognize which machines from TCO are authorized to be serviced in the MPS Pricebook administration area, the names of the printers need to match exactly. In order to catch as many minor differences as possible, our developers have coded quite a few fixes into the system. We have listed them below. These fixes to the names stay behind the scenes and won’t be noticed on the front end of the database.
The one thing the name matching does not catch though, is the difference of two machines that are the same but have a different name extender indicating attachments. For example, an “HP Color LaserJet 3700” vs an “HP Color LaserJet 3700dn” wouldn’t be recognized by Sherpa as being the same machine. Both instances of the machine would need to be listed in the MPS Pricebook as an authorized machine in order to be recognized in Printer Pricer.
'HP
strModel = Replace(strModel, "h.p.", "hp")
strModel = Replace(strModel, "h p", "hp")
strModel = Replace(strModel, "hewlett packard", "hp")
strModel = Replace(strModel, "hewlett-packard", "hp")
strModel = Replace(strModel, " series", "")
strModel = Replace(strModel, "laser jet", "laserjet")
strModel = Replace(strModel, "lj", "laserjet")
strModel = Replace(strModel, "enterprise", "")
strModel = Replace(strModel, "flow", "")
'Canon
strModel = Replace(strModel, "ir", "imagerunner")
strModel = Replace(strModel, "clc", "colorlaserclass")
strModel = Replace(strModel, "lc", "laserclass")
strModel = Replace(strModel, " ic ", "imageclass")
strModel = Replace(strModel, "ipf", "imageprograf")
'Kyocera Mita
strModel = Replace(strModel, "kyocera mita", "kyocera")
strModel = Replace(strModel, "mita", "kyocera")
strModel = Replace(strModel, "kyocera-mita", "kyocera")
strModel = Replace(strModel, "dialta", "")
'Konica Minolta
strModel = Replace(strModel, "konica", "konicaminolta")
If strModel.Contains("konicaminolta") = False Then
strModel = Replace(strModel, "minolta", "konicaminolta")
End If
strModel = Replace(strModel, "konica-minolta", "konicaminolta")
strModel = Replace(strModel, "kmbs", "konicaminolta")
'Pitney Bowes
strModel = Replace(strModel, "pitney", "pitneybowes")
strModel = Replace(strModel, "bowes", "pitneybowes")
'Fuji Xerox
strModel = Replace(strModel, "fuji", "fujixerox")
strModel = Replace(strModel, "xerox", "fujixerox")
strModel = Replace(strModel, "fuji-xerox", "fujixerox")
'remove mfp
strModel = Replace(strModel, "mfp", "")
strModel = Replace(strModel, "enhanced", "")
strModel = Replace(strModel, "micr", "")
If strModel.Contains("copier/printer") = False Then
strModel = Replace(strModel, "printer", "")
strModel = Replace(strModel, "copier", "")
End If
strModel = Replace(strModel, "+", "plus")
strModel = Replace(strModel, " pro ", "")
strModel = Replace(strModel, "professional", "")
strModel = Replace(strModel, "select", "")
strModel = Replace(strModel, "personal", "")
strModel = Replace(strModel, "machine", "")
strModel = Replace(strModel, "bubblejet", "bj")
strModel = Replace(strModel, "bubblejet color", "bjc")
strModel = Replace(strModel, "photo", "")
strModel = Replace(strModel, "(", "")
strModel = Replace(strModel, ")", "")
strModel = Replace(strModel, "wireless", "")
strModel = Replace(strModel, "network", "")
strModel = Replace(strModel, "all in one", "")
strModel = Replace(strModel, "all-in-one", "")
strModel = Replace(strModel, "inkjet", "")
strModel = Replace(strModel, "multifunction", "")
strModel = Replace(strModel, "mono", "")
strModel = Replace(strModel, "color", "")
If strModel.Contains("laserjet") = False Then
strModel = Replace(strModel, "laser", "")
End If
strModel = Replace(strModel, "workgroup", "")
strModel = Replace(strModel, "digital", "")
strModel = Replace(strModel, "printing", "")
strModel = Replace(strModel, "System", "")
strModel = Replace(strModel, "edition", "")
strModel = Replace(strModel, "artistic", "")
strModel = Replace(strModel, "business", "")
strModel = Replace(strModel, "compact", "")
strModel = Replace(strModel, "small-in-one", "")
strModel = Replace(strModel, "small in one", "")
strModel = Replace(strModel, "home", "")
strModel = Replace(strModel, "expression", "")
If strModel.Contains("copier/printer/color scanner") = False Then
strModel = Replace(strModel, "scan", "")
strModel = Replace(strModel, "scanner", "")
End If
strModel = Replace(strModel, "duplicator", "")
strModel = Replace(strModel, "multifunctional", "")
strModel = Replace(strModel, "with", "")
strModel = Replace(strModel, "\", "")
strModel = Replace(strModel, "/", "")
strModel = Replace(strModel, "e-all-in-one", "")
strModel = Replace(strModel, "e all in one", "")
strModel = Replace(strModel, "advantage", "")
strModel = Replace(strModel, "ink", "")
strModel = Replace(strModel, "mobile", "")
strModel = Replace(strModel, "e-printer", "")
strModel = Replace(strModel, "eprinter", "")
strModel = Replace(strModel, "e printer", "")
strModel = Replace(strModel, "premium", "")
strModel = Replace(strModel, "premier", "")
strModel = Replace(strModel, "estation", "")
strModel = Replace(strModel, "e-station", "")
strModel = Replace(strModel, "e station", "")
strModel = Replace(strModel, "express", "")
strModel = Replace(strModel, "production", "")
If strModel.Contains("imagepress") = False Then
strModel = Replace(strModel, "press", "")
End If
strModel = Replace(strModel, "model", "")
strModel = Replace(strModel, "mac ready", "")
strModel = Replace(strModel, "printrio", "")
strModel = Replace(strModel, "fax machine", "")
strModel = Replace(strModel, "ultra", "")
strModel = Replace(strModel, "priport", "")
strModel = Replace(strModel, "-", "")
strModel = Replace(strModel, "b&w", "")
strModel = Replace(strModel, "b/w", "")
strModel = Replace(strModel, "secure", "")
strModel = Replace(strModel, "highlight", "")
strModel = Replace(strModel, "hotspot", "")
strModel = Replace(strModel, "perfecting", "")
strModel = Replace(strModel, "perfect", "")
strModel = Replace(strModel, "oki data", "oki")
strModel = Replace(strModel, "selphy", "")
strModel = Replace(strModel, "desktop", "")
strModel = Replace(strModel, "wide format", "")
strModel = Replace(strModel, "flow", "")
strModel = Replace(strModel, ",", "")
strModel = Replace(strModel, "dialta", "")
strModel = Replace(strModel, "force", "")
strModel = Replace(strModel, "ecosys", "")
strModel = Replace(strModel, "forms", "")
strModel = Replace(strModel, "optra", "")
strModel = Replace(strModel, "panafax", "")
strModel = Replace(strModel, "label", "")
strModel = Replace(strModel, "aficio", "")
strModel = Replace(strModel, "xpress", "")
strModel = Replace(strModel, "x-press", "")
strModel = Replace(strModel, "x press", "")
strModel = Replace(strModel, "express", "")
If strModel.Contains("hp br clr lsrjet cp2025") Then
Dim t As String = ""
End If
strModel = Replace(strModel, " br ", " ")
strModel = Replace(strModel, " comp ", " ")
'strModel = Replace(strModel, " clr ", " color ")
strModel = Replace(strModel, " clr ", " ")
strModel = Replace(strModel, "lsrjet", "laserjet")
strModel = Replace(strModel, "lsrjt", "laserjet")
strModel = Replace(strModel, "clr lj", "color laserjet")
strModel = Replace(strModel, "koncia", "konica minolta")
strModel = Replace(strModel, "magiclr", "magicolor")
strModel = Replace(strModel, "copycntr", "copycentre")
strModel = Replace(strModel, "faxcntr", "faxcentre")
strModel = Replace(strModel, "workcntr", "workcentre")
strModel = Replace(strModel, "wrkcntr", "workcentre")
strModel = Replace(strModel, "wrkctr", "workcentre")
strModel = Replace(strModel, "biz pro", "bizhub pro")
strModel = Replace(strModel, "biz pres", "bizhub press")
strModel = Replace(strModel, "docprint", "docuprint")
strModel = Replace(strModel, "docuprt", "docuprint")
strModel = Replace(strModel, "prt", "")
strModel = Replace(strModel, "laserjet", "")
strModel = Replace(strModel, "/", "")
strModel = Replace(strModel, "-", "")
strModel = Replace(strModel, " ", "")
This same list of name matching is also used in the TCO area when importing from a meter tool or excel file in order to recognize industry average costs from the Sherpa default list of devices. It is also recognized when importing machines into the MPS Pricebook no matter which supplier or spreadsheet is being imported.
To make a machine authorized in the MPS Pricebook so that it’s recognized in the Printer Pricer, add the machine into the MPS Pricebook as a new model. You can use existing machines as a starting point for pricing and just update the information that is different between the two. For a tutorial on how to add machines in MPS Pricebook, be sure to attend the “Administrator Training MPS Pricebook” web training session.
Last Updated 8/3/2020
Comments
0 comments
Article is closed for comments.