O relatório de pagamento DTA Suggest Vendor (3010546) e o relatório LSV Suggest Collection (3010831) sugerem linhas incorretas na versão suíça do Microsoft Dynamics NAV

Aplica-se A
Dynamics NAV 2009 Service Pack 1 Dynamics NAV 2009 Microsoft Dynamics NAV 5.0 Microsoft Dynamics NAV 5.0 Service Pack 1

Este artigo aplica-se ao Microsoft Dynamics NAV para os seguintes países e regiões de idioma.

  • Francês (Suíça) (fr-ch)
  • Alemão (Suíça) (gr-ch)
  • Italiano (Suíça) (it-ch)

Sintomas

Suponha que publica uma fatura de compra ou uma fatura de venda na versão suíça do Microsoft Dynamics NAV. Quando executa o relatório de pagamento DTA Suggest Vendor (3010546) no diário de pagamento ou no relatório LSV Suggest Collection (3010831) na lista de diários LSV ao utilizar uma data de publicação anterior à data de publicação da fatura, são sugeridas linhas incorretas. Por conseguinte, a data de publicação está incorreta nas entradas detalhadas do livro razão do cliente ou nas entradas detalhadas do leger do fornecedor depois de publicar as linhas. Por vezes, até não é possível publicar as linhas e receber uma mensagem de erro consistente.
Este problema ocorre nos seguintes produtos:

  • A versão suíça do Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
  • A versão suíça do Microsoft Dynamics NAV 2009
  • A versão suíça do Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
  • A versão suíça do Microsoft Dynamics NAV 5.0

      

Causa

Este problema ocorre porque falta uma verificação no relatório de Pagamento do Fornecedor de Sugestões de DTA (3010546) e no relatório LSV Suggest Collection (3010831). A verificação é introduzida para evitar gerar uma linha de pagamento que tenha uma data de publicação anterior que seja superior à data de publicação da fatura.

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 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:

  1. Adicione uma nova variável global no relatório de pagamento DTA Suggest Vendor (3010546) e, em seguida, especifique a variável da seguinte forma:

    • Nome: VendorLedgEntryTemp@1150058
    • DataType: Registo
    • Subtipo: Entrada de Livro Razão do Fornecedor
    • Temporário: Sim

  2. Adicione uma nova constante de texto no relatório de pagamento DTA Suggest Vendor (3010546) e, em seguida, especifique a constante da seguinte forma:

    • Nome: Text50000@1150064
    • Valor constante: ENU=Existem uma ou mais entradas para as quais não foram efetuadas sugestões de pagamento porque as datas de publicação das entradas são posteriores à data de publicação na janela DTA Suggest Vendor Pagamentos batch job request. Pretende ver as entradas?

  3. Adicione o seguinte código no acionador OnPreReport no relatório de Pagamento do Fornecedor de Sugestões de DTA (3010546):

    VendorLedgEntryTemp.DELETEALL;

  4. Adicione o seguinte código no acionador OnPostReport no relatório de pagamento DTA Suggest Vendor (3010546):

    COMMIT;
IF NOT VendorLedgEntryTemp.ISEMPTY THEN
  IF CONFIRM(Text50000) THEN
    FORM.RUNMODAL(0,VendorLedgEntryTemp);

  5. Altere o código no acionador Vendor – OnPostDataItem no relatório de Pagamento de Fornecedor de Sugestões de DTA (3010546) da seguinte forma:
    Código existente

    d.CLOSE;
IF NoOfLinesInserted > 0 THEN BEGIN
  WriteBalAccountLine(ToGlLine);
  MESSAGE(Text011,NoOfLinesInserted,GlSetup."LCY Code",TotalAmtLCY);
  IF NoOfVendorsWithCM > 0 THEN
    MESSAGE(Text013 + Text014 + Text017,NoOfVendorsWithCM,VendWithCmTxt)
END ELSE
  MESSAGE(Text018,FromDueDate,ToDueDate);

    Código de substituição

    d.CLOSE;
