O sistema usa o código do país inesperadamente na entrada quando você gera um diário intrastat na versão italiana do Microsoft Dynamics NAV 5.0 Service Pack 1

Este artigo se aplica ao Microsoft Dynamics NAV para a localidade de idioma italiano (it).

Quando você gera um diário intrastat na versão italiana do Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1), o sistema não usa o código intrastat na entrada. Em vez disso, o sistema usa o código do país.

Sintomas

Informações sobre o hotfix

Um hotfix com suporte agora está disponível na Microsoft. No entanto, ele destina-se apenas a corrigir o problema descrito neste artigo. Aplique-o somente a sistemas que estão enfrentando esse problema específico. Esse hotfix pode receber testes adicionais. Portanto, se você não for severamente afetado por esse problema, recomendamos aguardar o próximo pacote de serviços do Microsoft Dynamics NAV ou a próxima versão do Microsoft Dynamics NAV que contém esse hotfix.

Observação Em casos especiais, os encargos que normalmente são incorridos para chamadas de suporte podem ser cancelados se um profissional de suporte técnico do Microsoft Dynamics e produtos relacionados determinar que uma atualização específica resolve seu problema. Os custos de suporte em geral aplicam-se a questões e problemas de suporte adicionais que não se enquadrem na atualização específica em questão.

Resolução

Informações de instalação

A Microsoft fornece exemplos de programação apenas para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não se limita a, as garantias implícitas de comercialização ou adequação a uma finalidade específica. Este artigo pressupõe 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 ajudá-lo, fornecendo a explicação da funcionalidade de determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidade adicional nem criarão procedimentos específicos para atender às suas necessidades específicas.

Observação Antes de instalar esse hotfix, verifique se todos os usuários cliente do Microsoft Navision estão conectados ao sistema. Isso inclui usuários cliente do NAS (Microsoft Navision Application Services). Você deve ser o único usuário cliente que está conectado ao implementar esse hotfix.

Para implementar esse hotfix, você deve ter uma licença de desenvolvedor.

Recomendamos que a conta de usuário na janela Logons do Windows ou na janela Logons de Banco de Dados seja atribuída à ID da função "SUPER". Se a conta de usuário não puder ser atribuída à ID da 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 você estará alterando.
  • A permissão Executar para o objeto System Object ID 5210 e para o objeto System Object ID 9015.

            
Observação Você não precisa ter direitos para os armazenamentos de dados, a menos que precise executar o reparo de dados.

Alterações de código

Observação Sempre teste correções de código em um ambiente controlado antes de aplicar as correções aos computadores de produção.
Para resolver este problema, execute as seguintes etapas:

  1. Altere o código no Item Nº. - Gatilho OnValidate na tabela De linha do Intrastat Jnl. (263) da seguinte maneira:
    Código existente

    …

"Tariff No." := Item."Tariff No.";

//Delete the following line.
"Country/Region of Origin Code" := Item."Country/Region of Origin Code";

GetItemDescription;

    Código de substituição

    ...

"Tariff No." := Item."Tariff No.";

//Add the following line.
"Country/Region of Origin Code" := GetIntrastatCountryCode(Item."Country/Region of Origin Code");

GetItemDescription;

  2. Altere o código na função ValidateSourceEntryNo na tabela Intrastat Jnl. Line (263) da seguinte maneira:
    Código existente

    ...

Date := VATEntry."Document Date"; 

//Delete the following line.
"Country/Region Code" := VATEntry."Country/Region Code"; 

"VAT Registration No." := VATEntry."VAT Registration No.";
...

    Código de substituição

    ...

Date := VATEntry."Document Date"; 

//Add the following line.
"Country/Region Code" := GetIntrastatCountryCode(VATEntry."Country/Region Code");

"VAT Registration No." := VATEntry."VAT Registration No.";
...

  3. Crie uma nova função GetIntrastatCountryCode que usa o tipo de código e o comprimento de dez para o valor retornado na tabela de linha do Intrastat Jnl. (263). Para criar essa função, siga estas etapas:

    1. Adicione um novo paramater local e especifique o paramater da seguinte maneira:

      • Var:No
      • Nome:Countryregioncode
      • DataType:Code
      • Código Subtype:Country/Region
      • Comprimento:10

    2. Adicione uma nova variável local e especifique a variável da seguinte maneira:

      • Nome: Countryregion
      • DataType:Record
      • Subtipo: País/Região

    3. Adicione o código da seguinte maneira:

      IF CountryRegion.GET(CountryRegionCode) THEN
EXIT(CountryRegion."Intrastat Code");

  4. Altere o código na função InsertItemJnlLine no relatório Obter Entradas do Razão de Item (594) da seguinte maneira:
    Código 1 existente

    ...

WITH IntrastatJnlLine DO BEGIN
INIT;
"Line No." := "Line No." + 10000;
Date := "Item Ledger Entry"."Last Invoice Date";

//Delete the following line.
"Country/Region Code" := "Item Ledger Entry"."Country/Region Code";

"Transaction Type" := "Item Ledger Entry"."Transaction Type";
...

    Código de substituição 1

    ...

WITH IntrastatJnlLine DO BEGIN
INIT;
"Line No." := "Line No." + 10000;
Date := "Item Ledger Entry"."Last Invoice Date";

//Add the following line.
"Country/Region Code" := GetIntrastatCountryCode("Item Ledger Entry"."Country/Region Code");

"Transaction Type" := "Item Ledger Entry"."Transaction Type";
...

    Código 2 existente

    ...

IF SalesShipHeader.GET("Item Ledger Entry"."Document No.") THEN BEGIN
IF Customer.GET(SalesShipHeader."Bill-to Customer No.") THEN BEGIN 
"VAT Registration No." := Customer."VAT Registration No.";

