Answered

How to set dimensions in C/AL

(0) Share

Report

Posted on by Community Member

Hi all

I am in the process of making a customized module which has a function that creates a new sales order. This function works fine, but I do not know how to add dimensions to this new sales order via C/AL.

I have setup 3 shortcut dimensions and I would like to add values for those 3 for the sales order.

My first thought was to add 3 records to Dimension set entry table (one for each dimension), but then I found out that I also need to add records to Dimension set tree note table. There must be a an easier way to do this. maybe by using CU 408 - dimension management?

If someone could give me an example of how to do this it would be greatly appreciated

Thanks

*This post is locked for comments

I have the same question (0)

All responses (15)

Answers (2)

mmv 11,471 on at

Like (0)

Report

Hi,

You may enter the data in the Dimension Set Entry table and call the GetDimensionSetID from DimensionManagement codeunit to get the Dimension Set ID and that can be allocated to the Sales Header or line as the case may be.

E.g:

NewDimID := DimMgt.GetDimensionSetID(TempDimSetEntry);

Where NewDimID is an Integer and TempDimSetEntry is Record of subtype Dimension Set Entry (it has to be a temporary table).

Was this reply helpful? Yes No
Suggested answer

4BzSoftware 6,073 on at

Like (1)

Report

Hi Albor,

You don't need to touch Dimension Set Tree Node table, it is managed by CU 408.

Process for your case:

1. As Mahesh mentioned: insert 3 dimensions into a temporary Dimension Set Entry table.

2. As Mahesh mentioned: get Dimension Set ID by calling function GetDimensionSetID of CU 408, use the temporary Dimension Set Entry table as parameter.

3. Update Dimension Set ID of Sales Order with value in step 2.

Was this reply helpful? Yes No
Verified answer

Suresh Kulla 50,243 Super User 2025 Season 2 on at

Like (1)

Report
You have to use the below code

Let's assume you want to insert a salesperson dimension

Where SALESPERSON is Dimension Code and Dimension Value is SK

DimVal.GET('SALESPERSON','SK'); TempDimSetEntry.INIT; TempDimSetEntry.VALIDATE("Dimension Code",DefDim."Dimension Code"); TempDimSetEntry.VALIDATE("Dimension Value Code",DefDim."Dimension Value Code"); TempDimSetEntry."Dimension Value ID" := DimVal."Dimension Value ID"; TempDimSetEntry.INSERT; To assign this to the created sales order (Assuming you used SalesHeader as the name of the variable for the Sales Header) SalesHeader."Dimension Set ID" := DimMgt.GetDimensionSetID(TempDimSetEntry); SalesHeader.INSERT; DimVal -- Record of type Dimension Value TempDimSetEntry - Record of type Dimension Set Entry (Make sure you set it to temporary)

Was this reply helpful? Yes No
Verified answer

Tharanga Chandrasekara 23,118 on at

Like (0)

Report
You can use following code sample

dimSetID - Integer

recPurLine - Purchase Line

recPurDim - Purchase Inv. Dimension

recDimSetEntry - Dimension Set Entry

recDimSetEntry1 - Dimension Set Entry

dimSetID := 0; recDimSet.RESET; // This is a temporary record IF recDimSet.FINDFIRST THEN REPEAT recDimSet.DELETE; UNTIL recDimSet.NEXT=0; IF recPurInvDim.FINDFIRST THEN REPEAT // Record set that has the dim values recDimSet.RESET; recDimSet.INIT; recDimSet.VALIDATE(recDimSet."Dimension Code",recPurInvDim."Dimension Code"); recDimSet.VALIDATE(recDimSet."Dimension Value Code",recPurInvDim."Dimension Value"); recDimSet.INSERT; UNTIL recPurInvDim.NEXT=0; dimSetID := 0; dimSetID:= cduDimMgt.GetDimensionSetID(recDimSet); // Get the dim set ID recDimSetEntry1.RESET; recDimSetEntry1.SETFILTER(recDimSetEntry1."Dimension Set ID",'%1',dimSetID); // check if the ID is available IF recDimSetEntry1.FINDFIRST THEN BEGIN END ELSE BEGIN IF recDimSet.FINDFIRST THEN REPEAT recDimSetEntry.RESET; recDimSetEntry.INIT; recDimSetEntry.VALIDATE(recDimSetEntry."Dimension Set ID",dimSetID); recDimSetEntry.VALIDATE(recDimSetEntry."Dimension Code",recDimSet."Dimension Code"); recDimSetEntry.VALIDATE(recDimSetEntry."Dimension Value Code",recDimSet."Dimension Value Code"); recDimSetEntry.INSERT; UNTIL recDimSet.NEXT=0; END; recPurLine.RESET; recPurLine.SETRANGE(recPurLine."Document Type",recPurLine."Document Type"::Invoice); recPurLine.SETRANGE(recPurLine."Document No.",QPurInv.Document_No); recPurLine.SETRANGE(recPurLine."Line No.",QPurInv.Line_No); IF recPurLine.FINDFIRST THEN BEGIN recPurLine."Dimension Set ID" := dimSetID; recPurLine.MODIFY; END; recPurDim.RESET; recPurDim.SETRANGE(recPurDim."Record Update",TRUE); IF recPurDim.FINDFIRST THEN REPEAT recPurDim.DELETE; UNTIL recPurDim.NEXT=0; MESSAGE('Process is completed');

Was this reply helpful? Yes No
Community Member on at

Like (1)

Report

Thank you very much for all the replies. The problem is solved!

Was this reply helpful? Yes No
Community Member on at

Like (1)

Report

I also have this problem, thank solved my problem now :)

Was this reply helpful? Yes No
AftabHussain 5 on at

Like (0)

Report
What is

DefDim?

Was this reply helpful? Yes No
Rafael B. 715 on at

Like (0)

Report

@AftabHussain,

Default Dimension table

Was this reply helpful? Yes No
javedakhtar 1,751 on at

Like (0)

Report

Hi Suresh Sir ,

TempDimSetEntry.VALIDATE("Dimension Code",DefDim."Dimension Code");

TempDimSetEntry.VALIDATE("Dimension Value Code",DefDim."Dimension Value Code");

what is the DefDim record??

Was this reply helpful? Yes No
4BzSoftware 6,073 on at

Like (0)

Report

Hi Javed Akhtar,

It is record 352 Default Dimension.

Was this reply helpful? Yes No