الشحن المباشر وترتيب خاص لا تعتبر معلومات معرف أمر التوريد عند استخدام ورقة عمل طلب لإنشاء أمر شراء أو عندما يمكنك يدوياً بإنشاء أمر شراء في Microsoft Dynamics التنقل

الأعراض

في Microsoft Dynamics التنقل، عند استخدام ورقة عمل طلب لإنشاء أمر شراء أو عندما تقوم بإنشاء أمر شراء يدوياً الشحنة المباشرة والطلبات الخاصة لا تعتبر معلومات معرف أمر التوريد ذات الصلة. ولذلك، الوصف، وصف 2 وعنوان الشحن من البيانات الرئيسية لأمر التوريد وبنود لا تتبع خلال مربوط أمر شراء.
تحدث هذه المشكلة في المنتجات التالية:

Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Microsoft Dynamics NAV 2009 R2

الحل

معلومات الإصلاح العاجل

الآن يتوفر إصلاح عاجل معتمد من Microsoft. ومع ذلك، هو فقط لتصحيح المشكلة الموضحة في هذه المقالة. تطبيقها فقط على الأنظمة التي تواجه هذه المشكلة بالتحديد. قد يتم إجراء اختبارات إضافية على هذا الإصلاح العاجل. ولذلك، إذا لم يكن تأثير المشكلة كبيرا، نوصي بالانتظار حتى الإصدار التالي من حزمة الخدمة Microsoft Dynamics NAV 2009 أو الإصدار Microsoft Dynamics التنقل التالي الذي يحتوي على هذا الإصلاح العاجل.

ملاحظة: في بعض الحالات، يحدد المصروفات التي تحتسب عادة لدعم قد يتم إلغاء المكالمات إذا "أخصائي الدعم التقني" ل Microsoft Dynamics والمنتجات ذات الصلة أن تحديثًا معيناً سوف يعمل على حل المشكلة. سيتم اضافة تكاليف الدعم المعتادة على أسئلة الدعم الإضافية والمشاكل التي لا يأهل على حلها للتحديث المطلوب.

معلومات التثبيت

تقدم Microsoft أمثلة برمجية للتوضيح فقط، دون أي ضمان صريح أو ضمني. هذا يتضمن، على سبيل المثال لا الحصر، الضمانات الضمنية الخاصة بالتسويق أو الملاءمة لغرض معين. تفترض هذه المقالة أنك معتاد على لغة البرمجة التي يتم شرحها والأدوات المستخدمة لإنشاء الإجراءات وتصحيحها. يساعد مهندسو الدعم لدى Microsoft في شرح وظيفة إجراء محدد، لكنهم لن يقوموا بتعديل هذه الأمثلة لتقديم وظيفة إضافية أو إنشاء إجراءات تستوفي متطلبات محددة.

ملاحظة: قبل تثبيت هذا الإصلاح العاجل، تأكد من تسجيل خروج النظام كافة المستخدمين عميل Microsoft Navision. ويشمل ذلك المستخدمين عميل Microsoft خدمات التطبيق Navision (NAS). يجب أن يكون عميل فقط المستخدم الذي تم تسجيل دخوله عند تطبيق هذا الإصلاح العاجل.

لتطبيق هذا الإصلاح العاجل، يجب أن يكون لديك ترخيص مطور.

نوصي بأن تعيين حساب المستخدم في إطار عمليات تسجيل دخول Windows أو في إطار "قاعدة بيانات تسجيل الدخول" بمعرف دور "رئيسي". إذا كان حساب المستخدم لا يمكن تعيين معرف دور "سوبر"، يجب التحقق من أن حساب المستخدم يملك الأذونات التالية:

إذن "تعديل" للكائن الذي سيتم تغيير.
إذن Execute للكائن 5210 معرف كائن النظام والكائن 9015 معرف كائن النظام .

ملاحظة: ليس لديك حق لمخازن البيانات ما لم يكن لديك لإجراء إصلاح البيانات.

تغييرات التعليمات البرمجية

ملاحظة: دوماً التعليمات البرمجية للاختبار إصلاح في بيئة تسيطر عليها قبل تطبيق إصلاحات لأجهزة الكمبيوتر الإنتاج.
لحل هذه المشكلة، اتبع الخطوات التالية.
ملاحظة: الرجاء قراءة عند الوصول إلى كوديونيت (333)، لأنه يختلف عن إصدار W1 في أمريكا الشمالية. وكلاهما هنا بالعلامات للبدء والانتهاء لكل إصدار.

تغيير التعليمات البرمجية في جدول رأس الشراء (38) كما يلي:

إضافة الثابت العام للنص التالي:
Text051@1091: تيكستكونست 'ENU = % 1 يجب أن يكون الحقل في أمر الشراء % 2 هو نفسه على المبيعات أمر % 3.'؛
إضافة المتغيرات العالمية التالية:
- الاسم: ناميدريسديتايلس; نوع البيانات: نص [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) كما يلي:
التعليمات البرمجية الموجودة

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

