ظهور رسالة الخطأ "المبيعات الشحنة [Shipment_No] البند رقم [Line_No] لم يتم نسخ لأنه يتم تطبيق الكمية الكاملة على خط المستند تم ترحيلها مسبقاً يدوياً" عند تشغيل دالة "نسخ المستند" على عائد مبيعات جزئية في Microsoft Dynamics التنقل

تنطبق هذه المقالة على Microsoft Dynamics التنقل لجميع البلدان وجميع اللغات المحلية.

الأعراض

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

لا يتم نسخ المبيعات الشحنة Shipment_No، رقم خط Line_No لأنه يتم تطبيق الكمية الكاملة على خط المستند تم ترحيلها مسبقاً يدوياً.

تحدث هذه المشكلة في المنتجات التالية:

Microsoft Dynamics NAV 2009 R2
Microsoft Dynamics NAV 2009 Service Pack 1

الحل

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

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

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

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

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

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

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

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

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

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

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

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

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

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;
CopyDimensions@1050 : Boolean;

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

Text030@1025 : TextConst 'ENU=One or more return document lines were not copied. This is because quantities on the posted document line are already fully or partially applied and therefore the Exact Cost Reversing Link could not be created.';Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
 SomeAreFixed@1045 : Boolean;
CopyDimensions@1050 : Boolean;
WarningDone@1051 : Boolean;
LinesApplied@1052 : Boolean;

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

...            IF "Shipped Qty. Not Returned" = 0 THEN

// Delete the following lines.
             ERROR(Text030,"Document Type","Document No.","Document Line No.");
           FromSalesLineBuf := FromSalesLine; 
           IF -"Shipped Qty. Not Returned" < ABS(FromSalesLine."Quantity (Base)") THEN BEGIN
             IF FromSalesLine."Quantity (Base)" > 0 THEN
               FromSalesLineBuf."Quantity (Base)" := -"Shipped Qty. Not Returned"
             ELSE
               FromSalesLineBuf."Quantity (Base)" := "Shipped Qty. Not Returned";
             IF FromSalesLineBuf."Qty. per Unit of Measure" = 0 THEN
               FromSalesLineBuf.Quantity := FromSalesLineBuf."Quantity (Base)"
             ELSE
               FromSalesLineBuf.Quantity :=
                 ROUND(FromSalesLineBuf."Quantity (Base)" / FromSalesLineBuf."Qty. per Unit of Measure",0.00001);
           END;
           FromSalesLine."Quantity (Base)" := FromSalesLine."Quantity (Base)" - FromSalesLineBuf."Quantity (Base)";
           FromSalesLine.Quantity := FromSalesLine.Quantity - FromSalesLineBuf.Quantity;
           FromSalesLineBuf."Appl.-from Item Entry" := "Entry No.";
           FromSalesLineBuf."Line No." := NextLineNo;
           NextLineNo := NextLineNo + 1;
           FromSalesLineBuf."Document No." := "Document No.";
           IF GetSalesDocType(ItemLedgEntry) IN
              [FromSalesLineBuf."Document Type"::Order,FromSalesLineBuf."Document Type"::"Return Order"]
           THEN
             FromSalesLineBuf."Shipment Line No." := 1;

           IF NOT FromShptOrRcpt THEN
             UpdateRevSalesLineAmount(
               FromSalesLineBuf,OrgQtyBase,
               FromSalesHeader."Prices Including VAT",ToSalesHeader."Prices Including VAT");

           FromSalesLineBuf.INSERT;
// End of the lines.

          UNTIL (NEXT = 0) OR (FromSalesLine."Quantity (Base)" = 0);
...

استبدال رمز 1

...            IF "Shipped Qty. Not Returned" = 0 THEN

