Uma linha eliminada não está disponível para uma novo guia de pagamento na versão francesa do Microsoft Dynamics NAV 2009

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. No entanto, 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 Dynamics NAV são registados no sistema. Isto inclui os serviços de servidor de aplicações (NAS) do Microsoft Dynamics NAV. 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 9015 de ID de objecto de sistema
  
  objecto.

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:

1. Altere o código nos controlos no formulário de lista de distribuição de pagamento (10868) do seguinte modo:
   Código existente 1

   ...CaptionML=[ENU=Modify;
   FRA=Modifier];
   OnPush=BEGIN
   
   // Delete the following line.
   CurrForm.Lines.FORM.Modify;
   // End of the deleted line.
   
   END;
   }
   { ID=2;
   ...
   

   Código de substituição 1

   ...CaptionML=[ENU=Modify;
   FRA=Modifier];
   OnPush=BEGIN
   
   // Add the following line.
   CurrForm.Lines.FORM.ModifyLines;
   // End of the added line.
   
   END;
   }
   { ID=2;
   ...
   

   Código existente 2

   ...CaptionML=[ENU=Insert;
   FRA=Ins�rer];
   OnPush=BEGIN
   
   // Delete the following line.
   CurrForm.Lines.FORM.Insert;
   // End of the deleted line.
   
   END;
   }
   { ID=3;
   ...
   

   Código de substituição 2

   ...CaptionML=[ENU=Insert;
   FRA=Ins�rer];
   OnPush=BEGIN
   
   // Add the following line.
   CurrForm.Lines.FORM.InsertLines;
   // End of the added line.
   
   END;
   }
   { ID=3;
   ...
   

   Código existente 3

   ...CaptionML=[ENU=Remove;
   FRA=Supprimer];
   OnPush=BEGIN
   
   // Delete the following line.
   CurrForm.Lines.FORM.Delete;
   // End of the deleted line.
   
   END;
   }
   { ID=1120028;
   ...
   

   Código de substituição 3

   ...CaptionML=[ENU=Remove;
   FRA=Supprimer];
   OnPush=BEGIN
   
   // Add the following line.
   CurrForm.Lines.FORM.DeleteLines;
   // End of the added line.
   
   END;
   }
   { ID=1120028;
   ...
   

2. Altere o código da função no pagamento Slip subformulário a partir (10869) Modificar da seguinte forma:
   Código existente

   ...END;
       END;
   
   // Delete the following line.
       PROCEDURE Modify@3();
   // End of the deleted line.
   
       VAR
         PaymentLine@1120001 : Record 10866;
         PaymentModification@1120000 : Form 10871;
   ...
   

   Código de substituição

   ...END;
       END;
   
   // Add the following line.
       PROCEDURE ModifyLines@3();
   // End of the added line.
   
       VAR
         PaymentLine@1120001 : Record 10866;
         PaymentModification@1120000 : Form 10871;
   ...
   

3. Altere o código da função Inserir no pagamento Slip subformulário a partir (10869) do seguinte modo:
   Código existente

   ...MESSAGE(Text002);
       END;
   
   // Delete the following line.
       PROCEDURE Insert@1120007();
   // End of the deleted line.
   
       VAR
         PaymentManagement@1120000 : Codeunit 10860;
       BEGIN
   ...
   

   Código de substituição

   ...MESSAGE(Text002);
       END;
   
   // Add the following line.
       PROCEDURE InsertLines@1120007();
   // End of the added line.
   
       VAR
         PaymentManagement@1120000 : Codeunit 10860;
       BEGIN
   ...
   

4. Altere o código da função Eliminar no pagamento Slip subformulário a partir (10869) do seguinte modo:
   Código existente

   ...PaymentManagement.LinesInsert("No.");
       END;
   
   // Delete the following line.
       PROCEDURE Delete@4();
   // End of the deleted line.
   
       VAR
         PostingStatement@1120000 : Codeunit 10860;
         StatementLine@1120001 : Record 10866;
   ...
   

   Código de substituição

   ...PaymentManagement.LinesInsert("No.");
       END;
   
   // Add the following line.
       PROCEDURE DeleteLines@4();
   // End of the added line.
   
       VAR
         PostingStatement@1120000 : Codeunit 10860;
         StatementLine@1120001 : Record 10866;
   ...
   

5. Altere o código na função CopyLigBor na Codeunit de gestão de pagamento (10860) do seguinte modo:
   Código existente

   ...Process@1120009 : Record 10860;
         PaymentStatus@1120010 : Record 10861;
       BEGIN
   
   // Delete the following lines.
         FromPaymentLine.MARKEDONLY(TRUE);
         IF NOT FromPaymentLine.FIND('-') THEN
           FromPaymentLine.MARKEDONLY(FALSE);
   // End of the deleted lines.
   
         IF FromPaymentLine.FIND('-') THEN BEGIN
           Step.GET(FromPaymentLine."Payment Class",NewStep);
           Process.GET(FromPaymentLine."Payment Class");
   ...
   

   Código de substituição

   ...Process@1120009 : Record 10860;
         PaymentStatus@1120010 : Record 10861;
       BEGIN
         IF FromPaymentLine.FIND('-') THEN BEGIN
           Step.GET(FromPaymentLine."Payment Class",NewStep);
           Process.GET(FromPaymentLine."Payment Class");
   ...
   

6. Altere o código na função DeleteLigBorCopy na Codeunit de gestão de pagamento (10860) do seguinte modo:
   Código existente

   ...VAR
         ToPaymentLine@1120001 : Record 10866;
       BEGIN
   
   // Delete the following line.
         FromPaymentLine.MARKEDONLY(TRUE);
   // End of the deleted line.
   
         ToPaymentLine.SETCURRENTKEY("Copied To No.","Copied To Line");
   
         IF FromPaymentLine.FIND('-') THEN
   ...
   

   Código de substituição

   ...VAR
         ToPaymentLine@1120001 : Record 10866;
       BEGIN
         ToPaymentLine.SETCURRENTKEY("Copied To No.","Copied To Line");
   
         IF FromPaymentLine.FIND('-') THEN
   ...
   

7. Altere o código nas propriedades da página de subformulário de guia de remessa de pagamento (10869) do seguinte modo:
   Código existente 1

   ...OnAction=BEGIN
                                    //This functionality was copied from page #10868. Unsupported part was commented. Please check it.
                                    {CurrPage.Lines.FORM.}
   
   // Delete the following line.
                                    _Modify;
   // End of the deleted line.
   
                                  END;
                                   }
         { 1900724604;2 ;Action    ;
   ...
   

   Código de substituição 1

   ...OnAction=BEGIN
                                    //This functionality was copied from page #10868. Unsupported part was commented. Please check it.
                                    {CurrPage.Lines.FORM.}
   
   // Add the following line.
                                    ModifyLines;
   // End of the added line.                     
   
        END;
                                   }
         { 1900724604;2 ;Action    ;
   ...
   

   Código existente 2

   ... OnAction=BEGIN
                                    //This functionality was copied from page #10868. Unsupported part was commented. Please check it.
                                    {CurrPage.Lines.FORM.}
   
   // Delete the following line.
                                    INSERT;
   // End of the deleted line.                        
   
     END;
                                   }
         { 1900724504;2 ;Action    ;
   ...
   

   Código de substituição 2

   ...OnAction=BEGIN
                                    //This functionality was copied from page #10868. Unsupported part was commented. Please check it.
                                    {CurrPage.Lines.FORM.}
   
   // Add the following line.
                                    InsertLines;
   // End of the added line.                     
   
        END;
                                   }
         { 1900724504;2 ;Action    ;
   ...
   

   Código existente 3

   ...OnAction=BEGIN
                                    //This functionality was copied from page #10868. Unsupported part was commented. Please check it.
                                    {CurrPage.Lines.FORM.}
   
   // Delete the following line.
                                    DELETE;
   // End of the deleted line.
   
                                  END;
                                   }
         { 1905048704;2 ;ActionGroup;
   ...
   

   Código de substituição 3

   ...OnAction=BEGIN
                                    //This functionality was copied from page #10868. Unsupported part was commented. Please check it.
                                    {CurrPage.Lines.FORM.}
   
   // Add the following line.
                                    DeleteLines;
   // End of the added line.
   
                                  END;
                                   }
         { 1905048704;2 ;ActionGroup;
   ...
   

8. Altere o código da função na página de subformulário lista de distribuição de pagamento (10869) Modificar da seguinte forma:
   Código existente 1

   ...END;
       END;
   
   // Delete the following line.
       PROCEDURE _Modify@19068298(); 
   // End of the deleted line.
   
   VAR
         PaymentLine@1120001 : Record 10866;
         PaymentModification@1120000 : Form 10871;
   ...
   

   Código de substituição 1

   ...END;
       END;
   
   // Add the following line.
       PROCEDURE ModifyLines@3();
   // End of the added line.
   
   VAR
         PaymentLine@1120001 : Record 10866;
         PaymentModification@1120000 : Form 10871;
   ...
   

   Código existente 2

   ...MESSAGE(Text002);
       END;
   
   // Delete the following lines.
       PROCEDURE Modify@3();
       VAR
         PaymentLine@1120001 : Record 10866;
         PaymentModification@1120000 : Form 10871;
       BEGIN
         IF "Line No." = 0 THEN
           MESSAGE(Text001)
         ELSE IF NOT Posted THEN BEGIN
           PaymentLine.COPY(Rec);
           PaymentLine.SETRANGE("No.","No.");
           PaymentLine.SETRANGE("Line No.","Line No.");
           PaymentModification.SETTABLEVIEW(PaymentLine);
           PaymentModification.RUNMODAL;
         END ELSE
           MESSAGE(Text002);
       END;
   // End of the deleted lines.
   
       PROCEDURE Insert@1120007();
       VAR
         PaymentManagement@1120000 : Codeunit 10860;
       BEGIN
   ...
   

   Código de substituição 2

   ...MESSAGE(Text002);
       END;
   
       PROCEDURE InsertLines@1120007();
       VAR
         PaymentManagement@1120000 : Codeunit 10860;
       BEGIN
   ...
   

9. Altere o código da função Eliminar na página de subformulário lista de distribuição de pagamento (10869) do seguinte modo:
   Código existente

   ...PaymentManagement.LinesInsert("No.");
       END;
   
   // Delete the following line.
       PROCEDURE Delete@4();
   // End of the deleted line.
   
       VAR
         PostingStatement@1120000 : Codeunit 10860;
         StatementLine@1120001 : Record 10866;
   ...
   

   Código de substituição

   ...PaymentManagement.LinesInsert("No.");
       END;
   
   // Add the following line.
       PROCEDURE DeleteLines@4();
   // End of the added line.
   
       VAR
         PostingStatement@1120000 : Codeunit 10860;
         StatementLine@1120001 : Record 10866;
   ...
   

Pré-requisitos

Tem de ter um dos seguintes produtos instalado para aplicar esta correcção:

• A versão francesa do Microsoft Dynamics NAV 2009 Service Pack 1

• A versão francesa do Microsoft Dynamics NAV 2009 R2

Informações de remoção

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