Mensagem de erro "Fornecido de quantidade na encomenda aberta associada não deve ser superior a quantidade na linha de vendas" quando é registada uma encomenda de venda no 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 nas propriedades na proposta de vendas a Codeunit de ordem (86) do seguinte modo:
   Código existente 1

   ...Opp@1004 : Record 5092;
   
                 OpportunityEntry@1006 : Record 5093;
   
                 TempOpportunityEntry@1005 : TEMPORARY Record 5093;
   
                 Cust@1008 : Record 18;
   
               BEGIN
   
                 TESTFIELD("Document Type","Document Type"::Quote);
   
                 Cust.GET("Sell-to Customer No.");
   
                 Cust.CheckBlockedCustOnDocs(Cust,"Document Type"::Order,TRUE,FALSE);
   ...
   

   Código de substituição 2

   ...Opp@1004 : Record 5092;
   
                 OpportunityEntry@1006 : Record 5093;
   
                 TempOpportunityEntry@1005 : TEMPORARY Record 5093;
   
                 Cust@1008 : Record 18;
   
   // Add the following line.          
   Item@1010 : Record 27; 
   // End of the added line.
   
               BEGIN
   
                 TESTFIELD("Document Type","Document Type"::Quote);
   
                 Cust.GET("Sell-to Customer No.");
   
                 Cust.CheckBlockedCustOnDocs(Cust,"Document Type"::Order,TRUE,FALSE);
   ...
   

   Código existente 2

   ...SalesQuoteLine.SETRANGE(Type,SalesQuoteLine.Type::Item);
   
                 SalesQuoteLine.SETFILTER("No.",'<>%1','');
   
                 IF SalesQuoteLine.FINDSET THEN
   
                   REPEAT
   
                     IF (SalesQuoteLine."Outstanding Quantity" > 0) THEN BEGIN
   
                       SalesLine := SalesQuoteLine;
   
                       SalesLine.VALIDATE("Reserved Qty. (Base)",0);
   
                       SalesLine."Line No." := 0;
   ...
   

   Código de substituição 2

   ...SalesQuoteLine.SETRANGE(Type,SalesQuoteLine.Type::Item);
   
                 SalesQuoteLine.SETFILTER("No.",'<>%1','');
   
                 IF SalesQuoteLine.FINDSET THEN
   
                   REPEAT
   
                    IF Item.GET(SalesQuoteLine."No.") THEN         //add line
   
   // Add the following line.               
   Item.TESTFIELD(Blocked,FALSE);  
   // End of the added line.
   
                     IF (SalesQuoteLine."Outstanding Quantity" > 0) THEN BEGIN
   
                       SalesLine := SalesQuoteLine;
   
                       SalesLine.VALIDATE("Reserved Qty. (Base)",0);
   
                       SalesLine."Line No." := 0;
   ...
   

