Бюджеты

[DA_NEAL]

как и сказал rmv думаю надо сделать следующее:

1. Завести глобальную переменную tmpItem в кодюните Item Budget Management
2. В одной из функций вызываемых из формы (думаю ItemBudgetManagement.ValidateLineDimCode и возможно на BudgetNameSelection) встроить код который по вашей логике пробегается по ItemBudgetEntry и вставляет записи в таблицу tmpItem.
3. в функция FindRec и NextRec заменить переменную Item в коде на tmpItem

FindRec

DimOption::Item:
BEGIN
tmpItem."No." := DimCodeBuf.Code;
IF ItemFilter <> '' THEN
tmpItem.SETFILTER("No.",ItemFilter);
Found := tmpItem.FIND(Which);
IF Found THEN
CopyItemToBuf(tmpItem,DimCodeBuf);
END;


NextRec

DimOption::Item:
BEGIN
tmpItem."No." := DimCodeBuf.Code;
IF ItemFilter <> '' THEN
tmpItem.SETFILTER("No.",ItemFilter);
ResultSteps := tmpItem.NEXT(Steps);

IF ResultSteps <> 0 THEN
CopyItemToBuf(tmpItem,DimCodeBuf)
END;