المبالغ الموجودة في ملف بيان ضريبة القيمة المضافة غير صحيحة في إصدار Microsoft Dynamics NAV 2009 R2 التشيكية

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

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

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

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

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

1. تغيير التعليمات البرمجية في وظيفة اكسبورتوكسمل في شكل "تصدير كشف ضريبة القيمة المضافة" (11764) كما يلي:
   التعليمات البرمجية الموجودة 1

   ...
   VATStatementLine.SETFILTER("Attribute Code",'<>%1','');
   IF VATStatementLine.FINDSET THEN
   REPEAT
   VATStatement.InitializeRequest(
   VATStatementName,VATStatementLine,Selection,
   PeriodSelection,PrintInIntegers,UseAmtsInAddCurr);
   ...

   استبدال رمز 1

   ...
   VATStatementLine.SETFILTER("Attribute Code",'<>%1','');
   IF VATStatementLine.FINDSET THEN
   REPEAT
   
   // Add the following line.
   VATStatement.SetRoundingDirection(RoundingDirection);
   
   VATStatement.InitializeRequest(
   VATStatementName,VATStatementLine,Selection,
   PeriodSelection,PrintInIntegers,UseAmtsInAddCurr);
   ...

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

   ...
   AttributeCode.GET(VATStatementLine."Attribute Code");
   
   // Delete the following lines. 
   IF (AttributeCode."XML Code" <> 'KOEF_P20_NOV') AND
   (AttributeCode."XML Code" <> 'KOEF_P20_VYPOR')
   THEN
   ColumnValue := ROUND(ColumnValue,1);
   // End of the lines.
   ...

   استبدال رمز 2

   ...
   AttributeCode.GET(VATStatementLine."Attribute Code");
   
   // Add the following lines. 
   IF PrintInIntegers AND (AttributeCode."XML Code" <> 'KOEF_P20_NOV') AND
   (AttributeCode."XML Code" <> 'KOEF_P20_VYPOR')
   THEN
   ColumnValue := VATStatement.RoundAmount(ColumnValue);
   // End of the lines. 
   ...

2. إنشاء متغير محلي جديد في الدالة كالكلينيتوتال في تقرير "كشف ضريبة القيمة المضافة" (12)، وقم بتحديد المتغير كما يلي:

   • الاسم: سافيدستمتليني

   • نوع البيانات: السجل

   • النوع الفرعي: سطر كشف حساب ضريبة القيمة المضافة

3. إنشاء متغير محلي جديد في الدالة كالكلينيتوتال في تقرير "كشف ضريبة القيمة المضافة" (12)، وقم بتحديد المتغير كما يلي:

   • الاسم: سافيدتوتالاماونت

   • نوع البيانات: العشرية

4. تغيير التعليمات البرمجية في وظيفة كالكلينيتوتال في تقرير "كشف ضريبة القيمة المضافة" (12) كما يلي:
   التعليمات البرمجية الموجودة 1

   ...
   IF VATStmtLine2."Row Totaling" = '' THEN
   EXIT(TRUE);
   VATStmtLine2.SETRANGE("Statement Template Name",VATStmtLine2."Statement Template Name");
   VATStmtLine2.SETRANGE("Statement Name",VATStmtLine2."Statement Name");
   VATStmtLine2.SETFILTER("Row No.",VATStmtLine2."Row Totaling");
   ...

   استبدال رمز 1

   ...
   IF VATStmtLine2."Row Totaling" = '' THEN
   EXIT(TRUE);
   
   // Add the following lines.
   SavedStmtLine := VATStmtLine2;
   SavedTotalAmount := TotalAmount;
   TotalAmount := 0;
   // End of the lines. 
   
   VATStmtLine2.SETRANGE("Statement Template Name",VATStmtLine2."Statement Template Name");
   VATStmtLine2.SETRANGE("Statement Name",VATStmtLine2."Statement Name");
   VATStmtLine2.SETFILTER("Row No.",VATStmtLine2."Row Totaling");
   ...

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

   ...
   VATStmtLine2.FIELDERROR("Row No.",ErrorText);
   END;
   UNTIL VATStmtLine2.NEXT = 0;
   END;
   VATStmtLine2.Type::Description:
   ;
   ...

   استبدال رمز 2

   ...
   VATStmtLine2.FIELDERROR("Row No.",ErrorText);
   END;
   UNTIL VATStmtLine2.NEXT = 0;
   
   // Add the following lines.
   Amount := TotalAmount;
   TotalAmount := SavedTotalAmount;
   CalcTotalAmount(SavedStmtLine,TotalAmount);
   // End of the lines. 
   
    END;
   VATStmtLine2.Type::Description:
   ;
   ...

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

   ...
   VATStmtLine2.Type::Formula:
   
   // Delete the following line. 
   TotalAmount := EvaluateExpression(TRUE,VATStmtLine2."Row Totaling",VATStmtLine2,TRUE);
   
   END;
   ...

   استبدال رمز 3

   ...
   VATStmtLine2.Type::Formula:
   
   // Add the following lines. 
   BEGIN
   Amount := EvaluateExpression(TRUE,VATStmtLine2."Row Totaling",VATStmtLine2,TRUE);
   TotalAmount := 0;
   CalcTotalAmount(VATStmtLine2,TotalAmount);
   END;
   // End of the lines. 
   
   END;
   ...