2. Altere o código nas propriedades de encomenda de venda aberta para a Codeunit de ordem (87) do seguinte modo:
   Código existente 1

   ...Cust@1001 : Record 18;
   
                 TempSalesLine@1002 : TEMPORARY Record 37;
   
                 Reservation@1005 : Form 498;
   
                 PrepmtMgt@1004 : Codeunit 441;
   
               BEGIN
   
                 TESTFIELD("Document Type","Document Type"::"Blanket Order");
   
                 Cust.GET("Sell-to Customer No.");
   
                 Cust.CheckBlockedCustOnDocs(Cust,"Document Type"::Order,TRUE,FALSE);
   ...
   

   Código de substituição 1

   ...Cust@1001 : Record 18;
   
                 TempSalesLine@1002 : TEMPORARY Record 37;
   
                 Reservation@1005 : Form 498;
   
                 PrepmtMgt@1004 : Codeunit 441;
   
   // Add the following line.
                 Item@1006 : Record 27;                  
   // End of the added line.
   
               BEGIN
   
                 TESTFIELD("Document Type","Document Type"::"Blanket Order");
   
                 Cust.GET("Sell-to Customer No.");
   
                 Cust.CheckBlockedCustOnDocs(Cust,"Document Type"::Order,TRUE,FALSE);
   ...
   

   Código existente 2

   ...SalesLine.SETRANGE("Blanket Order Line No.",BlanketOrderSalesLine."Line No.");
   
                     QuantityOnOrders := 0;
   
                     IF SalesLine.FINDSET THEN
   
                       REPEAT
   
                         IF SalesLine."Document Type" IN
   
                             [SalesLine."Document Type"::"Return Order",
   
                              SalesLine."Document Type"::"Credit Memo"]
   
                         THEN
   ...
   

   Código de substituição 2

   ...SalesLine.SETRANGE("Blanket Order Line No.",BlanketOrderSalesLine."Line No.");
   
                     QuantityOnOrders := 0;
   
                     IF SalesLine.FINDSET THEN
   
                       REPEAT
   
   // Add the following lines.
                         IF Item.GET(SalesLine."No.") THEN                     
   
                           Item.TESTFIELD(Blocked,FALSE);
   // End of the added lines.                  
   
                         IF SalesLine."Document Type" IN
   
                             [SalesLine."Document Type"::"Return Order",
   
                              SalesLine."Document Type"::"Credit Memo"]
   
                         THEN
   ...
   

   Código existente 3

   ...TempSalesLine.DELETEALL;
   
                   REPEAT
   
                     SalesLine.SETCURRENTKEY("Document Type","Blanket Order No.","Blanket Order Line No.");
   
                     SalesLine.SETRANGE("Blanket Order No.",BlanketOrderSalesLine."Document No.");
   
                     SalesLine.SETRANGE("Blanket Order Line No.",BlanketOrderSalesLine."Line No.");
   
   // Delete the following lines.
   
                     SalesLine.SETFILTER(                       
   
                       "Document Type",'<>%1 & <>%2',SalesLine."Document Type"::Invoice,SalesLine."Document Type"::"Credit Memo");
   
   // End of the deleted lines.
   
                     QuantityOnOrders := 0;
   
                     IF SalesLine.FINDSET THEN
   
                       REPEAT
   
                         IF Item.GET(SalesLine."No.") THEN
   
                           Item.TESTFIELD(Blocked,FALSE);
   ...
   

   Código de substituição 3

   ...TempSalesLine.DELETEALL;
   
                   REPEAT
   
                     SalesLine.SETCURRENTKEY("Document Type","Blanket Order No.","Blanket Order Line No.");
   
                     SalesLine.SETRANGE("Blanket Order No.",BlanketOrderSalesLine."Document No.");
   
                     SalesLine.SETRANGE("Blanket Order Line No.",BlanketOrderSalesLine."Line No.");
   
                     QuantityOnOrders := 0;
   
                     IF SalesLine.FINDSET THEN
   
                       REPEAT
   
                         IF Item.GET(SalesLine."No.") THEN
   
                           Item.TESTFIELD(Blocked,FALSE);
   ...
   

   Código existente 4

   ...QuantityOnOrders := 0;
   
                     IF SalesLine.FINDSET THEN
   
                       REPEAT
   
                         IF Item.GET(SalesLine."No.") THEN
   
                           Item.TESTFIELD(Blocked,FALSE);
   
   // Delete the following lines.
                         IF SalesLine."Document Type" = SalesLine."Document Type"::"Return Order" THEN    
                           QuantityOnOrders := QuantityOnOrders - SalesLine."Outstanding Qty. (Base)"           
   
                         ELSE                                                                                                                                               //Remove line      
   
                           QuantityOnOrders := QuantityOnOrders + SalesLine."Outstanding Qty. (Base)";        
   // End of the deleted lines.
   
                       UNTIL SalesLine.NEXT = 0;
   
                     IF (ABS(BlanketOrderSalesLine."Qty. to Ship (Base)" + QuantityOnOrders +
   
                             BlanketOrderSalesLine."Qty. Shipped (Base)") >
   
                         ABS(BlanketOrderSalesLine."Quantity (Base)")) OR
   
                        (BlanketOrderSalesLine."Quantity (Base)" * BlanketOrderSalesLine."Outstanding Qty. (Base)" < 0)
   ...
   

   Código de substituição 4

   ...QuantityOnOrders := 0;
   
                     IF SalesLine.FINDSET THEN
   
                       REPEAT
   
                         IF Item.GET(SalesLine."No.") THEN
   
                           Item.TESTFIELD(Blocked,FALSE);
   
   // Add the following lines.
   
                         IF (SalesLine."Document Type" = SalesLine."Document Type"::"Return Order") OR
   
                            ((SalesLine."Document Type" = SalesLine."Document Type"::"Credit Memo") AND
   
                             (SalesLine."Return Receipt No." = ''))
   
                         THEN
   
                           QuantityOnOrders := QuantityOnOrders - SalesLine."Outstanding Qty. (Base)"
   
                         ELSE
   
                           IF (SalesLine."Document Type" = SalesLine."Document Type"::Order) OR
   
                              ((SalesLine."Document Type" = SalesLine."Document Type"::Invoice) AND
   
                               (SalesLine."Shipment No." = ''))
   
                           THEN
   
                             QuantityOnOrders := QuantityOnOrders + SalesLine."Outstanding Qty. (Base)";
   
   // End of the added lines.
   
                       UNTIL SalesLine.NEXT = 0;
   
                     IF (ABS(BlanketOrderSalesLine."Qty. to Ship (Base)" + QuantityOnOrders +
   
                             BlanketOrderSalesLine."Qty. Shipped (Base)") >
   
                         ABS(BlanketOrderSalesLine."Quantity (Base)")) OR
   
                        (BlanketOrderSalesLine."Quantity (Base)" * BlanketOrderSalesLine."Outstanding Qty. (Base)" < 0)
   ...
   

