Este artigo aplica-se ao Microsoft Dynamics NAV para a região de idioma italiano (it).
Depois de aplicar a correção 2275869 na versão italiana do Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1), o código de país na linha do diário intrastat nem sempre está correto.
Para obter mais informações sobre a correção 2275869, clique no seguinte número de artigo para ver o artigo na Base de Dados de Conhecimento Microsoft:
2275869 O valor no campo "Nº de Registo de IVA" é exportado incorretamente para o ficheiro Scambi.cee na versão italiana do Microsoft Dynamics NAV 5.0 Service Pack 1
Sintomas
Este problema ocorre porque o código do país é retirado da entrada do livro razão do item. Em determinadas situações específicas, o código do país deve ser retirado do campo de faturação ou do campo de pagamento.
Causa
Informações sobre o hotfix
Uma correção suportada está agora disponível na Microsoft. No entanto, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-o apenas a sistemas com este problema específico. Esta correção pode receber testes adicionais. Por conseguinte, se não for gravemente afetado por este problema, recomendamos que aguarde pelo próximo service pack do Microsoft Dynamics NAV ou pela próxima versão do Microsoft Dynamics NAV que contém esta correção.
Nota Em casos especiais, os custos normalmente incorridos para chamadas de suporte poderão ser cancelados se um Profissional de Suporte Técnico do Microsoft Dynamics e produtos relacionados determinar que uma atualização específica irá resolve o 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.
Nota Antes de instalar esta correção, verifique se todos os utilizadores cliente do Microsoft Navision têm sessão iniciada no sistema. Isto inclui utilizadores cliente do Microsoft Navision Application Services (NAS). Deve ser o único utilizador cliente com sessão iniciada quando implementa esta correção.
Para implementar esta correção, tem de ter uma licença de programador.
Recomendamos que a conta de utilizador na janela Inícios de Sessão do Windows ou na janela Inícios de Sessão da Base de Dados seja atribuída ao ID da função "SUPER". Se não for possível atribuir à conta de utilizador o ID de função "SUPER", tem de verificar se a conta de utilizador tem as seguintes permissões:
- A permissão Modificar para o objeto que irá alterar.
- A permissão Executar para o objeto ID de Objeto de Sistema 5210 e para o objeto ID de Objeto do Sistema 9015.
Nota Não tem de ter direitos sobre os arquivos de dados, a menos que tenha de efetuar a reparação de dados.
Alterações de código
Nota Teste sempre as correções de código num ambiente controlado antes de aplicar as correções aos seus computadores de produção.
Para resolver este problema, execute as seguintes etapas:
Altere o código no Item Nº. - Acionador OnValidate na tabela de linhas Jnl. Intrastat (263) da seguinte forma:
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;Altere o código na função ValidateSourceEntryNo na tabela Intrastat Jnl. Line (263) da seguinte forma:
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."; ...Crie uma nova função GetIntrastatCountryCode que utilize o tipo Código e o comprimento de dez para o valor devolvido na tabela De linhas Jnl. Intrastat (263). Para criar esta função, siga estes passos:
Adicione um novo paramater local e, em seguida, especifique o paramater da seguinte forma:
- Var: Não
- Nome: CountryRegionCode
- DataType: Código
- Comprimento: 10
Adicione uma nova variável local e, em seguida, especifique a variável da seguinte forma:
- Nome: PaísRegião
- DataType: Registo
- Subtipo: País/Região
Adicione o código da seguinte forma:
IF CountryRegion.GET(CountryRegionCode) THEN EXIT(CountryRegion."Intrastat Code");
Altere o código na função InsertItemJnlLine na tabela Get Item Ledger Entries (594) da seguinte forma:
Código existente 1... 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 existente 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."; //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 existente 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 //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 line. "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"; ...Altere o código na função InsertJobLedgerLine na tabela Get Item Ledger Entries (594) da seguinte forma:
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
Tem de ter a versão italiana do Microsoft Dynamics NAV 5.0 Service Pack 1 instalada para aplicar esta correção.
Informações sobre remoção
Não é possível remover esta correção.
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.