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

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

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

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

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

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

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

   ...// Delete the following lines.
   PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal;
   BEGIN
   EXIT(CalcTotalAmtInclVAT(Currency) - (InvAmt + CalcPostedAmtInclVAT));
   // End of the lines.
   
   END;
   ...
   

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

   ...// Add the following lines.
   LOCAL PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal;
   VAR
   TotalAmtInclVAT@1360001 : Decimal;
   BEGIN
   TotalAmtInclVAT :=
   CalcTotalAmtInclVAT(Currency);
   IF TotalAmtInclVAT = InvAmt THEN
   EXIT(0);
   EXIT(TotalAmtInclVAT - (InvAmt + CalcPostedAmtInclVAT));
   // End of the lines.
   
   END;
   ...
   

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

   ...SETRANGE("Document No.",SalesHeader."No.");
   
   // Delete the following line.
   EXIT(SalesPostAdvances.FullyDeductedCustPrepmt(SalesOrderLine));
   
   END;
   ...
   

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

   ...SETRANGE("Document No.",SalesHeader."No.");
   
   // Add the following line.
   EXIT(SalesPostAdvances.IsFinalCustInvoice(SalesOrderLine));
   
   END;
   ...
   

3. تغيير التعليمات البرمجية في وظيفة كالكرنديفامت في كوديونيت "شراء" اللاحقة "(90) كما يلي:
   التعليمات البرمجية الموجودة

   ...// Delete the following lines.
   PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal;
   BEGIN
   EXIT(CalcTotalAmtInclVAT(Currency) - (InvAmt - CalcPostedAmtInclVAT));
   // End of the lines.
   
   END;
   ...
   

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

   ...// Add the following lines.
   LOCAL PROCEDURE CalcRndDiffAmt@1360025(InvAmt@1360007 : Decimal;Currency@1360000 : Record 4) : Decimal;
   VAR
   TotalAmtInclVAT@1360001 : Decimal;
   BEGIN
   TotalAmtInclVAT :=
   CalcTotalAmtInclVAT(Currency);
   IF TotalAmtInclVAT = InvAmt THEN
   EXIT(0);
   EXIT(TotalAmtInclVAT - (InvAmt - CalcPostedAmtInclVAT));
   // End of the lines.
   
   END;
   ...
   

4. تغيير التعليمات البرمجية في وظيفة إيسفينالينفويسي في كوديونيت "شراء" اللاحقة "(90) كما يلي:
   التعليمات البرمجية الموجودة

   ...SETRANGE("Document No.",PurchHeader."No.");
   
   // Delete the following line.
   EXIT(PurchPostAdvances.FullyDeductedVendPrepmt(PurchOrderLine));
   
   END;
   ...
   

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

   ...SETRANGE("Document No.",PurchHeader."No.");
   
   // Add the following line.
   EXIT(PurchPostAdvances.IsFinalVendInvoice(PurchOrderLine));
   
   END;
   ...
   

5. تغيير التعليمات البرمجية في وظيفة ساليسورديربروسيسينج في كوديونيت "تقدم وظيفة المبيعات" (26585) كما يلي:
   التعليمات البرمجية الموجودة 1

   ...VAR
   
   // Delete the following lines.
   FullyDeducted@1360007 : Boolean;
   DocNoForVATCorr@1360006 : Code[20];
   BEGIN
   WITH SalesHeader DO BEGIN
   FullyDeducted := FullyDeductedCustPrepmt(SalesLine);
   IF FullyDeducted THEN
   // End of the lines.
   
   InvoicedAmount :=
   ...
   

   استبدال رمز 1

   ...VAR
   
   // Add the following lines.
   IsFinalInvoice@1360007 : Boolean;
   DocNoForVATCorr@1360006 : Code[20];
   BEGIN
   WITH SalesHeader DO BEGIN
   IsFinalInvoice := IsFinalCustInvoice(SalesLine);
   IF IsFinalInvoice THEN
   // End of the lines.
   
   InvoicedAmount :=
   ...
   

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

   ...SalesLine,SalesInvHeader,LinkedAdvanceEntry,DocNoForVATCorr,
   
   // Delete the following line.
   FullyDeducted,TempJnlLineDim,InvoicedAmount,Post);
   
   UNTIL SalesLine.NEXT = 0;
   ...
   

   استبدال رمز 2

   ...SalesLine,SalesInvHeader,LinkedAdvanceEntry,DocNoForVATCorr,
   
   // Add the following line.
   IsFinalInvoice,TempJnlLineDim,InvoicedAmount,Post);
   
   UNTIL SalesLine.NEXT = 0;
   ...
   

