O sistema preenche inesperadamente quantidades incorretas nas entradas gerais do livro razão (G/L) depois de publicar a correção de um documento de folha de pagamentos na versão russa do Microsoft Dynamics NAV 2009 R2

Aplica-se A
Microsoft Dynamics NAV 2009 R2

Este artigo aplica-se ao Microsoft Dynamics NAV para a região de idioma russo (ru).

Sintomas

Suponha que instala a atualização crítica local PS59774 e PS60060 de atualização crítica local para a versão russa do Microsoft Dynamics NAV 2009 R2. Para obter mais informações, visite os seguintes sites da Microsoft:

Depois de publicar a correção de um documento de folha de pagamentos, o sistema preenche os montantes nas entradas gerais do livro razão (G/L) para a correção. No entanto, os montantes diferem dos montantes nas entradas de G/L para o documento de folha de pagamentos original.

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. No entanto, não modificarão estes exemplos para fornecer funcionalidades adicionais ou construir procedimentos para cumprir 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:

  1. Altere o código no Documento folha de pagamentos – Calculatecodeunit (17404). Para tal, siga estes passos:

    1. Crie uma nova função da seguinte forma:

      LOCAL PROCEDURE IsCorrDocument@1210011(DocumentNo@1210000 : Code[20]) : Boolean;
VAR
PayrollDocument@1210001 : Record 17414;
BEGIN
IF PayrollDocument.GET(DocumentNo) THEN
EXIT(PayrollDocument.Correction);
END;

    2. Altere o código na função Retenção. Para fazê-lo, siga estes passos:

      1. Adicione uma variável local e, em seguida, especifique a variável da seguinte forma:

        • Nome: Assinar
        • Tipo de dados: Número inteiro

      2. Altere o código da seguinte forma:
        Código existente 1

        ...
IF RangeHeader.FIND('+') THEN;
FundTax := (PayrollDocLine."Element Type" = PayrollDocLine."Element Type"::Funds);
...

        Código de substituição 1

        ...
IF RangeHeader.FIND('+') THEN;

// Add the following lines.
IF TaxableGross >= 0 THEN
Sign := 1
ELSE
Sign := -1;
// End of the added lines

FundTax := (PayrollDocLine."Element Type" = PayrollDocLine."Element Type"::Funds);
...

        Código existente 2

        ...

// Delete the following line.
SETFILTER("Over Amount",'<%1',TaxableGross);

IF NOT FIND('+') THEN BEGIN
SETRANGE("Over Amount");
IF NOT FIND('-') THEN
EXIT(0);
END;

// Delete the following lines.
ReturnValue := "Tax Amount" +
((TaxableGross - "Over Amount") * "Tax %" / 100.0);
IF ReturnValue < 0 THEN
ReturnValue := 0;
IF ("Max Deduction" > 0) AND (ReturnValue > "Max Deduction") THEN
ReturnValue := "Max Deduction";
// End of the deleted lines.

...

        Código de substituição 2

        ...

// Add the following line.
SETFILTER("Over Amount",'<%1',ABS(TaxableGross));

IF NOT FIND('+') THEN BEGIN
SETRANGE("Over Amount");
IF NOT FIND('-') THEN
EXIT(0);
END;

// Add the following lines.
ReturnValue := "Tax Amount" +
((TaxableGross - Sign * "Over Amount") * "Tax %" / 100.0);
IF (ReturnValue < 0) AND NOT IsCorrDocument(PayrollDocLine."Document No.") THEN
ReturnValue := 0
ELSE
IF ("Max Deduction" > 0) AND (ABS(ReturnValue) > "Max Deduction") THEN
ReturnValue := Sign * "Max Deduction";
// End of the added lines.

...

  2. Altere o código no Documento folha de pagamentos – publicar codeunit (17405). Para fazê-lo, siga estes passos:

    1. Crie uma nova função da seguinte forma:

      ...