// Add the following lines.
             LinesApplied := TRUE;
           IF "Shipped Qty. Not Returned" < 0 THEN BEGIN
             FromSalesLineBuf := FromSalesLine;

             IF -"Shipped Qty. Not Returned" < ABS(FromSalesLine."Quantity (Base)") THEN BEGIN
               IF FromSalesLine."Quantity (Base)" > 0 THEN
                 FromSalesLineBuf."Quantity (Base)" := -"Shipped Qty. Not Returned"
               ELSE
                 FromSalesLineBuf."Quantity (Base)" := "Shipped Qty. Not Returned";
               IF FromSalesLineBuf."Qty. per Unit of Measure" = 0 THEN
                 FromSalesLineBuf.Quantity := FromSalesLineBuf."Quantity (Base)"
               ELSE
                 FromSalesLineBuf.Quantity :=
                   ROUND(FromSalesLineBuf."Quantity (Base)" / FromSalesLineBuf."Qty. per Unit of Measure",0.00001);
             END;
             FromSalesLine."Quantity (Base)" := FromSalesLine."Quantity (Base)" - FromSalesLineBuf."Quantity (Base)";
             FromSalesLine.Quantity := FromSalesLine.Quantity - FromSalesLineBuf.Quantity;
             FromSalesLineBuf."Appl.-from Item Entry" := "Entry No.";
             FromSalesLineBuf."Line No." := NextLineNo;
             NextLineNo := NextLineNo + 1;
             FromSalesLineBuf."Document No." := "Document No.";
             IF GetSalesDocType(ItemLedgEntry) IN
                [FromSalesLineBuf."Document Type"::Order,FromSalesLineBuf."Document Type"::"Return Order"]
             THEN
               FromSalesLineBuf."Shipment Line No." := 1;

             IF NOT FromShptOrRcpt THEN
               UpdateRevSalesLineAmount(
                 FromSalesLineBuf,OrgQtyBase,
                 FromSalesHeader."Prices Including VAT",ToSalesHeader."Prices Including VAT");

             FromSalesLineBuf.INSERT;
           END;
// End of the lines.

          UNTIL (NEXT = 0) OR (FromSalesLine."Quantity (Base)" = 0);
...

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

...            MissingExCostRevLink := TRUE;
        END;
...

استبدال رمز 2

...            MissingExCostRevLink := TRUE;

// Add the following line.
         CheckUnappliedLines(LinesApplied,MissingExCostRevLink);

        END;
...

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

...        ApplyRec@1011 : Record 339;

// Delete the following line.
       AllAreFixed@1012 : Boolean;

      BEGIN
...

استبدال رمز 1

...        ApplyRec@1011 : Record 339;
      BEGIN
...

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

...          REPEAT

// Delete the following lines.
           IF "Remaining Quantity" = 0 THEN BEGIN
             AllAreFixed := TRUE;
             ApplyRec.AppliedOutbndEntryExists("Entry No.",FALSE);
             IF ApplyRec.FINDFIRST THEN
               REPEAT
                 AllAreFixed := AllAreFixed AND ApplyRec.Fixed;
               UNTIL ApplyRec.NEXT = 0;
             IF AllAreFixed THEN
               ERROR(Text030,"Document Type","Document No.","Document Line No.");
           END;
// End of the lines.

            IF NOT ApplyFully THEN BEGIN
...

استبدال رمز 2

...          REPEAT
            IF NOT ApplyFully THEN BEGIN
...

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

...        END;
...

استبدال رمز 3

...        END;

// Add the following line.
       CheckUnappliedLines(SkippedLine,MissingExCostRevLink);

...

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

...      BEGIN
...

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

...
// Add the following lines.
     LOCAL PROCEDURE CheckUnappliedLines@86(SkippedLine@1000 : Boolean;VAR MissingExCostRevLink@1001 : Boolean);
     BEGIN
       IF SkippedLine AND MissingExCostRevLink THEN BEGIN
         IF NOT WarningDone THEN
           MESSAGE(Text030);
         MissingExCostRevLink := FALSE;
         WarningDone := TRUE;
       END;
     END;

// End of the lines.

      BEGIN
...

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

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

Microsoft Dynamics NAV 2009 R2
Microsoft Dynamics NAV 2009 Service Pack 1

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

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

الحالة

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

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

الأعراض

الحل

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

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

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

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

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

الحالة

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

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

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

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