working on the vendor but here is a start
Select Top 1000000 tblAssets.Username,
tblAssets.AssetUnique,
tblAssetCustom.AssetID,
tblAssetCustom.Model,
tblAssetCustom.Serialnumber As Serial,
tblAssets.IPAddress,
tsysOS.OSname,
tblAssets.Domain,
tblAssetCustom.Warrantydate As [Warranty Expiration],
tblAssetCustom.PurchaseDate As [Purchase Date],
tsysOS.Image As icon
From tblAssetCustom
Inner Join tblAssets On tblAssetCustom.AssetID = tblAssets.AssetID
Inner Join tsysOS On tblAssets.OScode = tsysOS.OScode
Where (tblAssetCustom.PurchaseDate Is Not Null And tblAssetCustom.State = 1) Or
(tblAssetCustom.Warrantydate Is Not Null And tblAssetCustom.State = 1)
Order By [Warranty Expiration] Desc