يتم حساب القيمة في الحقل "Prepmt Amt Deducted Excl. VAT" بشكل غير صحيح عند تنفيذ خطوط مبيعات/شراء مشحونة جزئيا في Microsoft Dynamics NAV 2009 SP1 أو في Microsoft Dynamics NAV 5.0 SP1

ينطبق على
Dynamics NAV 2009 Microsoft Dynamics NAV 5.0

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

الأعراض

عند معالجة خطوط مبيعات/شراء مشحونة جزئيا في Microsoft Dynamics NAV 2009 SP1 أو في Microsoft Dynamics NAV 5.0 SP1، فإنك تلاحظ أن القيمة في Prepmt Amt Deducted Excl. يتم حساب حقل ضريبة القيمة المضافة بشكل غير صحيح.

الدقة

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

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

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

            
          

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

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

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

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

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

  • إذن تعديل للكائن الذي ستقوم بتغييره.
  • إذن Execute للكائن System Object ID 5210 ولعنصر System Object ID 9015.

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

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

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

  1. قم بإزالة المتغير المحلي التالي في الدالة OnRun في Purch.-Post codeunit (90):

    TempPrePmtAmtToDeduct@1004 : عشري

  2. تغيير التعليمات البرمجية في Purch.-Post codeunit (90) كما يلي:
    التعليمات البرمجية الموجودة 1

    ...
PurchLine."Return Qty. Shipped (Base)" + PurchLine."Return Qty. to Ship (Base)";
END;
IF Invoice THEN BEGIN

// Delete the following line.
TempPrePmtAmtToDeduct := PurchLine."Prepmt Amt to Deduct"; 

IF "Document Type" = "Document Type"::Order THEN BEGIN
IF ABS(PurchLine."Quantity Invoiced" + PurchLine."Qty. to Invoice") >
...

    رمز الاستبدال 1

    ...
PurchLine."Return Qty. Shipped (Base)" + PurchLine."Return Qty. to Ship (Base)";
END;
IF Invoice THEN BEGIN
IF "Document Type" = "Document Type"::Order THEN BEGIN
IF ABS(PurchLine."Quantity Invoiced" + PurchLine."Qty. to Invoice") >
...

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

    ...
PurchLine."Return Qty. Shipped (Base)" - PurchLine."Qty. Invoiced (Base)";
END;

// Delete the following line.
PurchLine."Prepmt Amt to Deduct" := TempPrePmtAmtToDeduct; 

PurchLine."Quantity Invoiced" := PurchLine."Quantity Invoiced" + PurchLine."Qty. to Invoice";
...

    رمز الاستبدال 2

    ...
PurchLine."Return Qty. Shipped (Base)" - PurchLine."Qty. Invoiced (Base)";
END;

// Add the following line.
PurchLine.CalcPrepaymentToDeduct; 

PurchLine."Quantity Invoiced" := PurchLine."Quantity Invoiced" + PurchLine."Qty. to Invoice";
...

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

    ...
END;
END;
UpdateBlanketOrderLine(PurchLine,Receive,Ship,Invoice);
PurchLine.InitOutstanding;
IF WhseHandlingRequired OR
...

    رمز الاستبدال 3

    ...
END;
END;
UpdateBlanketOrderLine(PurchLine,Receive,Ship,Invoice);
PurchLine.InitOutstanding;

// Add the following line.
PurchLine.CalcPrepaymentToDeduct; 

IF WhseHandlingRequired OR
...

  3. قم بإزالة المتغير المحلي التالي في Properties في Sales-Post codeunit (80):
    TempPrePmtAmtToDeduct@1003 : عشري؛

  4. قم بتغيير التعليمات البرمجية في Properties في Sales-Post codeunit (80) كما يلي:
    التعليمات البرمجية الموجودة 1

    ...
SalesLine."Return Qty. Received (Base)" :=
SalesLine."Return Qty. Received (Base)" +
SalesLine."Return Qty. to Receive (Base)";
END;
IF Invoice THEN BEGIN