IF VendorLedgEntryTemp.ISEMPTY THEN BEGIN
  IF NoOfLinesInserted > 0 THEN BEGIN
    WriteBalAccountLine(ToGlLine);
    MESSAGE(Text011,NoOfLinesInserted,GlSetup."LCY Code",TotalAmtLCY);
    IF NoOfVendorsWithCM > 0 THEN
      MESSAGE(Text013 + Text014 + Text017,NoOfVendorsWithCM,VendWithCmTxt)
  END ELSE
    MESSAGE(Text018,FromDueDate,ToDueDate);
END;

  6. Altere o código na função WritePmtSuggestLines no relatório de pagamento DTA Suggest Vendor (3010546) da seguinte forma:
    Código existente 1

    // CH2316.begin
 VendorLedgerEntryNo := VendEntry."Entry No.";
// CH2316.end
WITH ToGlLine DO BEGIN
  INIT;
...

    Código de substituição 1

    IF VendEntry."Posting Date" <= PostDate THEN BEGIN // CH0001
  // CH2316.begin
  VendorLedgerEntryNo := VendEntry."Entry No.";
  // CH2316.end
  WITH ToGlLine DO BEGIN
    INIT;
...

    Código existente 2

    ...
VendorLedgerEntry2.GET(VendorLedgerEntryNo);
VendorLedgerEntry2."On Hold" := 'DTA';
VendorLedgerEntry2."Accepted Payment Tolerance" := 0;
VendorLedgerEntry2.MODIFY;
// CH2316.END

    Código de substituição 2

    ...
  VendorLedgerEntry2.GET(VendorLedgerEntryNo);
  VendorLedgerEntry2."On Hold" := 'DTA';
  VendorLedgerEntry2."Accepted Payment Tolerance" := 0;
  VendorLedgerEntry2.MODIFY;
// CH2316.END
END ELSE BEGIN
  VendorLedgEntryTemp := VendEntry;
  VendorLedgEntryTemp.INSERT;
END;

  7. Adicione uma nova variável global no relatório LSV Suggest Collection (3010831) e, em seguida, especifique a variável da seguinte forma:

    • Nome: TempCustLedgEntry@1150042
    • DataType: Registo
    • Subtipo: Entrada do Livro Razão do Cliente
    • Temporário: Sim

  8. Adicione uma nova constante de texto no relatório LSV Suggest Collection (3010831) e, em seguida, especifique a constante da seguinte forma:

    • Nome: Text50000@1150064
    • Valor constante: ENU=Existem uma ou mais entradas para as quais não foram efetuadas sugestões de coleção porque as datas de publicação das entradas são posteriores à data da coleção na janela de pedido de tarefa de lote Recolha de Sugestões LSV. Pretende ver as entradas?

  9. Altere o código no acionador OnPreReport no relatório LSV Suggest Collection (3010831) da seguinte forma:
    Código existente

    IF LsvJournal."LSV Bank Code" = '' THEN
  ERROR(Text020);

    Código de substituição

    IF LsvJournal."LSV Bank Code" = '' THEN
  ERROR(Text020);
TempCustLedgEntry.DELETEALL;

  10. Adicione o seguinte código no acionador OnPostReport no relatório LSV Suggest Collection (3010831):

    COMMIT;
IF NOT TempCustLedgEntry.ISEMPTY THEN
  IF CONFIRM(Text50000) THEN
    FORM.RUNMODAL(0,TempCustLedgEntry);

  11. Altere o código no acionador Customer - OnPostDataItem no relatório LSV Suggest Collection (3010831) da seguinte forma:
    Código existente

    d.CLOSE;
