拖放的出貨和特定的順序不認為銷售訂單定義的有關當您使用來建立採購訂單，或當您以手動方式建立採購單在 [Microsoft 動態航行點的申請工作表

Hotfix 資訊

已經可以從 Microsoft 取得支援的 hotfix。不過，它只被用來修正本文所述的問題。它只適用於發生此特定問題的系統上。此 hotfix 可能會接受其他測試。因此，如果此問題不會嚴重影響，我們建議您等候下一步的 Microsoft 動態航行點 2009 service pack 或包含此 hotfix 的下一個 Microsoft 動態航行點版本。

注意 在特殊的情況下，通常會支援呼叫可能已被取消如果技術支援專業人員的 Microsoft 動態及相關的產品所產生的費用會決定某特定更新程式可以解決您的問題。收取支援費用會套用，如果有其他支援問題是，不能限定的特定更新程式。

程式碼變更

注意永遠測試程式碼修正在受控制的環境中才能套用到實際執行電腦的修正程式。
若要解決這個問題，請依照下列步驟執行：
注意請閱讀當您存取 codeunit (333)，因為它是北美地區 W1 版本不同。這兩這裡都與 [開始] 及 [停駐點的每個版本的標籤。

1. 變更購買的標頭資料表 (38) 中的程式碼如下所示︰

   1. 加入下列的全體文字常數︰
      Text051@1091: TextConst ' ENU = %1 在採購 %2 的欄位必須與銷售訂購 %3 的相同。 ';

   2. 加入下列的全域變數︰

      • 名稱︰ NameAddressDetails;資料類型︰ 文字 [512];

      • 名稱︰ NameAddressDetails2;資料類型︰ 文字 [512];

   3. 加入下列的函式︰
      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;
      
      

   4. 加入下列的函式︰
      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);
      
      

2. 變更中取得的銷售訂單報表 (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;  
   ...
   

3. 變更中的程式碼函式中的程式碼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");          
   ...
   

4. 變更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 := ''    
   ...
   

5. 附註Codeunit (333) 會有不同的程式碼，在世界各地的版本 vs 北美版本。您的安裝，請使用正確的區段。
   
   開始北美地區版本 codeunit (333)，來變更中的程式碼Req.Wksh。-請訂單，如下所示︰

   1. 加入下列的全域變數︰

      • 名稱︰ DropShptSpecialOrderExists;

      • 資料類型︰ 布林值;

   2. 在InsertPurchOrderLine函式中新增下列本機變數︰

      • 名稱︰ SalesHeader;資料型別︰ 資料錄 (36);

      • 名稱︰ DropShptSplOrderDiffAddress;資料類型︰ 布林值;

      • 名稱︰ CreateNewRecord;資料類型︰ 布林值;

   3. 變更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);       
      ...
      

   4. 變更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)，來變更中的程式碼Req.Wksh。-請順序，如下所示︰

   1. 加入下列的全域變數︰

      • 名稱︰ DropShptSpecialOrderExists;

      • 資料類型︰ 布林值;

   2. 在InsertPurchOrderLine函式中新增下列本機變數︰

      • 名稱︰ SalesHeader;資料型別︰ 資料錄 (36);

      • 名稱︰ DropShptSplOrderDiffAddress;資料類型︰ 布林值;

   3. 變更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; 
      ...
      

   4. 變更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;
      ...
      

6. 變更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;    
   ...
   

7. 變更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;    
   ...
   

8. 變更複製文件 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;       
   ...