Nenhuma informação de IVA é impressa no relatório da Ordem de Vendas Arquivadas e no relatório pedido de compra arquivado no Microsoft Dynamics NAV

Aplica-se a

Dynamics NAV 2009 Service Pack 1 Dynamics NAV 2009 Microsoft Dynamics NAV 5.0 Service Pack 1 Microsoft Dynamics NAV 5.0

Este artigo se aplica ao Microsoft Dynamics NAV para todos os países e todas as localidades de idioma.

Sintomas

Quando você executa o relatório da Ordem de Vendas Arquivada (216) e executa o relatório Ordem de Compra Arquivada (416) no Microsoft Dynamics NAV, as informações do IVA (imposto sobre o valor agregado) não são impressas. Esse problema ocorre nos seguintes produtos:

Microsoft Dynamics NAV 2009 Service Pack 1
Microsoft Dynamics NAV 2009
Microsoft Dynamics NAV 5.0 Service Pack 1
Microsoft Dynamics NAV 5,0

Resolução

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, é recomendável aguardar o próximo pacote de serviços do Microsoft Dynamics NAV 2009 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.

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:

Adicione uma variável local no gatilho CopyLoop – OnAfterGetRecord no relatório ordem de vendas arquivada (216) e especifique a variável da seguinte maneira:
- Nome:TempSalesHeader
- DataType:Record
- Subtipo:Cabeçalho de Vendas
Além disso, habilite a propriedade Temporary.
Adicione uma variável local no gatilho CopyLoop – OnAfterGetRecord no relatório ordem de vendas arquivada (216) e especifique a variável da seguinte maneira:
- Name:TempSalesLine
- DataType:Record
- Subtipo:Linha de Vendas
Além disso, habilite a propriedade Temporary.

Altere o código no gatilho CopyLoop – OnAfterGetRecord no relatório da Ordem de Vendas Arquivada (216) da seguinte maneira:

Código existente

CLEAR(SalesLineArch);
SalesLineArch.DELETEALL;
SalesLineArchive.SETRANGE("Document Type","Sales Header Archive"."Document Type");
SalesLineArchive.SETRANGE("Document No.","Sales Header Archive"."No.");
SalesLineArchive.SETRANGE("Version No.","Sales Header Archive"."Version No.");
IF SalesLineArchive.FINDSET THEN
  REPEAT
    SalesLineArch := SalesLineArchive;
    SalesLineArch.INSERT;
  UNTIL SalesLineArchive.NEXT = 0;

VATAmountLine.DELETEALL;

IF Number > 1 THEN
  CopyText := Text003;
CurrReport.PAGENO := 1;

Código de substituição

CLEAR(SalesLineArch);
SalesLineArch.DELETEALL;
SalesLineArchive.SETRANGE("Document Type","Sales Header Archive"."Document Type");
SalesLineArchive.SETRANGE("Document No.","Sales Header Archive"."No.");
SalesLineArchive.SETRANGE("Version No.","Sales Header Archive"."Version No.");
IF SalesLineArchive.FINDSET THEN
  REPEAT
    SalesLineArch := SalesLineArchive;
    SalesLineArch.INSERT;

// Add the following lines.
    TempSalesLine.TRANSFERFIELDS(SalesLineArchive);
    TempSalesLine.INSERT;
// End of the lines.

  UNTIL SalesLineArchive.NEXT = 0;

VATAmountLine.DELETEALL;

// Add the following lines.
TempSalesHeader.TRANSFERFIELDS("Sales Header Archive");

TempSalesLine."Prepayment Line" := TRUE;  // used as flag in CalcVATAmountLines -> not invoice rounding
TempSalesLine.CalcVATAmountLines(0,TempSalesHeader,TempSalesLine,VATAmountLine);
VATAmount := VATAmountLine.GetTotalVATAmount;
VATBaseAmount := VATAmountLine.GetTotalVATBase;
VATDiscountAmount :=
  VATAmountLine.GetTotalVATDiscount(TempSalesHeader."Currency Code",TempSalesHeader."Prices Including VAT");
