Notification

Icon
Error

Dashboard, chart and report for Toner Levels w/color - Dashboard, chart and report for Toner Levels w/color

Posted: Friday, June 19, 2020 12:07:10 AM(UTC)
rader

rader

Member Original PosterPosts: 30
0
Like
My dashboard with a chart quick glance at toner levels, and a colorized report with more toner details set to highlight items with 10% remaining. If LS has info on the printer it can show the reorder # of the toner as well.

===================
Chart: Toner Levels
===================

Code:

Select Top 1000000 tblAssetCustom.Model,
  tblCustDevPrinter.TonerRemaining As [Copies Left]
From tblCustDevPrinter
  Inner Join tblAssets On tblCustDevPrinter.AssetID = tblAssets.AssetID
  Inner Join tblAssetCustom On tblAssets.AssetID = tblAssetCustom.AssetID
  Inner Join tsysAssetTypes On tblAssets.Assettype = tsysAssetTypes.AssetType
  Left Join tsysIPLocations On tsysIPLocations.StartIP <= tblAssets.IPNumeric
    And tsysIPLocations.EndIP >= tblAssets.IPNumeric
Where tblCustDevPrinter.TonerRemaining >= 0 And tblCustDevPrinter.TonerMaximum >
  0 And tblAssetCustom.State = 1
Group By tblAssetCustom.Model,
  tblCustDevPrinter.TonerRemaining,
  tblCustDevPrinter.TonerColorName,
  tblCustDevPrinter.Tonername,
  tblCustDevPrinter.TonerMaximum
Order By tblAssetCustom.Model


====================
Report: Toner Levels
====================

Code:

Select Top 1000000 tblAssetCustom.Model,
  tblCustDevPrinter.TonerRemaining As [Copies Left],
  tblCustDevPrinter.TonerMaximum As [Max. Copies],
  Floor(tblCustDevPrinter.TonerRemaining / tblCustDevPrinter.TonerMaximum *
  100) As [Remaining %],
  tblCustDevPrinter.Tonername As [Reorder #],
  tblCustDevPrinter.TonerColorName As Color,
  tblAssets.IPAddress,
  Case
    When (tblCustDevPrinter.TonerRemaining / tblCustDevPrinter.TonerMaximum *
      100) <= 10 Then 'red'
  End As foregroundcolor,
  Case
    When (tblCustDevPrinter.TonerRemaining / tblCustDevPrinter.TonerMaximum *
      100) <= 10 Then 'yellow'
  End As backgroundcolor
From tblCustDevPrinter
  Inner Join tblAssets On tblCustDevPrinter.AssetID = tblAssets.AssetID
  Inner Join tblAssetCustom On tblAssets.AssetID = tblAssetCustom.AssetID
  Inner Join tsysAssetTypes On tblAssets.Assettype = tsysAssetTypes.AssetType
  Left Join tsysIPLocations On tsysIPLocations.StartIP <= tblAssets.IPNumeric
    And tsysIPLocations.EndIP >= tblAssets.IPNumeric
Where tblCustDevPrinter.TonerRemaining >= 0 And tblCustDevPrinter.TonerMaximum >
  0 And tblAssetCustom.State = 1
Group By tblAssetCustom.Model,
  tblCustDevPrinter.TonerRemaining,
  tblCustDevPrinter.TonerMaximum,
  tblCustDevPrinter.Tonername,
rader attached the following image(s):
Toner Levels Dashboard.png

Active Discussions

Lansweeper Ticket Content Default Value
by  CPG   Go to last post Go to first unread
Last post: Today at 8:45:12 PM(UTC)
Lansweeper New status to mimic Closed
by  chris.anderson  
Go to last post Go to first unread
Last post: Today at 7:14:27 PM(UTC)
Lansweeper Active Directory Groups not scanned properly
by  cross_eur   Go to last post Go to first unread
Last post: Today at 5:45:00 PM(UTC)
Lansweeper Change Management - Voting and Tracking
by  brodiemac-too  
Go to last post Go to first unread
Last post: Today at 2:48:01 PM(UTC)
Lansweeper No incoming Mails after update 8.4.100.9
by  EDELL   Go to last post Go to first unread
Last post: Today at 2:38:50 PM(UTC)
Lansweeper Anti-Virus on Mac
by  Ian.Prentice  
Go to last post Go to first unread
Last post: Today at 9:30:32 AM(UTC)
Lansweeper how to scan intune managed win10 clients?
by  brodiemac-too   Go to last post Go to first unread
Last post: Yesterday at 9:17:07 PM(UTC)
Lansweeper Sort by in Helpdesk
by  brodiemac-too  
Go to last post Go to first unread
Last post: Yesterday at 9:15:05 PM(UTC)