تاريخ ضريبة القيمة المضافة في دفع مرحلة تقع خارج النطاق من تواريخ الترحيل في إصدار Microsoft Dynamics NAV 2009 R2 الكرواتية المسموح بها ضريبة القيمة المضافة

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

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

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

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

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

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

   ...GLSetup.GET;
   IF GLSetup."Use VAT Date" THEN BEGIN
   
   // Delete the following line. 
   VATDateNeeded := FALSE;
   
   IF "Gen. Posting Type" > 0 THEN
   IF VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group") THEN
   IF NOT VATPostingSetup."Allow Blank VAT Date" THEN
   VATDateNeeded := TRUE;
   IF "Bal. Gen. Posting Type" > 0 THEN
   IF VATPostingSetup.GET("Bal. VAT Bus. Posting Group","Bal. VAT Prod. Posting Group") THEN
   IF NOT VATPostingSetup."Allow Blank VAT Date" THEN
   VATDateNeeded := TRUE;
   IF VATDateNeeded THEN
   IF "VAT Date" <> 0D THEN BEGIN
   IF VATDateNotAllowed("VAT Date") THEN
   FIELDERROR("VAT Date",Text26500);
   VATPeriodCheck("VAT Date");
   END ELSE
   TESTFIELD("VAT Date");
   END;
   ...
   

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

   ...GLSetup.GET;
   IF GLSetup."Use VAT Date" THEN BEGIN
   
   // Add the following lines. 
   IF "VAT Date" <> 0D THEN
   VATDateNeeded := TRUE
   ELSE BEGIN
   // End of the added lines. 
   
   IF "Gen. Posting Type" > 0 THEN
   IF VATPostingSetup.GET("VAT Bus. Posting Group","VAT Prod. Posting Group") THEN
   IF NOT VATPostingSetup."Allow Blank VAT Date" THEN
   VATDateNeeded := TRUE;
   IF "Bal. Gen. Posting Type" > 0 THEN
   IF VATPostingSetup.GET("Bal. VAT Bus. Posting Group","Bal. VAT Prod. Posting Group") THEN
   IF NOT VATPostingSetup."Allow Blank VAT Date" THEN
   VATDateNeeded := TRUE;
   
   // Add the following line. 
   END; 
   
   IF VATDateNeeded THEN
   IF "VAT Date" <> 0D THEN BEGIN
   IF VATDateNotAllowed("VAT Date") THEN
   FIELDERROR("VAT Date",Text26500);
   VATPeriodCheck("VAT Date");
   END ELSE
   TESTFIELD("VAT Date");
   END;
   ...
   

2. تغيير التعليمات البرمجية في وظيفة كالكبمتديسسيفادجفات في "الجنرال جنل.-ترحيل بند" كوديونيت (12) كما يلي:
   التعليمات البرمجية الموجودة

   ...TempVatEntry := VATEntry2;
   TempVatEntry."Entry No." := TempVatEntryNo;
   TempVatEntry."Posting Date" := GenJnlLine."Posting Date";
   TempVatEntry."Document No." := GenJnlLine."Document No.";
   TempVatEntry."External Document No." := GenJnlLine."External Document No.";
   TempVatEntry."Document Type" := GenJnlLine."Document Type";
   ...
   

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

   ...TempVatEntry := VATEntry2;
   TempVatEntry."Entry No." := TempVatEntryNo;
   TempVatEntry."Posting Date" := GenJnlLine."Posting Date";
   
   // Add the following line.
   TempVatEntry."VAT Date" := GenJnlLine."VAT Date"; 
   
   TempVatEntry."Document No." := GenJnlLine."Document No.";
   TempVatEntry."External Document No." := GenJnlLine."External Document No.";
   TempVatEntry."Document Type" := GenJnlLine."Document Type";
   ...