// Delete the following line.
TempPrePmtAmtToDeduct := SalesLine."Prepmt Amt to Deduct";

IF "Document Type" = "Document Type"::Order THEN BEGIN
IF ABS(SalesLine."Quantity Invoiced" + SalesLine."Qty. to Invoice") >
ABS(SalesLine."Quantity Shipped")
THEN BEGIN
SalesLine.VALIDATE("Qty. to Invoice",
...

    رمز الاستبدال 1

    ...
SalesLine."Return Qty. Received (Base)" :=
SalesLine."Return Qty. Received (Base)" +
SalesLine."Return Qty. to Receive (Base)";
END;
IF Invoice THEN BEGIN
IF "Document Type" = "Document Type"::Order THEN BEGIN
IF ABS(SalesLine."Quantity Invoiced" + SalesLine."Qty. to Invoice") >
ABS(SalesLine."Quantity Shipped")
THEN BEGIN
SalesLine.VALIDATE("Qty. to Invoice",
...

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

    ...
SalesLine.VALIDATE("Qty. to Invoice",
SalesLine."Return Qty. Received" - SalesLine."Quantity Invoiced");
SalesLine."Qty. to Invoice (Base)" :=
SalesLine."Return Qty. Received (Base)" - SalesLine."Qty. Invoiced (Base)";
END;

// Delete the following line.
SalesLine."Prepmt Amt to Deduct" := TempPrePmtAmtToDeduct;

SalesLine."Quantity Invoiced" := SalesLine."Quantity Invoiced" + SalesLine."Qty. to Invoice";
SalesLine."Qty. Invoiced (Base)" := SalesLine."Qty. Invoiced (Base)" + SalesLine."Qty. to Invoice (Base)";
IF SalesLine."Qty. to Invoice" <> 0 THEN BEGIN
SalesLine."Prepmt Amt Deducted" :=
...

    رمز الاستبدال 2

    ...
SalesLine.VALIDATE("Qty. to Invoice",
SalesLine."Return Qty. Received" - SalesLine."Quantity Invoiced");
SalesLine."Qty. to Invoice (Base)" :=
SalesLine."Return Qty. Received (Base)" - SalesLine."Qty. Invoiced (Base)";
END;

// Add the following line.
SalesLine.CalcPrepaymentToDeduct;

SalesLine."Quantity Invoiced" := SalesLine."Quantity Invoiced" + SalesLine."Qty. to Invoice";
SalesLine."Qty. Invoiced (Base)" := SalesLine."Qty. Invoiced (Base)" + SalesLine."Qty. to Invoice (Base)";
IF SalesLine."Qty. to Invoice" <> 0 THEN BEGIN
SalesLine."Prepmt Amt Deducted" :=
...

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

    ...
END;
END;

UpdateBlanketOrderLine(SalesLine,Ship,Receive,Invoice);
SalesLine.InitOutstanding;

IF WhseHandlingRequired OR (SalesSetup."Default Quantity to Ship" = SalesSetup."Default Quantity to Ship"::Blank)
THEN BEGIN
IF "Document Type" = "Document Type"::"Return Order" THEN BEGIN
SalesLine."Return Qty. to Receive" := 0;
SalesLine."Return Qty. to Receive (Base)" := 0;
...

    رمز الاستبدال 3

    ...
END;
END;

UpdateBlanketOrderLine(SalesLine,Ship,Receive,Invoice);
SalesLine.InitOutstanding;

// Add the following line.
SalesLine.CalcPrepaymentToDeduct;

IF WhseHandlingRequired OR (SalesSetup."Default Quantity to Ship" = SalesSetup."Default Quantity to Ship"::Blank)
THEN BEGIN
IF "Document Type" = "Document Type"::"Return Order" THEN BEGIN
SalesLine."Return Qty. to Receive" := 0;
SalesLine."Return Qty. to Receive (Base)" := 0;
...

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

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

  • Microsoft Dynamics NAV 2009 SP1
  • Microsoft Dynamics NAV 5.0 SP1

                
              

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

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

الحالة

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

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