Mensagem de erro "Remessa venda [Shipment_No], n º de linha [Line_No] não é copiada porque a quantidade total na linha de documento lançado já manualmente é aplicada" quando você executa a função de cópia de documento em uma devolução de venda parcial no Microsoft Dynamics NAV

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.

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. Exclua as seguintes variáveis globais na codeunit cópia gerenciamento de documento (6620):

   Text030@1025 : TextConst 'ENU=%1 %2, line no. %3 is not copied because the full quantity on the posted document line is already manually applied.';Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
   SomeAreFixed@1045 : Boolean;
   CopyDimensions@1050 : Boolean;
   
   

2. Adicione as seguintes variáveis globais na codeunit cópia gerenciamento de documento (6620):

   Text030@1025 : TextConst 'ENU=One or more return document lines were not copied. This is because quantities on the posted document line are already fully or partially applied and therefore the Exact Cost Reversing Link could not be created.';Text031@1038 : TextConst 'ENU=Return document line contains only the original document line quantity, that is not already manually applied.';
    SomeAreFixed@1045 : Boolean;
   CopyDimensions@1050 : Boolean;
   WarningDone@1051 : Boolean;
   LinesApplied@1052 : Boolean;
   
   

3. Altere o código na função SplitPstdSalesLinesPerILE o código de gerenciamento de documentos de cópia (6620) da seguinte forma:
   1 de código existente

   ...            IF "Shipped Qty. Not Returned" = 0 THEN
   
   // Delete the following lines.
                ERROR(Text030,"Document Type","Document No.","Document Line No.");
              FromSalesLineBuf := FromSalesLine; 
              IF -"Shipped Qty. Not Returned" < ABS(FromSalesLine."Quantity (Base)") THEN BEGIN
                IF FromSalesLine."Quantity (Base)" > 0 THEN
                  FromSalesLineBuf."Quantity (Base)" := -"Shipped Qty. Not Returned"
                ELSE
                  FromSalesLineBuf."Quantity (Base)" := "Shipped Qty. Not Returned";
                IF FromSalesLineBuf."Qty. per Unit of Measure" = 0 THEN
                  FromSalesLineBuf.Quantity := FromSalesLineBuf."Quantity (Base)"
                ELSE
                  FromSalesLineBuf.Quantity :=
                    ROUND(FromSalesLineBuf."Quantity (Base)" / FromSalesLineBuf."Qty. per Unit of Measure",0.00001);
              END;
              FromSalesLine."Quantity (Base)" := FromSalesLine."Quantity (Base)" - FromSalesLineBuf."Quantity (Base)";
              FromSalesLine.Quantity := FromSalesLine.Quantity - FromSalesLineBuf.Quantity;
              FromSalesLineBuf."Appl.-from Item Entry" := "Entry No.";
              FromSalesLineBuf."Line No." := NextLineNo;
              NextLineNo := NextLineNo + 1;
              FromSalesLineBuf."Document No." := "Document No.";
              IF GetSalesDocType(ItemLedgEntry) IN
                 [FromSalesLineBuf."Document Type"::Order,FromSalesLineBuf."Document Type"::"Return Order"]
              THEN
                FromSalesLineBuf."Shipment Line No." := 1;
   
              IF NOT FromShptOrRcpt THEN
                UpdateRevSalesLineAmount(
                  FromSalesLineBuf,OrgQtyBase,
                  FromSalesHeader."Prices Including VAT",ToSalesHeader."Prices Including VAT");
   
              FromSalesLineBuf.INSERT;
   // End of the lines.
   
             UNTIL (NEXT = 0) OR (FromSalesLine."Quantity (Base)" = 0);
   ...
   
   

   1 código de substituição

   ...            IF "Shipped Qty. Not Returned" = 0 THEN
   
   // Add the following lines.
                LinesApplied := TRUE;
              IF "Shipped Qty. Not Returned" < 0 THEN BEGIN
                FromSalesLineBuf := FromSalesLine;
   
                IF -"Shipped Qty. Not Returned" < ABS(FromSalesLine."Quantity (Base)") THEN BEGIN
                  IF FromSalesLine."Quantity (Base)" > 0 THEN
                    FromSalesLineBuf."Quantity (Base)" := -"Shipped Qty. Not Returned"
                  ELSE
                    FromSalesLineBuf."Quantity (Base)" := "Shipped Qty. Not Returned";
                  IF FromSalesLineBuf."Qty. per Unit of Measure" = 0 THEN
                    FromSalesLineBuf.Quantity := FromSalesLineBuf."Quantity (Base)"
                  ELSE
                    FromSalesLineBuf.Quantity :=
                      ROUND(FromSalesLineBuf."Quantity (Base)" / FromSalesLineBuf."Qty. per Unit of Measure",0.00001);
                END;
                FromSalesLine."Quantity (Base)" := FromSalesLine."Quantity (Base)" - FromSalesLineBuf."Quantity (Base)";
                FromSalesLine.Quantity := FromSalesLine.Quantity - FromSalesLineBuf.Quantity;
                FromSalesLineBuf."Appl.-from Item Entry" := "Entry No.";
                FromSalesLineBuf."Line No." := NextLineNo;
                NextLineNo := NextLineNo + 1;
                FromSalesLineBuf."Document No." := "Document No.";
                IF GetSalesDocType(ItemLedgEntry) IN
                   [FromSalesLineBuf."Document Type"::Order,FromSalesLineBuf."Document Type"::"Return Order"]
                THEN
                  FromSalesLineBuf."Shipment Line No." := 1;
   
                IF NOT FromShptOrRcpt THEN
                  UpdateRevSalesLineAmount(
                    FromSalesLineBuf,OrgQtyBase,
                    FromSalesHeader."Prices Including VAT",ToSalesHeader."Prices Including VAT");
   
                FromSalesLineBuf.INSERT;
              END;
   // End of the lines.
   
             UNTIL (NEXT = 0) OR (FromSalesLine."Quantity (Base)" = 0);
   ...
   
   

   2 de código existente

   ...            MissingExCostRevLink := TRUE;
           END;
   ...
   
   

   Código de substituição 2

   ...            MissingExCostRevLink := TRUE;
   
   // Add the following line.
            CheckUnappliedLines(LinesApplied,MissingExCostRevLink);
   
           END;
   ...
   
   

