Este artigo aplica-se ao Microsoft Dynamics NAV para todos os países e regiões de idioma.
Sintomas
Suponha que clica em Vender/Comprar do Nº. na lista Faturar a/Vender a IVA Calc. na caixa de diálogo Configuração Geral do Livro Razão no Microsoft Dynamics 2009. Quando publica uma ordem de venda na qual o cliente de Venda é proveniente da União Europeia (UE) e o cliente de Faturação é um cliente NACIONAL, as informações sobre a entrada do imposto sobre o valor acrescentado (IVA) relevantes para o relatório do IVA, especialmente o relatório de NIF, não são preenchidas de forma consistente. As informações sobre o campo Código do País de IVA e as informações sobre o campo N.º de Registo de IVA são sempre da Faturação ao cliente.
Este problema ocorre nos seguintes produtos:
- Microsoft Dynamics NAV 2009 R2
- Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Resolução
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 2009 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.
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 ajudar a explicar a funcionalidade de um procedimento específico. No entanto, eles não modificarão esses exemplos para fornecer funcionalidade adicional ou procedimentos de construção para atender aos seus requisitos específicos.
Nota Antes de instalar esta correção, verifique se todos os utilizadores cliente do Microsoft Dynamics NAV têm sessão iniciada no sistema. Isto inclui serviços do Microsoft Dynamics NAV Application Server (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 na função InsertVAT no gen. Jnl.-Post Line codeunit (12) da seguinte forma:
Código existente... VATEntry."Sales Tax Connection No." := NextConnectionNo; VATEntry."User ID" := USERID; VATEntry."No. Series" := "Posting No. Series"; VATEntry."VAT Base Discount %" := "VAT Base Discount %"; VATEntry."Bill-to/Pay-to No." := "Bill-to/Pay-to No."; // Delete the following lines. IF "Bill-to/Pay-to No." <> '' THEN CASE VATEntry.Type OF VATEntry.Type::Purchase: BEGIN IF Vend."No." <> "Bill-to/Pay-to No." THEN Vend.GET("Bill-to/Pay-to No."); VATEntry."Country/Region Code" := Vend."Country/Region Code"; VATEntry."VAT Registration No." := Vend."VAT Registration No."; END; VATEntry.Type::Sale: BEGIN IF Cust."No." <> "Bill-to/Pay-to No." THEN Cust.GET("Bill-to/Pay-to No."); VATEntry."Country/Region Code" := Cust."Country/Region Code"; VATEntry."VAT Registration No." := Cust."VAT Registration No."; END; END; // End of the deleted lines. ...Código de substituição
... VATEntry."Sales Tax Connection No." := NextConnectionNo; VATEntry."User ID" := USERID; VATEntry."No. Series" := "Posting No. Series"; VATEntry."VAT Base Discount %" := "VAT Base Discount %"; VATEntry."Bill-to/Pay-to No." := "Bill-to/Pay-to No."; // Add the following lines. VATEntry."Country/Region Code" := "Country/Region Code"; VATEntry."VAT Registration No." := "VAT Registration No."; // End of the added lines. ...Altere o código no Número de Venda ao Cliente. - Acionador OnValidate na tabela Cabeçalho de Vendas (36) da seguinte forma:
Código existente... "Sell-to Contact" := Cust.Contact; "Gen. Bus. Posting Group" := Cust."Gen. Bus. Posting Group"; "VAT Bus. Posting Group" := Cust."VAT Bus. Posting Group"; "Tax Area Code" := Cust."Tax Area Code"; "Tax Liable" := Cust."Tax Liable"; // Delete the following line. "VAT Registration No." := Cust."VAT Registration No."; ...Código de substituição
... "Sell-to Contact" := Cust.Contact; "Gen. Bus. Posting Group" := Cust."Gen. Bus. Posting Group"; "VAT Bus. Posting Group" := Cust."VAT Bus. Posting Group"; "Tax Area Code" := Cust."Tax Area Code"; "Tax Liable" := Cust."Tax Liable"; // Add the following lines. GLSetup.GET; IF GLSetup."Bill-to/Sell-to VAT Calc." = GLSetup."Bill-to/Sell-to VAT Calc."::"Sell-to/Buy-from No." THEN BEGIN "VAT Registration No." := Cust."VAT Registration No."; "VAT Country/Region Code" := Cust."Country/Region Code"; END; // End of the added lines. ...Altere o código na Faturação para Cliente Nº. - Acionador OnValidate na tabela Cabeçalho de Vendas (36) da seguinte forma:
Código existente 1... "Bill-to Address 2" := Cust."Address 2"; "Bill-to City" := Cust.City; "Bill-to Post Code" := Cust."Post Code"; "Bill-to County" := Cust.County; "Bill-to Country/Region Code" := Cust."Country/Region Code"; // Delete the following line. "VAT Country/Region Code" := Cust."Country/Region Code"; ...Código de substituição 1
... "Bill-to Address 2" := Cust."Address 2"; "Bill-to City" := Cust.City; "Bill-to Post Code" := Cust."Post Code"; "Bill-to County" := Cust.County; "Bill-to Country/Region Code" := Cust."Country/Region Code"; ...Código existente 2
... // Delete the following line. IF GLSetup."Bill-to/Sell-to VAT Calc." = GLSetup."Bill-to/Sell-to VAT Calc."::"Bill-to/Pay-to No." THEN "VAT Bus. Posting Group" := Cust."VAT Bus. Posting Group"; ...Código de substituição 2
... // Add the following line. IF GLSetup."Bill-to/Sell-to VAT Calc." = GLSetup."Bill-to/Sell-to VAT Calc."::"Bill-to/Pay-to No." THEN BEGIN "VAT Bus. Posting Group" := Cust."VAT Bus. Posting Group"; // Add the following lines. "VAT Registration No." := Cust."VAT Registration No."; "VAT Country/Region Code" := Cust."Country/Region Code"; END; // End of the added lines. ...Código existente 3
... "Language Code" := Cust."Language Code"; "Salesperson Code" := Cust."Salesperson Code"; "Combine Shipments" := Cust."Combine Shipments"; Reserve := Cust.Reserve; // Delete the following line. "VAT Registration No." := Cust."VAT Registration No."; ...Código de substituição 3
... "Language Code" := Cust."Language Code"; "Salesperson Code" := Cust."Salesperson Code"; "Combine Shipments" := Cust."Combine Shipments"; Reserve := Cust.Reserve; ...Altere o código no Número de Cliente. - Acionador OnValidate na tabela Cabeçalho do Serviço (5900) da seguinte forma:
Código existente... END; "Gen. Bus. Posting Group" := Cust."Gen. Bus. Posting Group"; "VAT Bus. Posting Group" := Cust."VAT Bus. Posting Group"; "Tax Area Code" := Cust."Tax Area Code"; "Tax Liable" := Cust."Tax Liable"; // Delete the following line. "VAT Registration No." := Cust."VAT Registration No."; ...Código de substituição
... END; "Gen. Bus. Posting Group" := Cust."Gen. Bus. Posting Group"; "VAT Bus. Posting Group" := Cust."VAT Bus. Posting Group"; "Tax Area Code" := Cust."Tax Area Code"; "Tax Liable" := Cust."Tax Liable"; // Add the following lines. GLSetup.GET; IF GLSetup."Bill-to/Sell-to VAT Calc." = GLSetup."Bill-to/Sell-to VAT Calc."::"Sell-to/Buy-from No." THEN BEGIN "VAT Registration No." := Cust."VAT Registration No."; "VAT Country/Region Code" := Cust."Country/Region Code"; END; // End of the added lines. ...Altere o código na Faturação para Cliente Nº. - Acionador OnValidate na tabela Cabeçalho do Serviço (5900) da seguinte forma:
Código existente 1... // Delete the following line. IF GLSetup."Bill-to/Sell-to VAT Calc." = GLSetup."Bill-to/Sell-to VAT Calc."::"Bill-to/Pay-to No." THEN "VAT Bus. Posting Group" := Cust."VAT Bus. Posting Group"; ...Código de substituição 1
... // Add the following line. IF GLSetup."Bill-to/Sell-to VAT Calc." = GLSetup."Bill-to/Sell-to VAT Calc."::"Bill-to/Pay-to No." THEN BEGIN "VAT Bus. Posting Group" := Cust."VAT Bus. Posting Group"; // Add the following lines. "VAT Registration No." := Cust."VAT Registration No."; "VAT Country/Region Code" := Cust."Country/Region Code"; END; // End of the added lines. ...Código existente 2
... "Invoice Disc. Code" := Cust."Invoice Disc. Code"; "Customer Disc. Group" := Cust."Customer Disc. Group"; "Language Code" := Cust."Language Code"; "Salesperson Code" := Cust."Salesperson Code"; Reserve := Cust.Reserve; // Delete the following line. "VAT Registration No." := Cust."VAT Registration No."; ...Código de substituição 2
... "Invoice Disc. Code" := Cust."Invoice Disc. Code"; "Customer Disc. Group" := Cust."Customer Disc. Group"; "Language Code" := Cust."Language Code"; "Salesperson Code" := Cust."Salesperson Code"; Reserve := Cust.Reserve; ...Elimine o código no acionador Código de Envio para País/Região – OnValidate na tabela Cabeçalho do Serviço (5900) da seguinte forma:
... // Delete the following lines. IF "Ship-to Country/Region Code" <> '' THEN "VAT Country/Region Code" := "Country/Region Code" ELSE "VAT Country/Region Code" := "Country/Region Code" // End of the deleted lines. ...Altere o código no procedimento local UpdateShipToAddress na tabela Service Header (5900) da seguinte forma:
Código existente... "Ship-to County" := CompanyInfo."Ship-to County"; "Ship-to Country/Region Code" := CompanyInfo."Ship-to Country/Region Code"; "Ship-to Contact" := CompanyInfo."Ship-to Contact"; END; // Delete the following line. "VAT Country/Region Code" := "Country/Region Code"; END; ...Código de substituição
... "Ship-to County" := CompanyInfo."Ship-to County"; "Ship-to Country/Region Code" := CompanyInfo."Ship-to Country/Region Code"; "Ship-to Contact" := CompanyInfo."Ship-to Contact"; END; END; ...
Pré-requisitos
Tem de ter um dos seguintes produtos instalados para aplicar esta correção:
- Microsoft Dynamics NAV 2009 R2
- Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
Informações sobre remoção
Não é possível remover esta correção.
Status
A Microsoft confirmou que este é um problema nos produtos da Microsoft listados na seção "Aplica-se a".
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.