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

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

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

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

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

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

1. تغيير التعليمات البرمجية في إينسيرتفاتتعمل كما يلي:
   التعليمات البرمجية الموجودة

   ...IF UnrealizedVAT THEN BEGIN
   VATPostingSetup.TESTFIELD("Purch. VAT Unreal. Account");
   InitGLEntry(
   VATPostingSetup."Purch. VAT Unreal. Account",
   VATAmount,SrcCurrVATAmount,TRUE,TRUE);
   InsertGLEntry(TRUE);
   END ELSE
   IF "Deductible %" <> 0 THEN BEGIN
   VATPostingSetup.TESTFIELD("Purchase VAT Account");
   InitGLEntry(
   ...
   

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

   ...IF UnrealizedVAT THEN BEGIN
   VATPostingSetup.TESTFIELD("Purch. VAT Unreal. Account");
   InitGLEntry(
   VATPostingSetup."Purch. VAT Unreal. Account",
   VATAmount,SrcCurrVATAmount,TRUE,TRUE);
   
   // Add the following lines.
   IF GLEntry."Document Type" = GLEntry."Document Type"::"Credit Memo" THEN
   UnrealizedVATPosted := TRUE;
   // End of the added lines.
   
   InsertGLEntry(TRUE);
   END ELSE
   IF "Deductible %" <> 0 THEN BEGIN
   VATPostingSetup.TESTFIELD("Purchase VAT Account");
   InitGLEntry(
   ...
   

2. تغيير التعليمات البرمجية في وظيفة فيندونريليزيدفات كما يلي:
   التعليمات البرمجية الموجودة

   ...VATBase := ROUND((VATEntry2."Remaining Unrealized Base"* VATPart),GLSetup."Amount Rounding Precision");
   TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
   
   IF VATAmount <> 0 THEN BEGIN
   // IT0037.end
   
   // Delete the following lines.
    InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
    GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
    GLEntry."Bal. Account No." := PurchVATAccount;
    SummarizeVAT(
    GLSetup."Summarize G/L Entries",GLEntry,TempGLEntryVAT,InsertedTempGLEntryVAT);
   // End of the deleted lines.
   
   InitGLEntry(PurchVATAccount,VATAmount,0,FALSE,TRUE);
   GLEntry."Additional-Currency Amount" := VATAmountAddCurr;
   GLEntry."Gen. Posting Type" := VATEntry2.Type;
   GLEntry."Gen. Bus. Posting Group" := VATEntry2."Gen. Bus. Posting Group";
   GLEntry."Gen. Prod. Posting Group" := VATEntry2."Gen. Prod. Posting Group";
   ...
   

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

   ...VATBase := ROUND((VATEntry2."Remaining Unrealized Base"* VATPart),GLSetup."Amount Rounding Precision");
   TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
   
   IF VATAmount <> 0 THEN BEGIN
   // IT0037.end
   
   // Add the following lines.
    IF NOT UnrealizedVATPosted THEN BEGIN
   
    InitGLEntry(PurchVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
    GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
    GLEntry."Bal. Account No." := PurchVATAccount;
    SummarizeVAT(
    GLSetup."Summarize G/L Entries",GLEntry,TempGLEntryVAT,InsertedTempGLEntryVAT);
   
    END;
   // End of the added lines.
   
   InitGLEntry(PurchVATAccount,VATAmount,0,FALSE,TRUE);
   GLEntry."Additional-Currency Amount" := VATAmountAddCurr;
   GLEntry."Gen. Posting Type" := VATEntry2.Type;
   GLEntry."Gen. Bus. Posting Group" := VATEntry2."Gen. Bus. Posting Group";
   GLEntry."Gen. Prod. Posting Group" := VATEntry2."Gen. Prod. Posting Group";
   ...