4. Altere o código na função SplitPstdPurchLinesPerILE o código de gerenciamento de documentos de cópia (6620) da seguinte forma:
   1 de código existente

   ...        ApplyRec@1011 : Record 339;
   
   // Delete the following line.
          AllAreFixed@1012 : Boolean;
   
         BEGIN
   ...
   
   

   1 código de substituição

   ...        ApplyRec@1011 : Record 339;
         BEGIN
   ...
   
   

   2 de código existente

   ...          REPEAT
   
   // Delete the following lines.
              IF "Remaining Quantity" = 0 THEN BEGIN
                AllAreFixed := TRUE;
                ApplyRec.AppliedOutbndEntryExists("Entry No.",FALSE);
                IF ApplyRec.FINDFIRST THEN
                  REPEAT
                    AllAreFixed := AllAreFixed AND ApplyRec.Fixed;
                  UNTIL ApplyRec.NEXT = 0;
                IF AllAreFixed THEN
                  ERROR(Text030,"Document Type","Document No.","Document Line No.");
              END;
   // End of the lines.
   
               IF NOT ApplyFully THEN BEGIN
   ...
   
   

   Código de substituição 2

   ...          REPEAT
               IF NOT ApplyFully THEN BEGIN
   ...
   
   

   3 de código existente

   ...        END;
   ...
   
   

   Código de substituição 3

   ...        END;
   
   // Add the following line.
          CheckUnappliedLines(SkippedLine,MissingExCostRevLink);
   
   ...
   
   

5. Altere o código na função CheckUnappliedLines o código de gerenciamento de documentos de cópia (6620) da seguinte forma:
   Código existente

   ...      BEGIN
   ...
   
   

   Código de substituição

   ...
   // Add the following lines.
        LOCAL PROCEDURE CheckUnappliedLines@86(SkippedLine@1000 : Boolean;VAR MissingExCostRevLink@1001 : Boolean);
        BEGIN
          IF SkippedLine AND MissingExCostRevLink THEN BEGIN
            IF NOT WarningDone THEN
              MESSAGE(Text030);
            MissingExCostRevLink := FALSE;
            WarningDone := TRUE;
          END;
        END;
   
   // End of the lines.
   
         BEGIN
   ...