Mensagem de erro "O produto n º [Item_No.] não existe" quando tenta estornar registo sob a forma de movimentos de fornecedor na versão russa do Microsoft Dynamics NAV 2009 R2 com Feature Pack 1

Aplica-se a: Dynamics NAV 2009

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

Sintomas


A versão russa do Microsoft Dynamics NAV 2009 R2 com Feature Pack 1, se a tabela de movimento de IVA (254) tem as alterações de atribuição de IVA operações, quando tenta estornar registam sob a forma de movimentos de fornecedor, receberá a seguinte mensagem de erro:
N º produtoItem_No. não existe.

Resolução


Informações sobre correção

Agora tem uma correcção suportada disponível na Microsoft. Contudo, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-a apenas em sistemas que tenham este problema específico. Esta correcção poderá ser submetida a testes adicionais. Por conseguinte, se não estiver a ser gravemente afectado por este problema, recomendamos que aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contenha esta correcção.

Nota Em casos especiais, os custos normalmente inerentes para suporte chamadas poderão ser anuladas se um técnico de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma actualização específica resolverá o problema. Os custos de normais do suporte serão aplicados a questões de suporte adicionais e problemas 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 a título ilustrativo, sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas que são utilizadas para criar e depurar procedimentos. Técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.

Nota Antes de instalar esta correcção, certifique-se de que todos os utilizadores de cliente do Microsoft Navision são registados no sistema. Isto inclui os utilizadores de clientes do Microsoft Navision Application Server (NAS). Deve ser o único usuário do cliente que tem sessão iniciada quando implementar esta correcção.

Para implementar esta correcção, tem de ter uma licença de desenvolvedor.

Recomendamos que a conta de utilizador na janela Logins do Windows ou na janela Logins de base de dados seja atribuída a ID de função "SUPER". Se a conta de utilizador não é possível atribuir o ID de função "SUPER", tem de verificar que a conta de utilizador tem as seguintes permissões:
  • A permissão Modificar para o objecto que estará a alterar.
  • A permissão executar para o objecto 5210 de ID de objecto de sistema e para o objecto 9015 de ID de objecto de sistema .


Nota Não tem de ter direitos para os arquivos de dados, excepto se tiver de efectuar a reparação de dados.

Alterações de código

Nota Sempre o código de ensaio corrige num ambiente controlado antes de aplicar as correcções para os computadores de produção.
Para resolver este problema, siga estes passos:
Nota Para criar o campo (12490), utilize o seguinte ficheiro .fob.
Nome do ficheiroVersão do ficheiroTamanho do ficheiroDataHoraPlataforma
Vstf260227.fobNão aplicável169,34003-Jun-201110:08Não aplicável
O ficheiro seguinte está disponível para transferência a partir do Microsoft Dynamics File Exchange Server:

Data de edição: 2 de Abril de 2014