TotalAmountInclVAT := VATAmountLine.GetTotalAmountInclVAT;
// End of the lines.

IF Number > 1 THEN
  CopyText := Text003;
CurrReport.PAGENO := 1;

Adicione uma variável local no gatilho CopyLoop – OnAfterGetRecord no relatório Ordem de Compra Arquivada (416) e especifique a variável da seguinte maneira:
- Nome:TempPurchHeader
- DataType:Record
- Subtype:Cabeçalho de Compra
Além disso, habilite a propriedade Temporary.
Adicione uma variável local no gatilho CopyLoop – OnAfterGetRecord no relatório Ordem de Compra Arquivada (416) e especifique a variável da seguinte maneira:
- Name:TempPurchLine
- DataType:Record
- Subtipo:Linha de Compra
Além disso, habilite a propriedade Temporary.

Altere o código no gatilho CopyLoop – OnAfterGetRecord no relatório 416 (416) arquivado da seguinte maneira:

Código existente

CLEAR(PurchLineArch);
PurchLineArch.DELETEALL;
PurchLineArchive.SETRANGE("Document Type","Purchase Header Archive"."Document Type");
PurchLineArchive.SETRANGE("Document No.","Purchase Header Archive"."No.");
PurchLineArchive.SETRANGE("Version No.","Purchase Header Archive"."Version No.");
IF PurchLineArchive.FINDSET THEN
  REPEAT
    PurchLineArch := PurchLineArchive;
    PurchLineArch.INSERT;
  UNTIL PurchLineArchive.NEXT = 0;

VATAmountLine.DELETEALL;

IF Number > 1 THEN
  CopyText := Text003;
CurrReport.PAGENO := 1;

Código de substituição

CLEAR(PurchLineArch);
PurchLineArch.DELETEALL;
PurchLineArchive.SETRANGE("Document Type","Purchase Header Archive"."Document Type");
PurchLineArchive.SETRANGE("Document No.","Purchase Header Archive"."No.");
PurchLineArchive.SETRANGE("Version No.","Purchase Header Archive"."Version No.");
IF PurchLineArchive.FINDSET THEN
  REPEAT
    PurchLineArch := PurchLineArchive;
    PurchLineArch.INSERT;

// Add the following lines.
    TempPurchLine.TRANSFERFIELDS(PurchLineArchive);
    TempPurchLine.INSERT;
// End of the lines.

  UNTIL PurchLineArchive.NEXT = 0;

VATAmountLine.DELETEALL;

// Add the following lines.
TempPurchHeader.TRANSFERFIELDS("Purchase Header Archive");

TempPurchLine."Prepayment Line" := TRUE;  // used as flag in CalcVATAmountLines -> not invoice rounding
TempPurchLine.CalcVATAmountLines(0,TempPurchHeader,TempPurchLine,VATAmountLine);
VATAmount := VATAmountLine.GetTotalVATAmount;
VATBaseAmount := VATAmountLine.GetTotalVATBase;
VATDiscountAmount :=
  VATAmountLine.GetTotalVATDiscount(TempPurchHeader."Currency Code",TempPurchHeader."Prices Including VAT");
TotalAmountInclVAT := VATAmountLine.GetTotalAmountInclVAT;
// End of the lines.

IF Number > 1 THEN
  CopyText := Text003;
CurrReport.PAGENO := 1;

Pré-requisitos

Você deve ter um dos seguintes produtos instalados para aplicar este hotfix:

Microsoft Dynamics NAV 2009 Service Pack 1
Microsoft Dynamics NAV 2009
Microsoft Dynamics NAV 5.0 Service Pack 1
Microsoft Dynamics NAV 5,0

Informações sobre remoção

Você não pode remover esse hotfix.

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.