بريبمت. حقل للاستثمار مبلغ ضريبة القيمة المضافة (تمتلك) مفقود بعد الترقية من Microsoft Dynamics NAV 2009 لديناميات NAV 2013

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

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

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

معلومات التثبيت

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

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

لتطبيق هذا الإصلاح العاجل، يجب أن يكون لديك ترخيص مطور.

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

• إذن "تعديل" للكائن الذي سيتم تغيير.

• إذن Execute للكائن 5210 معرف كائن النظام و نظام 9015 معرف الكائن
  
  الكائن.

ملاحظة: ليس لديك حق لمخازن البيانات ما لم يكن لديك لإجراء إصلاح البيانات.

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

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

لحل هذه المشكلة، اتبع الخطوات التالية.

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

   ...UpdateItemLedgerEntry(StateIndicator);
         UpdateDOCreditCard(StateIndicator);
         UpdateSalesOrderDate(StateIndicator);
         UpdateOutlookSynchFilter(StateIndicator);
         UpdateOutlookSynchField(StateIndicator);
         DeleteRemovedPermissions(StateIndicator);
   ...
   

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

   ...UpdateItemLedgerEntry(StateIndicator);
         UpdateDOCreditCard(StateIndicator);
         UpdateSalesOrderDate(StateIndicator);
   
   // Add the following lines.
         UpdateSalesLines(StateIndicator);
         UpdatePurchLines(StateIndicator);
   // End of the added lines.
   
         UpdateOutlookSynchFilter(StateIndicator);
         UpdateOutlookSynchField(StateIndicator);
         DeleteRemovedPermissions(StateIndicator);
   ...
   

2. إضافة الوظائف التالية:

   LOCAL PROCEDURE UpdateSalesLines@62(VAR StateIndicator@1000 : Record 104037);VAR
         SalesLine@1001 : Record 37;
         LastDocumentNo@1002 : Code[20];
         PrepmtInvReminderAmount@1003 : Decimal;
       BEGIN
         WITH SalesLine DO
           IF StateIndicator.UpdateTable(TABLENAME) THEN BEGIN
             TimeLog.TimeLogInsert(TimeLog,TABLENAME,TRUE);
             SETCURRENTKEY("Document Type","Document No.","Line No.");
             IF FINDSET THEN
               REPEAT
                 StateIndicator.Update;
                 IF ("Document Type" = "Document Type"::Order) AND ("Prepayment Amount" <> "Prepmt. Amt. Incl. VAT") THEN BEGIN
                   IF "Document No." <> LastDocumentNo THEN BEGIN
                     LastDocumentNo := "Document No.";
                     PrepmtInvReminderAmount := 0;
                   END;
                   IF ("Prepmt. Amount Inv. (LCY)" <> 0) AND ("Prepmt. VAT Amount Inv. (LCY)" = 0) THEN BEGIN
                     "Prepmt. VAT Amount Inv. (LCY)" :=
                       CalcRndedAmount("Prepmt. Amount Inv. (LCY)","Prepayment VAT %" / 100,PrepmtInvReminderAmount);
                     MODIFY;
                   END;
                 END;
               UNTIL NEXT = 0;
             TimeLog.TimeLogInsert(TimeLog,TABLENAME,FALSE);
             StateIndicator.EndUpdateTable(TABLENAME);
           END;
   
   LOCAL PROCEDURE UpdatePurchLines@63(VAR StateIndicator@1000 : Record 104037);
       VAR
         PurchaseLine@1001 : Record 39;
         LastDocumentNo@1002 : Code[20];
         PrepmtInvReminderAmount@1003 : Decimal;
       BEGIN
         WITH PurchaseLine DO
           IF StateIndicator.UpdateTable(TABLENAME) THEN BEGIN
             TimeLog.TimeLogInsert(TimeLog,TABLENAME,TRUE);
             IF FINDSET THEN
               REPEAT
                 StateIndicator.Update;
                 IF ("Document Type" = "Document Type"::Order) AND ("Prepayment Amount" <> "Prepmt. Amt. Incl. VAT") THEN BEGIN
                   IF "Document No." <> LastDocumentNo THEN BEGIN
                     LastDocumentNo := "Document No.";
                     PrepmtInvReminderAmount := 0;
                   END;
                   IF ("Prepmt. Amount Inv. (LCY)" <> 0) AND ("Prepmt. VAT Amount Inv. (LCY)" = 0) THEN BEGIN
                     "Prepmt. VAT Amount Inv. (LCY)" :=
                       CalcRndedAmount("Prepmt. Amount Inv. (LCY)","Prepayment VAT %" / 100,PrepmtInvReminderAmount);
                     MODIFY;
                   END;
                 END;
               UNTIL NEXT = 0;
             TimeLog.TimeLogInsert(TimeLog,TABLENAME,FALSE);
             StateIndicator.EndUpdateTable(TABLENAME);
           END;
   
   LOCAL PROCEDURE CalcRndedAmount@64(LineAmount@1000 : Decimal;Ratio@1001 : Decimal;VAR Reminder@1002 : Decimal) RndedAmount : Decimal;
       VAR
         Amount@1003 : Decimal;
       BEGIN
         Amount := Reminder + LineAmount * Ratio;
         RndedAmount := ROUND(Amount);
         Reminder := Amount - RndedAmount;
       END;
   

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

يجب أن يكون لديك Microsoft Dynamics NAV 2013 مثبتة لتطبيق هذا الإصلاح العاجل.

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

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