Цю статтю призначено для 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)
Спосіб вирішення
Відомості про виправлення
Корпорацією Майкрософт випущено наявне виправлення. Тим не менш, призначений лише для виправлення проблеми, описаної в цій статті. Застосуємо його лише до систем, які відчувають цю конкретну проблему. Це виправлення може отримати додаткове тестування. Тому, якщо ви не постраждали від цієї проблеми, радимо зачекати на наступний пакет Microsoft Dynamics NAV 2009 Service Pack або наступну версію Microsoft Dynamics NAV, що містить це виправлення. Примітка. у особливих випадках збори, які зазвичай виникли для викликів підтримки, можуть бути скасовані, якщо технічну підтримку для фахівців Microsoft Dynamics і пов'язаних продуктів визначає, що певне оновлення вирішить проблему. За додаткові послуги технічної підтримки, не пов’язані з цим оновленням, плата стягується на загальних засадах.
Відомості про інсталяцію
Корпорація Майкрософт надає приклади програмування тільки для ілюстрації, без гарантій або неявних. Це включає в себе, але не обмежується, неявні гарантії товарної придатності або придатності для певної мети. У цій статті припускається, що ви знайомі з мовою програмування, що відображається, і з інструментами, які використовуються для створення та налагодження процедур. Інженери служби підтримки Microsoft можуть допомогти пояснити функціональність певної процедури, але вони не модифікують ці приклади, щоб надати додаткову функціональність або сконструювати процедури відповідно до конкретних вимог.Примітка перед інсталяцією цього виправлення переконайтеся, що всі користувачі клієнта Microsoft Navision вийшли із системи. Це стосується користувачів клієнтів служб Microsoft Navivision (NAS). Ви маєте бути єдиним користувачем, який увійшов у систему, коли ви реалізуєте це виправлення.Щоб здійснити це виправлення, потрібно мати ліцензію розробника.Ми радимо, що обліковий запис користувача в вікні "вхід у Windows" або у вікні "логіни бази даних" призначається ІДЕНТИФІКАТОРОМ "SUPER". Якщо обліковий запис користувача не можна призначити ІДЕНТИФІКАТОРА ролі "SUPER", потрібно перевірити, чи обліковий запис користувача має такі дозволи:
-
Дозвіл на змінення для об'єкта, який потрібно змінити.
-
Дозвіл "виконати" для об'єкта "код об'єкта" 5210 і для об'єкта "системний об'єкт – 9015".
Зверніть увагу, що ви не маєте права на зберігання даних, якщо потрібно виконати відновлення даних.
Зміни коду
Примітка. завжди перевіряйте виправлення коду в контрольованому середовищі, перш ніж ви застосуєте виправлення до своїх виробничих комп'ютерів. Щоб вирішити цю проблему, виконайте наведені нижче дії.
-
Змініть код в елементі даних "5 розділів" на сторінці "створення декларації 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;
-
Додайте нову глобальну змінну в звіті декларації 349 (88), а потім вкажіть змінну, як описано нижче.
-
Ім'я: LastTransactionNo@1100072
-
Тип _ даних: ціле значення
-
Попередні вимоги
Щоб застосовувати це виправлення, потрібно мати одну з наведених нижче продуктів.
-
Іспанська версія Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
-
Іспанська версія Microsoft Dynamics NAV 5,0 Service Pack 1 (SP1)
Щоб застосовувати це виправлення, потрібно мати іспанський звіт 349.Щоб отримати докладніші відомості, перейдіть на веб-сайт Microsoft: Іспанська 349. Крім того, ви маєте інсталювати пакет ПДВ 2010 для інсталяції цього виправлення.Щоб отримати докладніші відомості, перейдіть на такі веб-сайт Microsoft: підтримка Microsoft Dynamics для 2010 для ПДВ
Відомості про видалення
Це виправлення видалити не можна.
Стан
Корпорація Майкрософт підтвердила, що це проблема в продуктах Microsoft, перелічених у розділі "застосовується до".
Примітка. Це стаття "Швидка ПУБЛІКАЦІЯ", створена безпосередньо в організації підтримки Microsoft. Відомості, що містяться в цьому документі, наведено у відповідь на виникаючі проблеми. У результаті швидкості в її доступності матеріали можуть містити друкарські помилки та можуть бути переглянуті в будь-який час без попереднього повідомлення. Ознайомтеся з умовами використання інших міркувань.
