|
В общем кому интересно то решилось это созданием отчета На базе таблицы Item:
DataItemTable=Table27;
OnPreDataItem=BEGIN
Item.SETRANGE("No.",OldItemCode1);
END;
OnAfterGetRecord=VAR
ItemLocal@1101970000 : Record 27;
BEGIN
IF (OldItemCode1 <> '') AND (NewItemCode <> '') THEN
WITH Item DO BEGIN
ItemLocal.GET(NewItemCode);
TempItem.INIT;
TempItem.TRANSFERFIELDS(ItemLocal);
ItemLocal.DELETE;
BinContent.RESET;
BinContent.SETRANGE("Item No.",OldItemCode1);
BinContent.DELETEALL;
ItemUnitOfMeasure.RESET;
ItemUnitOfMeasure.SETRANGE("Item No.",OldItemCode1);
ItemUnitOfMeasure.DELETEALL;
AvgCostAdjmtEntryPoint.RESET;
AvgCostAdjmtEntryPoint.SETRANGE("Item No.",OldItemCode1);
AvgCostAdjmtEntryPoint.DELETEALL;
SalesPrice.RESET;
SalesPrice.SETRANGE("Item No.",OldItemCode1);
SalesPrice.DELETEALL;
ItemItemGroup.RESET;
ItemItemGroup.SETRANGE("Item No.",OldItemCode1);
ItemItemGroup.DELETEALL;
IF RENAME(NewItemCode) THEN BEGIN
TRANSFERFIELDS(TempItem);
MODIFY;
END ELSE BEGIN
TempItem.INSERT;
END;
END;
END;
}
Некоторые таблицы не из стандартной конфигурации (Sales price, ItemItemGroup). Но работает отлично и вроде корректно. Соединяет товары вместе с операциями.
Всем спасибо за ответы.
|