Съобщение за грешка "Експедиция за продажба [Shipment_No], ред. [Line_No] не се копира защото количеството на реда фактура се прилага вече ръчно" когато стартирате функцията копиране на документ за частична продажба връщане в Microsoft Dynamics NAV

Информация за актуалната корекция

Вече се предлага от Microsoft предоставя поддържана актуална корекция. Обаче е предназначена само за коригиране на описания в тази статия. Прилагайте корекцията само към системи, изпитващи този конкретен проблем. Възможно е провеждането на допълнителни тестове на тази актуална корекция. Следователно ако не сте силно засегнати от този проблем, препоръчваме да изчакате следващия сервизен пакет за Microsoft Dynamics NAV 2009 или следващата версия на Microsoft Dynamics NAV, който ще съдържа тази корекция.

Забележка: При специални случаи таксите, които се начисляват за свързани с поддръжката обаждания могат да бъдат отменени, ако специалист по техническа поддръжка за Microsoft Dynamics и свързани с тях продукти определя, че конкретна актуализация може да разреши проблема. Обичайните такси за поддръжката ще важат за допълнителни въпроси и проблеми, които не спадат към съответната актуализация.

Промени код

Забележка: Винаги тест код решава в управлявана среда преди да приложите корекциите производство компютри.
За да разрешите този проблем, изпълнете следните стъпки:

1. Изтрийте следните променливите в копие документ управление кодова единица (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. Добавете следните променливите в копие документ управление кодова единица (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. Променете кода в SplitPstdSalesLinesPerILE функция в копие документ управление кодова единица (6620) както следва:
   Съществуващ код 1

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

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

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

   Замени код 2

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

4. Променете кода в SplitPstdPurchLinesPerILE функция в копие документ управление кодова единица (6620) както следва:
   Съществуващ код 1

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

   Замени код 1

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

   Съществуващ код 2

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

   Замени код 2

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

   Съществуващ код 3

   ...        END;
   ...
   
   

   Замени код 3

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

5. Променете кода в CheckUnappliedLines функция в копие документ управление кодова единица (6620) както следва:
   Съществуващ код

   ...      BEGIN
   ...
   
   

   Замени код

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