Pivot table column display as "% of total"

[bdonauba]

I try to create a pivot table with columns that shout be displayed as "percent of total". I thought it is as easy as creating a DataPilotFieldReference Object set the members to the wanted values - in my case TOTAL_PERCENTAGE and "Auftrag" - and assign this object to the DataPilotField.reference member, but this doesn't do the trick. I get an extra column with "count of auftrag" but the values are not displayed as percent. If I look at the field description in the layout dialogue or with the debugger of the basic ide my settings are gone. ReferenceType is 0 and ReferenceField is "".

Code: Select all

    dim fieldABNummerPercent
    'fieldABNummerPercent = Fields.getByIndex(0)
    fieldABNummerPercent =Fields.getByName("Auftrag")
    
    fieldABNummerPercent.Orientation = com.sun.star.sheet.DataPilotFieldOrientation.DATA
    fieldABNummerPercent.Function = com.sun.star.sheet.GeneralFunction.COUNT
    
    dim reference as new com.sun.star.sheet.DataPilotFieldReference
    fieldABNummerPercent.reference = reference
    
    reference.ReferenceType=com.sun.star.sheet.DataPilotFieldReferenceType.TOTAL_PERCENTAGE '7
    reference.referenceField="Auftrag"
    reference.referenceItemType=0
    'reference.referenceitemName=""
    
    
    fieldABNummerPercent.setName("gesamt %")