A Microsoft analisou este ficheiro quanto à presença de virus. A Microsoft utilizou o software de deteção de vírus mais atual, que estava disponível na data em que o ficheiro foi publicado. O ficheiro está armazenado em servidores com segurança melhorada que ajudam a impedir alterações não autorizadas ao ficheiro.
  1. Altere o código da tabela de Entrada de inversão (179) do seguinte modo:
    1. Adicione o seguinte campo: {12490; Atribuição de IVA; Valor boleano}
    2. Altere o código na função InsertReversalEntry da seguinte forma:
      Código existente
      ...                  ReversalEntry."Bal. Account Type" := GLEntry."Bal. Account Type";

      ReversalEntry."Bal. Account No." := GLEntry."Bal. Account No.";

      ReversalEntry."Line No." := NextLineNo;

      NextLineNo := NextLineNo + 1;

      ReversalEntry.INSERT;



      IF GLEntry.Amount > 0 THEN BEGIN

      GLItemLedgRelation.RESET;

      GLItemLedgRelation.SETRANGE("G/L Entry No.",GLEntry."Entry No.");
      ...
      Código de substituição
      ...                 ReversalEntry."Bal. Account Type" := GLEntry."Bal. Account Type";

      ReversalEntry."Bal. Account No." := GLEntry."Bal. Account No.";

      ReversalEntry."Line No." := NextLineNo;

      // Add the following line.
      ReversalEntry."VAT Allocation" := VATAllocOnCost;
      // End of the added line.

      NextLineNo := NextLineNo + 1;

      ReversalEntry.INSERT;



      IF GLEntry.Amount >0 THEN BEGIN

      GLItemLedgRelation.RESET;

      GLItemLedgRelation.SETRANGE("G/L Entry No.",GLEntry."Entry No.");
      ...
    3. Altere o código na função CheckEntries da seguinte forma:
      Código existente 1
      ...    PROCEDURE CheckEntries@14();   
      ...
      Código de substituição 1
      ...   PROCEDURE CheckEntries@14(IsVATAllocOnCost@1000000000 : Boolean);        
      ...
      Código existente 2
      ...      MaxPostingDate := 0D;

      IF NOT GLEntry.FIND('-') THEN

      ERROR(Text009,GLEntry.TABLECAPTION,GLAcc.TABLECAPTION);

      // Delete the following line.
      VATAllocOnCost := VATAllocationExist(VATEntry);
      // End of the deleted line.

      IF GLEntry.FIND('-') THEN BEGIN

      // Delete the following line.
      IF (GLEntry."Journal Batch Name" = '') AND NOT VATAllocOnCost THEN
      // End of the deleted line.

      TestFieldError;

      REPEAT

      CheckGLAcc(GLEntry,BalanceCheckAmount,BalanceCheckAddCurrAmount);

      UNTIL GLEntry.NEXT = 0;

      END;
      ...
      Código de substituição 2
      ...         MaxPostingDate := 0D;

      IF NOT GLEntry.FIND('-') THEN

      ERROR(Text009,GLEntry.TABLECAPTION,GLAcc.TABLECAPTION);

      IF GLEntry.FIND('-') THEN BEGIN

      // Add the following line.
      IF (GLEntry."Journal Batch Name" = '') AND NOT IsVATAllocOnCost THEN
      // End of the added line.

      TestFieldError;

      REPEAT

      CheckGLAcc(GLEntry,BalanceCheckAmount,BalanceCheckAddCurrAmount);

      UNTIL GLEntry.NEXT = 0;

      END;
      ...
      Código existente 3
      ...       IF VATEntry.FIND('-') THEN

      REPEAT

      CheckVAT(VATEntry);

      UNTIL VATEntry.NEXT = 0;

      // Delete the following line.
      IF VATAllocOnCost THEN
      // End of the deleted line.

      IF ValueEntry.FIND('-') THEN

      REPEAT

      CheckItem(ValueEntry);

      UNTIL ValueEntry.NEXT = 0;
      ...
      Código de substituição 3
      ...       IF VATEntry.FIND('-') THEN

      REPEAT

      CheckVAT(VATEntry);

      UNTIL VATEntry.NEXT = 0;

      // Add the following line.
      IF IsVATAllocOnCost THEN
      // End of the added line.

      IF ValueEntry.FIND('-') THEN

      REPEAT

      CheckItem(ValueEntry);

      UNTIL ValueEntry.NEXT = 0;
      ...
    4. Altere o código na função SetReverseFilter da seguinte forma:
      Código existente 1
      ...           TaxDiffEntry.SETRANGE("Transaction No.",Number);

      END ELSE BEGIN

      GLReg.GET(Number);
      ...
      Código de substituição 1
      ...         TaxDiffEntry.SETRANGE("Transaction No.",Number);

      // Add the following line.
      ValueEntry.SETRANGE("Entry No.",0);
      // End of the added line.

      END ELSE BEGIN

      GLReg.GET(Number);
      ...
      Código existente 2
      ...           VATEntry.SETRANGE("Entry No.",GLReg."From VAT Entry No.",GLReg."To VAT Entry No.");

      GLItemLedgRelation.SETCURRENTKEY(GLItemLedgRelation."G/L Register No.");

      GLItemLedgRelation.SETRANGE("G/L Register No.",GLReg."No.");

      IF GLItemLedgRelation.FINDFIRST THEN

      FromValueEntryNo := GLItemLedgRelation."Value Entry No.";

      IF GLItemLedgRelation.FINDLAST THEN

      ToValueEntryNo := GLItemLedgRelation."Value Entry No.";

      ValueEntry.SETRANGE("Entry No.",FromValueEntryNo,ToValueEntryNo);
      ...
      Código de substituição 2
      ...        VATEntry.SETRANGE("Entry No.",GLReg."From VAT Entry No.",GLReg."To VAT Entry No.");

      // Add the following lines.
      FromValueEntryNo := 0;

      ToValueEntryNo := 0;

      IF VATAllocOnCost THEN BEGIN
      // End of the added lines.

      GLItemLedgRelation.SETCURRENTKEY(GLItemLedgRelation."G/L Register No.");

      GLItemLedgRelation.SETRANGE("G/L Register No.",GLReg."No.");

      IF GLItemLedgRelation.FINDFIRST THEN

      FromValueEntryNo := GLItemLedgRelation."Value Entry No.";

      IF GLItemLedgRelation.FINDLAST THEN

      ToValueEntryNo := GLItemLedgRelation."Value Entry No.";
      // Add the following line.
      END;
      // End of the added line.

      ValueEntry.SETRANGE("Entry No.",FromValueEntryNo,ToValueEntryNo);
      ...
    5. Altere o código na função VATAllocationExist da seguinte forma:
      Código existente
      ...// Delete the following line.
      VATEntry2.COPYFILTERS(VATEntry2);
      // End of the deleted line.

      VATEntry2.SETRANGE("VAT Allocation Type",VATEntry2."VAT Allocation Type"::Charge);

      EXIT(NOT VATEntry2.ISEMPTY);
      ...
      Código de substituição
      ...// Add the following line.
      VATEntry2.COPYFILTERS(VATEntry);
      // End of the added line.

      VATEntry2.SETRANGE("VAT Allocation Type",VATEntry2."VAT Allocation Type"::Charge);

      EXIT(NOT VATEntry2.ISEMPTY);
      ...
  2. Altere o código na função ' Registar ', sob a forma de Movimentos revertidos (179) do seguinte modo:
    Adicione a seguinte variável local:
    • Nome: VATAllocOnCost
    • Tipo de dados: boleano
    Código existente 1
    ...            IF TempGLReg.FINDSET THEN

    REPEAT

    ReversalEntry2.SetReverseFilter(TempGLReg."No.","Reversal Type");

    // Delete the following line.
    ReversalEntry2.CheckEntries;
    // End of the deleted line.

    GET(1);

    IF "Reversal Type" = "Reversal Type"::Register THEN

    Number := TempGLReg."No."

    ELSE

    Number := "Transaction No.";
    ...
    Código de substituição 1
    ...             IF TempGLReg.FINDSET THEN

    REPEAT

    // Add the following lines.
    SETRANGE("G/L Register No.",TempGLReg."No.");

    SETRANGE("VAT Allocation",TRUE);

    VATAllocOnCost := NOT ISEMPTY;
    // End of the added lines.

    ReversalEntry2.SetReverseFilter(TempGLReg."No.","Reversal Type");

    // Add the following line.
    ReversalEntry2.CheckEntries(VATAllocOnCost);
    // End of the added line.

    GET(1);

    IF "Reversal Type" = "Reversal Type"::Register THEN

    Number := TempGLReg."No."

    ELSE

    Number := "Transaction No.";
    ...
    Código existente 2
    ...          UNTIL TempGLReg.NEXT = 0;

    END ELSE BEGIN

    ReversalEntry2.SetReverseFilter("Transaction No.","Reversal Type");

    // Delete the following line.
    ReversalEntry2.CheckEntries;
    // End of the deleted line.

    GET(1);

    IF "Reversal Type" = "Reversal Type"::Register THEN

    Number := "G/L Register No."
    ...
    Código de substituição 2
    ...             UNTIL TempGLReg.NEXT = 0;

    END ELSE BEGIN

    // Add the following lines.
    SETRANGE("G/L Register No.",TempGLReg."No.");

    SETRANGE("VAT Allocation",TRUE);

    VATAllocOnCost := NOT ISEMPTY;
    // End of the added lines.

    ReversalEntry2.SetReverseFilter("Transaction No.","Reversal Type");

    // Add the following line.
    ReversalEntry2.CheckEntries(VATAllocOnCost);
    // End of the added line.

    GET(1);

    IF "Reversal Type" = "Reversal Type"::Register THEN

    Number := "G/L Register No."
    ...

Pré-requisitos

Tem de ter a versão russa do Microsoft Dynamics NAV 2009 R2 com Feature Pack 1 instalado para aplicar esta correcção.

Informações de remoção

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

Estado


A Microsoft confirmou que este é um problema nos produtos da Microsoft listados na secção "Aplica-se a".

Referências


VSTF DynamicsNAV SE: 260227
Nota Este é um artigo "Publicação rápida" criado diretamente a partir da organização de suporte da Microsoft. As informações contidas neste documento são fornecidas como-se em resposta a questões emergentes. Como resultado da urgência na sua disponibilização, os materiais podem incluir erros tipográficos e podem ser revistos em qualquer altura sem aviso prévio. Para outras considerações, consulte os Termos de utilização .