المبلغ في ملف الإعلان 349 غير صحيح إذا تم تحديد خانة الاختيار "خدمة الاتحاد الأوروبي" في مربع الحوار "إعداد نشر ضريبة القيمة المضافة" في الإصدار الأسباني من Microsoft Dynamics NAV

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

الأعراض

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

الإصدار الأسباني من Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
الإصدار الأسباني من Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)

الحل

معلومات Hotfix

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

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

توفر Microsoft أمثلة برمجية للتوضيح فقط، بدون ضمان سواء صريح أو ضمني. يشمل ذلك، على سبيل المثال لا، الضمانات الضمنية الخاصة ب قابلية الاستخدام أو الللياقة لغرض معين. تفترض هذه المقالة أنك على دراية بلغة البرمجة التي يتم إظهارها ومع الأدوات المستخدمة لإنشاء إجراءات وتصحيح الأخطاء. يمكن لمهندسي دعم Microsoft المساعدة في توضيح وظائف إجراء معين، ولكن لن يتم تعديل هذه الأمثلة لتوفير إجراءات إنشاء أو وظائف إضافية لتلبية متطلباتك الخاصة.ملاحظة قبل تثبيت هذه الطريقة، تحقق من أن جميع مستخدمي عميل Microsoft Navision قد سجلوا خروجهم من النظام. يشمل ذلك مستخدمي عميل Microsoft Navision Application Services (NAS). يجب أن تكون المستخدم العميل الوحيد الذي قام بتسجيل الدخول عند تنفيذ هذه الطريقة.لتنفيذ هذه الطريقة، يجب أن يكون لديك ترخيص مطور.نوصي بتعيين حساب المستخدم في نافذة تسجيل الدخول إلى Windows أو في نافذة تسجيل الدخول إلى قاعدة البيانات على "SUPER" لم ID الدور. إذا لم يتم تعيين "SUPER" إلى حساب المستخدم، فيجب عليك التحقق من أن حساب المستخدم لديه الأذونات التالية:

إذن تعديل الكائن الذي سيتم تغييره.
الإذن "تنفيذ" لكائن "الم ID 5210" الخاص بكائن "كائن النظام" 9015.

ملاحظة، ليس عليك الحصول على حقوق لمخازن البيانات إلا إذا كان عليك إجراء إصلاح للبيانات.

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

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

تغيير التعليمة البرمجية في مقاطع رقم عنصر البيانات 5 في تقرير إعلان Make 349 (88) كما يلي: التعليمات البرمجية الموجودة 1

                              BEGIN
                                REPEAT

                                  //Delete the following line.
                                  VATInvSales.RESET;

                                  VATInvSales.SETRANGE(VATInvSales.Type,VATInvSales.Type::Sale);
                                  VATInvSales.SETRANGE(VATInvSales."Document Type",VATInvSales."Document Type"::Invoice);

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

                              BEGIN
                                REPEAT

                                  //Add the follwing lines.
                                  LastTransactionNo := 0;
                                  VATInvSales.RESET;
                                  VATInvSales.SETCURRENTKEY("Transaction No."); 
                                  //End of the lines.                               

                                  VATInvSales.SETRANGE(VATInvSales.Type,VATInvSales.Type::Sale);
                                  VATInvSales.SETRANGE(VATInvSales."Document Type",VATInvSales."Document Type"::Invoice);

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

                                          IF "VAT Registration No." <> '' THEN BEGIN
                                            IF AmountToIncludein349 <> 0 THEN BEGIN

                                              //Delete the following lines.
                                              OpTriang := 'X';
                                              AmountOpTri := AmountOpTri + AmountToIncludein349
                                              //End of the lines.                                           

                                            END ELSE BEGIN
                                              OpTriang := 'X';

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

                                          IF "VAT Registration No." <> '' THEN BEGIN
                                            IF AmountToIncludein349 <> 0 THEN BEGIN

                                              //Add the following lines.
                                              IF VATInvSales."Transaction No." <> LastTransactionNo THEN BEGIN
                                                OpTriang := 'X';
                                                AmountOpTri := AmountOpTri + AmountToIncludein349;
                                              END;
                                              //End of the lines.                                           

                                            END ELSE BEGIN
                                              OpTriang := 'X';

