Ця стаття відноситься до Microsoft Dynamics NAV для всіх мови.
Причини
У Microsoft Dynamics NAV під час використання заявка на аркуші, щоб створити замовлення на закупівлю або вручну, під час створення замовлення, відправлення стрілку та спеціальні замовлення не вважаю, визначені інформацію про пов'язані обробка замовлення. Таким чином, опис, опис 2 та адреса доставки, замовлення заголовок і рядки не виконуйте через прив'язаний до придбання порядку.
Ця проблема виникає в таких продуктів:
-
Microsoft Dynamics NAV 2009 пакет оновлень 1 (SP1)
-
Microsoft Dynamics NAV 2009 R2
Вирішення
Відомості про виправлення
Корпорація Майкрософт випустила підтримуване виправлення доступна. Однак, застосовувати лише для вирішення проблеми, описаної в цій статті. Він придатний лише для систем, які зазнають цієї конкретної проблеми. Те, що це виправлення може потребувати додаткового тестування. Таким чином, якщо ви не завдає значної, рекомендовано почекати до виходу чергового пакета оновлень Microsoft Dynamics NAV 2009 немає або наступної версії Microsoft Dynamics NAV, який містить це виправлення.
Примітка. В окремих випадках оплату звернення до служби підтримки може бути скасовано якщо технічної підтримки професійного для Microsoft Dynamics і пов'язані продукти визначає телефонів служби. Плата стягується на додаткові питання і проблеми, які не пов'язані з оновленням.
Відомості про інсталяцію
Корпорація Майкрософт надає приклади програмного коду тільки для ілюстрації, без гарантій – прямих або інших. Це включає, але не обмежується, будь-яких гарантій придатності до продажу та придатності для певної мети. У цій статті припускається, що ви знайомі з, що демонструє мову програмування та інструменти, які використовуються для створення та налагодження процедури. Співробітники служби підтримки корпорації Майкрософт можуть пояснити функціональні особливості кожної конкретної процедури, але вони не будуть змінювати приклади для реалізації додаткових можливостей або створювати процедури на вимогу окремих користувачів.
Примітка. Перш ніж інсталювати це виправлення, переконайтеся, що всі користувачі Microsoft Navision-клієнт відключився системи. Пакет оновлень містить служб Microsoft Navision застосунків (NAS) клієнта користувачів. Ви повинні тільки клієнт користувача, який увійшов до системи, під час виконання цього виправлення.
Щоб застосувати це виправлення, потрібно мати ліцензію для розробників.
Корпорація Майкрософт рекомендує, що обліковий запис користувача Windows, вхід вікна або у вікні бази даних вхід призначити "Супер" роль ID. Якщо обліковий запис користувача не призначено роль ID "Супер", необхідно переконатися, що обліковий запис користувача, має такі дозволи:
-
Змінити дозвіл об'єкт, який буде змінити.
-
Права для виконання системи об'єкт з Ідентифікатором 5210 об'єкт а також системи об'єкт з Ідентифікатором 9015 об'єкта.
Примітка. Маєте відповідних прав у сховища даних, якщо не потрібно виконати дані відновлення не потрібно.
Зміни коду
Примітка. Завжди тест код вирішення в середовищі контрольовані перед інсталяцією розглянутого виправлення виробництва комп'ютери.
Щоб вирішити цю проблему, виконайте такі дії.
Примітка. Прочитайте під час отримання доступу до codeunit (333), тому що різні для Північної Америки версії W1. Як тут теги, для початку та зупинки для кожної версії.
-
Змінити код Придбання заголовка таблиці (38), наступним чином:
-
Додайте такі постійне усьому тексті:
Text051@1091: TextConst "меню = %1 %2 замовлення поля, має бути так само, як і на обробка замовлення на %3.'; -
Установка глобального таких змінних:
-
Ім'я: NameAddressDetails; Тип: Текст, [512];
-
Ім'я: NameAddressDetails2; Тип: Текст, [512];
-
-
Додайте такі функції:
CheckAndAddShipToAdd@46 (SalesHeader@1000: запис 36; ShowError@1001: Логічних): логічний вираз;
VAR PurchLine2@1002: Запис 39;
Додайте наведений нижче код функції:IF ShowError THEN BEGIN PurchLine2.RESET;
PurchLine2.SETRANGE("Document Type","Document Type"::Order);
PurchLine2.SETRANGE("Document No.","No.");
IF NOT PurchLine2.ISEMPTY THEN BEGIN
IF "Ship-to Name" <>SalesHeader."Ship-to Name" THEN
ERROR(Text051,FIELDCAPTION("Ship-to Name"),"No.",SalesHeader."No.");
IF "Ship-to Name 2" <>SalesHeader."Ship-to Name 2" THEN
ERROR(Text051,FIELDCAPTION("Ship-to Name 2"),"No.",SalesHeader."No.");
IF ("Ship-to Address" <>SalesHeader."Ship-to Address") THEN
ERROR(Text051,FIELDCAPTION("Ship-to Address"),"No.",SalesHeader."No.");
IF ("Ship-to Address 2" <> SalesHeader."Ship-to Address 2") THEN
ERROR(Text051,FIELDCAPTION("Ship-to Address 2"),"No.",SalesHeader."No.");
IF ("Ship-to Post Code" <>SalesHeader."Ship-to Post Code") THEN
ERROR(Text051,FIELDCAPTION("Ship-to Post Code"),"No.",SalesHeader."No.");
IF ("Ship-to City" <>SalesHeader."Ship-to City") THEN
ERROR(Text051,FIELDCAPTION("Ship-to City"),"No.",SalesHeader."No.");
IF ("Ship-to Contact" <>SalesHeader."Ship-to Contact") THEN
ERROR(Text051,FIELDCAPTION("Ship-to Contact"),"No.",SalesHeader."No.");
END ELSE BEGIN
// no purchase line exists
"Ship-to Name" := SalesHeader."Ship-to Name";
"Ship-to Name 2" := SalesHeader."Ship-to Name 2";
"Ship-to Address" := SalesHeader."Ship-to Address";
"Ship-to Address 2" := SalesHeader."Ship-to Address 2";
"Ship-to Post Code" := SalesHeader."Ship-to Post Code";
"Ship-to City" := SalesHeader."Ship-to City";
"Ship-to Contact" := SalesHeader."Ship-to Contact";
END;
END ELSE BEGIN
NameAddressDetails :=
SalesHeader."Ship-to Name" + SalesHeader."Ship-to Name 2" +
SalesHeader."Ship-to Address" + SalesHeader."Ship-to Address 2" +
SalesHeader."Ship-to Post Code" + SalesHeader."Ship-to City" +
SalesHeader."Ship-to Contact";
IF NameAddressDetails2 = '' THEN
NameAddressDetails2 := NameAddressDetails;
EXIT(NameAddressDetails2 = NameAddressDetails);
END; -
Додайте такі функції:
DropShptSplOrderExists@48 (SalesHeader@1000: запис 36): логічний вираз;
VAR SalesLine2@1001: Запис 37;
Додайте наведений нижче код функції:// returns TRUE if sales is either Drop Shipment of Special OrderSalesLine2.RESET;
SalesLine2.SETRANGE("Document Type",SalesLine2."Document Type"::Order);
SalesLine2.SETRANGE("Document No.",SalesHeader."No.");
SalesLine2.SETRANGE("Drop Shipment",TRUE);
IF NOT SalesLine2.ISEMPTY THEN
EXIT(TRUE);
SalesLine2.SETRANGE("Drop Shipment");
SalesLine2.SETRANGE("Special Order",TRUE);
EXIT(NOT SalesLine2.ISEMPTY);
-
-
Змін у звіті про Отримання замовлення для продажу (698), функція InsertReqWkshLine наступним чином:
Наявний код... Quantity,
ROUND(SalesLine."Outstanding Quantity" * SalesLine."Qty. per Unit of Measure" / "Qty. per Unit of Measure",0.00001));
"Sales Order No." := SalesLine."Document No.";
"Sales Order Line No." := SalesLine."Line No.";
"Sell-to Customer No." := SalesLine."Sell-to Customer No.";
SalesHeader.GET(1,SalesLine."Document No.");
IF SpecOrder <>1 THEN
"Ship-to Code" := SalesHeader."Ship-to Code";
"Item Category Code" := SalesLine."Item Category Code";
Nonstock := SalesLine.Nonstock;
...Заміна код
... Quantity,
ROUND(SalesLine."Outstanding Quantity" * SalesLine."Qty. per Unit of Measure" / "Qty. per Unit of Measure",0.00001));
"Sales Order No." := SalesLine."Document No.";
"Sales Order Line No." := SalesLine."Line No.";
"Sell-to Customer No." := SalesLine."Sell-to Customer No.";
// Add the following lines.
Description := SalesLine.Description;
"Description 2" := SalesLine."Description 2";
// End of the added lines.
SalesHeader.GET(1,SalesLine."Document No.");
IF SpecOrder <>1 THEN
"Ship-to Code" := SalesHeader."Ship-to Code";
"Item Category Code" := SalesLine."Item Category Code";
Nonstock := SalesLine.Nonstock;
... -
Змінити код код функції в на Purch.-отримання вхідних повідомлень Shpt. codeunit (76), як описано нижче:
Наявний код... IF RECORDLEVELLOCKING THEN
LOCKTABLE;
SalesHeader.TESTFIELD("Document Type",SalesHeader."Document Type"::Order);
TESTFIELD("Sell-to Customer No.",SalesHeader."Sell-to Customer No.");
TESTFIELD("Ship-to Code",SalesHeader."Ship-to Code");
PurchLine.LOCKTABLE;
IF NOT RECORDLEVELLOCKING THEN
LOCKTABLE(TRUE,TRUE); // Only version check
SalesLine.LOCKTABLE;
...
PurchLine."Document Type" := PurchLine."Document Type"::Order;
PurchLine."Document No." := "No.";
PurchLine."Line No." := NextLineNo;
CopyDocMgt.TransfldsFromSalesToPurchLine(SalesLine,PurchLine);
PurchLine.Description := SalesLine.Description;
PurchLine."Sales Order No." := SalesLine."Document No.";
PurchLine."Sales Order Line No." := SalesLine."Line No.";
PurchLine."Drop Shipment" := TRUE;
EVALUATE(PurchLine."Inbound Whse. Handling Time",'<0D>');
PurchLine.VALIDATE("Inbound Whse. Handling Time");
...Заміна код
... IF RECORDLEVELLOCKING THEN
LOCKTABLE;
SalesHeader.TESTFIELD("Document Type",SalesHeader."Document Type"::Order);
TESTFIELD("Sell-to Customer No.",SalesHeader."Sell-to Customer No.");
TESTFIELD("Ship-to Code",SalesHeader."Ship-to Code");
// Add the following lines.
IF DropShptSplOrderExists(SalesHeader) THEN
CheckAndAddShipToAdd(SalesHeader,TRUE);
// End of the added lines.
PurchLine.LOCKTABLE;
IF NOT RECORDLEVELLOCKING THEN
LOCKTABLE(TRUE,TRUE); // Only version check
SalesLine.LOCKTABLE;
...
PurchLine."Document Type" := PurchLine."Document Type"::Order;
PurchLine."Document No." := "No.";
PurchLine."Line No." := NextLineNo;
CopyDocMgt.TransfldsFromSalesToPurchLine(SalesLine,PurchLine);
PurchLine.Description := SalesLine.Description;
// Add the following line.
PurchLine."Description 2" := SalesLine."Description 2";
// End of the added line.
PurchLine."Sales Order No." := SalesLine."Document No.";
PurchLine."Sales Order Line No." := SalesLine."Line No.";
PurchLine."Drop Shipment" := TRUE;
EVALUATE(PurchLine."Inbound Whse. Handling Time",'<0D>');
PurchLine.VALIDATE("Inbound Whse. Handling Time");
... -
Змін у ReqJnlManagement -codeunit (330), функція GetDescriptionAndRcptName наступним чином:
Наявний код... ReqLine.Type::"G/L Account":
IF GLAcc.GET(ReqLine."No.") THEN
Description := GLAcc.Name
ELSE
Description := '';
// Delete the following lines.
ReqLine.Type::Item:
IF Item.GET(ReqLine."No.") THEN
Description := Item.Description
ELSE
Description := '';
// End of the deleted lines.
END;
END;
IF ReqLine."Vendor No." = '' THEN
BuyFromVendorName := ''
...Заміна код
... ReqLine.Type::"G/L Account":
IF GLAcc.GET(ReqLine."No.") THEN
Description := GLAcc.Name
ELSE
Description := '';
END;
END;
IF ReqLine."Vendor No." = '' THEN
BuyFromVendorName := ''
... -
Примітка Codeunit (333) має інший код версії в усьому світі проти Північної Америки-версію. Правильний розділ можна використовувати для вирішення проблем з інсталяцією.
Для версії Північної Америки, імена яких ПОЧИНАЮТЬСЯ codeunit (333), змін до вимагає вашого р. Wksh.-замовлення, переконайтеся, наступним чином:-
Додайте наведену нижче глобальну змінну.
-
Ім'я: DropShptSpecialOrderExists;
-
Тип: Логічних;
-
-
Додати локальний таких змінних InsertPurchOrderLineфункції:
-
Ім'я: SalesHeader; Тип: Запис, (36);
-
Ім'я: DropShptSplOrderDiffAddress; Тип: Логічних;
-
Ім'я: CreateNewRecord; Тип: Логічних;
-
-
Змінити код функції InsertPurchOrderLineнаступним чином:
Наявний код...// Delete the following lines.
WITH ReqLine2 DO BEGIN
IF ("No." = '') OR ("Vendor No." = '') OR (Quantity = 0) THEN
EXIT;
IF NOT PurchasingCode.GET("Purchasing Code") THEN
PurchasingCode."Special Order" := FALSE;
IF (PurchasingCode."Special Order" AND
(PurchSetup."Combine Special Orders Default" =
PurchSetup."Combine Special Orders Default"::"Always Combine") AND
((PurchOrderHeader."Buy-from Vendor No." <>"Vendor No.") OR
(PurchOrderHeader."Location Code" <> "Location Code") OR
(PurchOrderHeader."Currency Code" <>"Currency Code") OR
(PrevPurchCode <>"Purchasing Code"))) OR
(NOT PurchasingCode."Special Order" AND
((PurchOrderHeader."Buy-from Vendor No." <>"Vendor No.") OR
(PurchOrderHeader."Location Code" <>"Location Code") OR
(PurchOrderHeader."Sell-to Customer No." <>"Sell-to Customer No.") OR
(PrevShipToCode <>"Ship-to Code") OR
(PurchOrderHeader."Order Address Code" <> "Order Address Code") OR
(PurchOrderHeader."Currency Code" <> "Currency Code") OR
(PrevPurchCode <>"Purchasing Code")))
THEN BEGIN
InsertHeader(ReqLine2);
LineCount := 0;
NextLineNo := 0;
PrevPurchCode := "Purchasing Code";
PrevShipToCode := "Ship-to Code";
END;
IF (PurchasingCode."Special Order") AND
(PurchSetup."Combine Special Orders Default" =
PurchSetup."Combine Special Orders Default"::"Never Combine") AND
((PurchOrderHeader."Buy-from Vendor No." <>"Vendor No.") OR
(PurchOrderHeader."Location Code" <> "Location Code") OR
(PurchOrderHeader."Currency Code" <>"Currency Code") OR
(PrevPurchCode <> "Purchasing Code")) THEN BEGIN
InsertHeader(ReqLine2);
END;
// End of the deleted lines.
LineCount := LineCount + 1;
IF NOT PlanningResiliency THEN
Window.UPDATE(4,LineCount);
...Заміна код
...// Add the following lines.
WITH ReqLine2 DO BEGIN
IF ("No." = '') OR ("Vendor No." = '') OR (Quantity = 0) THEN
EXIT;
DropShptSpecialOrderExists := FALSE;
IF SalesHeader.GET(SalesHeader."Document Type"::Order,"Sales Order No.") THEN BEGIN
DropShptSpecialOrderExists := PurchOrderHeader.DropShptSplOrderExists(SalesHeader);
IF DropShptSpecialOrderExists THEN
DropShptSplOrderDiffAddress :=
NOT PurchOrderHeader.CheckAndAddShipToAdd(SalesHeader,FALSE);
END;
IF NOT PurchasingCode.GET("Purchasing Code") THEN
PurchasingCode."Special Order" := FALSE;
CreateNewRecord :=
(PurchOrderHeader."Buy-from Vendor No." <>"Vendor No.") OR
(PurchOrderHeader."Location Code" <> "Location Code") OR
(PurchOrderHeader."Currency Code" <> "Currency Code") OR
(PrevPurchCode <>"Purchasing Code") OR
DropShptSplOrderDiffAddress;
IF PurchasingCode."Special Order" AND CreateNewRecord THEN BEGIN
InsertHeader(ReqLine2);
IF PurchSetup."Combine Special Orders Default" =
PurchSetup."Combine Special Orders Default"::"Always Combine"
THEN BEGIN
LineCount := 0;
NextLineNo := 0;
PrevPurchCode := "Purchasing Code";
PrevShipToCode := "Ship-to Code";
END;
END;
IF NOT PurchasingCode."Special Order" AND
(CreateNewRecord OR
(PurchOrderHeader."Sell-to Customer No." <>"Sell-to Customer No.") OR
(PrevShipToCode <>"Ship-to Code") OR
(PurchOrderHeader."Order Address Code" <>"Order Address Code"))
THEN BEGIN
InsertHeader(ReqLine2);
LineCount := 0;
NextLineNo := 0;
PrevPurchCode := "Purchasing Code";
PrevShipToCode := "Ship-to Code";
END;
// End of the added lines.
LineCount := LineCount + 1;
IF NOT PlanningResiliency THEN
Window.UPDATE(4,LineCount);
... -
Змінити код функції InsertHeader наступним чином:
Додайте такі локальну змінну.-
Ім'я: SalesHeader;
-
Тип: Запис, (36);
Наявний код
... WITH ReqLine2 DO BEGIN
OrderCounter := OrderCounter + 1;
IF NOT PlanningResiliency THEN
Window.UPDATE(3,OrderCounter);
PurchSetup.GET;
PurchSetup.TESTFIELD("Order Nos.");
// Delete the following line.
CLEAR(PurchOrderHeader);
// End of the deleted line.
PurchOrderHeader.INIT;
PurchOrderHeader."Document Type" := PurchOrderHeader."Document Type"::Order;
PurchOrderHeader."No." := '';
...
PurchOrderHeader.VALIDATE("Location Code",ReqLine2."Location Code");
END ELSE BEGIN
PurchOrderHeader.VALIDATE("Location Code",ReqLine2."Location Code");
PurchOrderHeader.SetShipToForSpecOrder;
END;
PurchOrderHeader.MODIFY;
COMMIT;
IF RECORDLEVELLOCKING THEN
LOCKTABLE;
PurchOrderHeader.MARK(TRUE);
END;
...Заміна код
...WITH ReqLine2 DO BEGIN
OrderCounter := OrderCounter + 1;
IF NOT PlanningResiliency THEN
Window.UPDATE(3,OrderCounter);
PurchSetup.GET;
PurchSetup.TESTFIELD("Order Nos.");
PurchOrderHeader.INIT;
PurchOrderHeader."Document Type" := PurchOrderHeader."Document Type"::Order;
PurchOrderHeader."No." := '';
...
PurchOrderHeader.VALIDATE("Location Code",ReqLine2."Location Code");
END ELSE BEGIN
PurchOrderHeader.VALIDATE("Location Code",ReqLine2."Location Code");
PurchOrderHeader.SetShipToForSpecOrder;
END;
// Add the following lines.
IF DropShptSpecialOrderExists THEN BEGIN
SalesHeader.GET(SalesHeader."Document Type"::Order,"Sales Order No.");
PurchOrderHeader."Ship-to Name" := SalesHeader."Ship-to Name";
PurchOrderHeader."Ship-to Name 2" := SalesHeader."Ship-to Name 2";
PurchOrderHeader."Ship-to Address" := SalesHeader."Ship-to Address";
PurchOrderHeader."Ship-to Address 2" := SalesHeader."Ship-to Address 2";
PurchOrderHeader."Ship-to Post Code" := SalesHeader."Ship-to Post Code";
PurchOrderHeader."Ship-to City" := SalesHeader."Ship-to City";
PurchOrderHeader."Ship-to Contact" := SalesHeader."Ship-to Contact";
END;
// End of the added lines.
PurchOrderHeader.MODIFY;
COMMIT;
IF RECORDLEVELLOCKING THEN
LOCKTABLE;
PurchOrderHeader.MARK(TRUE);
END;
... -
Для версії W1, імена яких ПОЧИНАЮТЬСЯ codeunit (333), змін до вимагає вашого р. Wksh.-порядок, переконайтеся, наступним чином:
-
Додайте наведену нижче глобальну змінну.
-
Ім'я: DropShptSpecialOrderExists;
-
Тип: Логічних;
-
-
Додати локальний таких змінних InsertPurchOrderLineфункції:
-
Ім'я: SalesHeader; Тип: Запис, (36);
-
Ім'я: DropShptSplOrderDiffAddress; Тип: Логічних;
-
-
Змін у функції InsertPurchOrderLineнаступним чином:
Наявний код... WITH ReqLine2 DO BEGIN
IF ("No." = '') OR ("Vendor No." = '') OR (Quantity = 0) THEN
EXIT;
IF (PurchOrderHeader."Buy-from Vendor No." <>"Vendor No.") OR
(PurchOrderHeader."Sell-to Customer No."<> "Sell-to Customer No.") OR
(PrevShipToCode <> "Ship-to Code") OR
(PurchOrderHeader."Order Address Code" <>"Order Address Code") OR
(PurchOrderHeader."Currency Code" <>"Currency Code") OR
// Delete the following line.
(PrevPurchCode <>"Purchasing Code")
// End of the deleted line.
THEN BEGIN
InsertHeader(ReqLine2);
LineCount := 0;
NextLineNo := 0;
PrevPurchCode := "Purchasing Code";
PrevShipToCode := "Ship-to Code";
END;
...Заміна код
... WITH ReqLine2 DO BEGIN
IF ("No." = '') OR ("Vendor No." = '') OR (Quantity = 0) THEN
EXIT;
// Add the following lines.
DropShptSpecialOrderExists := FALSE;
IF SalesHeader.GET(SalesHeader."Document Type"::Order,"Sales Order No.") THEN BEGIN
DropShptSpecialOrderExists := PurchOrderHeader.DropShptSplOrderExists(SalesHeader);
IF DropShptSpecialOrderExists THEN
DropShptSplOrderDiffAddress :=
NOT PurchOrderHeader.CheckAndAddShipToAdd(SalesHeader,FALSE);
END;
// End of the added lines.
IF (PurchOrderHeader."Buy-from Vendor No." <>"Vendor No.") OR
(PurchOrderHeader."Sell-to Customer No."<> "Sell-to Customer No.") OR
(PrevShipToCode <> "Ship-to Code") OR
(PurchOrderHeader."Order Address Code" <>"Order Address Code") OR
(PurchOrderHeader."Currency Code" <>"Currency Code") OR
// Add the following lines.
(PrevPurchCode <> "Purchasing Code") OR
(DropShptSplOrderDiffAddress)
// End of the added lines.
THEN BEGIN
InsertHeader(ReqLine2);
LineCount := 0;
NextLineNo := 0;
PrevPurchCode := "Purchasing Code";
PrevShipToCode := "Ship-to Code";
END;
... -
Змінити код функції InsertHeader наступним чином:
Додайте такі локальну змінну.-
Ім'я: SalesHeader;
-
Тип: Запис, (36);
Наявний код
... END ELSE BEGIN
PurchOrderHeader.VALIDATE("Location Code",ReqLine2."Location Code");
PurchOrderHeader.SetShipToForSpecOrder;
END;
PurchOrderHeader.MODIFY;
COMMIT;
IF RECORDLEVELLOCKING THEN
LOCKTABLE;
PurchOrderHeader.MARK(TRUE);
END;
...Заміна код
... END ELSE BEGIN
PurchOrderHeader.VALIDATE("Location Code",ReqLine2."Location Code");
PurchOrderHeader.SetShipToForSpecOrder;
END;
// Add the following lines.
IF DropShptSpecialOrderExists THEN BEGIN
IF SalesHeader.GET(SalesHeader."Document Type"::Order,"Sales Order No.") THEN BEGIN
PurchOrderHeader."Ship-to Name" := SalesHeader."Ship-to Name";
PurchOrderHeader."Ship-to Name 2" := SalesHeader."Ship-to Name 2";
PurchOrderHeader."Ship-to Address" := SalesHeader."Ship-to Address";
PurchOrderHeader."Ship-to Address 2" := SalesHeader."Ship-to Address 2";
PurchOrderHeader."Ship-to Post Code" := SalesHeader."Ship-to Post Code";
PurchOrderHeader."Ship-to City" := SalesHeader."Ship-to City";
PurchOrderHeader."Ship-to Contact" := SalesHeader."Ship-to Contact";
END;
// End of the added lines.
PurchOrderHeader.MODIFY;
COMMIT;
IF RECORDLEVELLOCKING THEN
LOCKTABLE;
PurchOrderHeader.MARK(TRUE);
END;
... -
-
-
Змін у DIST. інтеграція -codeunit (5702), функція EnterPurchaseItemCrossRef наступним чином:
Наявний код... IF Found THEN BEGIN
"Cross-Reference No." := ItemCrossReference."Cross-Reference No.";
"Unit of Measure (Cross Ref.)" := ItemCrossReference."Unit of Measure";
"Cross-Reference Type" := ItemCrossReference."Cross-Reference Type";
// Delete the following lines.
IF ItemCrossReference.Description <>'' THEN BEGIN
Description := ItemCrossReference.Description;
"Description 2" := '';
END;
END ELSE BEGIN
"Cross-Reference No." := '';
"Cross-Reference Type" := "Cross-Reference Type"::" ";
"Cross-Reference Type No." := '';
IF "Variant Code" <>'' THEN BEGIN
ItemVariant.GET("No.","Variant Code");
Description := ItemVariant.Description;
"Description 2" := ItemVariant."Description 2";
END ELSE BEGIN
Item.GET("No.");
Description := Item.Description;
"Description 2" := Item."Description 2";
END;
// End of the deleted lines.
GetItemTranslation;
END;
END;
...Заміна код
... IF Found THEN BEGIN
"Cross-Reference No." := ItemCrossReference."Cross-Reference No.";
"Unit of Measure (Cross Ref.)" := ItemCrossReference."Unit of Measure";
"Cross-Reference Type" := ItemCrossReference."Cross-Reference Type";
// Add the following lines.
"Cross-Reference Type No." := ItemCrossReference."Cross-Reference Type No.";
END ELSE BEGIN
"Cross-Reference No." := '';
"Cross-Reference Type" := "Cross-Reference Type"::" ";
"Cross-Reference Type No." := '';
// End of the added lines.
GetItemTranslation;
END;
END;
... -
Змін в DIST. інтеграція -codeunit (5702), функція GetSpecialOrders наступним чином:
Наявний код... IF RECORDLEVELLOCKING THEN
LOCKTABLE;
SalesHeader.TESTFIELD("Document Type",SalesHeader."Document Type"::Order);
TESTFIELD("Sell-to Customer No.",SalesHeader."Sell-to Customer No.");
TESTFIELD("Ship-to Code",SalesHeader."Ship-to Code");
// Delete the following line.
PurchHeader.SetShipToForSpecOrder;
// End of the deleted line.
PurchLine.LOCKTABLE;
IF NOT RECORDLEVELLOCKING THEN
LOCKTABLE(TRUE,TRUE); // Only version check
SalesLine.LOCKTABLE;
...Заміна код
... IF RECORDLEVELLOCKING THEN
LOCKTABLE;
SalesHeader.TESTFIELD("Document Type",SalesHeader."Document Type"::Order);
TESTFIELD("Sell-to Customer No.",SalesHeader."Sell-to Customer No.");
TESTFIELD("Ship-to Code",SalesHeader."Ship-to Code");
// Add the following lines.
IF DropShptSplOrderExists(SalesHeader) THEN
CheckAndAddShipToAdd(SalesHeader,TRUE);
// End of the added lines.
PurchLine.LOCKTABLE;
IF NOT RECORDLEVELLOCKING THEN
LOCKTABLE(TRUE,TRUE); // Only version check
SalesLine.LOCKTABLE;
... -
Змін у Копії документа Mgt. -codeunit (6620), функція TransfldsFromSalesToPurchLine наступним чином:
Наявний код... "Expected Receipt Date" := FromSalesLine."Shipment Date";
"Bin Code" := FromSalesLine."Bin Code";
VALIDATE(Quantity,FromSalesLine."Outstanding Quantity");
VALIDATE("Return Reason Code",FromSalesLine."Return Reason Code");
VALIDATE("Direct Unit Cost");
END;
...Заміна код
... "Expected Receipt Date" := FromSalesLine."Shipment Date";
"Bin Code" := FromSalesLine."Bin Code";
VALIDATE(Quantity,FromSalesLine."Outstanding Quantity");
VALIDATE("Return Reason Code",FromSalesLine."Return Reason Code");
VALIDATE("Direct Unit Cost");
// Add the following lines.
Description := FromSalesLine.Description;
"Description 2" := FromSalesLine."Description 2";
// End of the added lines.
END;
...
Попередні вимоги
Ви повинні мати одну з таких продуктів, щоб застосувати це виправлення:
-
Microsoft Dynamics NAV 2009 пакет оновлень 1 (SP1)
-
Microsoft Dynamics NAV 2009 R2
Відомості про видалення
Це виправлення не можна видалити.
Стан
Корпорація Майкрософт підтвердила існування цієї неполадки у продуктах Майкрософт, перелічених у розділі "Застосовується до".
Посилання
VSTF DynamicsNAV-SE: 238210
Примітка. Це "Швидка публікація" статті, надана службою підтримки корпорації Майкрософт. Відомості в цій статті надано без змін у відповідь на повідомлення про проблеми. З огляду на швидкість публікації матеріали можуть містити орфографічні помилки. Їх може бути змінено в будь-який час без повідомлення. Щоб отримати додаткові відомості, див. Умови використання.
