Você está offline; aguardando reconexão

Mensagem de erro "O valor deve ser positivo na Line de Journal geral" quando você lança uma fatura de pagamento antecipado no Microsoft Dynamics NAV 2009

IMPORTANTE: Este artigo foi traduzido pelo software de tradução automática da Microsoft e eventualmente pode ter sido editado pela Microsoft Community através da tecnologia Community Translation Framework (CTF) ou por um tradutor profissional. A Microsoft oferece artigos traduzidos automaticamente por software, por tradutores profissionais e editados pela comunidade para que você tenha acesso a todos os artigos de nossa Base de Conhecimento em diversos idiomas. No entanto, um artigo traduzido pode conter erros de vocabulário, sintaxe e/ou gramática. A Microsoft não é responsável por qualquer inexatidão, erro ou dano causado por qualquer tradução imprecisa do conteúdo ou por seu uso pelos nossos clientes.

Clique aqui para ver a versão em Inglês deste artigo: 2893954
Este artigo se aplica ao Microsoft Dynamics NAV para todos os países e todas as localidades de idiomas.
Sintomas
Suponha que preços incluindo IVA são definidos e faturas de pagamento antecipado não são compactadas no Microsoft Dynamics NAV 2009. Quando você lança uma fatura de pagamento antecipado, você recebe a seguinte mensagem de erro:
Valor deve ser positivo em geral Journal Line.
Esse problema ocorre nos seguintes produtos:
  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
  • Microsoft Dynamics NAV 2009 R2
Resolução

Informações sobre o hotfix

Um hotfix suportado está disponível agora na Microsoft. No entanto, apenas destina-se a corrigir o problema descrito neste artigo. Aplique-o somente aos sistemas que apresentarem esse problema específico. Esta correção poderá ser submetida a testes adicionais. Portanto, se esse problema não o prejudicar, recomendamos que você aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contém esse hotfix.

Observação: Em alguns casos, as taxas cobradas para suporte a chamadas podem ser canceladas se um profissional de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma atualização específica resolverá o problema. Os custos normais de suporte serão aplicados para questões de suporte adicionais e problemas que não se qualificam à atualização específica em questão.



Informações sobre a instalação

A Microsoft fornece exemplos de programação somente para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um propósito específico. Este artigo presume que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.

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

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

É recomendável que a conta de usuário na janela de Logins do Windows ou na janela banco de dados seja atribuída a ID de função "SUPER". Se a conta de usuário não pode ser atribuída a ID de 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 será alterado.
  • A permissão de execução para o objeto de sistema 5210 de identificação de objeto e do objeto de sistema 9015 de identificação de objeto .

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

Alterações de código

