Este artigo se aplica ao Microsoft Dynamics NAV para a localidade do idioma espanhol (es).
Sintomas
Suponha que você aplicou o hotfix 2547942 no Microsoft Dynamics NAV. No entanto, a declaração de IVA espanhol 349 ainda exporta os valores na moeda que é usado no documento, na moeda local. Se um cliente ou um fornecedor não tem nenhum código de moeda do cartão, mas um documento é lançado como uma moeda, os valores exportados da declaração 349 estão incorretos, como a quantidade exportada é o valor na moeda usada no documento, na moeda local que o usuário precisa para relatar às autoridades de imposto.
Esse problema ocorre nos seguintes produtos:
-
Microsoft Dynamics NAV 2013
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 Service Pack 1
Resolução
Informações sobre o hotfix
Um hotfix suportado está disponível agora na Microsoft. No entanto, apenas destina-se a corrigir o problema descrito neste artigo. Aplique-o somente aos sistemas que apresentarem esse problema específico. Esta correção poderá ser submetida a testes adicionais. Portanto, se esse problema não o prejudicar, recomendamos que você aguarde o próximo service pack do Microsoft Dynamics NAV 2013 ou a próxima versão do Microsoft Dynamics NAV que contém esse hotfix.
Observação: Em alguns casos, as taxas cobradas para suporte a chamadas podem ser canceladas se um profissional de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma atualização específica resolverá o problema. Os custos normais de suporte serão aplicados para questões de suporte adicionais e problemas que não se qualificam à atualização específica em questão.
Informações sobre a instalação
A Microsoft fornece exemplos de programação somente para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um propósito específico. Este artigo presume que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.
Observação: Antes de instalar esse hotfix, verifique se todos os usuários de cliente do Microsoft Navision estiver desconectados do sistema. Isso inclui usuários de cliente do Microsoft Navision Application Server (NAS). Você deve ser o único usuário do cliente conectado ao implementar esse hotfix.
Para implementar esse hotfix, você deve ter uma licença de desenvolvedor.
É recomendável que a conta de usuário na janela de Logins do Windows ou na janela banco de dados seja atribuída a ID de função "SUPER". Se a conta de usuário não pode ser atribuída a ID de função "SUPER", você deverá verificar se a conta de usuário tem as seguintes permissões:
-
A permissão Modificar para o objeto que será alterado.
-
A permissão de execução para o objeto de sistema 5210 de identificação de objeto e do objeto de sistema 9015 de identificação de objeto .
Observação: Você não precisa ter direitos para os armazenamentos de dados, a menos que você precise executar o reparo de dados.
Alterações de código
Observação: Sempre teste código correções em um ambiente controlado antes de aplicar as correções para os computadores de produção.
Para resolver esse problema, altere o código no relatório de fazer declaração 349 (10710). Para fazer isso, execute as seguintes etapas:
-
Altere o código na função GetPostedCountryLocCode da seguinte forma:
1 de código existente... REPEAT
IF SalesInvLines."Location Code" <> '' THEN BEGIN
IF Location.GET(SalesInvLines."Location Code") THEN
EUCountryLinesLocationCode := FindEUCountryRegionCode(Location."Country/Region Code");
IF EUCountryLinesLocationCode THEN BEGIN
// Delete the following line.
AmountToIncludeIn349 := AmountToIncludeIn349 + SalesInvLines.Amount;
IF GetCountryfromLocation(SalesInvLines."Location Code") <> CountryCode THEN
LocationDifferentCountryCode := TRUE;
TempSalesInvLines := SalesInvLines;
TempSalesInvLines.INSERT;
END;
...1 código de substituição
... REPEAT
IF SalesInvLines."Location Code" <> '' THEN BEGIN
IF Location.GET(SalesInvLines."Location Code") THEN
EUCountryLinesLocationCode := FindEUCountryRegionCode(Location."Country/Region Code");
IF EUCountryLinesLocationCode THEN BEGIN
// Add the following lines.
AmountToIncludeIn349 +=
GetExportedAmountIn349(SalesInvHeader."Currency Code",
SalesInvHeader."Currency Factor",SalesInvLines."Line Amount");
// End of the lines.
IF GetCountryfromLocation(SalesInvLines."Location Code") <> CountryCode THEN
LocationDifferentCountryCode := TRUE;
TempSalesInvLines := SalesInvLines;
TempSalesInvLines.INSERT;
END;
...2 de código existente
... TempSalesInvLines.INSERT;
END;
END ELSE
IF CompInforShipToCountryCode THEN BEGIN
EUCountryLinesLocationCode := TRUE;
// Delete the following line.
AmountToIncludeIn349 := AmountToIncludeIn349 + SalesInvLines.Amount;
TempSalesInvLines := SalesInvLines;
TempSalesInvLines.INSERT;
END;
UNTIL SalesInvLines.NEXT = 0;
END;
...Código de substituição 2
... TempSalesInvLines.INSERT;
END;
END ELSE
IF CompInforShipToCountryCode THEN BEGIN
EUCountryLinesLocationCode := TRUE;
// Add the following lines.
AmountToIncludeIn349 +=
GetExportedAmountIn349(SalesInvHeader."Currency Code",
SalesInvHeader."Currency Factor",SalesInvLines."Line Amount");
// End of the lines.
TempSalesInvLines := SalesInvLines;
TempSalesInvLines.INSERT;
END;
UNTIL SalesInvLines.NEXT = 0;
END;
...3 de código existente
... REPEAT
IF PurchInvLines."Location Code" <> '' THEN BEGIN
IF Location.GET(PurchInvLines."Location Code") THEN
EUCountryLinesLocationCode := FindEUCountryRegionCode(Location."Country/Region Code");
IF EUCountryLinesLocationCode THEN BEGIN
// Delete the following line.
AmountToIncludeIn349 := AmountToIncludeIn349 + PurchInvLines.Amount;
IF GetCountryfromLocation(PurchInvLines."Location Code") <> CountryCode THEN
LocationDifferentCountryCode := TRUE;
TempPurchInvLines := PurchInvLines;
TempPurchInvLines.INSERT;
END;
...Código de substituição 3
... REPEAT
IF PurchInvLines."Location Code" <> '' THEN BEGIN
IF Location.GET(PurchInvLines."Location Code") THEN
EUCountryLinesLocationCode := FindEUCountryRegionCode(Location."Country/Region Code");
IF EUCountryLinesLocationCode THEN BEGIN
// Add the following lines.
AmountToIncludeIn349 +=
GetExportedAmountIn349(PurchInvHeader."Currency Code",
PurchInvHeader."Currency Factor",PurchInvLines."Line Amount");
// End of the lines.
IF GetCountryfromLocation(PurchInvLines."Location Code") <> CountryCode THEN
LocationDifferentCountryCode := TRUE;
TempPurchInvLines := PurchInvLines;
TempPurchInvLines.INSERT;
END;
...4 de código existente
... TempPurchInvLines.INSERT;
END;
END ELSE
IF CompInforShipToCountryCode THEN BEGIN
EUCountryLinesLocationCode := TRUE;
// Delete the following line.
AmountToIncludeIn349 := AmountToIncludeIn349 + PurchInvLines.Amount;
TempPurchInvLines := PurchInvLines;
TempPurchInvLines.INSERT;
END;
UNTIL PurchInvLines.NEXT = 0;
END;
...Código de substituição 4
... TempPurchInvLines.INSERT;
END;
END ELSE
IF CompInforShipToCountryCode THEN BEGIN
EUCountryLinesLocationCode := TRUE;
// Add the following lines.
AmountToIncludeIn349 +=
GetExportedAmountIn349(PurchInvHeader."Currency Code",
PurchInvHeader."Currency Factor",PurchInvLines."Line Amount");
// End of the lines.
TempPurchInvLines := PurchInvLines;
TempPurchInvLines.INSERT;
END;
UNTIL PurchInvLines.NEXT = 0;
END;
... -
Altere o código na função GetExportedAmountIn349 da seguinte forma:
Código existente... BEGIN
IF DeliveryOperationCode = DeliveryOperationCode::" " THEN
DeliveryOperationCode := DeliveryOperationCode::E;
END;
BEGIN
END.
}
RDLDATA
{
...Código de substituição
... BEGIN
IF DeliveryOperationCode = DeliveryOperationCode::" " THEN
DeliveryOperationCode := DeliveryOperationCode::E;
END;
// Add the following lines.
LOCAL PROCEDURE GetExportedAmountIn349@1100014(CurrencyCode@1100008 : Code[20];CurrencyFactor@1100009 : Decimal;LineAmount@1100010 : Decimal) : Decimal;
VAR
Currency@1100001 : Record 4;
BEGIN
IF CurrencyCode <> '' THEN BEGIN
Currency.GET(CurrencyCode);
EXIT(ROUND(LineAmount / CurrencyFactor,Currency."Amount Rounding Precision"))
END;
EXIT(LineAmount);
END;
// End of the lines.
BEGIN
END.
}
RDLDATA
{
...
Pré-requisitos:
Você deve ter um dos seguintes produtos instalados para aplicar esse hotfix:
-
Microsoft Dynamics NAV 2013
-
Microsoft Dynamics NAV 2009 R2
-
Microsoft Dynamics NAV 2009 Service Pack 1
Informações sobre remoção
Você não pode remover esse hotfix.
Status
A Microsoft confirma que este é um problema em seus produtos listados na seção "Aplica-se a".
Observação: Este é um artigo de "PUBLICAÇÃO RÁPIDA" criado diretamente de dentro da organização de suporte da Microsoft. As informações contidas neste documento são fornecidas desta maneira, em resposta a problemas emergentes. Como um dos resultados da velocidade da publicação, os materiais podem incluir erros tipográficos e podem ser revisados a qualquer momento sem aviso prévio. Consulte os Termos de uso para outras considerações.
