แสดง Description ของ Dimension

display str departmentName()
{
    InventJournalTrans _InventJournalTrans;
    Dimensions         _Dimensions;
    str     30         tmpDimensionCode;
    ;

    select _InventJournalTrans
    where  _InventJournalTrans.JournalId == InventTrans.TransRefId;
    tmpDimensionCode =_InventJournalTrans.Dimension[1];

    select _Dimensions
    where _Dimensions.Num == tmpDimensionCode
       && _Dimensions.DimensionCode == 0;               // Enum

    return _Dimensions.Description;
}



display str CostCenterName()
{
    InventJournalTrans _InventJournalTrans;
    Dimensions         _Dimensions;
    str     30         tmpDimensionCode;
    ;

    select _InventJournalTrans
    where  _InventJournalTrans.JournalId == InventTrans.TransRefId;
    tmpDimensionCode =_InventJournalTrans.Dimension[2];

    select _Dimensions
    where _Dimensions.Num == tmpDimensionCode
       && _Dimensions.DimensionCode == 1;

    return _Dimensions.Description;
}


display str PurposeName()
{
    InventJournalTrans _InventJournalTrans;
    Dimensions         _Dimensions;
    str     30         tmpDimensionCode;
    ;

    select _InventJournalTrans
    where  _InventJournalTrans.JournalId == InventTrans.TransRefId;
    tmpDimensionCode =_InventJournalTrans.Dimension[3];

    select _Dimensions
    where _Dimensions.Num == tmpDimensionCode
       && _Dimensions.DimensionCode == 2;

    return _Dimensions.Description;
}