رسالة الخطأ "لا يمكن إلغاء تطبيق المستندات نظرا لاستخدام رصيد ضريبة الخدمة بالفعل" عند تشغيل دالة Unapply Entries على فاتورة شراء منشورة لموردي GTA المحددين في الإصدار الهندي من Microsoft Dynamics NAV 2009

ينطبق على
Dynamics NAV 2009

تنطبق هذه المقالة على Microsoft Dynamics NAV للغات اللغة الهندية (باللغة الهندية).

الأعراض

عند تشغيل الدالة Unapply Entries على فاتورة شراء منشورة تحتوي على ضريبة خدمة لموردي GTA المحددة في الإصدار الهندي من Microsoft Dynamics NAV 2009 R2 وMicrosoft Dynamics NAV 2009 Service Pack 1 (SP1)، تتلقى رسالة الخطأ التالية:

ملاحظة

لا يمكن إلغاء تطبيق المستندات نظرا لاستخدام الرصيد الضريبي للخدمة بالفعل.

الدقة

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

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

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

            
          

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

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

ملاحظة قبل تثبيت هذا الإصلاح العاجل، تحقق من تسجيل خروج جميع مستخدمي عميل Microsoft Navision من النظام. يتضمن ذلك مستخدمي عميل Microsoft Navision Application Services (NAS). يجب أن تكون المستخدم العميل الوحيد الذي قام بتسجيل الدخول عند تنفيذ هذا الإصلاح العاجل.

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

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

  • إذن تعديل للكائن الذي ستقوم بتغييره.
  • إذن Execute للكائن System Object ID 5210 ولعنصر System Object ID 9015.

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

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

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

  1. أضف المتغير العمومي التالي في Gen. Jnl.-Post Line codeunit (12):

    • TempServiceTaxEntry3@1500076: السجل المؤقت 16473
  2. أضف المتغير المحلي التالي في الدالة UnApplyVendSTEntries في Gen. Jnl.-Post Line codeunit (12):

    • STEntryDetail2@1500000 : سجل 16474
  3. تغيير التعليمات البرمجية في الدالة UnApplyVendSTEntries في Gen. Jnl.-Post Line codeunit (12) كما يلي:
    التعليمات البرمجية الموجودة 1

    ...
            STaxApplBuffer[1].DELETEALL;
            WITH DtldVendLedgEntry2 DO BEGIN
    ...
    
    

    رمز الاستبدال 1

    ...
            STaxApplBuffer[1].DELETEALL;
    
    // Add the following line.
             TempServiceTaxEntry3.DELETEALL; 
    // End of the line.
    
            WITH DtldVendLedgEntry2 DO BEGIN
    ...
    
    

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

    ...
                  ServiceTaxMgt.UnApplyVendPmtEntries(STEntryDetail,NextTransactionNo);
    
    // Delete the following line.
                 Sign := -1;
                 FillSvcTaxApplication4(STEntryDetail,Sign); 
                 Sign := 1; 
                 FillSvcTaxApplication4(STEntryDetail,Sign); 
                 ServiceTaxEntry.GET(STEntryDetail."Service Tax Entry No."); 
                  IF ServiceTaxEntry."Serv. Tax on Advance Payment" THEN BEGIN 
    // End of the line.
    ...
    
    

    رمز الاستبدال 2

    ...
                  ServiceTaxMgt.UnApplyVendPmtEntries(STEntryDetail,NextTransactionNo);
    
    // Add the following lines.
                 ServiceTaxEntry.GET(STEntryDetail."Service Tax Entry No."); 
                 ServiceTaxSetup.RESET; 
                 ServiceTaxSetup.SETRANGE(Code,STEntryDetail."Service Tax Group Code"); 
                 ServiceTaxSetup.SETRANGE("From Date",0D,STEntryDetail."Posting Date"); 
                 TempServiceTaxEntry3.TRANSFERFIELDS(ServiceTaxEntry); 
                 IF NOT STEntryDetail.GTA THEN BEGIN 
                   TempServiceTaxEntry3.INSERT; 
                   Sign := -1; 
                 END ELSE BEGIN 
                   TempServiceTaxEntry3."G/L Account" := STEntryDetail."GL Account"; 
                   TempServiceTaxEntry3.INSERT; 
                   Sign := 1; 
                 END; 
    
                 FillSvcTaxApplication4(STEntryDetail,Sign); 
    
                 STEntryDetail2 := STEntryDetail; 
                 IF NOT STEntryDetail.GTA THEN 
                   Sign := 1 
                 ELSE BEGIN 
                   IF ServiceTaxSetup.FINDLAST THEN 
                     STEntryDetail2."GL Account" := ServiceTaxSetup."Payables Account (Interim)"; 
                   Sign := -1; 
                 END; 
    
                 FillSvcTaxApplication4(STEntryDetail2,Sign);
                  IF ServiceTaxEntry."Serv. Tax on Advance Payment" THEN BEGIN 
    // End of the lines.
    ...
    
    

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

    ...
                      ServiceTaxEntry."From Excise" := STEntryDetail."From Excise";
    
    // Delete the following lines.
                     ServiceTaxSetup.RESET; 
                     ServiceTaxSetup.SETRANGE(Code,STEntryDetail."Service Tax Group Code"); 
                     ServiceTaxSetup.SETRANGE("From Date",0D,STEntryDetail."Posting Date");
    // End of the lines.
    
                      IF ServiceTaxSetup.FINDLAST THEN BEGIN
    ...
    
    

    رمز الاستبدال 3

    ...
                      ServiceTaxEntry."From Excise" := STEntryDetail."From Excise";
                      IF ServiceTaxSetup.FINDLAST THEN BEGIN
    ...
    
    
  4. احذف المتغير المحلي التالي في الدالة FillSvcTaxApplication4 في Gen. Jnl.-Post Line codeunit (12):

    • VAR ServiceTaxEntry@1002 : سجل 16473
  5. تغيير التعليمات البرمجية في الدالة FillSvcTaxApplication4 في Gen. Jnl.-Post Line codeunit (12) كما يلي:
    التعليمات البرمجية الموجودة

    ...
              IF Sign < 0 THEN
    
    // Delete the following lines.
               STaxApplBuffer[1]."G/L Account" := "GL Account" 
             ELSE BEGIN 
               ServiceTaxEntry.GET("Service Tax Entry No."); 
               STaxApplBuffer[1]."G/L Account" := ServiceTaxEntry."G/L Account"; 
             END;
    // End of the lines.
    
              STaxApplBuffer[1]."Amount to Apply (LCY)" := Sign * ("Service Tax Amount" + "Service Tax eCess Amount" +
    ...
    
    

    رمز الاستبدال

    ...
    IF Sign < 0 THEN
    
             // Add the following lines.
               STaxApplBuffer[1]."G/L Account" := "GL Account" 
             ELSE 
               STaxApplBuffer[1]."G/L Account" := TempServiceTaxEntry3."G/L Account"; 
             // End of the lines.
    
              STaxApplBuffer[1]."Amount to Apply (LCY)" := Sign * ("Service Tax Amount" + "Service Tax eCess Amount" +
    ...
    
    
  6. تغيير التعليمات البرمجية في الدالة UnApplyVendPmtEntries في وحدة التعليمات البرمجية لإدارة ضريبة الخدمة (16471) كما يلي:
    التعليمات البرمجية الموجودة 1

    ...
            WITH STEntryDetail DO BEGIN
    
    // Delete the following lines.
             IF ("Service Tax Amount" <> "Remaining Credit") OR ("Service Tax eCess Amount" <> "Remaining Credit (eCess)") OR 
               ("Service Tax SHE Cess Amount" <> "Remaining Credit (SHECess)") 
             THEN 
               ERROR(Text16535,"Document No."); 
    // End of the lines.
    
              STEntryDetail2.RESET;
    ...
    
    

    رمز الاستبدال 1

    ...
            WITH STEntryDetail DO BEGIN
    
             // Add the following lines.
             IF GTA THEN BEGIN 
               IF ("Service Tax Amount" <> "GTA Remaining Credit") OR ("Service Tax eCess Amount" <> "GTA Remaining Credit (eCess)") OR 
                 ("Service Tax SHE Cess Amount" <> "GTA Remaining Credit (SHECess)") 
               THEN 
                 ERROR(Text16535,"Document No."); 
             END ELSE BEGIN 
               IF ("Service Tax Amount" <> "Remaining Credit") OR ("Service Tax eCess Amount" <> "Remaining Credit (eCess)") OR 
                 ("Service Tax SHE Cess Amount" <> "Remaining Credit (SHECess)") 
               THEN 
                 ERROR(Text16535,"Document No."); 
             END; 
             // End of the lines.
    
              STEntryDetail2.RESET;
    ...
    
    

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

    ...
              STEntryDetail2."Remaining S.T. Base Amount" := - STEntryDetail2."Remaining S.T. Base Amount";
              STEntryDetail2.INSERT;
    ...
    
    

    رمز الاستبدال 2

    ...
              STEntryDetail2."Remaining S.T. Base Amount" := - STEntryDetail2."Remaining S.T. Base Amount";
    
             // Add the following lines.
             STEntryDetail2."GTA Remaining Credit" := - STEntryDetail2."GTA Remaining Credit"; 
             STEntryDetail2."GTA Remaining Credit (eCess)" := - STEntryDetail2."GTA Remaining Credit (eCess)"; 
             STEntryDetail2."GTA Remaining Credit (SHECess)" := - STEntryDetail2."GTA Remaining Credit (SHECess)"; 
             // End of the lines.
    
              STEntryDetail2.INSERT;
    ...
    
    

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

يجب أن يكون لديك أحد المنتجات التالية مثبتا لتطبيق هذا الإصلاح العاجل:

  • الإصدار الهندي من Microsoft Dynamics NAV 2009 R2
  • الإصدار الهندي من Microsoft Dynamics NAV 2009 Service Pack 1

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

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

الحالة

لقد أكدت Microsoft على أن هذه مشكلة في منتجات Microsoft المُدرجة في القسم "ينطبق على".

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