create default dimensions ax 2012

 create default dimensions

private RefRecId createPurchDefaultDimensions(OMOperatingUnitNumber _dept, DimensionValue _vehicleDim)

{

    DimensionAttributeValueSetStorage       dimStorage;

    RefRecId                                defaultDimensionLoc;

    

    Counter                                 i;

    DimensionAttribute                      dimensionAttribute;

    DimensionAttributeValue                 dimensionAttributeValue;

    DimensionAttributeValueSetItem          dimensionAttributeValueSetItem;

    DimensionAttributeValueSetStorage       valueSetStorage = new DimensionAttributeValueSetStorage();

    DimensionDefault                        defaultDim;

    container                               conAttribute, conAttributeValue;

    DimensionValue                          deptLoc,vehicleDim;

    

    deptLoc = _dept;    

    vehicleDim = _vehicleDim;

    conAttribute        = conNull();

    conAttributeValue   = conNull();

    conAttribute        = conIns(conAttribute,1,'Department');

    conAttributeValue   = conIns(conAttributeValue, 1, deptLoc);

    conAttribute        = conIns(conAttribute,2,'Vehicles');

    conAttributeValue   = conIns(conAttributeValue, 2, vehicleDim);

    

    for (i = 1; i <= conLen(conAttribute); i++)

    {

        dimensionAttribute = dimensionAttribute::findByName(conPeek(conAttribute,i));

        if (dimensionAttribute.RecId == 0)

        {

            continue;

        }

        if (conPeek(conAttributeValue,i) != "")

        {

            dimensionAttributeValue =  dimensionAttributeValue::findByDimensionAttributeAndValue(dimensionAttribute,conPeek(conAttributeValue,i),false,true);

            valueSetStorage.addItem(dimensionAttributeValue);

        }

        defaultDimensionLoc = valueSetStorage.save();

    }

    return defaultDimensionLoc;

}