При изменении значения «Продажа Клиент Но» в заказе на продажу в Microsoft Dynamics NAV появляется сообщение об ошибке «Невозможно изменить код склада»

Сведения об исправлении

Исправление от корпорации Майкрософт доступно. Однако оно предназначено только для устранения проблемы, описанной в этой статье. Предлагаемое исправление должно применяться исключительно в системах, в которых обнаружена эта специфическая неполадка. Это исправление может проходить дополнительное тестирование. Таким образом Если вы не подвержены серьезно эту проблему, рекомендуется дождаться следующего пакета обновления для Microsoft Dynamics NAV 2009 или следующей версии Microsoft Dynamics NAV, содержащего это исправление.

Примечание. В особых случаях оплата, предусмотренная в службу поддержки может быть отменена Если специалист службы технической поддержки Microsoft Dynamics и связанных продуктов определит, что решения проблемы является специально выпущенное. Затраты на обычные услуги службы поддержки будут применяться к дополнительным вопросам и проблемам, которые не охватываются конкретным обновлением.

Изменения кода

Примечание. Всегда тестовый код исправления в контролируемой среде, прежде чем применить исправления на производственных компьютерах.
Чтобы решить эту проблему, измените код в таблице Продажа Заголовок (36). Чтобы сделать это, выполните следующие действия.

1. Удаление постоянной следующий текст:

   Text047@1095 : TextConst 'ENU=You cannot change %1 because reservation, item tracking, or order tracking exists on the sales order.'; 

   
   

2. Измените код в функцию RecreateSalesLines следующим образом:
   Существующий код

   SalesLine.TESTFIELD("Return Qty. Received",0);              SalesLine.TESTFIELD("Shipment No.",'');
                 SalesLine.TESTFIELD("Return Receipt No.",'');
                 SalesLine.TESTFIELD("Blanket Order No.",'');
                 SalesLine.TESTFIELD("Prepmt. Amt. Inv.",0);
                 SalesLineTmp := SalesLine;
                 IF SalesLine.Nonstock THEN BEGIN
                   SalesLine.Nonstock := FALSE;
                   SalesLine.MODIFY;
                 END;
                 SalesLineTmp.INSERT;
                 RecreateReservEntry(SalesLine,0,TRUE);
                 RecreateReqLine(SalesLine,0,TRUE);
               UNTIL SalesLine.NEXT = 0;
   
   // Delete the following lines.
               IF "Location Code" <> xRec."Location Code" THEN                 
                 IF NOT TempReservEntry.ISEMPTY THEN                              
                   ERROR(Text047,FIELDCAPTION("Location Code"));               
   // End of the deleted lines.
   
               ItemChargeAssgntSales.SETRANGE("Document Type","Document Type");
               ItemChargeAssgntSales.SETRANGE("Document No.","No.");
               IF ItemChargeAssgntSales.FINDSET THEN BEGIN
   …
   

   Код для замены

   SalesLine.TESTFIELD("Return Qty. Received",0);              SalesLine.TESTFIELD("Shipment No.",'');
                 SalesLine.TESTFIELD("Return Receipt No.",'');
                 SalesLine.TESTFIELD("Blanket Order No.",'');
                 SalesLine.TESTFIELD("Prepmt. Amt. Inv.",0);
   
   // Add the following lines.
                 IF SalesLine."Location Code" <> "Location Code" THEN                      
                   SalesLine.VALIDATE("Location Code","Location Code");                     
   // End of the added lines.
   
                 SalesLineTmp := SalesLine;
                 IF SalesLine.Nonstock THEN BEGIN
                   SalesLine.Nonstock := FALSE;
                   SalesLine.MODIFY;
                 END;
                SalesLineTmp.INSERT;
                 RecreateReservEntry(SalesLine,0,TRUE);
                 RecreateReqLine(SalesLine,0,TRUE);
               UNTIL SalesLine.NEXT = 0;
   
               ItemChargeAssgntSales.SETRANGE("Document Type","Document Type");
               ItemChargeAssgntSales.SETRANGE("Document No.","No.");
               IF ItemChargeAssgntSales.FINDSET THEN BEGIN
   …