[by_HT]

DA_NEAL, не могу реализовать...
Что не правильно?

WITH DimCodeBuf DO BEGIN
  INIT;
IF ItemBudgetEntry.FIND('-') THEN REPEAT
	 IF ItemBudgetEntry."Item No." = Item."No." THEN BEGIN
  Code := Item."No.";
  Name := Item.Description;
	 END;
UNTIL ItemBudgetEntry.NEXT =0;
END;