//Delete the following line.
"Country/Region Code" := Customer."Country/Region Code"; 

END;
END ELSE BEGIN
SalesSetup.GET;
IF NOT SalesSetup."Shipment on Invoice" THEN BEGIN
IF SalesInvHeader.GET("Item Ledger Entry"."Document No.") THEN
IF Customer.GET(SalesInvHeader."Bill-to Customer No.") THEN BEGIN 
"VAT Registration No." := Customer."VAT Registration No.";

//Delete the following line.
"Country/Region Code" := Customer."Country/Region Code";

END;
END ELSE
IF SalesCrMemoHeader.GET(ValueEntry."Document No.") THEN
IF Customer.GET(SalesCrMemoHeader."Bill-to Customer No.") THEN BEGIN
"VAT Registration No." := Customer."VAT Registration No.";

//Delete the following line.
"Country/Region Code" := Customer."Country/Region Code";

END;
END; 
...

    Código de substituição 2

    ...

IF SalesShipHeader.GET("Item Ledger Entry"."Document No.") THEN BEGIN
IF Customer.GET(SalesShipHeader."Bill-to Customer No.") THEN BEGIN 
"VAT Registration No." := Customer."VAT Registration No.";

//Add the following line.
"Country/Region Code" := GetIntrastatCountryCode(Customer."Country/Region Code"); 

END;
END ELSE BEGIN
SalesSetup.GET;
IF NOT SalesSetup."Shipment on Invoice" THEN BEGIN
IF SalesInvHeader.GET("Item Ledger Entry"."Document No.") THEN
IF Customer.GET(SalesInvHeader."Bill-to Customer No.") THEN BEGIN 
"VAT Registration No." := Customer."VAT Registration No.";

//Add the following line.
"Country/Region Code" := GetIntrastatCountryCode(Customer."Country/Region Code"); 

END;
END ELSE
IF SalesCrMemoHeader.GET(ValueEntry."Document No.") THEN
IF Customer.GET(SalesCrMemoHeader."Bill-to Customer No.") THEN BEGIN
"VAT Registration No." := Customer."VAT Registration No.";

//Add the following line.
"Country/Region Code" := GetIntrastatCountryCode(Customer."Country/Region Code"); 

END;
END; 
...

    Código 3 existente

    ...

IF IntrastatJnlBatch.Type = IntrastatJnlBatch.Type :: Purchases THEN BEGIN
IF (ItemVendor.GET("Item Ledger Entry"."Source No.","Item Ledger Entry"."Item No.","Item Ledger Entry"."Variant Code")) AND
(ItemVendor."Country/Region of Origin Code" <> '') THEN

//Delete the following line.
"Country/Region of Origin Code" := ItemVendor."Country/Region of Origin Code"

ELSE

//Delete the following line.
"Country/Region of Origin Code" := Item."Country/Region of Origin Code";

FindSourceCurrency(
"Item Ledger Entry"."Source No.","Item Ledger Entry"."Document Date","Item Ledger Entry"."Posting Date");
END ELSE

//Delete the following line.
"Country/Region of Origin Code" := Item."Country/Region of Origin Code";


"Source Type" := "Source Type"::"Item entry";
...

    Código de substituição 3

    ...

IF IntrastatJnlBatch.Type = IntrastatJnlBatch.Type :: Purchases THEN BEGIN
IF (ItemVendor.GET("Item Ledger Entry"."Source No.","Item Ledger Entry"."Item No.","Item Ledger Entry"."Variant Code")) AND
(ItemVendor."Country/Region of Origin Code" <> '') THEN

//Add the following lin.
"Country/Region of Origin Code" := GetIntrastatCountryCode(ItemVendor."Country/Region of Origin Code")

ELSE

//Add the following line.
"Country/Region of Origin Code" := GetIntrastatCountryCode(Item."Country/Region of Origin Code");

FindSourceCurrency(
"Item Ledger Entry"."Source No.","Item Ledger Entry"."Document Date","Item Ledger Entry"."Posting Date");
END ELSE

//Add the following line.
"Country/Region of Origin Code" := GetIntrastatCountryCode(Item."Country/Region of Origin Code");

"Source Type" := "Source Type"::"Item entry";
...

  5. Altere o código na função InsertJobLedgerLine no relatório Obter Entradas do Razão de Item (594) da seguinte maneira:
    Código existente

    ...

Date := "Job Ledger Entry"."Posting Date";

//Delete the following line.
"Country/Region Code" := "Job Ledger Entry"."Country/Region Code";

"Transaction Type" := "Job Ledger Entry"."Transaction Type";
...

    Código de substituição

    ...

Date := "Job Ledger Entry"."Posting Date";

//Add the following line.
"Country/Region Code" := GetIntrastatCountryCode("Job Ledger Entry"."Country/Region Code");

"Transaction Type" := "Job Ledger Entry"."Transaction Type";
...

Pré-requisitos

Você deve ter a versão italiana do Microsoft Dynamics NAV 5.0 Service Pack 1 instalada para aplicar esse hotfix.

Informações sobre remoção

Você não pode remover esse hotfix.

A Microsoft confirmou que este é um problema nos produtos da Microsoft listados na seção "Aplica-se a".

Status

Observação Este é um artigo "FAST PUBLISH" criado diretamente na organização de suporte da Microsoft. As informações contidas aqui são fornecidas como resposta aos problemas possíveis. Como resultado da prontidão de disponibilizá-lo, os materiais pode conter erros tipográficos e podem ser revisados a qualquer momento são aviso prévio. Consulte Termos de Uso para obter outras considerações.