「出荷先コード」フィールドが空に予期せず Microsoft Dynamics NAV 2009 年に特別な発注書の特別注文の販売注文を取得する関数を実行します。

修正プログラムの情報

サポートされている修正プログラムはマイクロソフトから現在入手可能です。ただし、この資料に記載されている問題を解決するためのものはのみ。この特定の問題が発生したシステムにのみ適用してください。この修正プログラムは、今後さらにテストを行うことがあります。この問題で深刻な影響を受けていない場合は、次の Microsoft Dynamics NAV 2009 サービス パックまたは修正プログラムを含む次の Microsoft Dynamics NAV バージョン待つことを勧めします。

注: かかる料金が免除されるテクニカル サポート担当者 Microsoft Dynamics および関連製品のことは、通常は特別な場合は、特定の更新プログラムは、問題を解決するにを決定します。追加の質問および問題の特定のアップデートの対象にはなりませんが、通常のサポート料金が適用されます。

コードの変更

注: 常にテスト コードを修正、管理された環境で適用する前に、運用コンピューターに修正プログラムします。
この問題を解決するには、次の手順を実行します。

1. GetDescriptionAndRcptName関数内のコードを変更するのでは、次のように ReqJnlManagement codeunit (330)。
   既存のコード

   ...ELSE
   Description := '';
   
   // Delete the following lines.
   ReqLine.Type::Item: 
   IF Item.GET(ReqLine."No.") THEN
   Description := Item.Description
   ELSE 
   Description := '';
   // End of the lines.
   
   END;
   END;
   
   IF ReqLine."Vendor No." = '' THEN
   ...
   

   置換用コード

   ...ELSE
   Description := '';
   END;
   END;
   
   IF ReqLine."Vendor No." = '' THEN
   ...
   

2. 新しいグローバル変数を追加で、求人 Wksh。-注文 codeunit (333) を行い、次のように変数を指定。

   • 名: DropShptSpecialOrderExists

   • データ型:ブール値

3. InsertPurchOrderLine関数で、求人 Wksh。 で新しいローカル変数を追加-注文 codeunit (333) を行い、次のように変数を指定します。

   • 名: SalesHeader

   • データ型:レコード

   • サブタイプ:販売のヘッダー

4. InsertPurchOrderLine関数で、求人 Wksh。 で新しいローカル変数を追加-注文 codeunit (333) を行い、次のように変数を指定します。

   • 名: DropShptSplOrderDiffAddress

   • データ型:ブール

5. InsertPurchOrderLine関数で、求人 Wksh。 でコードを変更-codeunit (333) の順序を次のように作成します。
   既存のコード

   ...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")
   
   THEN BEGIN
   ...
   

   置換用コード

   ...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 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 lines.
   
   THEN BEGIN
   ...
   

6. InsertHeader関数で、求人 Wksh。 で新しいローカル変数を追加-注文 codeunit (333) を行い、次のように変数を指定します。

   • 名: SalesHeader

   • データ型:レコード

   • サブタイプ:の販売注文ヘッダー

7. InsertHeader関数で、求人 Wksh。 でコードを変更-codeunit (333) の順序を次のように作成します。
   既存のコード

   ...PurchOrderHeader.SetShipToForSpecOrder;
   END;
   
   PurchOrderHeader.MODIFY;
   ...
   

   置換用コード

   ...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 lines.
   
   PurchOrderHeader.MODIFY;
   ...
   

8. 版統合 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";
   "Cross-Reference Type No." := ItemCrossReference."Cross-Reference Type No.";
   
   // Delete the following lines.
   IF ItemCrossReference.Description <> '' THEN BEGIN 
   Description := ItemCrossReference.Description;
   "Description 2" := '';
   END;
   // End of the lines.
   
   END ELSE BEGIN
   "Cross-Reference No." := '';
   "Cross-Reference Type" := "Cross-Reference Type"::" ";
   "Cross-Reference Type No." := '';
   
   // Delete the following lines.
   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 lines.
   
   GetItemTranslation;
   ...
   

   置換用コード

   ...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";
   "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." := '';
   GetItemTranslation;
   ...
   

9. 版統合 codeunit (5702) 内のGetSpecialOrders関数内のコードを次のように変更します。
   既存のコード

   ...TESTFIELD("Sell-to Customer No.",SalesHeader."Sell-to Customer No.");
   TESTFIELD("Ship-to Code",SalesHeader."Ship-to Code");
   
   // Delete the following line.
   PurchHeader.SetShipToForSpecOrder;
   
   PurchLine.LOCKTABLE;
   ...
   

   置換用コード

   ...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 lines.
   
   PurchLine.LOCKTABLE;
   ...
   

10. コピー文書管理 codeunit (6620) 内のTransfldsFromSalesToPurchLine関数内のコードを次のように変更します。
    既存のコード

    ...VALIDATE("Direct Unit Cost");
    END;
    ...
    

    置換用コード

    ...VALIDATE("Direct Unit Cost");
    
    // Add the following lines.
    Description := FromSalesLine.Description;
    "Description 2" := FromSalesLine."Description 2";
    // End of the lines.
    
    END;
    ...
    

