Показать сообщение отдельно
Старый 10.10.2013, 15:15   #7  
Case is offline
Case
Участник
 
89 / 10 (1) +
Регистрация: 26.09.2005
Адрес: Москва
Лечится KB2682803
ссылко: https://mbs2.microsoft.com/Knowledge...;EN-US;2682803


Create a new function in the Sales Line-Reserve codeunit (99000832) as follows:

PROCEDURE SetDeleteItemTracking@1210000(NewDeleteItemTracking: Boolean);
BEGIN
DeleteItemTracking := NewDeleteItemTracking;
END;

Change the code in the UpdateSalesLines function in the Sales-Post codeunit (80) as follows:
Existing code

...
IF RcptShptIsFound THEN BEGIN
CostAdjmt := TRUE;
...

Replacement code

...
IF RcptShptIsFound THEN BEGIN

// Add the following lines.
IF ReserveSalesLine.ReservEntryExist(SalesLine) THEN BEGIN
ReserveSalesLine.SetDeleteItemTracking(TRUE);
ReserveSalesLine.DeleteLine(SalesLine);
END;
// End of the added lines.

CostAdjmt := TRUE;
...