AX365 Retail Show a dialog

This is my first example to create a dialog box
==============================================
        /////////////////////////////Hesham code added///////////////////////////////////////
       // window.open('https://javascript.info/')

        let yesButton: ClientEntities.Dialogs.IDialogResultButton = {

            id: "YES_ID",
            label: "Yes", // "Yes"

            result: "Yes"
        };

        let noButton: ClientEntities.Dialogs.IDialogResultButton = {
            id: "NO_ID",
            label: "No", // "No"
            result: "No"
        };

        let showMessageDialogClientRequestOptions: ClientEntities.Dialogs.IMessageDialogOptions = {
            title: "My Title",
            subTitle: "my Subtitle",
            message: "The message ?",
            button1: yesButton,
            button2: noButton

        };

        let showMessageDialogClientRequest: ShowMessageDialogClientRequest<ShowMessageDialogClientResponse> =
        new ShowMessageDialogClientRequest(showMessageDialogClientRequestOptions);
         this.context.runtime.executeAsync<ShowMessageDialogClientResponse>(showMessageDialogClientRequest);
        //////////////////////////////////////////////////

Gel the ledger dimension from x++ or SQL

select dimensionAttributeValueCombination.RecId,
DimensionAttribute.Name,
DimensionAttributeLevelValue.DisplayValue
 from dimensionAttributeValueCombination
         
       inner join dimensionAttributeValueGroupCombination
            on dimensionAttributeValueGroupCombination.DimensionAttributeValueCombination =
                  dimensionAttributeValueCombination.RecId
       inner join dimensionAttributeValueGroup
            on dimensionAttributeValueGroup.RecId = dimensionAttributeValueGroupCombination.DimensionAttributeValueGroup
       inner join dimensionAttributeLevelValue
            on dimensionAttributeLevelValue.DimensionAttributeValueGroup = dimensionAttributeValueGroup.RecId
       inner join dimensionAttributeValue
            on dimensionAttributeValue.RecId = dimensionAttributeLevelValue.DimensionAttributeValue
       inner join dimensionAttribute
            on dimensionAttribute.RecId = dimensionAttributeValue.DimensionAttribute
                 -- and  DimensionAttribute.Name = "Project"

-- where dimensionAttributeValueCombination.RecId = 5637174256


======================== X++====================

DimensionDefault                        d =  5637169331;
    DimensionAttributeValueSet  dimAttrValueSet;
    DimensionAttributeValueSetItem  dimAttrValueSetItem;
    DimensionAttributeValue         dimAttrValue;
    DimensionAttribute          dimAttr;
    Common      dimensionValueEntity;
    DimensionValue  dimensionValue;
    DimensionAliasName  dimensionName;
   
    dimAttrValueSet = DimensionAttributeValueSet::find(D);
    while select dimAttrValueSetItem
        where dimAttrValueSetItem.DimensionAttributeValueSet == dimAttrValueSet.RecId
    {
        dimAttrValue = DimensionAttributeValue::find(dimAttrValueSetItem.DimensionAttributeValue);
       
        dimAttr = DimensionAttribute::find(DimAttrValue.DimensionAttribute);
        dimensionvalueentity = DimensionDefaultingControllerBase::findBackingEntityInstance(
        curext(),DimAttr,dimAttrvalue.EntityInstance);
        dimensionvalue = dimattrvalue.getValue();
        info(strFmt("%1 %2",Dimensionvalue, DimAttr.Name));
    }