6. تغيير التعليمات البرمجية في وظيفة فوليديدوكتيدكوستبريبمت في كوديونيت "تقدم وظيفة المبيعات" (26585) كما يلي:
   التعليمات البرمجية الموجودة 1

   ...// Delete the following line.
   PROCEDURE FullyDeductedCustPrepmt@1470047(VAR SalesLine@1470000 : Record 37) : Boolean;
   
   BEGIN
   ...
   
   

   استبدال رمز 1

   ...// Add the following line.
   PROCEDURE IsFinalCustInvoice@1470047(VAR SalesLine@1470000 : Record 37) : Boolean;
   
   BEGIN
   ...
   

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

   ...SetSalesLineToPost(SalesLine);
   
   // Delete the following line.
   IF SalesLine."Prepmt Amt to Deduct" + SalesLine."Prepmt Amt Deducted" <> SalesLine."Prepmt. Amt. Inv." THEN
   
   EXIT(FALSE);
   ...
   

   استبدال رمز 2

   ...SetSalesLineToPost(SalesLine);
   
   // Add the following line.
   IF SalesLine."Qty. to Invoice" + SalesLine."Quantity Invoiced" <> SalesLine.Quantity THEN
   
   EXIT(FALSE);
   ...
   

7. تغيير التعليمات البرمجية في وظيفة كوليكتفوليديدوكتيدورديرس في كوديونيت "تقدم وظيفة المبيعات" (26858) كما يلي:
   التعليمات البرمجية الموجودة 1

   ...TempSalesOrderLine@1360003 : TEMPORARY Record 37;
   
   // Delete the following line.
   FullyDeducted@1360004 : Boolean;
   
   BEGIN
   ...
   

   استبدال رمز 1

   ...TempSalesOrderLine@1360003 : TEMPORARY Record 37;
   
   // Add the following line.
   IsFinalInvoice@1360004 : Boolean;
   
   BEGIN
   ...
   

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

   ...FilterSalesOrderLineWithHeader(SalesOrderLine,FullyDeductedOrder);
   
   // Delete the following lines.
   FullyDeducted := FullyDeductedOrder.FIND;
   IF NOT FullyDeducted THEN BEGIN
   FullyDeducted := FullyDeductedCustPrepmt(SalesOrderLine);
   IF FullyDeducted THEN
   FullyDeductedOrder.INSERT;
   END;
   IF FullyDeducted THEN BEGIN
   // End of the lines.
   
   FillSalesOrderLineFromSalesInv(TempSalesOrderLine,SalesOrderLine);
   ...
   

   استبدال رمز 2

   ...FilterSalesOrderLineWithHeader(SalesOrderLine,FullyDeductedOrder);
   
   // Add the following lines.
   IsFinalInvoice := FullyDeductedOrder.FIND;
   IF NOT IsFinalInvoice THEN BEGIN
   IsFinalInvoice := IsFinalCustInvoice(SalesOrderLine);
   IF IsFinalInvoice THEN
   FullyDeductedOrder.INSERT;
   END;
   IF IsFinalInvoice THEN BEGIN
   // End of the lines.
   
   FillSalesOrderLineFromSalesInv(TempSalesOrderLine,SalesOrderLine);
   ...
   

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

   ...VAR
   
   // Delete the following lines.
   FullyDeducted@1360007 : Boolean;
   DocNoForVATCorr@1360006 : Code[20];
   BEGIN
   WITH PurchHeader DO BEGIN
   FullyDeducted := FullyDeductedVendPrepmt(PurchLine);
   IF FullyDeducted THEN
   // End of the lines.
   
   InvoicedAmount :=
   ...
   

   استبدال رمز 1

   ...VAR
   
   // Add the following lines.
   IsFinalInvoice@1360007 : Boolean;
   DocNoForVATCorr@1360006 : Code[20];
   BEGIN
   WITH PurchHeader DO BEGIN
   IsFinalInvoice := IsFinalVendInvoice(PurchLine);
   IF IsFinalInvoice THEN
   // End of the lines.
   
   InvoicedAmount :=
   ...
   

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

   ...PurchLine,PurchInvHeader,LinkedAdvanceEntry,DocNoForVATCorr,
   
   // Delete the following line.
   FullyDeducted,TempJnlLineDim,InvoicedAmount,Post);
   
   UNTIL PurchLine.NEXT = 0;
   ...
   

   استبدال رمز 2

   ...PurchLine,PurchInvHeader,LinkedAdvanceEntry,DocNoForVATCorr,
   
   // Add the following line.
   IsFinalInvoice,TempJnlLineDim,InvoicedAmount,Post);
   
   UNTIL PurchLine.NEXT = 0;
   ...
   

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

   ...// Delete the following line.
   PROCEDURE FullyDeductedVendPrepmt@1470047(VAR PurchLine@1470000 : Record 39) : Boolean;
   
   BEGIN
   ...
   

   استبدال رمز 1

   ...// Add the following line.
   PROCEDURE IsFinalVendInvoice@1470047(VAR PurchLine@1470000 : Record 39) : Boolean;
   
   BEGIN
   ...
   

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

   ...SetPurchLineToPost(PurchLine);
   
   // Delete the following line.
   IF PurchLine."Prepmt Amt to Deduct" + PurchLine."Prepmt Amt Deducted" <> PurchLine."Prepmt. Amt. Inv." THEN
   
   EXIT(FALSE);
   ...
   

   استبدال رمز 2

   ...SetPurchLineToPost(PurchLine);
   
   // Add the following line.
   IF PurchLine."Qty. to Invoice" + PurchLine."Quantity Invoiced" <> PurchLine.Quantity THEN
   
   EXIT(FALSE);
   ...
   

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

    ...TempPurchOrderLine@1360003 : TEMPORARY Record 39;
    
    // Delete the following line.
    FullyDeducted@1360004 : Boolean;
    
    BEGIN
    ...
    

    استبدال رمز 1

    ...TempPurchOrderLine@1360003 : TEMPORARY Record 39;
    
    // Add the following line.
    IsFinalInvoice@1360004 : Boolean;
    
    BEGIN
    ...
    

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

    ...FilterPurchOrderLineWithHeader(PurchOrderLine,FullyDeductedOrder);
    
    // Delete the following lines.
    FullyDeducted := FullyDeductedOrder.FIND;
    IF NOT FullyDeducted THEN BEGIN
    FullyDeducted := FullyDeductedVendPrepmt(PurchOrderLine);
    IF FullyDeducted THEN
    FullyDeductedOrder.INSERT;
    END;
    IF FullyDeducted THEN BEGIN
    // End of the lines.
    
    FillPurchOrderLineFromPurchInv(TempPurchOrderLine,PurchOrderLine);
    ...
    

    استبدال رمز 2

    ...FilterPurchOrderLineWithHeader(PurchOrderLine,FullyDeductedOrder);
    
    // Add the following lines.
    IsFinalInvoice := FullyDeductedOrder.FIND;
    IF NOT IsFinalInvoice THEN BEGIN
    IsFinalInvoice := IsFinalVendInvoice(PurchOrderLine);
    IF IsFinalInvoice THEN
    FullyDeductedOrder.INSERT;
    END;
    IF IsFinalInvoice THEN BEGIN
    // End of the lines.
    
    FillPurchOrderLineFromPurchInv(TempPurchOrderLine,PurchOrderLine);
    ...