data=RandomInteger[{5 10^4,10^5},15];

PieChart3D[data,ChartStyle->54,SectorOrigin->{Automatic,1},ChartElementFunction->"ProfileSector3D",ChartLabels->(Placed[
CharacterRange["A","Z"],"RadialCallout"]),PlotRange->All,ChartBaseStyle->EdgeForm[]]