"Predajnej dodávky [Shipment_No], číslo riadka [Line_No] je skopírované, pretože celé množstvo riadku Publikované dokumentu manuálne už používa" chybové hlásenie pri spustení funkcie Kopírovať doklad čiastočný predaj návrat do systému Microsoft Dynamics NAV

Informácie o rýchlej oprave

Rýchla oprava je k dispozícii od spoločnosti Microsoft. Je však určená iba opraviť problém popísaný v tomto článku. Použite ju iba v počítačoch s týmto konkrétnym problémom. Môže, že táto rýchla oprava bude ďalej testovaná. Ak vám nespôsobuje tento problém, odporúčame vám počkať na ďalšiu Microsoft Dynamics NAV 2009 service pack alebo ďalšej verzii Microsoft Dynamics NAV, ktorá obsahuje túto rýchlu opravu.

Poznámka: V špeciálnych prípadoch sa poplatky, ktoré sú telefonickú podporu nemusia účtovať ak technickú podporu Professional pre Microsoft Dynamics a súvisiace produkty zistí, že táto konkrétna aktualizácia vyrieši váš problém. Ďalšie otázky a žiadosti o technickú podporu, ktoré sa netýkajú tejto špecifickej aktualizácie, podliehajú bežným sadzbám za poskytovanie technickej podpory.

Zmeny kódu

Poznámka: Vždy skúšobný opravy v prostredí kontrolované pred použitím opravy výroby počítačov.
Ak chcete vyriešiť tento problém, postupujte nasledovne:

1. Odstráňte nasledujúce globálne premenné kópie dokumentu správy procedúra (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. Pridajte nasledujúce globálnej premenné kópie dokumentu správy procedúra (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. Zmena kódu v SplitPstdSalesLinesPerILE funkcia v kópiu dokumentu správy procedúra (6620) nasledovne:
   Nahradenie kód 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);
   ...
   
   

   Nahradenie kód 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);
   ...
   
   

   Existujúci kód 2

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

   Nahradenie kód 2

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

4. Zmena kódu v SplitPstdPurchLinesPerILE funkcia v kópiu dokumentu správy procedúra (6620) nasledovne:
   Nahradenie kód 1

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

   Nahradenie kód 1

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

   Existujúci kód 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
   ...
   
   

   Nahradenie kód 2

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

   Existujúci kód 3

   ...        END;
   ...
   
   

   Nahradenie kód 3

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

5. Zmena kódu v CheckUnappliedLines funkcia v kópiu dokumentu správy procedúra (6620) nasledovne:
   Existujúci kód

   ...      BEGIN
   ...
   
   

   Nahradenie kódu

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