IF NoOfLinesInserted > 0 THEN BEGIN
  MESSAGE(Text007,NoOfLinesInserted,LsvSetup."LSV Currency Code",TotalAmt);
  IF LsvJournal."LSV Journal Description" = '' THEN BEGIN
    LsvJournal."LSV Journal Description" :=
      FORMAT(STRSUBSTNO(Text021,LsvSetup."LSV Currency Code",FromDueDate,ToDueDate,Customer.GETFILTERS)
        ,-MAXSTRLEN(LsvJournal."LSV Journal Description"));
  END;
  LsvJournal."Credit Date" := CollectionDate;
  LsvJournal.MODIFY;
  // CH2813.BEGIN
  IF NoOfCustWithCreditMemo > 0 THEN
    IF NOT CONFIRM(Text009 + Text010 + Text012 + Text013,TRUE,NoOfCustWithCreditMemo,CustCreditMemoTxt) THEN
      ERROR(Text014);
  // CH2813.END
END ELSE
  MESSAGE(Text015,FromDueDate,ToDueDate);

    Código de substituição

    d.CLOSE;
IF TempCustLedgEntry.ISEMPTY THEN BEGIN // CH0001
  IF NoOfLinesInserted > 0 THEN BEGIN
    MESSAGE(Text007,NoOfLinesInserted,LsvSetup."LSV Currency Code",TotalAmt);
    IF LsvJournal."LSV Journal Description" = '' THEN BEGIN
      LsvJournal."LSV Journal Description" :=
        FORMAT(STRSUBSTNO(Text021,LsvSetup."LSV Currency Code",FromDueDate,ToDueDate,Customer.GETFILTERS)
          ,-MAXSTRLEN(LsvJournal."LSV Journal Description"));
    END;
    LsvJournal."Credit Date" := CollectionDate;
    LsvJournal.MODIFY;
    // CH2813.BEGIN
    IF NoOfCustWithCreditMemo > 0 THEN
      IF NOT CONFIRM(Text009 + Text010 + Text012 + Text013,TRUE,NoOfCustWithCreditMemo,CustCreditMemoTxt) THEN
        ERROR(Text014);
    // CH2813.END
  END ELSE
    MESSAGE(Text015,FromDueDate,ToDueDate);
END;

  12. Altere o código na função WritePmtSuggestLines no relatório LSV Suggest Collection (3010831) da seguinte forma:
    Código existente 1

    // Collection amt: Cust. Entry amount - Cash disc. possible
WITH ToLSVJourLine DO BEGIN
  // Ensure, that the Entry is only once in the LSV Journal Line
  LSVJourLineCheck.SETCURRENTKEY("Applies-to Doc. No.");
  LSVJourLineCheck.SETRANGE("Applies-to Doc. No.",ActCustLedgEntry."Document No.");
...

    Código de substituição 1

    // Collection amt: Cust. Entry amount - Cash disc. possible
WITH ToLSVJourLine DO BEGIN
  IF CustLedgEntry."Posting Date" <= CollectionDate THEN BEGIN
    // Ensure, that the Entry is only once in the LSV Journal Line
    LSVJourLineCheck.SETCURRENTKEY("Applies-to Doc. No.");
    LSVJourLineCheck.SETRANGE("Applies-to Doc. No.",ActCustLedgEntry."Document No.");
...

    Código existente 2

    ...
  TotalAmt := TotalAmt + "Collection Amount";
  d.UPDATE(3,TotalAmt);
  // CH2813.BEGIN
  EntriesPerCust := EntriesPerCust + 1;
  // CH2813.END
END;

    Código de substituição 2

    ...
    TotalAmt := TotalAmt + "Collection Amount";
    d.UPDATE(3,TotalAmt);
    // CH2813.BEGIN
    EntriesPerCust := EntriesPerCust + 1;
    // CH2813.END

//Add the follong lines.
  END ELSE BEGIN
    TempCustLedgEntry := CustLedgEntry;
    TempCustLedgEntry.INSERT;
  END;
//End of the lines.

END;

            
          

Pré-requisitos

Tem de ter um dos seguintes produtos instalados para aplicar esta correção:

  • A versão suíça do Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
  • A versão suíça do Microsoft Dynamics NAV 2009
  • A versão suíça do Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1)
  • A versão suíça do Microsoft Dynamics NAV 5.0

              

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.