3. Alterar o código nas propriedades de Compr.-proposta para encomenda Codeunit (96) do seguinte modo:
   Código existente 1

   ...OldPurchCommentLine@1001 : Record 43;
   
                 FromDocDim@1000 : Record 357;
   
                 ToDocDim@1003 : Record 357;
   
                 Vend@1002 : Record 23;
   
               BEGIN
   
                 TESTFIELD("Document Type","Document Type"::Quote);
   
                 Vend.GET("Buy-from Vendor No.");
   
                 Vend.CheckBlockedVendOnDocs(Vend,FALSE);
   ...
   

   Código de substituição 1

   ...OldPurchCommentLine@1001 : Record 43;
   
                 FromDocDim@1000 : Record 357;
   
                 ToDocDim@1003 : Record 357;
   
                 Vend@1002 : Record 23;
   
   // Add the following line.
                 Item@1004 : Record 27;           
   // End of the added line.
   
               BEGIN
   
                 TESTFIELD("Document Type","Document Type"::Quote);
   
                 Vend.GET("Buy-from Vendor No.");
   
                 Vend.CheckBlockedVendOnDocs(Vend,FALSE);
   

   Código existente 2

   ...ToDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line");
   
   
   
                 IF PurchQuoteLine.FINDSET THEN
   
                   REPEAT
   
                     PurchOrderLine := PurchQuoteLine;
   
                     PurchOrderLine."Document Type" := PurchOrderHeader."Document Type";
   
                     PurchOrderLine."Document No." := PurchOrderHeader."No.";
   
                     ReservePurchLine.TransferPurchLineToPurchLine(
   ...
   

   Código de substituição 2

   ...ToDocDim.SETRANGE("Table ID",DATABASE::"Purchase Line");
   
   
   
                 IF PurchQuoteLine.FINDSET THEN
   
                   REPEAT
   
   // Add the following lines.
                     IF Item.GET(PurchQuoteLine."No.") THEN   
   
                       Item.TESTFIELD(Blocked,FALSE);                 
   // End of the added lines.
   
                     PurchOrderLine := PurchQuoteLine;
   
                     PurchOrderLine."Document Type" := PurchOrderHeader."Document Type";
   
                     PurchOrderLine."Document No." := PurchOrderHeader."No.";
   
                     ReservePurchLine.TransferPurchLineToPurchLine(
   ...
   

4. Altere o código nas propriedades de compra aberta. Encomende a Codeunit de ordem (97) do seguinte modo:
   Código existente 1

   ...FromDocDim@1000 : Record 357;
   
                 ToDocDim@1002 : Record 357;
   
                 Vend@1001 : Record 23;
   
                 PrepmtMgt@1003 : Codeunit 441;
   
               BEGIN
   
                 TESTFIELD("Document Type","Document Type"::"Blanket Order");
   
                 Vend.GET("Buy-from Vendor No.");
   
                 Vend.CheckBlockedVendOnDocs(Vend,FALSE);
   ...
   

   Código de substituição 1

   ...FromDocDim@1000 : Record 357;
   
                 ToDocDim@1002 : Record 357;
   
                 Vend@1001 : Record 23;
   
                 PrepmtMgt@1003 : Codeunit 441;
   
   // Add the following line.
                 Item@1004 : Record 27;                     
   // End of the added line.
   
               BEGIN
   
                 TESTFIELD("Document Type","Document Type"::"Blanket Order");
   
                 Vend.GET("Buy-from Vendor No.");
   
                 Vend.CheckBlockedVendOnDocs(Vend,FALSE);
   ...
   

   Código existente 2

   ...PurchLine.SETRANGE("Blanket Order Line No.",PurchBlanketOrderLine."Line No.");
   
                     QuantityOnOrders := 0;
   
                     IF PurchLine.FINDSET THEN
   
                       REPEAT
   
                         IF PurchLine."Document Type" IN
   
                             [PurchLine."Document Type"::"Return Order",
   
                              PurchLine."Document Type"::"Credit Memo"] THEN
   
                           QuantityOnOrders := QuantityOnOrders - PurchLine."Outstanding Qty. (Base)"
   ...
   

   Código de substituição 2

   ...PurchLine.SETRANGE("Blanket Order Line No.",PurchBlanketOrderLine."Line No.");
   
                     QuantityOnOrders := 0;
   
                     IF PurchLine.FINDSET THEN
   
                       REPEAT
   
   // Add the following lines.
                         IF Item.GET(PurchLine."No.") THEN    
   
                           Item.TESTFIELD(Blocked,FALSE);       
   // End of the added lines.
   
                         IF PurchLine."Document Type" IN
   
                             [PurchLine."Document Type"::"Return Order",
   
                              PurchLine."Document Type"::"Credit Memo"] THEN
   
                           QuantityOnOrders := QuantityOnOrders - PurchLine."Outstanding Qty. (Base)"
   ...
   

   Código existente 3

   ...IF PurchBlanketOrderLine.FINDSET THEN
   
                   REPEAT
   
                     PurchLine.SETCURRENTKEY("Document Type","Blanket Order No.","Blanket Order Line No.");
   
                     PurchLine.SETRANGE("Blanket Order No.",PurchBlanketOrderLine."Document No.");
   
                     PurchLine.SETRANGE("Blanket Order Line No.",PurchBlanketOrderLine."Line No.");
   
   // Delete the following lines.
   
                     PurchLine.SETFILTER(
   
                       "Document Type",'<>%1 & <>%2',PurchLine."Document Type"::Invoice,PurchLine."Document Type"::"Credit Memo");
   
   // End of the deleted lines.
   
                     QuantityOnOrders := 0;
   
                     IF PurchLine.FINDSET THEN
   
                       REPEAT
   
                         IF Item.GET(PurchLine."No.") THEN
   
                           Item.TESTFIELD(Blocked,FALSE);
   ...
   

   Código de substituição 3

   ...IF PurchBlanketOrderLine.FINDSET THEN
   
                   REPEAT
   
                     PurchLine.SETCURRENTKEY("Document Type","Blanket Order No.","Blanket Order Line No.");
   
                     PurchLine.SETRANGE("Blanket Order No.",PurchBlanketOrderLine."Document No.");
   
                     PurchLine.SETRANGE("Blanket Order Line No.",PurchBlanketOrderLine."Line No.");
   
                     QuantityOnOrders := 0;
   
                     IF PurchLine.FINDSET THEN
   
                       REPEAT
   
                         IF Item.GET(PurchLine."No.") THEN
   
                           Item.TESTFIELD(Blocked,FALSE);
   ...
   

   Código existente 4

   ...QuantityOnOrders := 0;
   
                     IF PurchLine.FINDSET THEN
   
                       REPEAT
   
                         IF Item.GET(PurchLine."No.") THEN
   
                           Item.TESTFIELD(Blocked,FALSE);
   
   // Delete the following lines.
   
                         IF PurchLine."Document Type" = PurchLine."Document Type"::"Return Order" THEN
   
                           QuantityOnOrders := QuantityOnOrders - PurchLine."Outstanding Qty. (Base)"
   
                         ELSE
   
                           QuantityOnOrders := QuantityOnOrders + PurchLine."Outstanding Qty. (Base)";
   
   // End of the deleted lines.
   
                       UNTIL PurchLine.NEXT = 0;
   
                     IF (ABS(PurchBlanketOrderLine."Qty. to Receive (Base)" + QuantityOnOrders +
   
                             PurchBlanketOrderLine."Qty. Received (Base)") >
   
                         ABS(PurchBlanketOrderLine."Quantity (Base)")) OR
   
                        (PurchBlanketOrderLine."Quantity (Base)" * PurchBlanketOrderLine."Outstanding Qty. (Base)" < 0)
   ...
   

   Código de substituição 4

   ...QuantityOnOrders := 0;
   
                     IF PurchLine.FINDSET THEN
   
                       REPEAT
   
                         IF Item.GET(PurchLine."No.") THEN
   
                           Item.TESTFIELD(Blocked,FALSE);
   
   // Add the following lines.
   
                         IF (PurchLine."Document Type" = PurchLine."Document Type"::"Return Order") OR
   
                            ((PurchLine."Document Type" = PurchLine."Document Type"::"Credit Memo") AND
   
                             (PurchLine."Return Shipment No." = ''))
   
                         THEN
   
                           QuantityOnOrders := QuantityOnOrders - PurchLine."Outstanding Qty. (Base)"
   
                         ELSE
   
                           IF (PurchLine."Document Type" = PurchLine."Document Type"::Order) OR
   
                              ((PurchLine."Document Type" = PurchLine."Document Type"::Invoice) AND
   
                               (PurchLine."Receipt No." = ''))
   
                           THEN
   
                             QuantityOnOrders := QuantityOnOrders + PurchLine."Outstanding Qty. (Base)";
   // End of the added lines.
   
                       UNTIL PurchLine.NEXT = 0;
   
                     IF (ABS(PurchBlanketOrderLine."Qty. to Receive (Base)" + QuantityOnOrders +
   
                             PurchBlanketOrderLine."Qty. Received (Base)") >
   
                         ABS(PurchBlanketOrderLine."Quantity (Base)")) OR
   
                        (PurchBlanketOrderLine."Quantity (Base)" * PurchBlanketOrderLine."Outstanding Qty. (Base)" < 0)
   ...
   

Pré-requisitos

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

• Microsoft Dynamics NAV 2009 Service Pack 1

• Microsoft Dynamics NAV 2009 R2

• 2642368 da encomenda "Qtd. a enviar (Base) do produto [Item_Number] na linha n º [Line_Number] não é possível ter mais de [número]" mensagem de erro quando tenta criar uma encomenda a partir de uma aberta no Microsoft Dynamics NAV

Informações de remoção

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