LOCAL PROCEDURE GetSignFactor@1210010(Amount@1170000000 : Decimal) : Integer;
BEGIN
IF Amount >= 0 THEN
EXIT(1);
EXIT(-1);
END;
...

    2. Altere o código no acionador Onrun da seguinte forma:
      Código existente

      ...
PostedPayrDocLineToGenJnlLine(PostedPayrollDocLine,GenJnlLine);

// Delete the following lines.
IF Correction THEN
GenJnlLine.VALIDATE(Amount,-PayrollDocBuffer."Tax Amount")
ELSE
GenJnlLine.VALIDATE(Amount,PayrollDocBuffer."Tax Amount");
// End of deleted lines.

PayrollElement.GET(PayrollDocBuffer."Element Code");
...

      Código de substituição

      ...
PostedPayrDocLineToGenJnlLine(PostedPayrollDocLine,GenJnlLine);

// Add the following line.
GenJnlLine.VALIDATE(Amount,PayrollDocBuffer."Tax Amount");

...

    3. Altere o código na função Agregar Impostos. Para fazê-lo, siga estes passos:

      1. Adicione uma variável local e, em seguida, especifique a variável da seguinte forma:

        • Nome: Assinar
        • Tipo de dados: Número inteiro

      2. Altere o código da seguinte forma:
        Código existente

        ...
PayrollDocBuffer.RESET;
PayrollDocBuffer.SETRANGE("Element Code",PayrollDocLineFund."Element Code");
IF PayrollDocBuffer.FINDSET THEN
REPEAT

// Delete the following line.
YTDTaxableAmount := YTDTaxableAmount + PayrollDocBuffer."Base Amount";

TempPayrollDocLine2."Employee No." := PayrollDocLineFund."Employee No.";
TempPayrollDocLine2."Period Code" := PayrollDocLineFund."Period Code";
TempPayrollDocLine2."Element Code" := PayrollDocLineFund."Element Code";
YTDTaxAmount := PayrollDocCalculate.Withholding(TempPayrollDocLine2,YTDTaxableAmount);

// Delete the following line.
CurrPeriodTaxAmount := YTDTaxAmount + YTDPostedTaxAmount;

PayrollDocBuffer."Tax Amount" := CurrPeriodTaxAmount;
PayrollDocBuffer.MODIFY;

// Delete the following line.
YTDPostedTaxAmount := YTDPostedTaxAmount - CurrPeriodTaxAmount;

UNTIL PayrollDocBuffer.NEXT = 0;
...

        Código de substituição

        ...
PayrollDocBuffer.RESET;
PayrollDocBuffer.SETRANGE("Element Code",PayrollDocLineFund."Element Code");
IF PayrollDocBuffer.FINDSET THEN
REPEAT

// Add the following lines.
Sign := GetSignFactor(PayrollDocBuffer."Base Amount");
YTDTaxableAmount := YTDTaxableAmount + Sign * PayrollDocBuffer."Base Amount";
// End of the added lines.

TempPayrollDocLine2."Document No." := PayrollDocLineFund."Document No.";
TempPayrollDocLine2."Employee No." := PayrollDocLineFund."Employee No.";
TempPayrollDocLine2."Period Code" := PayrollDocLineFund."Period Code";
TempPayrollDocLine2."Element Code" := PayrollDocLineFund."Element Code";
YTDTaxAmount := PayrollDocCalculate.Withholding(TempPayrollDocLine2,YTDTaxableAmount);

// Add the following line.
CurrPeriodTaxAmount := Sign * YTDTaxAmount + Sign * YTDPostedTaxAmount;

PayrollDocBuffer."Tax Amount" := CurrPeriodTaxAmount;
PayrollDocBuffer.MODIFY;

// Add the following line.
YTDPostedTaxAmount := YTDPostedTaxAmount - Sign * CurrPeriodTaxAmount;

UNTIL PayrollDocBuffer.NEXT = 0;
...

Pré-requisitos

Tem de ter a versão russa do Microsoft Dynamics NAV 2009 R2 instalada para aplicar esta correção.

Informações de remoção

Não é possível remover esta correção.

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.