Observação: Sempre teste código correções em um ambiente controlado antes de aplicar as correções para os computadores de produção.
Para resolver esse problema, execute as seguintes etapas:
  1. Altere o código na função AdjustPrepmtAmountLCY do Codeuint de vendas-Post (80) da seguinte forma:
    1 de código existente
    ...TotalPrepmtAmount@1002 : ARRAY [2] OF Decimal;      BEGIN...
    1 código de substituição
    ...TotalPrepmtAmount@1002 : ARRAY [2] OF Decimal;// Add the following line.       PricesInclVATRoundingAmount@1170000000 : ARRAY [2] OF Decimal;// End of the added line.      BEGIN...
    2 de código existente
    ...TotalPrepmtAmount[1] += "Prepmt. Amount Inv. (LCY)";...
    Código de substituição 2
    ...// Add the following lines.IF SalesHeader."Prices Including VAT" THEN                 IF (("Prepayment %" <> 100) OR IsFinalInvoice) AND (DeductionFactor = 1) THEN BEGIN                   PricesInclVATRoundingAmount[1] := TotalRoundingAmount[1];                   PricesInclVATRoundingAmount[2] := TotalRoundingAmount[2];                 END;// End of the added lines.                 TotalPrepmtAmount[1] += "Prepmt. Amount Inv. (LCY)";...
    3 de código existente
    ...UpdatePrepmtSalesLineWithRound(// Delete the following line.           PrepmtSalesLine,TotalRoundingAmount,TotalPrepmtAmount,TempPrepmtDeductLCYSalesLine.IsFinalInvoice);// End of the deleted line.        END;...
    Código de substituição 3
    ...UpdatePrepmtSalesLineWithRound(// Add the following lines.           PrepmtSalesLine,TotalRoundingAmount,TotalPrepmtAmount,           TempPrepmtDeductLCYSalesLine.IsFinalInvoice,PricesInclVATRoundingAmount);// End of the added lines.        END;...
  2. Altere o código na funçãoUpdatePrepmtSalesLineWithRound theSales-Post Codeuint (80) da seguinte forma:
    1 de código existente
    ...// Delete the following line.LOCAL PROCEDURE UpdatePrepmtSalesLineWithRound@89(VAR PrepmtSalesLine@1002 : Record 37;TotalRoundingAmount@1001 : ARRAY [2] OF Decimal;TotalPrepmtAmount@1000 : ARRAY [2] OF Decimal;FinalInvoice@1170000000 : Boolean);// End of the deleted line.      VAR...
    1 código de substituição
    ...// Add the following line.LOCAL PROCEDURE UpdatePrepmtSalesLineWithRound@89(VAR PrepmtSalesLine@1002 : Record 37;TotalRoundingAmount@1001 : ARRAY [2] OF Decimal;TotalPrepmtAmount@1000 : ARRAY [2] OF Decimal;FinalInvoice@1170000000 : Boolean;PricesInclVATRoundingAmount@1170000001 : ARRAY [2] OF Decimal);// End of the added line.      VAR...
    2 de código existente
    ...// Delete the following line.IF (ABS(TotalRoundingAmount[2]) <= GLSetup."Amount Rounding Precision") OR FinalInvoice THEN BEGIN// End of the deleted line.            IF ("Prepayment %" = 100) AND ("Prepmt. Amount Inv. (LCY)" = 0) THEN...
    Código de substituição 2
    ...// Add the following lines.IF (PricesInclVATRoundingAmount[1] <> 0) AND (TotalRoundingAmount[1] = 0) THEN BEGIN           Prepmt100PctVATRoundingAmt := 0;           PricesInclVATRoundingAmount[1] := 0;         END;          IF (ABS(TotalRoundingAmount[2]) <= GLSetup."Amount Rounding Precision") OR            (FinalInvoice AND (TotalRoundingAmount[1] = 0))         THEN BEGIN// End of the added lines.            IF ("Prepayment %" = 100) AND ("Prepmt. Amount Inv. (LCY)" = 0) THEN...
    3 de código existente
    ...END;// Delete the following lines.         "Prepmt. VAT Amount Inv. (LCY)" := TotalRoundingAmount[2] + Prepmt100PctVATRoundingAmt;         NewAmountIncludingVAT := Amount + TotalPrepmtAmount[2] + TotalRoundingAmount[2];         Increment(TotalSalesLineLCY."Amount Including VAT","Amount Including VAT" - NewAmountIncludingVAT - Prepmt100PctVATRoundingAmt);// End of the deleted lines.          IF "Currency Code" = '' THEN...
    Código de substituição 3
    ...END;// Add the following lines.          IF (PricesInclVATRoundingAmount[2] <> 0) AND (TotalRoundingAmount[2] = 0) THEN BEGIN           Prepmt100PctVATRoundingAmt := 0;           PricesInclVATRoundingAmount[2] := 0;         END;          "Prepmt. VAT Amount Inv. (LCY)" := TotalRoundingAmount[2] + Prepmt100PctVATRoundingAmt;         NewAmountIncludingVAT := Amount + TotalPrepmtAmount[2] + TotalRoundingAmount[2];         IF (PricesInclVATRoundingAmount[1] = 0) AND (PricesInclVATRoundingAmount[2] = 0) THEN           Increment(TotalSalesLineLCY."Amount Including VAT","Amount Including VAT" - NewAmountIncludingVAT - Prepmt100PctVATRoundingAmt       );// End of the added lines.          IF "Currency Code" = '' THEN...
  3. Alterar o código da função AdjustPrepmtAmountLCY na compra.-código de Post (90) da seguinte maneira:
    1 de código existente
    ...TotalPrepmtAmount@1003 : ARRAY [2] OF Decimal;      BEGIN...
    1 código de substituição
    ...TotalPrepmtAmount@1003 : ARRAY [2] OF Decimal;// Add the following line.       PricesInclVATRoundingAmount@1170000000 : ARRAY [2] OF Decimal;// End of the added line.      BEGIN...
    2 de código existente
    ...TotalPrepmtAmount[1] += "Prepmt. Amount Inv. (LCY)";...
    Código de substituição 2
    ...// Add the following lines.               IF PurchHeader."Prices Including VAT" THEN                 IF (("Prepayment %" <> 100) OR IsFinalInvoice) AND (DeductionFactor = 1) THEN BEGIN                   PricesInclVATRoundingAmount[1] := TotalRoundingAmount[1];                   PricesInclVATRoundingAmount[2] := TotalRoundingAmount[2];                 END;// End of the added lines.                 TotalPrepmtAmount[1] += "Prepmt. Amount Inv. (LCY)";...
    3 de código existente
    ...// Delete the following line.UpdatePrepmtPurchLineWithRound(PrepmtPurchLine,TotalRoundingAmount,TotalPrepmtAmount);// End of the deleted line.        END;...
    Código de substituição 3
    ...// Add the following lines.UpdatePrepmtPurchLineWithRound(           PrepmtPurchLine,TotalRoundingAmount,TotalPrepmtAmount,           TempPrepmtDeductLCYPurchLine.IsFinalInvoice,PricesInclVATRoundingAmount);// End of the added lines.        END;...
  4. Altere o código na função em thePurch.UpdatePrepmtPurchLineWithRound -Post Codeunit (90) da seguinte maneira:
    1 de código existente
    ...// Delete the following line.LOCAL PROCEDURE UpdatePrepmtPurchLineWithRound@89(VAR PrepmtPurchLine@1002 : Record 39;TotalRoundingAmount@1001 : ARRAY [2] OF Decimal;TotalPrepmtAmount@1000 : ARRAY [2] OF Decimal);// End of the deleted line.      VAR...
    1 código de substituição
    ...// Add the following line.LOCAL PROCEDURE UpdatePrepmtPurchLineWithRound@89(VAR PrepmtPurchLine@1002 : Record 39;TotalRoundingAmount@1001 : ARRAY [2] OF Decimal;TotalPrepmtAmount@1000 : ARRAY [2] OF Decimal;FinalInvoice@1170000001 : Boolean;PricesInclVATRoundingAmount@1170000000 : ARRAY [2] OF Decimal);// End of the added line.      VAR...
    2 de código existente
    ...// Delete the following line.IF ABS(TotalRoundingAmount[2]) <= GLSetup."Amount Rounding Precision" THEN BEGIN// End of the deleted line.            IF ("Prepayment %" = 100) AND ("Prepmt. Amount Inv. (LCY)" = 0) THEN...
    Código de substituição 2
    ...// Add the following lines.         IF (PricesInclVATRoundingAmount[1] <> 0) AND (TotalRoundingAmount[1] = 0) THEN BEGIN           Prepmt100PctVATRoundingAmt := 0;           PricesInclVATRoundingAmount[1] := 0;         END;          IF (ABS(TotalRoundingAmount[2]) <= GLSetup."Amount Rounding Precision") OR            (FinalInvoice AND (TotalRoundingAmount[1] = 0))         THEN BEGIN// End of the added lines.            IF ("Prepayment %" = 100) AND ("Prepmt. Amount Inv. (LCY)" = 0) THEN...
    3 de código existente
    ...END;// Delete the following lines.         "Prepmt. VAT Amount Inv. (LCY)" := -(TotalRoundingAmount[2] + Prepmt100PctVATRoundingAmt);         NewAmountIncludingVAT := Amount - (TotalPrepmtAmount[2] + TotalRoundingAmount[2]);         Increment(           TotalPurchLineLCY."Amount Including VAT",-("Amount Including VAT" - NewAmountIncludingVAT + Prepmt100PctVATRoundingAmt));// End of the deleted lines.          IF "Currency Code" = '' THEN...
    Código de substituição 3
    ...END;// Add the following lines.         IF (PricesInclVATRoundingAmount[2] <> 0) AND (TotalRoundingAmount[2] = 0) THEN BEGIN           Prepmt100PctVATRoundingAmt := 0;           PricesInclVATRoundingAmount[2] := 0;         END;          "Prepmt. VAT Amount Inv. (LCY)" := -(TotalRoundingAmount[2] + Prepmt100PctVATRoundingAmt);         NewAmountIncludingVAT := Amount - (TotalPrepmtAmount[2] + TotalRoundingAmount[2]);         IF (PricesInclVATRoundingAmount[1] = 0) AND (PricesInclVATRoundingAmount[2] = 0) THEN           Increment(             TotalPurchLineLCY."Amount Including VAT",-("Amount Including VAT" - NewAmountIncludingVAT + Prepmt100PctVATRoundingAmt));// End of the added lnies.          IF "Currency Code" = '' THEN...

Pré-requisitos:

Você deve ter um dos seguintes produtos instalados para aplicar esse hotfix:
  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
  • Microsoft Dynamics NAV 2009 R2


Informações sobre remoção

Você não pode remover esse hotfix.
Situação
A Microsoft confirma que este é um problema em seus produtos listados na seção "Aplica-se a".
Observação: Este é um artigo de "PUBLICAÇÃO RÁPIDA" criado diretamente de dentro da organização de suporte da Microsoft. As informações contidas neste documento são fornecidas desta maneira, em resposta a problemas emergentes. Como um dos resultados da velocidade da publicação, os materiais podem incluir erros tipográficos e podem ser revisados a qualquer momento sem aviso prévio. Consulte Termos de uso para obter outras considerações.

Aviso: este artigo foi traduzido automaticamente

Propriedades

ID do Artigo: 2893954 - Última Revisão: 08/10/2016 00:07:00 - Revisão: 2.0

Microsoft Dynamics NAV 2009

  • kbqfe kbmbsmigrate kbmbscodefix kbsurveynew kberrmsg kbmt KB2893954 KbMtpt
Comentários
ementsByTagName("head")[0].appendChild(m);