Its part of the default CodeUnit 408 DimensionManagement and part of SaveDefaultDim Function
See the error stop in which line 11
1SaveDefaultDim(TableID : Integer;No : Code;FieldNumber : Integer;ShortcutDimCode : Code)
2 GetGLSetup;
3 IF ShortcutDimCode <> '' THEN BEGIN
4 IF DefaultDim.GET(TableID,No,GLSetupShortcutDimCode[FieldNumber])
5 THEN BEGIN
6 DefaultDim.VALIDATE("Dimension Value Code",ShortcutDimCode);
7 DefaultDim.MODIFY;
8 END ELSE BEGIN
9 DefaultDim.INIT;
10 DefaultDim.VALIDATE("Table ID",TableID);
11 DefaultDim.VALIDATE("No.",No); = >>>> Error Stop in this Line
12 DefaultDim.VALIDATE("Dimension Code",GLSetupShortcutDimCode[FieldNumber]);
13 DefaultDim.VALIDATE("Dimension Value Code",ShortcutDimCode);
14 DefaultDim.INSERT;
15 END;
16 END ELSE
17 IF DefaultDim.GET(TableID,No,GLSetupShortcutDimCode[FieldNumber]) THEN
18 DefaultDim.DELETE;
