Эта статья относится к Microsoft Dynamics NAV для языкового стандарта испанского языка (es).
При использовании двух групп размещения НДС в испанской версии Microsoft Dynamics NAV 5.0 с пакетом обновления 1 (SP1) в объявлении 349 отображается неверный результат. Эта проблема возникает независимо от того, используете ли вы службу ЕС в настройке размещения НДС или нет.
Проблема
Сведения об исправлении
Поддерживаемое исправление теперь доступно в корпорации Майкрософт. Однако он предназначен только для устранения проблемы, описанной в этой статье. Применяйте его только к системам, в которых возникла эта конкретная проблема. Это исправление может пройти дополнительное тестирование. Поэтому, если вы не пострадали от этой проблемы, рекомендуется дождаться следующего пакета обновления Microsoft Dynamics NAV 5.0 или следующей версии Microsoft Dynamics NAV, содержащей это исправление.
Примечание. В особых случаях плата, которая обычно взимается за звонки в службу поддержки, может быть отменена, если специалист по технической поддержке Microsoft Dynamics и связанных продуктов определит, что конкретное обновление поможет устранить вашу проблему. Обычные расходы на поддержку будут применяться к дополнительным вопросам и проблемам поддержки, которые не относятся к конкретному обновлению.
Решение
Сведения об установке
Корпорация Майкрософт предоставляет примеры программирования только для иллюстрации, без явных или подразумеваемых гарантий. Это включает подразумеваемые гарантии товарного состояния или пригодности для конкретной цели, но не ограничивается ими. В этой статье предполагается, что вы знакомы с демонстрируемым языком программирования и инструментами, используемыми для создания и отладки процедур. Инженеры службы поддержки Майкрософт могут помочь объяснить функциональность конкретной процедуры, но они не будут изменять эти примеры, чтобы предоставить дополнительные функциональные возможности или создать процедуры в соответствии с вашими конкретными требованиями.
Примечание. Перед установкой этого исправления убедитесь, что все пользователи клиента Microsoft Navision вышли из системы. Сюда входят пользователи клиентов Служб приложений Microsoft Navision (NAS). Вы должны быть единственным пользователем клиента, который вошел в систему при реализации этого исправления.
Чтобы реализовать это исправление, у вас должна быть лицензия разработчика.
Рекомендуется назначить учетной записи пользователя в окне Входа Windows или в окне Входа базы данных идентификатор роли SUPER. Если учетной записи пользователя не удается назначить идентификатор роли SUPER, необходимо убедиться, что учетная запись пользователя имеет следующие разрешения:
- Разрешение Изменить для объекта, который вы будете изменять.
- Разрешение Execute для объекта System Object ID 5210 и для объекта System Object ID 9015.
Примечание. Вы не должны иметь права на хранилища данных, если только вам не нужно выполнить восстановление данных.
Изменения кода
Примечание. Перед применением исправлений на рабочих компьютерах всегда тестируйте исправления кода в управляемой среде.
Чтобы устранить эту неполадку, выполните следующие действия:
Измените код в разделе Data Item Number 5 в отчете Make 349 Declaration (88)) следующим образом:
Существующий код 1... SectionType=GroupFooter; SectionWidth=15600; SectionHeight=423; // Delete the following line. OnPostSection=BEGIN CustVendCountry.GET("Country/Region Code"); CustVendVatRegNo := COPYSTR("VAT Registration No.",1,CustVendCountry."VAT Registration No. digits"); OpTriang := ' '; ...Код замены 1
... SectionType=GroupFooter; SectionWidth=15600; SectionHeight=423; // Add the following lines. OnPostSection=VAR SalesInvLine@1100300 : Record 113; SalesInvHeader@1100301 : Record 112; BEGIN // End of the lines. CustVendCountry.GET("Country/Region Code"); CustVendVatRegNo := COPYSTR("VAT Registration No.",1,CustVendCountry."VAT Registration No. digits"); OpTriang := ' '; ...Существующий код 2
... AccumOrigDeclAmountEUService := 0; AccumPrevDeclAmountTri := 0; AccumOrigDeclAmountTri := 0; Customer2.RESET; Customer2.SETRANGE(Customer2."VAT Registration No.","VAT Registration No."); ...Код замены 2
... AccumOrigDeclAmountEUService := 0; AccumPrevDeclAmountTri := 0; AccumOrigDeclAmountTri := 0; Customer2.RESET; Customer2.SETRANGE(Customer2."VAT Registration No.","VAT Registration No."); ...Существующий код 3
... AccumOrigDeclAmountEUService := 0; AccumPrevDeclAmountTri := 0; AccumOrigDeclAmountTri := 0; Customer2.RESET; Customer2.SETRANGE(Customer2."VAT Registration No.","VAT Registration No."); ...Код замены 3
... AccumOrigDeclAmountEUService := 0; AccumPrevDeclAmountTri := 0; AccumOrigDeclAmountTri := 0; // Add the following lines. NoTaxableNormalAmount := 0; NoTaxableAmountOpTri := 0; NoTaxableAmountEUService := 0; // End of the lines. Customer2.RESET; Customer2.SETRANGE(Customer2."VAT Registration No.","VAT Registration No."); ...Существующий код 4
... RectPeriod := '0'; UNTIL CustVendWarning349.NEXT = 0; //END; UNTIL Customer2.NEXT = 0; IF "VAT Registration No." <> '' THEN BEGIN ...Код замены 4
... RectPeriod := '0'; UNTIL CustVendWarning349.NEXT = 0; //END; // Add the following lines. SalesInvLine.RESET; SalesInvLine.SETRANGE("Bill-to Customer No.",Customer2."No."); SalesInvLine.SETRANGE("Posting Date",FromDate,ToDate); SalesInvLine.SETRANGE("VAT Calculation Type",SalesInvLine."VAT Calculation Type"::"No Taxable VAT"); SalesInvLine.SETFILTER("Gen. Prod. Posting Group", FilterString); IF SalesInvLine.FINDSET THEN REPEAT IF VATPostingSetup.GET(SalesInvLine."VAT Bus. Posting Group",SalesInvLine."VAT Prod. Posting Group") THEN IF VATPostingSetup."EU Service" THEN NoTaxableAmountEUService := NoTaxableAmountEUService + SalesInvLine."Line Amount" ELSE IF SalesInvHeader.GET(SalesInvLine."Document No.") THEN IF SalesInvHeader."EU 3-Party Trade" THEN NoTaxableAmountOpTri := NoTaxableAmountOpTri + SalesInvLine."Line Amount" ELSE NoTaxableNormalAmount := NoTaxableNormalAmount + SalesInvLine."Line Amount" UNTIL SalesInvLine.NEXT = 0; // End of the lines. UNTIL Customer2.NEXT = 0; IF "VAT Registration No." <> '' THEN BEGIN ...Существующий код 5
... IF "VAT Registration No." <> '' THEN BEGIN IF NormalAmount < 0 THEN NormalAmount := -NormalAmount; IF CorrIncludedForNormalAmount OR (NormalAmount <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(NormalAmount),3,13); Txt := ...Код замены 5
... IF "VAT Registration No." <> '' THEN BEGIN IF NormalAmount < 0 THEN NormalAmount := -NormalAmount; // Add the following line. NormalAmount := NormalAmount + NoTaxableNormalAmount; IF CorrIncludedForNormalAmount OR (NormalAmount <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(NormalAmount),3,13); Txt := ...Существующий код 6
... END; IF AmountOpTri < 0 THEN AmountOpTri := -AmountOpTri; IF CorrIncludedForOpTriAmount OR (AmountOpTri <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(AmountOpTri),3,13); Txt := ...Код замены 6
... END; IF AmountOpTri < 0 THEN AmountOpTri := -AmountOpTri; // Add the following line. AmountOpTri := AmountOpTri + NoTaxableAmountOpTri; IF CorrIncludedForOpTriAmount OR (AmountOpTri <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(AmountOpTri),3,13); Txt := ...Существующий код 7
... END; IF AmountEUService < 0 THEN AmountEUService := -AmountEUService; IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13); CustVendCountry.GET(Customer2."Country/Region Code"); ...Код замены 7
... END; IF AmountEUService < 0 THEN AmountEUService := -AmountEUService; // Add the following line. AmountEUService := AmountEUService + NoTaxableAmountEUService; IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13); CustVendCountry.GET(Customer2."Country/Region Code"); ...Измените код в разделе Data Item Number 6 в отчете Make 349 Declaration (88) следующим образом:
Существующий код 1... SectionType=GroupFooter; SectionWidth=15600; SectionHeight=423; // Delete the following line. OnPostSection=BEGIN CustVendCountry.GET("Country/Region Code"); CustVendVatRegNo := COPYSTR("VAT Registration No.",1,CustVendCountry."VAT Registration No. digits"); OpTriang := ' '; ...Код замены 1
... SectionType=GroupFooter; SectionWidth=15600; SectionHeight=423; // Add the following lines. OnPostSection=VAR PurchInvLine@1100302 : Record 123; BEGIN // End of the lines. CustVendCountry.GET("Country/Region Code"); CustVendVatRegNo := COPYSTR("VAT Registration No.",1,CustVendCountry."VAT Registration No. digits"); OpTriang := ' '; ...Существующий код 2
... AccumOrigDeclAmountEUService := 0; AccumPrevDeclAmountTri := 0; AccumOrigDeclAmountTri := 0; Vendor2.RESET; Vendor2.SETRANGE(Vendor2."VAT Registration No.","VAT Registration No."); ...Код замены 2
... AccumOrigDeclAmountEUService := 0; AccumPrevDeclAmountTri := 0; AccumOrigDeclAmountTri := 0; // Add the following lines. NoTaxableNormalAmount := 0; NoTaxableAmountEUService := 0; // End of the lines. Vendor2.RESET; Vendor2.SETRANGE(Vendor2."VAT Registration No.","VAT Registration No."); ...Существующий код 3
... RectPeriod := '0'; UNTIL CustVendWarning349.NEXT = 0; END; UNTIL Vendor2.NEXT = 0; IF "VAT Registration No." <> '' THEN BEGIN ...Код замены 3
... RectPeriod := '0'; UNTIL CustVendWarning349.NEXT = 0; END; // Add the following lines. PurchInvLine.RESET; PurchInvLine.SETRANGE("Pay-to Vendor No.",Vendor2."No."); PurchInvLine.SETRANGE("Posting Date",FromDate,ToDate); PurchInvLine.SETRANGE("VAT Calculation Type",PurchInvLine."VAT Calculation Type"::"No Taxable VAT"); PurchInvLine.SETFILTER("Gen. Prod. Posting Group", FilterString); IF PurchInvLine.FINDSET THEN REPEAT IF VATPostingSetup.GET(PurchInvLine."VAT Bus. Posting Group",PurchInvLine."VAT Prod. Posting Group") THEN IF VATPostingSetup."EU Service" THEN NoTaxableAmountEUService := NoTaxableAmountEUService + PurchInvLine."Line Amount" ELSE NoTaxableNormalAmount := NoTaxableNormalAmount + PurchInvLine."Line Amount" UNTIL PurchInvLine.NEXT = 0; // End of the lines. UNTIL Vendor2.NEXT = 0; IF "VAT Registration No." <> '' THEN BEGIN ...Существующий код 4
... IF "VAT Registration No." <> '' THEN BEGIN IF NormalAmount < 0 THEN NormalAmount := -NormalAmount; IF CorrIncludedForNormalAmount OR (NormalAmount <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(NormalAmount),3,13); Txt := ...Код замены 4
... IF "VAT Registration No." <> '' THEN BEGIN IF NormalAmount < 0 THEN NormalAmount := -NormalAmount; // Add the following line. NormalAmount := NormalAmount + NoTaxableNormalAmount; IF CorrIncludedForNormalAmount OR (NormalAmount <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(NormalAmount),3,13); Txt := ...Существующий код 5
... END; IF AmountEUService < 0 THEN AmountEUService := -AmountEUService; IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13); CustVendCountry.GET(Customer2."Country/Region Code"); ...Код замены 5
... END; IF AmountEUService < 0 THEN AmountEUService := -AmountEUService; // Add the following line. AmountEUService := AmountEUService + NoTaxableAmountEUService; IF CorrIncludedForEUServiceAmount OR (AmountEUService <> 0) THEN BEGIN TextAmount := COPYSTR(FormatTextAmt(AmountEUService),3,13); CustVendCountry.GET(Customer2."Country/Region Code"); ...Измените код в глобальных переменных в отчете Make 349 Declaration (88) следующим образом:
Существующий код... CorrIncludedForNormalAmount@1100063 : Boolean; CorrIncludedForOpTriAmount@1100070 : Boolean; CorrIncludedForEUServiceAmount@1100071 : Boolean; PROCEDURE FormatTextAmt@1100101(Amount@1100100 : Decimal) : Text[15]; VAR ...Код замены
... CorrIncludedForNormalAmount@1100063 : Boolean; CorrIncludedForOpTriAmount@1100070 : Boolean; CorrIncludedForEUServiceAmount@1100071 : Boolean; // Add the following lines. NoTaxableNormalAmount@1100304 : Decimal; NoTaxableAmountOpTri@1100305 : Decimal; NoTaxableAmountEUService@1100306 : Decimal; VATPostingSetup@1100307 : Record 325; // End of the lines. PROCEDURE FormatTextAmt@1100101(Amount@1100100 : Decimal) : Text[15]; VAR ...
Необходимые условия
Чтобы применить это исправление, необходимо установить версию Microsoft Dynamics NAV 5.0 с пакетом обновления 1 (SP1) на испанском языке.
Сведения об удалении
Удалить это исправление невозможно.
Корпорация Майкрософт подтвердила, что это проблема продуктов Microsoft, перечисленных в разделе «Относится к».
Состояние
Примечание. Это статья "FAST PUBLISH", созданная непосредственно в организации поддержки Майкрософт. Информация, содержащаяся в настоящем документе, предоставляется как есть в ответ на возникающие проблемы. В результате быстрой доступности материалы могут содержать опечатки и могут быть пересмотрены в любое время без уведомления. Дополнительные рекомендации см. в разделе Условия использования .