لا يمكن توريث الأبعاد من الشراء وإيصالات المبيعات في Microsoft Dynamics NAV 2009

الأعراض

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

Microsoft Dynamics NAV 2009 R2
Microsoft Dynamics NAV 2009 SP1

الحل

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

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

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

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

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

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

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

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

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

الكائن.

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

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

ملاحظة: دوماً التعليمات البرمجية للاختبار إصلاح في بيئة تسيطر عليها قبل تطبيق إصلاحات لأجهزة الكمبيوتر الإنتاج.

لحل هذه المشكلة، اتبع الخطوات التالية.

تغيير التعليمات البرمجية في وظيفة كوبيلينيتودوك في "ترحيل المبيعات المستند البنود من" (5850) كما يلي:
التعليمات البرمجية الموجودة 1

... LinesNotCopied := 0;
        CASE CurrentMenuType OF
          0:
            BEGIN
              CurrForm.PostedShpts.FORM.GetSelectedLine(FromSalesShptLine);
              CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
              CopyDocMgt.CopySalesShptLinesToDoc(
                ToSalesHeader,FromSalesShptLine,LinesNotCopied,MissingExCostRevLink);
            END;
          1:
...

استبدال التعليمات البرمجية 1

... LinesNotCopied := 0;
        CASE CurrentMenuType OF
          0:
            BEGIN
              CurrForm.PostedShpts.FORM.GetSelectedLine(FromSalesShptLine);

// Add the following line.
CopyDocMgt.CopyAllDimensions;
// End of the added line.

              CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
              CopyDocMgt.CopySalesShptLinesToDoc(
                ToSalesHeader,FromSalesShptLine,LinesNotCopied,MissingExCostRevLink);
            END;
          1:
...

التعليمات البرمجية الموجودة 2

... ToSalesHeader,FromSalesInvLine,LinesNotCopied,MissingExCostRevLink);
            END;
          2:
            BEGIN
              CurrForm.PostedReturnRcpts.FORM.GetSelectedLine(FromReturnRcptLine);
              CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
              CopyDocMgt.CopySalesReturnRcptLinesToDoc(
                ToSalesHeader,FromReturnRcptLine,LinesNotCopied,MissingExCostRevLink);
            END;
          3:
...

استبدال رمز 2

...   ToSalesHeader,FromSalesInvLine,LinesNotCopied,MissingExCostRevLink);
            END;
          2:
            BEGIN
              CurrForm.PostedReturnRcpts.FORM.GetSelectedLine(FromReturnRcptLine);

// Add the following line.
CopyDocMgt.CopyAllDimensions;
// End of the added line.

              CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
              CopyDocMgt.CopySalesReturnRcptLinesToDoc(
                ToSalesHeader,FromReturnRcptLine,LinesNotCopied,MissingExCostRevLink);
            END;
          3:
...

تغيير التعليمات البرمجية في وظيفة كوبيلينيتودوك في "ترحيل الشراء المستند البنود من" (5855) كما يلي:
التعليمات البرمجية الموجودة 1

...LinesNotCopied := 0;
        CASE CurrentMenuType OF
          0:
            BEGIN
              CurrForm.PostedRcpts.FORM.GetSelectedLine(FromPurchRcptLine);
              CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
              CopyDocMgt.CopyPurchRcptLinesToDoc(
                ToPurchHeader,FromPurchRcptLine,LinesNotCopied,MissingExCostRevLink);
            END;
          1:
...

استبدال رمز 1

... LinesNotCopied := 0;
        CASE CurrentMenuType OF
          0:
            BEGIN
              CurrForm.PostedRcpts.FORM.GetSelectedLine(FromPurchRcptLine);

// Add the following line.
CopyDocMgt.CopyAllDimensions;
// End of the added line.

              CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
              CopyDocMgt.CopyPurchRcptLinesToDoc(
                ToPurchHeader,FromPurchRcptLine,LinesNotCopied,MissingExCostRevLink);
            END;
          1:
...

التعليمات البرمجية الموجودة 2