11. 購買のコード内のコードを変更する-ドロップ Shpt. codeunit (76) を次のように取得します。
    既存のコード 1

    ...TESTFIELD("Ship-to Code",SalesHeader."Ship-to Code");
    
    PurchLine.LOCKTABLE;
    ...
    

    置換用コード 1

    ...TESTFIELD("Ship-to Code",SalesHeader."Ship-to Code");
    
    // Add the following line.
    IF DropShptSplOrderExists(SalesHeader) THEN 
    CheckAndAddShipToAdd(SalesHeader,TRUE); 
    // End of the lines.
    
    PurchLine.LOCKTABLE;
    ...
    

    既存のコード 2

    ...CopyDocMgt.TransfldsFromSalesToPurchLine(SalesLine,PurchLine);
    PurchLine.Description := SalesLine.Description;
    PurchLine."Sales Order No." := SalesLine."Document No.";
    ...
    

    置換用コード 2

    ...CopyDocMgt.TransfldsFromSalesToPurchLine(SalesLine,PurchLine);
    PurchLine.Description := SalesLine.Description;
    
    // Add the following line.
    PurchLine."Description 2" := SalesLine."Description 2";
    
    PurchLine."Sales Order No." := SalesLine."Document No.";
    ...
    

12. 次のように、販売注文を取得するレポート (698) でInsertReqWkshLineのコードを変更します。
    既存のコード

    ..."Sell-to Customer No." := SalesLine."Sell-to Customer No.";
    SalesHeader.GET(1,SalesLine."Document No.");
    IF SpecOrder <> 1 THEN
    ...
    

    置換用コード

    ..."Sell-to Customer No." := SalesLine."Sell-to Customer No.";
    
    // Add the following lines.
    Description := SalesLine.Description;
    "Description 2" := SalesLine."Description 2";
    // End of the lines.
    
    SalesHeader.GET(1,SalesLine."Document No.");
    IF SpecOrder <> 1 THEN
    ...
    

13. 購買注文ヘッダー テーブル (38)、新しいグローバル変数を追加し、次のように変数を指定します。

    • 名: NameAddressDetails

    • データ型:テキスト

    • 長さ: 512

14. 購買注文ヘッダー テーブル (38)、新しいグローバル変数を追加し、次のように変数を指定します。

    • 名: NameAddressDetails2

    • データ型:テキストの

    • 長さ: 512

15. 購買注文ヘッダー テーブル (38)、[新しい文字列定数を追加し、次のように文字列定数を指定します。

    • 名: Text051

    • ConstValue:発注書 %2 の %1 のフィールドは、販売注文の % の 3 と同じである必要があります。

16. 購買注文ヘッダー テーブル (38) では、新しいCheckAndAddShipToAdd関数を作成します。これを行うには、以下の手順を実行します。

    1. 購買注文ヘッダー テーブル (38) のCheckAndAddShipToAdd関数で新しいローカル パラメーターを追加し、次のようにパラメーターを指定します。

       • Var: No

       • 名: SalesHeader

       • データ型:レコード

       • サブタイプ:販売のヘッダー

    2. 購買注文ヘッダー テーブル (38) のCheckAndAddShipToAdd関数で新しいローカル パラメーターを追加し、次のようにパラメーターを指定します。

       • Var: No

       • 名前: ShowError

       • データ型:ブール値

    3. 購買注文ヘッダー テーブル (38) のCheckAndAddShipToAdd関数の戻り値を追加し、戻り値を指定し、次のように。

       • 戻り型:ブール値

    4. 購買注文ヘッダー テーブル (38) のCheckAndAddShipToAdd関数で新しいローカル変数を追加し、次のように変数を指定します。

       • 名: PurchLine2

       • データ型:レコード

       • サブタイプ: PurchLine2

    5. 購買注文ヘッダー テーブル (38) のCheckAndAddShipToAdd関数では、次のコードを追加します。

       IF ShowError THEN BEGINPurchLine2.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;
       

17. 購買注文ヘッダー テーブル (38) では、新しいDropShptSplOrderExists関数を作成します。これを行うには、以下の手順を実行します。

    1. 購買注文ヘッダー テーブル (38) のDropShptSplOrderExists関数で新しいローカル パラメーターを追加し、次のようにパラメーターを指定します。

       • Var: No

       • 名: SalesHeader

       • データ型:レコード

       • サブタイプ:販売のヘッダー

    2. 購買注文ヘッダー テーブル (38) のDropShptSplOrderExists関数の戻り値の型を追加し、戻り値を指定し、次のように。

       • 戻り型:ブール値

    3. 購買注文ヘッダー テーブル (38) のDropShptSplOrderExists関数で新しいローカル変数を追加し、次のように変数を指定します。

       • 名: SalesLine2

       • データ型:レコード

       • サブタイプ:販売注文明細行

    4. 購買注文ヘッダー テーブル (38) のDropShptSplOrderExists関数では、次のコードを追加します。

       // 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);