|
20.02.2013, 20:19 | #1 |
Участник
|
В общем кому интересно то решилось это созданием отчета На базе таблицы 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). Но работает отлично и вроде корректно. Соединяет товары вместе с операциями. Всем спасибо за ответы. |
|