...ToPurchHeader,FromPurchInvLine,LinesNotCopied,MissingExCostRevLink);
            END;
          2:
            BEGIN
              CurrForm.PostedReturnShpts.FORM.GetSelectedLine(FromReturnShptLine);
              CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
              CopyDocMgt.CopyPurchReturnShptLinesToDoc(
                ToPurchHeader,FromReturnShptLine,LinesNotCopied,MissingExCostRevLink);
            END;
          3:
...

استبدال رمز 2

...ToPurchHeader,FromPurchInvLine,LinesNotCopied,MissingExCostRevLink);
            END;
          2:
            BEGIN
              CurrForm.PostedReturnShpts.FORM.GetSelectedLine(FromReturnShptLine);

// Add the following line.
CopyDocMgt.CopyAllDimensions;
// End of the added line.

              CopyDocMgt.SetProperties(FALSE,TRUE,FALSE,FALSE,TRUE,TRUE,OriginalQuantity);
              CopyDocMgt.CopyPurchReturnShptLinesToDoc(
                ToPurchHeader,FromReturnShptLine,LinesNotCopied,MissingExCostRevLink);
            END;
          3:
...

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

...SkippedLine@1047 : Boolean;
        Text029@1048 : TextConst 'ENU=One or more return document lines were not inserted or they contain only the remaining quantity of the original document line. This is because quantities on the posted document line are already fully or partially applied. If you want to reverse the full quantity, you must select Return Original Quantity before getting the posted document lines.';
        Text030@1025 : TextConst 'ENU=%1 %2, line no. %3 is not copied because the full quantity on the posted document line is already manually applied.';
        Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
        SomeAreFixed@1045 : Boolean;

      PROCEDURE SetProperties@2(NewIncludeHeader@1001 : Boolean;NewRecalculateLines@1000 : Boolean;NewMoveNegLines@1006 : Boolean;NewCreateToHeader@1002 : Boolean;NewHideDialog@1003 : Boolean;NewExactCostRevMandatory@1004 : Boolean;NewApplyFully@1005 : Boolean);
      BEGIN
        IncludeHeader := NewIncludeHeader;
        RecalculateLines := NewRecalculateLines;
...

استبدال التعليمات البرمجية

...SkippedLine@1047 : Boolean;
        Text029@1048 : TextConst 'ENU=One or more return document lines were not inserted or they contain only the remaining quantity of the original document line. This is because quantities on the posted document line are already fully or partially applied. If you want to reverse the full quantity, you must select Return Original Quantity before getting the posted document lines.';
        Text030@1025 : TextConst 'ENU=%1 %2, line no. %3 is not copied because the full quantity on the posted document line is already manually applied.';
        Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
        SomeAreFixed@1045 : Boolean;

// Add the following line.
CopyDimensions@1050 : Boolean;
// End of the added line.


      PROCEDURE SetProperties@2(NewIncludeHeader@1001 : Boolean;NewRecalculateLines@1000 : Boolean;NewMoveNegLines@1006 : Boolean;NewCreateToHeader@1002 : Boolean;NewHideDialog@1003 : Boolean;NewExactCostRevMandatory@1004 : Boolean;NewApplyFully@1005 : Boolean);
      BEGIN
        IncludeHeader := NewIncludeHeader;
        RecalculateLines := NewRecalculateLines;
...

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

...LOCAL PROCEDURE CopyFromPstdSalesDocDimToLine@21(VAR ToSalesLine@1009 : Record 37;FromDocType@1004 : Option;VAR FromSalesShptLine@1007 : Record 111;VAR FromSalesInvLine@1005 : Record 113;VAR FromReturnRcptLine@1003 : Record 6661;VAR FromSalesCrMemoLine@1001 : Record 115);
      VAR
        DocDim@1002 : Record 357;
        FromPostedDocDim@1000 : Record 359;
      BEGIN

// Delete the following line.
IF NOT RecalculateLines THEN BEGIN
// End of the deleted line.

          DocDim.SETRANGE("Table ID",DATABASE::"Sales Line");
          DocDim.SETRANGE("Document Type",ToSalesLine."Document Type");
          DocDim.SETRANGE("Document No.",ToSalesLine."Document No.");
          DocDim.SETRANGE("Line No.",ToSalesLine."Line No.");
          DocDim.DELETEALL;