الرمز 3 الموجود

                                      // OpTriang := 'X';
                                      // AmountOpTri := AmountOpTri + VATInvSales.Base;
                                    UNTIL VATInvSales.NEXT = 0;
                                  END;

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

                                      // OpTriang := 'X';
                                      // AmountOpTri := AmountOpTri + VATInvSales.Base;

                                      //Add the following line.
                                      LastTransactionNo := VATInvSales."Transaction No.";

                                    UNTIL VATInvSales.NEXT = 0;
                                  END;

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

                                    UNTIL VATInvSales.NEXT = 0;
                                  END;

                                  //Delete the following line.
                                  VATInvSales.RESET;

                                  VATInvSales.SETRANGE(VATInvSales.Type,VATInvSales.Type::Sale);
                                  VATInvSales.SETRANGE(VATInvSales."Document Type",VATInvSales."Document Type"::Invoice);

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

                                    UNTIL VATInvSales.NEXT = 0;
                                  END;

                                  //Add the following lines.
                                  LastTransactionNo := 0;
                                  VATInvSales.RESET;
                                  VATInvSales.SETCURRENTKEY("Transaction No."); 
                                  //End of the lines.

                                  VATInvSales.SETRANGE(VATInvSales.Type,VATInvSales.Type::Sale);
                                  VATInvSales.SETRANGE(VATInvSales."Document Type",VATInvSales."Document Type"::Invoice);

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

                                          ((VATInvSales."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
                                          IF "VAT Registration No." <> '' THEN BEGIN

                                           //Delete the following lines.
                                           IF AmountToIncludein349 <> 0 THEN
                                             NormalAmount := NormalAmount + AmountToIncludein349
                                           ELSE
                                           //End of the lines.

                                             NormalAmount := NormalAmount + VATInvSales.Base;
                                          END ELSE

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

                                          ((VATInvSales."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
                                          IF "VAT Registration No." <> '' THEN BEGIN

                                           //Add the following lines.
                                           IF AmountToIncludein349 <> 0 THEN BEGIN
                                             IF VATInvSales."Transaction No." <> LastTransactionNo THEN
                                               NormalAmount := NormalAmount + AmountToIncludein349;
                                           END ELSE
                                           //End of the lines.                                        

                                             NormalAmount := NormalAmount + VATInvSales.Base;
                                          END ELSE

الرمز 6 الموجود

                                      END;
                                      // NormalAmount := NormalAmount + VATInvSales.Base;
                                    UNTIL VATInvSales.NEXT = 0;
                                  END;

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

                                      END;
                                      // NormalAmount := NormalAmount + VATInvSales.Base;

                                      //Add the following line.
                                      LastTransactionNo := VATInvSales."Transaction No.";

                                    UNTIL VATInvSales.NEXT = 0;
                                  END;

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

                                  END;

                                  //Delete the following line.
                                  VATInvSales.RESET;

                                  VATInvSales.SETRANGE(Type,VATInvSales.Type::Sale);
                                  VATInvSales.SETRANGE("Document Type",VATInvSales."Document Type"::Invoice);

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

                                  END;

                                  //Add the following lines.
                                  LastTransactionNo := 0; 
                                  VATInvSales.RESET;
                                  VATInvSales.SETCURRENTKEY("Transaction No."); 
                                  //End of the lines.

                                  VATInvSales.SETRANGE(Type,VATInvSales.Type::Sale);
                                  VATInvSales.SETRANGE("Document Type",VATInvSales."Document Type"::Invoice);

الرمز 8 الموجود

                                          ((VATInvSales."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
                                          IF "VAT Registration No." <> '' THEN BEGIN

                                            //Delete the following lines.
                                            IF AmountToIncludein349 <> 0 THEN
                                              AmountEUService := AmountEUService + AmountToIncludein349
                                            ELSE
                                            //End of the lines.                                         

                                              AmountEUService := AmountEUService + VATInvSales.Base;
                                          END ELSE

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

                                          ((VATInvSales."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
                                          IF "VAT Registration No." <> '' THEN BEGIN

                                            //Add the following lines.
                                            IF AmountToIncludein349 <> 0 THEN BEGIN
                                              IF VATInvSales."Transaction No." <> LastTransactionNo THEN
                                                AmountEUService := AmountEUService + AmountToIncludein349;
                                            END ELSE
                                            //End of the lines.                                         

                                              AmountEUService := AmountEUService + VATInvSales.Base;
                                          END ELSE

الرمز 9 الموجود

                                        END;
                                      END;
                                    UNTIL VATInvSales.NEXT = 0;

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

                                        END;
                                      END;

                                      //Add the following line.
                                      LastTransactionNo := VATInvSales."Transaction No.";

                                    UNTIL VATInvSales.NEXT = 0;

تغيير التعليمة البرمجية في مقاطع رقم عنصر البيانات 6 في تقرير إعلان Make 349 (88) كما يلي: التعليمات البرمجية الموجودة 1

                              BEGIN
                                REPEAT

                                  //Delete the following line.
                                  VATInvPurch.RESET;

                                  VATInvPurch.SETRANGE(VATInvPurch.Type,VATInvPurch.Type::Purchase);
                                  VATInvPurch.SETRANGE(VATInvPurch."Document Type",VATInvPurch."Document Type"::Invoice);

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

                              BEGIN
                                REPEAT

                                  //Add the following lines.
                                  LastTransactionNo := 0;
                                  VATInvPurch.RESET;
                                  VATInvPurch.SETCURRENTKEY("Transaction No.");
                                  //End of the lines.                          

                                  VATInvPurch.SETRANGE(VATInvPurch.Type,VATInvPurch.Type::Purchase);
                                  VATInvPurch.SETRANGE(VATInvPurch."Document Type",VATInvPurch."Document Type"::Invoice);

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

                                          IF "VAT Registration No." <> '' THEN BEGIN
                                            IF AmountToIncludein349 <> 0 THEN BEGIN

                                              //Delete the following lines.
                                              OpTriang := 'X';
                                              AmountOpTri := AmountOpTri + AmountToIncludein349;
                                              //End of the lines.                                           

                                            END ELSE BEGIN
                                              OpTriang := 'X';

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

                                          IF "VAT Registration No." <> '' THEN BEGIN
                                            IF AmountToIncludein349 <> 0 THEN BEGIN

                                              //Add the following lines.
                                              IF VATInvPurch."Transaction No." <> LastTransactionNo THEN BEGIN
                                                OpTriang := 'X';
                                                AmountOpTri := AmountOpTri + AmountToIncludein349;
                                              END;
                                              //End of the lines.

                                            END ELSE BEGIN
                                              OpTriang := 'X';

الرمز 3 الموجود

                                      // OpTriang := 'X';
                                      // AmountOpTri := AmountOpTri + VATInvPurch.Base;
                                    UNTIL VATInvPurch.NEXT = 0;
                                  END;

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

                                      // OpTriang := 'X';
                                      // AmountOpTri := AmountOpTri + VATInvPurch.Base;

                                      //Add the following line.
                                      LastTransactionNo := VATInvPurch."Transaction No.";

                                    UNTIL VATInvPurch.NEXT = 0;
                                  END;

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

                                    UNTIL VATInvPurch.NEXT = 0;
                                  END;

                                  //Delete the following line.
                                  VATInvPurch.RESET;

                                  VATInvPurch.SETRANGE(VATInvPurch.Type,VATInvPurch.Type::Purchase);
                                  VATInvPurch.SETRANGE(VATInvPurch."Document Type",VATInvPurch."Document Type"::Invoice);

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

                                    UNTIL VATInvPurch.NEXT = 0;
                                  END;

                                  //Add the following lines.
                                  LastTransactionNo := 0;
                                  VATInvPurch.RESET;
                                  VATInvPurch.SETCURRENTKEY("Transaction No.");
                                  //End of the lines.                               

                                  VATInvPurch.SETRANGE(VATInvPurch.Type,VATInvPurch.Type::Purchase);
                                  VATInvPurch.SETRANGE(VATInvPurch."Document Type",VATInvPurch."Document Type"::Invoice);

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

                                          ((VATInvPurch."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
                                          IF "VAT Registration No." <> '' THEN BEGIN

                                            //Delete the following lines.
                                            IF AmountToIncludein349 <> 0 THEN
                                              NormalAmount := NormalAmount + AmountToIncludein349
                                            ELSE
                                            //End of the lines.

                                              NormalAmount := NormalAmount + VATInvPurch.Base;
                                          END ELSE

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

                                          ((VATInvPurch."Country/Region Code" = CountryCode) AND LocationDiffCountryCode) THEN BEGIN
                                          IF "VAT Registration No." <> '' THEN BEGIN

                                            //Add the following lines.
                                            IF AmountToIncludein349 <> 0 THEN BEGIN
                                              IF VATInvPurch."Transaction No." <> LastTransactionNo THEN
                                                NormalAmount := NormalAmount + AmountToIncludein349;
                                            END ELSE
                                            //End of the lines.

                                              NormalAmount := NormalAmount + VATInvPurch.Base;
                                          END ELSE

الرمز 6 الموجود

                                      END;
                                      // NormalAmount := NormalAmount + VATInvPurch.Base;
                                    UNTIL VATInvPurch.NEXT = 0;
                                  END;

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

                                      END;
                                      // NormalAmount := NormalAmount + VATInvPurch.Base;

                                      //Add the following line.
                                      LastTransactionNo := VATInvPurch."Transaction No.";

                                    UNTIL VATInvPurch.NEXT = 0;
                                  END;

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

                                    UNTIL VATInvPurch.NEXT = 0;
                                  END;

                                  //Delete the following line.
                                  VATInvPurch.RESET;

                                  VATInvPurch.SETRANGE(Type,VATInvPurch.Type::Purchase);
                                  VATInvPurch.SETRANGE("Document Type",VATInvPurch."Document Type"::Invoice);

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

                                    UNTIL VATInvPurch.NEXT = 0;
                                  END;

                                  //Add the following lines.
                                  LastTransactionNo := 0;
                                  VATInvPurch.RESET;
                                  VATInvPurch.SETCURRENTKEY("Transaction No.");
                                  //End of the lines.                            

                                  VATInvPurch.SETRANGE(Type,VATInvPurch.Type::Purchase);
                                  VATInvPurch.SETRANGE("Document Type",VATInvPurch."Document Type"::Invoice);

الرمز 8 الموجود

                                        THEN BEGIN
                                          IF "VAT Registration No." <> '' THEN BEGIN

                                            //Delete the following lines.
                                            IF AmountToIncludein349 <> 0 THEN
                                              AmountEUService := AmountEUService + AmountToIncludein349
                                            ELSE
                                            //End of the lines.                                         

                                              AmountEUService := AmountEUService + VATInvPurch.Base;
                                          END ELSE

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

                                        THEN BEGIN
                                          IF "VAT Registration No." <> '' THEN BEGIN

                                            //Add the following lines.
                                            IF AmountToIncludein349 <> 0 THEN BEGIN
                                              IF VATInvPurch."Transaction No." <> LastTransactionNo THEN
                                                AmountEUService := AmountEUService + AmountToIncludein349;
                                            END ELSE
                                            //End of the lines.                                         

                                              AmountEUService := AmountEUService + VATInvPurch.Base;
                                          END ELSE

الرمز 9 الموجود

                                        END;
                                      END;
                                    UNTIL VATInvPurch.NEXT = 0;

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

                                        END;
                                      END;

                                      //Add the following line.
                                      LastTransactionNo := VATInvPurch."Transaction No.";

                                    UNTIL VATInvPurch.NEXT = 0;

أضف متغيرا عاما جديدا في تقرير إعلان Make 349 (88)، ثم حدد المتغير كما يلي:
- الاسم:LastTransactionNo@1100072
- DataType: عدد صحيح

المتطلبات المسبقة

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

الإصدار الأسباني من Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
الإصدار الأسباني من Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)

يجب أن يكون التقرير الأسباني 349 مثبتا لديك لتطبيق هذه الطريقة.لمزيد من المعلومات، تفضل بزيارة موقع Microsoft على الويب التالي: تقرير الإسبانية 349بالإضافة إلى ذلك، يجب أن تكون حزمة VAT 2010 مثبتة لديك لتطبيق هذه الطريقة.لمزيد من المعلومات، تفضل بزيارة موقع Microsoft على الويب التالي: دعم Microsoft Dynamics NAV لضريبة القيمة المضافة 2010

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

لا يمكنك إزالة هذه الطريقة.

الحالة

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

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

الأعراض

الحل

معلومات Hotfix

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

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

المتطلبات المسبقة

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

الحالة

هل تحتاج إلى مزيد من المساعدة؟

الخروج من الخيارات إضافية؟

هل كانت المعلومات مفيدة؟

نشكرك على ملاحظاتك!