It may not be a perfect result, but you can try to fill in some of the gaps by applying a positive buffer to the shape before it is dissolved and then a negative buffer to the dissolved shape.
CREATE VIEW Product
,GEOMETRY::UnionAggregate(PL.SHAPE.STBuffer(1)).STBuffer(-1) as Shape
FROM ParcelProductInfo PPI
JOIN ParcelLayer PL ...