...

استبدال التعليمات البرمجية

...  LOCAL PROCEDURE CopyFromPstdSalesDocDimToLine@21(VAR ToSalesLine@1009 : Record 37;FromDocType@1004 : Option;VAR FromSalesShptLine@1007 : Record 111;VAR FromSalesInvLine@1005 : Record 113;VAR FromReturnRcptLine@1003 : Record 6661;VAR FromSalesCrMemoLine@1001 : Record 115);
      VAR
        DocDim@1002 : Record 357;
        FromPostedDocDim@1000 : Record 359;
      BEGIN

// Add the following line.
IF NOT RecalculateLines OR CopyDimensions THEN BEGIN
// End of the added line.

          DocDim.SETRANGE("Table ID",DATABASE::"Sales Line");
          DocDim.SETRANGE("Document Type",ToSalesLine."Document Type");
          DocDim.SETRANGE("Document No.",ToSalesLine."Document No.");
          DocDim.SETRANGE("Line No.",ToSalesLine."Line No.");
          DocDim.DELETEALL;
...

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

...LOCAL PROCEDURE CopyFromPstdPurchDocDimToLine@13(VAR ToPurchLine@1002 : Record 39;FromDocType@1004 : Option;VAR FromPurchRcptLine@1009 : Record 121;VAR FromPurchInvLine@1007 : Record 123;VAR FromReturnShptLine@1005 : Record 6651;VAR FromPurchCrMemoLine@1003 : Record 125);
      VAR
        DocDim@1001 : Record 357;
        FromPostedDocDim@1000 : Record 359;
      BEGIN

// Delete the following line.
IF NOT RecalculateLines THEN BEGIN
// End of the deleted line.

          DocDim.SETRANGE("Table ID",DATABASE::"Purchase Line");
          DocDim.SETRANGE("Document Type",ToPurchLine."Document Type");
          DocDim.SETRANGE("Document No.",ToPurchLine."Document No.");
          DocDim.SETRANGE("Line No.",ToPurchLine."Line No.");
          DocDim.DELETEALL;
...

استبدال التعليمات البرمجية

...LOCAL PROCEDURE CopyFromPstdPurchDocDimToLine@13(VAR ToPurchLine@1002 : Record 39;FromDocType@1004 : Option;VAR FromPurchRcptLine@1009 : Record 121;VAR FromPurchInvLine@1007 : Record 123;VAR FromReturnShptLine@1005 : Record 6651;VAR FromPurchCrMemoLine@1003 : Record 125);
      VAR
        DocDim@1001 : Record 357;
        FromPostedDocDim@1000 : Record 359;
      BEGIN

// Add the following line.
IF NOT RecalculateLines OR CopyDimensions THEN BEGIN
// End of the added line.

          DocDim.SETRANGE("Table ID",DATABASE::"Purchase Line");
          DocDim.SETRANGE("Document Type",ToPurchLine."Document Type");
          DocDim.SETRANGE("Document No.",ToPurchLine."Document No.");
          DocDim.SETRANGE("Line No.",ToPurchLine."Line No.");
          DocDim.DELETEALL;
...

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

...MESSAGE(Text031);
        IF Text <> '' THEN
          MESSAGE(Text);
      END;

      BEGIN
      END.
    }
  }
...

استبدال التعليمات البرمجية

...MESSAGE(Text031);
        IF Text <> '' THEN
          MESSAGE(Text);
      END;

// Add the following lines.
PROCEDURE CopyAllDimensions@85();
BEGIN      
CopyDimensions := TRUE;
END;

// End of the added line.

BEGIN
      END.
    }
  }
...

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

يجب أن يكون لديك أحد المنتجات التالية مثبتة لتطبيق هذا الإصلاح العاجل:

Microsoft Dynamics NAV 2009 R2
Microsoft Dynamics NAV 2009 SP1

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

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

الحالة

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

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

لا يمكن توريث الأبعاد من الشراء وإيصالات المبيعات في Microsoft Dynamics NAV 2009

الأعراض

الحل

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

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

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

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

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

الحالة

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

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

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

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