يتم إنشاء إدخال ضريبة القيمة المضافة الإضافية بشكل غير متوقع عند تشغيل تقرير تعديل العملة في الإصدار السويسري من Microsoft Dynamics NAV

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

• الفرنسية (سويسرا) (fr-ch)
• الألمانية (سويسرا) (gr-ch)
• الإيطالية (سويسرا) (it-ch)

الأعراض

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

• الإصدار السويسري من Microsoft Dynamics NAV 2009 Service Pack 1
• الإصدار السويسري من Microsoft Dynamics NAV 2009
• الإصدار السويسري من Microsoft Dynamics NAV 5.0 Service Pack 1
• الإصدار السويسري من Microsoft Dynamics NAV 5.0

الدقة

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

يتوفر الآن إصلاح عاجل مدعوم من Microsoft. ومع ذلك، فإنه يهدف فقط إلى تصحيح المشكلة الموضحة في هذه المقالة. قم بتطبيقه فقط على الأنظمة التي تواجه هذه المشكلة المحددة. قد يتلقى الإصلاح العاجل هذا اختبارا إضافيا. لذلك، إذا لم تتأثر بشدة بهذه المشكلة، نوصي بالانتظار حتى حزمة خدمة Microsoft Dynamics NAV التالية أو إصدار 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. أضف متغيرا محليا في الدالة InsertVAT في Gen. Jnl.-Post Line codeunit (12)، ثم حدد المتغير كما يلي:

   • الاسم:SourceCodeSetup
   • نوع البيانات:تسجيل
   • النوع الفرعي: إعداد التعليمات البرمجية المصدر

2. تغيير التعليمات البرمجية في الدالة InsertVAT في Gen. Jnl.-Post Line codeunit (12) كما يلي:
   التعليمات البرمجية الموجودة

   ...
         IF (VATEntry."Currency Code" <> '') THEN
           VATEntry."Unadjusted Exchange Rate" := TRUE;
       END;
       VATEntry.INSERT;
       GLEntryVatEntrylink.InsertLink(GLEntryTmp,VATEntry);     // this line exists in NAV 2009 only
       NextVATEntryNo := NextVATEntryNo + 1;
     END;
     // VAT for G/L entry/entries
     IF (GLEntryVATAmount <> 0) OR
        ((SrcCurrGLEntryVATAmt <> 0) AND (SrcCurrCode = GLSetup."Additional Reporting Currency"))
   ...
   
   

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

   ...
         IF (VATEntry."Currency Code" <> '') THEN
           VATEntry."Unadjusted Exchange Rate" := TRUE;
       END;
       SourceCodeSetup.GET; 
       IF "Source Code" <> SourceCodeSetup."Exchange Rate Adjmt." THEN BEGIN 
         VATEntry.INSERT;
         GLEntryVatEntrylink.InsertLink(GLEntryTmp,VATEntry);     // this line exists in NAV 2009 only
         NextVATEntryNo := NextVATEntryNo + 1;
       END;
     END;
     // VAT for G/L entry/entries
     IF (GLEntryVATAmount <> 0) OR
        ((SrcCurrGLEntryVATAmt <> 0) AND (SrcCurrCode = GLSetup."Additional Reporting Currency"))
   ...
   
   

3. تغيير التعليمات البرمجية في مشغل إدخال ضريبة القيمة المضافة - OnPostDataItem في تقرير ضبط أسعار الصرف (595) كما يلي:
   التعليمات البرمجية الموجودة

   ...
   IF PostSettlement THEN BEGIN
     GenJnlPostLine.GetGLReg(GLReg);
     IF GLReg."No." <> 0 THEN BEGIN
       GLReg."To VAT Entry No." := NewVATEntry."Entry No.";
      GLReg.MODIFY;
     END ELSE BEGIN
   ...
   
   

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

   ...
   IF PostSettlement THEN BEGIN
     GenJnlPostLine.GetGLReg(GLReg);
     IF GLReg."No." <> 0 THEN BEGIN
   
   // Add the following lines.
       IF NewVATEntry."Entry No." >= FirstVATEntry THEN 
         GLReg."From VAT Entry No." := FirstVATEntry; 
   // End of the lins.
   
       GLReg."To VAT Entry No." := NewVATEntry."Entry No.";
       GLReg.MODIFY;
     END ELSE BEGIN
   ...
   
   

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

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

• الإصدار السويسري من Microsoft Dynamics NAV 2009 Service Pack 1
• الإصدار السويسري من Microsoft Dynamics NAV 2009
• الإصدار السويسري من Microsoft Dynamics NAV 5.0 Service Pack 1
• الإصدار السويسري من Microsoft Dynamics NAV 5.0

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

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

الحالة

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

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