الملف 347 غير صحيح إذا كان لديك أكثر من عميل أو مورد لديه نفس رقم تسجيل ضريبة القيمة المضافة (VAT) في الإصدار الأسباني من Microsoft Dynamics NAV

ينطبق على
Dynamics NAV 2009 Microsoft Dynamics NAV 5.0

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

الأعراض

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

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

الدقة

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

يتوفر الآن إصلاح عاجل مدعوم من 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. قم بتغيير التعليمات البرمجية في Data Item Number 6 في تقرير Make 347 Declaration (10707) كما يلي:
    التعليمات البرمجية الموجودة

    ...
IF Vendor."VAT Registration No." <> '' THEN BEGIN
TotalNotIn347Amt := TotalNotIn347Amt + NotIn347Amt + AmtSameVATRegNo;

// Delete the following line.
PurchasesAmt := PurchasesAmt - NotIn347Amt;
// End of the line.

IF PurchasesAmt >= MinAmount THEN BEGIN
IF PostCode347 = ' ' THEN
ERROR(Text1100009,Vendor."No.");
...

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

    ...
IF Vendor."VAT Registration No." <> '' THEN BEGIN
TotalNotIn347Amt := TotalNotIn347Amt + NotIn347Amt + AmtSameVATRegNo;

// Add the following line.
PurchasesAmt := PurchasesAmt - NotIn347Amt + AmtSameVATRegNo; // ES0001
// End of the line.

IF PurchasesAmt >= MinAmount THEN BEGIN
IF PostCode347 = ' ' THEN
ERROR(Text1100009,Vendor."No.");
...

  2. قم بتغيير التعليمات البرمجية في الدالة CheckSameVATRegNo في تقرير Make 347 Declaration (10707) كما يلي:
    التعليمات البرمجية الموجودة 1

    ...
VATEntry3@1100000 : Record 254;
BEGIN
VATEntry3.SETCURRENTKEY(Type,"Country/Region Code","VAT Registration No.");

// Delete the following line.
VATEntry3.SETRANGE(Type,VATEntry3.Type::Sale);
// End of the line.

VATEntry3.SETRANGE("Country/Region Code",CountryCode);
IF IsCustomer THEN BEGIN
...

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

    ...
VATEntry3@1100000 : Record 254;
BEGIN
VATEntry3.SETCURRENTKEY(Type,"Country/Region Code","VAT Registration No.");
VATEntry3.SETRANGE("Country/Region Code",CountryCode);
IF IsCustomer THEN BEGIN
...

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

    ...
VATEntry3.SETRANGE("Country/Region Code",CountryCode);
IF IsCustomer THEN BEGIN
VATEntry3.SETRANGE("VAT Registration No.",Customer."VAT Registration No.");
VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Customer."No.");
END ELSE BEGIN
...

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

    ...
VATEntry3.SETRANGE("Country/Region Code",CountryCode);
IF IsCustomer THEN BEGIN

// Add the following line.
VATEntry3.SETRANGE(Type,VATEntry3.Type::Sale); // ES0001
// End of the line.

VATEntry3.SETRANGE("VAT Registration No.",Customer."VAT Registration No.");
VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Customer."No.");
END ELSE BEGIN
...

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

    ...
VATEntry3.SETRANGE("VAT Registration No.",Customer."VAT Registration No.");
VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Customer."No.");
END ELSE BEGIN
VATEntry3.SETRANGE("VAT Registration No.",Vendor."VAT Registration No.");
VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Vendor."No.");
END;
...

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

    ...
VATEntry3.SETRANGE("VAT Registration No.",Customer."VAT Registration No.");
VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Customer."No.");
END ELSE BEGIN

// Add the following line.
VATEntry3.SETRANGE(Type,VATEntry3.Type::Purchase); // ES0001
// End of the line.

VATEntry3.SETRANGE("VAT Registration No.",Vendor."VAT Registration No.");
VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Vendor."No.");
END;
...

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

    ...
VATEntry3.SETRANGE("VAT Registration No.",Vendor."VAT Registration No.");
VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Vendor."No.");
END;

// Delete the following line.
VATEntry3.SETRANGE("Posting Date",FromDate,ToDate);
// End of the line.

IF VATEntry3.FINDFIRST THEN
REPEAT
...

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

    ...
VATEntry3.SETRANGE("VAT Registration No.",Vendor."VAT Registration No.");
VATEntry3.SETFILTER("Bill-to/Pay-to No.",'<>%1',Vendor."No.");
END;

// Add the following line.
VATEntry3.SETRANGE("Document Date",FromDate,ToDate); // ES0001
// End of the line.

IF VATEntry3.FINDFIRST THEN
REPEAT
...

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

    ...
IF VATEntry3.FINDFIRST THEN
REPEAT

// Delete the following line.
Amt := ABS(Amt + VATEntry3.Base + VATEntry3.Amount);
// End of the line.

UNTIL VATEntry3.NEXT = 0;
EXIT(Amt);
END;
...

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

    ...
IF VATEntry3.FINDFIRST THEN
REPEAT

// Add the following lines.
// ES0001.begin
IF IsCustomer THEN
Amt := Amt - VATEntry3.Base - VATEntry3.Amount
ELSE
Amt := Amt + VATEntry3.Base + VATEntry3.Amount;
// ES0001.end
// End of the lines.

UNTIL VATEntry3.NEXT = 0;
EXIT(Amt);
END;
...

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

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

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

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

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

الحالة

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

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