Este artigo aplica-se ao Microsoft Dynamics NAV para a região de idioma inglês (Reino Unido) (en-gb).
Sintomas
Suponha que clica em Vender/Comprar do Nº. na lista Faturar a/Vender para IVA Calc. na caixa de diálogo Configuração Geral do Livro Razão na versão do Microsoft Dynamics NAV do Reino Unido. 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 que ocorre nos seguintes produtos:
- A versão britânica do Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- A versão do Microsoft Dynamics NAV 2009 no Reino Unido
Resolução
Informações de correção
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 para o Microsoft Dynamics e produtos relacionados determinar que uma atualização específica irá resolver o problema. Os custos de suporte habituais serão aplicados a questões e problemas de suporte adicionais que não se qualificam para a 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. Isto inclui, mas não se limita às garantias implícitas de comercialização ou adequação a um fim específico. Este artigo parte do princípio de que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas utilizadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para fornecer funcionalidades adicionais ou criar procedimentos para satisfazer os seus requisitos específicos.
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, siga estes passos:
Altere o código em Venda ao Cliente Nº. - Acionador OnValidate na tabela Cabeçalho de Vendas (36) da seguinte forma:
Código existente... "Sell-to Post Code" := Cust."Post Code"; "Sell-to County" := Cust.County; "Sell-to Country/Region Code" := Cust."Country/Region Code"; IF NOT SkipSellToContact THEN "Sell-to Contact" := Cust.Contact; "Gen. Bus. Posting Group" := Cust."Gen. Bus. Posting Group"; ...Código de substituição
... "Sell-to Post Code" := Cust."Post Code"; "Sell-to County" := Cust.County; "Sell-to Country/Region Code" := Cust."Country/Region Code"; "VAT Country/Region Code" := Cust."Country/Region Code"; IF NOT SkipSellToContact THEN "Sell-to Contact" := Cust.Contact; "Gen. Bus. Posting Group" := Cust."Gen. Bus. Posting Group"; ...Altere o código em Faturação para Cliente Nº. - Acionador OnValidate na tabela Cabeçalho de Vendas (36) da seguinte forma:
Código existente 1... "Bill-to Post Code" := Cust."Post Code"; "Bill-to County" := Cust.County; "Bill-to Country/Region Code" := Cust."Country/Region Code"; "VAT Country/Region Code" := Cust."Country/Region Code"; IF NOT SkipBillToContact THEN "Bill-to Contact" := Cust.Contact; "Payment Terms Code" := Cust."Payment Terms Code"; ...Código de substituição 1
... "Bill-to Post Code" := Cust."Post Code"; "Bill-to County" := Cust.County; "Bill-to Country/Region Code" := Cust."Country/Region Code"; IF NOT SkipBillToContact THEN "Bill-to Contact" := Cust.Contact; "Payment Terms Code" := Cust."Payment Terms Code"; ...Código existente 2
... END ELSE "Payment Method Code" := Cust."Payment Method Code"; "Gen. Bus. Posting Group" := Cust."Gen. Bus. Posting Group"; GLSetup.GET; 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"; "Customer Posting Group" := Cust."Customer Posting Group"; "Currency Code" := Cust."Currency Code"; "Customer Price Group" := Cust."Customer Price Group"; ...Código de substituição 2
... END ELSE "Payment Method Code" := Cust."Payment Method Code"; GLSetup.GET; 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"; "Gen. Bus. Posting Group" := Cust."Gen. Bus. Posting Group"; "VAT Country/Region Code" := Cust."Country/Region Code"; "VAT Registration No." := Cust."VAT Registration No."; END; "Customer Posting Group" := Cust."Customer Posting Group"; "Currency Code" := Cust."Currency Code"; "Customer Price Group" := Cust."Customer Price Group"; ...Código existente 3
... "Salesperson Code" := Cust."Salesperson Code"; "Combine Shipments" := Cust."Combine Shipments"; Reserve := Cust.Reserve; "VAT Registration No." := Cust."VAT Registration No."; IF "Document Type" = "Document Type"::Order THEN "Prepayment %" := Cust."Prepayment %"; ...Código de substituição 3
... "Salesperson Code" := Cust."Salesperson Code"; "Combine Shipments" := Cust."Combine Shipments"; Reserve := Cust.Reserve; IF "Document Type" = "Document Type"::Order THEN "Prepayment %" := Cust."Prepayment %"; ...Altere o código em Buy-from Vendor No. - Acionador OnValidate na tabela Cabeçalho de Compra (38) da seguinte forma:
Código existente... "Buy-from Post Code" := Vend."Post Code"; "Buy-from County" := Vend.County; "Buy-from Country/Region Code" := Vend."Country/Region Code"; IF NOT SkipBuyFromContact THEN "Buy-from Contact" := Vend.Contact; "Gen. Bus. Posting Group" := Vend."Gen. Bus. Posting Group"; ...Código de substituição
... "Buy-from Post Code" := Vend."Post Code"; "Buy-from County" := Vend.County; "Buy-from Country/Region Code" := Vend."Country/Region Code"; "VAT Country/Region Code" := Vend."Country/Region Code"; IF NOT SkipBuyFromContact THEN "Buy-from Contact" := Vend.Contact; "Gen. Bus. Posting Group" := Vend."Gen. Bus. Posting Group"; ...Altere o código em Pay-to Vendor No. - Acionador OnValidate na tabela Cabeçalho de Compra (38) da seguinte forma:
Código existente 1... "Pay-to Post Code" := Vend."Post Code"; "Pay-to County" := Vend.County; "Pay-to Country/Region Code" := Vend."Country/Region Code"; "VAT Country/Region Code" := Vend."Country/Region Code"; IF NOT SkipPayToContact THEN "Pay-to Contact" := Vend.Contact; "Payment Terms Code" := Vend."Payment Terms Code"; ...Código de substituição 1
... "Pay-to Post Code" := Vend."Post Code"; "Pay-to County" := Vend.County; "Pay-to Country/Region Code" := Vend."Country/Region Code"; IF NOT SkipPayToContact THEN "Pay-to Contact" := Vend.Contact; "Payment Terms Code" := Vend."Payment Terms Code"; ...Código existente 2
... "Shipment Method Code" := Vend."Shipment Method Code"; "Vendor Posting Group" := Vend."Vendor Posting Group"; "Gen. Bus. Posting Group" := Vend."Gen. Bus. Posting Group"; GLSetup.GET; 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" := Vend."VAT Bus. Posting Group"; "Prices Including VAT" := Vend."Prices Including VAT"; "Currency Code" := Vend."Currency Code"; "Invoice Disc. Code" := Vend."Invoice Disc. Code"; ...Código de substituição 2
... "Shipment Method Code" := Vend."Shipment Method Code"; "Vendor Posting Group" := Vend."Vendor Posting Group"; GLSetup.GET; 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" := Vend."VAT Bus. Posting Group"; "Gen. Bus. Posting Group" := Vend."Gen. Bus. Posting Group"; "VAT Country/Region Code" := Vend."Country/Region Code"; "VAT Registration No." := Vend."VAT Registration No."; END; "Prices Including VAT" := Vend."Prices Including VAT"; "Currency Code" := Vend."Currency Code"; "Invoice Disc. Code" := Vend."Invoice Disc. Code"; ...Código existente 3
... VALIDATE("Payment Terms Code"); VALIDATE("Payment Method Code"); VALIDATE("Currency Code"); "VAT Registration No." := Vend."VAT Registration No."; IF "Document Type" = "Document Type"::Order THEN "Prepayment %" := Vend."Prepayment %"; ...Código de substituição 3
... VALIDATE("Payment Terms Code"); VALIDATE("Payment Method Code"); VALIDATE("Currency Code"); IF "Document Type" = "Document Type"::Order THEN "Prepayment %" := Vend."Prepayment %"; ...Altere o código na função InsertVAT no gen. Jnl.-Post Line codeunit (12) da seguinte forma:
Código existente... 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: BEGI 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; ...Código de substituição
... VATEntry.Type::Purchase: BEGIN IF Vend."No." <>"Bill-to/Pay-to No." THEN IF GLSetup."Bill-to/Sell-to VAT Calc." = GLSetup."Bill-to/Sell-to VAT Calc."::"Bill-to/Pay-to No." THEN Vend.GET("Bill-to/Pay-to No.") ELSE Vend.GET("Sell-to/Buy-from 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 IF GLSetup."Bill-to/Sell-to VAT Calc." = GLSetup."Bill-to/Sell-to VAT Calc."::"Bill-to/Pay-to No." THEN Cust.GET("Bill-to/Pay-to No.") ELSE Cust.GET("Sell-to/Buy-from No."); VATEntry."Country/Region Code" := Cust."Country/Region Code"; VATEntry."VAT Registration No." := Cust."VAT Registration No."; END; END; ...
Pré-requisitos
Tem de ter um dos seguintes produtos instalados para aplicar esta correção:
- A versão britânica do Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
- A versão do Microsoft Dynamics NAV 2009 no Reino Unido
Informações de remoção
Não é possível remover esta correção.
Referências
VSTF DynamicsNAVSE: 237315
Estado
A Microsoft confirmou que se trata de um problema nos produtos Microsoft listados na secção "Aplica-se a".
Nota Este é um artigo "PUBLICAÇÃO RÁPIDA" criado diretamente a partir da organização de suporte da Microsoft. As informações aqui contidas são fornecidas tal como estão em resposta a problemas emergentes. Como resultado da velocidade de disponibilização, os materiais podem incluir erros tipográficos e podem ser revistos em qualquer altura sem aviso prévio. Veja Termos de Utilização para outras considerações.