تغيير التعليمات البرمجية في وظيفة التعليمات البرمجية في الشراء.-الحصول على إسقاط Shpt. كوديونيت (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");          
...

تغيير التعليمات البرمجية في وظيفة جيتديسكريبتيوناندركبتنامي في كوديونيت ريقجنلماناجيمينت (330) كما يلي:
التعليمات البرمجية الموجودة

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

ملاحظة: كوديونيت (333) على التعليمات البرمجية المختلفة في إصدار أمريكا الشمالية مقابل الإصدار في جميع أنحاء العالم. استخدم المقطع الصحيح للتثبيت.

"بدء إصدار أمريكا الشمالية" كوديونيت (333)، تغيير التعليمات البرمجية في وكش المطلوبة.-"جعل أوامر" كما يلي:

إضافة متغير عمومي التالية:
- الاسم: دروبشبتسبيسيالورديريكسيستس;
- نوع البيانات: منطقية؛
في الدالة إينسيرتبورتشورديرلينيبإضافة المتغيرات المحلية التالية:
- الاسم: ساليشيدير; نوع البيانات: سجل (36)؛
- الاسم: دروبشبتسبلورديرديفادريس; نوع البيانات: منطقية؛
- الاسم: كريتينيوريكورد; نوع البيانات: منطقية؛

تغيير التعليمات البرمجية في وظيفة إينسيرتبورتشورديرلينيكما يلي:
التعليمات البرمجية الموجودة

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

تغيير التعليمات البرمجية في وظيفة إينسيرثيدير كما يلي:
إضافة المتغير المحلي ما يلي:

الاسم: ساليشيدير;
نوع البيانات: سجل (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 كوديونيت (333)، تغيير التعليمات البرمجية في وكش المطلوبة.-"جعل أمر" كما يلي:

إضافة متغير عمومي التالية:
- الاسم: دروبشبتسبيسيالورديريكسيستس;
- نوع البيانات: منطقية؛
في الدالة إينسيرتبورتشورديرلينيبإضافة المتغيرات المحلية التالية:
- الاسم: ساليشيدير; نوع البيانات: سجل (36)؛
- الاسم: دروبشبتسبلورديرديفادريس; نوع البيانات: منطقية؛

تغيير التعليمات البرمجية في وظيفة إينسيرتبورتشورديرلينيكما يلي:
التعليمات البرمجية الموجودة

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

تغيير التعليمات البرمجية في وظيفة إينسيرثيدير كما يلي:
إضافة المتغير المحلي ما يلي:

الاسم: ساليشيدير;
نوع البيانات: سجل (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;
...

تغيير التعليمات البرمجية في وظيفة انتيربورتشاسيتيمكروسريف في كوديونيت لتوزيع التكامل (5702) كما يلي:
التعليمات البرمجية الموجودة

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

تغيير التعليمات البرمجية في وظيفة جيتسبيسيالورديرس في كوديونيت لتوزيع التكامل (5702) كما يلي:
التعليمات البرمجية الموجودة

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

تغيير التعليمات البرمجية في وظيفة ترانسفلدسفرومساليستوبورتشليني في كوديونيت إدارة المستند نسخة (6620) كما يلي:
التعليمات البرمجية الموجودة

...  "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 Service Pack 1 (SP1)
Microsoft Dynamics NAV 2009 R2

معلومات الإزالة

لا يمكنك إزالة هذا الإصلاح العاجل.

الحالة

أقرت Microsoft أن هذه مشكلة في منتجات Microsoft المسردة في قسم "ينطبق على".

المراجع

ديناميكسناف فستف SE: 238210

ملاحظة: وهذا المقال "النشر السريع" التي تم إنشاؤها مباشرة من داخل مؤسسة دعم Microsoft. وتقدم المعلومات الواردة في هذه الوثيقة كاستجابه للمسائل الناشئة. نتيجة للسرعة في توفيره، قد تتضمن الأخطاء المطبعية المواد ويمكن مراجعة في أي وقت دون سابق إنذار. راجع شروط الاستخدام لاعتبارات أخرى.

الشحن المباشر وترتيب خاص لا تعتبر معلومات معرف أمر التوريد عند استخدام ورقة عمل طلب لإنشاء أمر شراء أو عندما يمكنك يدوياً بإنشاء أمر شراء في Microsoft Dynamics التنقل

الأعراض

الحل

معلومات الإصلاح العاجل

معلومات التثبيت

تغييرات التعليمات البرمجية

المتطلبات الأساسية

معلومات الإزالة

الحالة

المراجع

هل تحتاج إلى مزيد من المساعدة؟

الخروج من الخيارات إضافية؟

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!