DSolve[-((a*x + a*x*Log[x*y[x]] - y[x])*y[x]) + x*(-(a*x) + y[x] + Log[x*y[x]]*y[x])*Derivative[1][y][x] == 0,y[x],x]