Mensagem de erro "Fornecido quantidade na ordem ampla associado não deve ser maior que a quantidade na linha de vendas" quando você lança uma ordem de venda no Microsoft Dynamics NAV 2009

Informações sobre o hotfix

Um hotfix suportado está disponível agora na Microsoft. No entanto, apenas destina-se a corrigir o problema descrito neste artigo. Aplique-o somente aos sistemas que apresentarem esse problema específico. Esta correção poderá ser submetida a testes adicionais. Portanto, se esse problema não o prejudicar, recomendamos que você aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contém esse hotfix.

Observação: Em alguns casos, as taxas cobradas para suporte a chamadas podem ser canceladas se um profissional de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma atualização específica resolverá o problema. Os custos normais de suporte serão aplicados para questões de suporte adicionais e problemas que não se qualificam à atualização específica em questão.

Informações sobre a instalação

A Microsoft fornece exemplos de programação somente para ilustração, sem garantia expressa ou implícita. Isso inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um propósito específico. Este artigo presume que você esteja familiarizado com a linguagem de programação que está sendo demonstrada e com as ferramentas usadas para criar e depurar procedimentos. Os engenheiros de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento. No entanto, eles não modificarão esses exemplos para fornecer funcionalidades adicionais ou construir procedimentos para atender às suas necessidades específicas.

Observação: Antes de instalar esse hotfix, verifique se todos os usuários do cliente do Microsoft Dynamics NAV estiver desconectados do sistema. Isso inclui os serviços do Microsoft Dynamics NAV Application Server (NAS). Você deve ser o único usuário do cliente conectado ao implementar esse hotfix.

Para implementar esse hotfix, você deve ter uma licença de desenvolvedor.

É recomendável que a conta de usuário na janela de Logins do Windows ou na janela banco de dados seja atribuída a ID de função "SUPER". Se a conta de usuário não pode ser atribuída a ID de função "SUPER", você deverá verificar se a conta de usuário tem as seguintes permissões:

• A permissão Modificar para o objeto que será alterado.

• A permissão de execução para o objeto 5210 de identificação de objeto de sistema e o sistema 9015 de identificação de objeto
  
  objeto.

Observação: Você não precisa ter direitos para os armazenamentos de dados, a menos que você precise executar o reparo de dados.

Alterações de código

Observação: Sempre teste código correções em um ambiente controlado antes de aplicar as correções para os computadores de produção.

Para resolver esse problema, execute as seguintes etapas:

1. Altere o código nas propriedades da cotação de venda para ordem Codeunit (86) da seguinte forma:
   1 de código existente

   ...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);
   ...
   

   2 de código existente

   ...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 na ordem de venda ampla para ordem Codeunit (87) da seguinte forma:
   1 de código existente

   ...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);
   ...
   

   1 código de substituição

   ...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);
   ...
   

   2 de código existente

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

   3 de código existente

   ...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);
   ...
   

   4 de código existente

   ...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 na compra.-cotação para pedido Codeunit (96) da seguinte forma:
   1 de código existente

   ...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);
   ...
   

   1 código de substituição

   ...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);
   

   2 de código existente

   ...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 amplas. Ordem à ordem Codeunit (97) da seguinte forma:
   1 de código existente

   ...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);
   ...
   

   1 código de substituição

   ...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);
   ...
   

   2 de código existente

   ...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)"
   ...
   

   3 de código existente

   ...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);
   ...
   

   4 de código existente

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

Você deve ter a seguinte atualização e um dos seguintes produtos instalados para aplicar esse hotfix:

• Microsoft Dynamics NAV 2009 Service Pack 1

• Microsoft Dynamics NAV 2009 R2

• 2642368 "Qtd. a remessa (Base) do Item [Item_Number] na linha n º [Line_Number] não pode ser mais do que [número]" mensagem de erro quando você tenta criar um pedido de uma ampla ordem no Microsoft Dynamics NAV

Informações sobre remoção

Você não pode remover esse hotfix.