ServLine.RESET; ServLine.SETRANGE("Document Type","Document Type"); ServLine.SETRANGE("Document No.","Document No."); ServLine.LOCKTABLE; IF ServLine.FIND('-') THEN REPEAT NewDimSetID := DimMgt.GetDeltaDimSetID(ServLine."Dimension Set ID",NewParentDimSetID,OldParentDimSetID); IF ServLine."Dimension Set ID" <> NewDimSetID THEN BEGIN ServLine."Dimension Set ID" := NewDimSetID; DimMgt.UpdateGlobalDimFromDimSetID( //ServLine."Dimension Set ID",ServLine."Shortcut Dimension 1 Code",ServLine."Shortcut Dimension 1 Code"); ServLine."Dimension Set ID",ServLine."Shortcut Dimension 1 Code",ServLine."Shortcut Dimension 2 Code"); ServLine.MODIFY; END; UNTIL ServLine.NEXT = 0;