Default finance dimensions In Ax 2012 R3 using X++ code

How to create Default finance dimensions  in Ax 2012 R3 using x++ code

create a new field on your table like table name Invent location
fieldType : Int64
Name : STBDefaultDimension

//On form
create new tab like named :TabSTBFinancialDimensions

class declaration

DimensionDefaultingController dimensionDefaultingController; // <pvk>
init method
 // <pvk>
    dimensionDefaultingController = DimensionDefaultingController::constructInTabWithValues(true, true, true, 0, this, TabSTBFinancialDimensions, "@SYS138487");
    dimensionDefaultingController.parmAttributeValueSetDataSource(inventLocation_ds, fieldStr(InventLOcation, STBDefaultDimension));
 // </PVK>
add methods on form>>datasource level
public void delete()
{
    super();
    dimensionDefaultingController.deleted();
}
public void write()
{
  
    dimensionDefaultingController.writing(); // <pvk>
    super();
}

public int active()
{
    int ret;
    ret = super();
    dimensionDefaultingController.activated(); // <pvk>
    return ret;
}

public void pageActivated()
{
    dimensionDefaultingController.pageActivated();
    super();
}