Microsoft Dynamics NAV 5.0 SP1 noppimistöölehte loomisel kuvatakse tõrketeade "Pole vaja midagi käsitleda".

See artikkel kehtib microsoft Dynamics NAV-i kohta kõigis regioonides.

Microsoft Dynamics NAV 5.0 hoolduspaketis Service Pack 1 (SP1) on järgmised stsenaariumid.

  • Seadke parameetri Reserveerimine väärtuseks Alati.
  • Teil on kauba müügitellimus. Lisaks on kauba tellitud kogus suurem kui laos saadaolev kogus.

Selle stsenaariumi puhul, kui loote noppimise kasutades saadaolevat kogust kauba noppimise töölehel, kuvatakse järgmine tõrketeade:

Märkus.

Pole midagi töödelda

Sümptomid

Kiirparanduse teave

Microsoftilt on nüüd saadaval toetatud kiirparandus. Siiski on see mõeldud ainult selles artiklis kirjeldatud probleemi lahendamiseks. Rakendage see ainult süsteemidele, kus esineb see konkreetne probleem. See kiirparandus võib saada täiendavaid katseid. Seega, kui see probleem ei mõjuta teid tõsiselt, soovitame oodata järgmist Microsoft Dynamics NAV 5.0 hoolduspaketti või järgmist Microsoft Dynamics NAV versiooni, mis sisaldab seda kiirparandust.

Märkus. Erijuhtudel võidakse tavaliselt tugiteenuse kõnede eest tehtud tasud tühistada, kui Microsoft Dynamicsi ja seotud toodete tehniline tugitöötaja leiab, et konkreetne värskendus lahendab teie probleemi. Tavapärased toetuskulud kehtivad täiendavatele tugiteenustega seotud küsimustele ja probleemidele, mis ei vasta kõnealuse värskenduse tingimustele.

Lahendus

Installiteave

Microsoft pakub programmeerimise näiteid ainult illustreerimiseks, ilma et garantii oleks väljendatud või kaudselt. See hõlmab kaubastatavuse või kindlaks otstarbeks sobivuse kaudseid garantiisid, kuid mitte ainult. Selles artiklis eeldatakse, et olete tuttav kuvatava programmeerimiskeelega ja tööriistadega, mida kasutatakse protseduuride loomiseks ja silumiseks. Microsofti tugiteenuste insenerid saavad aidata selgitada konkreetse protseduuri funktsionaalsust, kuid nad ei muuda neid näiteid selleks, et pakkuda teie vajadustele vastavaid lisafunktsioone või koostada protseduure.

Märkus. Enne selle kiirparanduse installimist veenduge, et kõik Microsoft Navisioni klientrakenduse kasutajad oleksid süsteemist välja logitud. See hõlmab ka Microsoft Navision Application Servicesi (NAS) klientkasutajaid. Peaksite olema ainus klientkasutaja, kes on sisse logitud, kui rakendate selle kiirparanduse.

Selle kiirparanduse rakendamiseks peab teil olema arendaja litsents.

Soovitame, et aknas Windowsi sisselogimised või aknas Andmebaasi sisselogimised olevale kasutajakontole määrataks "SUPER" rolli ID. Kui kasutajakontole ei saa superrolli ID-d määrata, peate kontrollima, kas kasutajakontol on järgmised õigused.

  • Muudetava objekti muutmisõigus.
  • Süsteemiobjekti ID 5210 ja süsteemiobjekti ID 9015 täitmisõigus.

            
Märkus. Teil pole andmesalvede jaoks õigusi, kui te ei pea tegema andmete parandamist.

Koodi muudatused

Märkus. Enne paranduste rakendamist tööarvutitele testige koodiparandusi alati kontrollitud keskkonnas.
Probleemi lahendamiseks tehke järgmist.

  1. Muutke tabeli Tootetellimuse komponent (5407) võtmete koodi järgmiselt.

    Olemasolev kood

    ...
           {    ;Status,Prod. Order No.,Routing Link Code,Flushing Method }
    
          {    ;Status,Prod. Order No.,Location Code     }
    
          {    ;Item No.,Variant Code,Location Code,Status,Due Date;
    
    // Delete the following line.
                                                         SumIndexFields=Expected Quantity,Remaining Qty. (Base),Cost Amount,Overhead Amount;
    // End of the deleted line.
    
                                                         MaintainSIFTIndex=No }
    
          {    ;Status,Prod. Order No.,Prod. Order Line No.,Item Low-Level Code;
    
                                                         MaintainSQLIndex=No }
    ...
    
    

    Asenduskood

    ...
          {    ;Status,Prod. Order No.,Routing Link Code,Flushing Method }
    
          {    ;Status,Prod. Order No.,Location Code     }
    
          {    ;Item No.,Variant Code,Location Code,Status,Due Date;
    
    // Add the following line.
                                                         SumIndexFields=Expected Quantity,Remaining Qty. (Base),Cost Amount,Overhead Amount,Qty. Picked (Base);
    // End of the added line.
    
                                                         MaintainSIFTIndex=No }
    
          {    ;Status,Prod. Order No.,Prod. Order Line No.,Item Low-Level Code;
    
                                                         MaintainSQLIndex=No }
    ...
    
    
  2. Muutke tabeli Laotegevuse rida (5767) väljade tähist järgmiselt.

    Olemasolev kood

    ...
                                                                                 ERROR(Text015);
    
                                                                                  IF "Bin Code" <> '' THEN BEGIN
    
                                                                                    CreatePick.CheckReservation(
    
    // Delete the following lines.
                                                                                      "Location Code","Source Type","Source Subtype","Source No.",
    
                                                                                      "Source Line No.","Source Subline No.","Qty. per Unit of Measure","Qty. to Handle (Base)");
    // End of the deleted lines.
    
                                                                                    CreatePick.GetReservationStatus(ReservationExists,ReservedForItemLedgEntry);
    
                                                                                    IF ReservationExists AND NOT ReservedForItemLedgEntry THEN
    
                                                                                      ERROR(Text016,"Item No.");   
    ...
    

    Asenduskood

    ...
                                                                                   ERROR(Text015);
    
                                                                                  IF "Bin Code" <> '' THEN BEGIN
    
                                                                                    CreatePick.CheckReservation(
    
    // Add the following lines.
                                                                                      AvailableQty,"Location Code","Source Type","Source Subtype","Source No.",
    
                                                                                      "Source Line No.","Source Subline No.","Qty. per Unit of Measure",
    
                                                                                      "Qty. to Handle","Qty. to Handle (Base)");
    // End of the added lines.
    
    
    
                                                                                    CreatePick.GetReservationStatus(ReservationExists,ReservedForItemLedgEntry);
    
                                                                                    IF ReservationExists AND NOT ReservedForItemLedgEntry THEN
    
                                                                                      ERROR(Text016,"Item No."); 
    ...
    
  3. Muutke väljal Lao laožurnaali välja Dokumentatsioon koodi. Halduskoodkood (5775) järgmiselt:

    Olemasolev kood

    ...
             ERROR(Text000);
    
          END;
    
    
    
    // Delete the following line.
          BEGIN
    // End of the deleted line.
    
          END.
    
        }
    
      }  
    ...
    

    Asenduskood

    ...
             ERROR(Text000);
    
          END;
    
    
    
    // Add the following lines.
          PROCEDURE GetOutboundDocLineQtyOtsdg@3(SourceType@1006 : Integer;SourceSubType@1005 : '0,1,2,3,4,5,6,7,8,9,10';SourceNo@1004 : Code[20];SourceLineNo@1003 : Integer;SourceSubLineNo@1002 : Integer;VAR QtyOutstanding@1001 : Decimal;VAR QtyBaseOutstanding@1000 : Decimal);
    
          VAR
    
            WhseShptLine@1009 : Record 7321;
    
          BEGIN
    
            WhseShptLine.SETCURRENTKEY("Source Type");
    
            WhseShptLine.SETRANGE("Source Type",SourceType);
    
            WhseShptLine.SETRANGE("Source Subtype",SourceSubType);
    
            WhseShptLine.SETRANGE("Source No.",SourceNo);
    
            WhseShptLine.SETRANGE("Source Line No.",SourceLineNo);
    
            IF WhseShptLine.FINDSET THEN BEGIN
    
              WhseShptLine.CALCSUMS("Qty. Outstanding (Base)","Qty. Outstanding");
    
              QtyOutstanding := WhseShptLine."Qty. Outstanding";
    
              QtyBaseOutstanding := WhseShptLine."Qty. Outstanding (Base)";
    
            END ELSE
    
              GetSrcDocLineQtyOutstanding(SourceType,SourceSubType,SourceNo,
    
                SourceLineNo,SourceSubLineNo,QtyOutstanding,QtyBaseOutstanding);
    
          END;
    
    
    
          PROCEDURE GetSrcDocLineQtyOutstanding@7(SourceType@1006 : Integer;SourceSubType@1005 : '0,1,2,3,4,5,6,7,8,9,10';SourceNo@1004 : Code[20];SourceLineNo@1003 : Integer;SourceSubLineNo@1002 : Integer;VAR QtyOutstanding@1001 : Decimal;VAR QtyBaseOutstanding@1000 : Decimal);
    
          VAR
    
            SalesLine@1008 : Record 37;
    
            PurchaseLine@1009 : Record 39;
    
            TransferLine@1010 : Record 5741;
    
            ServiceLine@1012 : Record 5902;
    
            ProdOrderComp@1013 : Record 5407;
    
            ProdOrderLine@1014 : Record 5406;
    
          BEGIN
    
            CASE SourceType OF
    
              DATABASE::"Sales Line":
    
                IF SalesLine.GET(SourceSubType,SourceNo,SourceLineNo) THEN BEGIN
    
                  QtyOutstanding := SalesLine."Outstanding Quantity";
    
                  QtyBaseOutstanding := SalesLine."Outstanding Qty. (Base)";
    
                END;
    
              DATABASE::"Purchase Line":
    
                IF PurchaseLine.GET(SourceSubType,SourceNo,SourceLineNo) THEN BEGIN
    
                  QtyOutstanding := PurchaseLine."Outstanding Quantity";
    
                  QtyBaseOutstanding := PurchaseLine."Outstanding Qty. (Base)";
    
                END;
    
              DATABASE::"Transfer Line":
    
                IF TransferLine.GET(SourceNo,SourceLineNo) THEN
    
                  CASE SourceSubType OF
    
                    0: // Direction = Outbound
    
                      BEGIN
    
                        QtyOutstanding :=
    
                          ROUND(TransferLine."Whse Outbnd. Otsdg. Qty (Base)" / (QtyOutstanding / QtyBaseOutstanding),0.00001);
    
                        QtyBaseOutstanding := TransferLine."Whse Outbnd. Otsdg. Qty (Base)";
    
                      END;
    
                    1: // Direction = Inbound
    
                      BEGIN
    
                        QtyOutstanding :=
    
                          ROUND(TransferLine."Whse. Inbnd. Otsdg. Qty (Base)" / (QtyOutstanding / QtyBaseOutstanding),0.00001);
    
                        QtyBaseOutstanding := TransferLine."Whse. Inbnd. Otsdg. Qty (Base)";
    
                      END;
    
                  END;
    
              DATABASE::"Service Line":
    
                IF ServiceLine.GET(SourceSubType,SourceNo,SourceLineNo) THEN BEGIN
    
                  QtyOutstanding := ServiceLine."Outstanding Quantity";
    
                  QtyBaseOutstanding := ServiceLine."Outstanding Qty. (Base)";
    
                END;
    
              DATABASE::"Prod. Order Component":
    
                IF ProdOrderComp.GET(SourceSubType,SourceNo,SourceLineNo,SourceSubLineNo) THEN BEGIN
    
                  QtyOutstanding := ProdOrderComp."Remaining Quantity";
    
                  QtyBaseOutstanding := ProdOrderComp."Remaining Qty. (Base)";
    
                END;
    
              DATABASE::"Prod. Order Line":
    
                IF ProdOrderLine.GET(SourceSubType,SourceNo,SourceLineNo) THEN BEGIN
    
                  QtyOutstanding := ProdOrderLine."Remaining Quantity";
    
                  QtyBaseOutstanding := ProdOrderLine."Remaining Qty. (Base)";
    
                END;
    
              ELSE BEGIN
    
                QtyOutstanding := 0;
    
                QtyBaseOutstanding := 0;
    
              END;
    
            END;
    
          END;
    
    
    
          BEGIN
    // End of the added lines.
    
          END.
    
        }
    
      }
    ...
    
  4. Muutke WMS Managementi koodiplokis (7302) funktsiooni CalcLineReservedQtyonInvt koodi järgmiselt.

    Olemasolev kood

    ...
                    ReservEntry2.SETRANGE("Lot No.",LotNo);
    
                IF ReservEntry2.FIND('-') THEN
    
                  REPEAT
    
    // Delete the following line.
                    ReservQtyonInvt := ReservQtyonInvt + ReservEntry2."Quantity (Base)";
    // End of the deleted line.
    
                  UNTIL ReservEntry2.NEXT = 0;
    
              UNTIL ReservEntry.NEXT = 0;
    
            EXIT(ReservQtyonInvt);
    ...
    
    

    Asenduskood

    ...
                   ReservEntry2.SETRANGE("Lot No.",LotNo);
    
                IF ReservEntry2.FIND('-') THEN
    
                  REPEAT
    
    // Add the following line.
                    ReservQtyonInvt := ReservQtyonInvt + ReservEntry2."Quantity (Base)" - ReservEntry2."Reserved Pick & Ship Qty.";
    // End of the added line.
    
                  UNTIL ReservEntry2.NEXT = 0;
    
              UNTIL ReservEntry.NEXT = 0;
    
            EXIT(ReservQtyonInvt);
    ...
    
    
  5. Muutke koodi funktsiooni CreateTempLine koodiplokis Picki loomine (7312) järgmiselt.

    Olemasolev kood 1

    ...
            RemQtyToPickBase@1000000002 : Decimal;
    
            QtyToPickBase@1000000001 : Decimal;
    
            QtyToTrackBase@1009 : Decimal;
    
    // Delete the following lines.
          BEGIN
    
            CheckReservation(
    
              LocationCode,SourceType,SourceSubType,SourceNo,SourceLineNo,SourceSubLineNo,
    
              QtyPerUnitofMeasure,TotalQtytoPick);
    // End of the deleted lines.
    
    
            RemQtyToPick := TotalQtytoPick;
    
            RemQtyToPickBase := TotalQtytoPickBase;
    
            ItemTrackingMgt.CheckWhseItemTrkgSetup(ItemNo,SNRequired,LNRequired,FALSE);
    ...
    
    

    Asenduskood 1

    ...
          RemQtyToPickBase@1000000002 : Decimal;
    
            QtyToPickBase@1000000001 : Decimal;
    
            QtyToTrackBase@1009 : Decimal;
    
    // Add the following lines.
            QtyBaseMaxAvailToPick@1014 : Decimal;
    
          BEGIN
    
    
            GetLocation(LocationCode);
    
            IF Location."Directed Put-away and Pick" THEN
    
              QtyBaseMaxAvailToPick := // Total qty (excl. Receive bin content) that are not assigned to any activity/ order
    
                CalcTotalQtyOnBinType('',LocationCode,ItemNo,VariantCode) -
    
                CalcTotalQtyAssgndOnWhse(LocationCode,ItemNo,VariantCode) +
    
                CalcTotalQtyAssgndOnWhseAct(TempWhseActivLine."Activity Type"::"Put-away",LocationCode,ItemNo,VariantCode) -
    
                CalcTotalQtyOnBinType(GetBinTypeFilter(0),LocationCode,ItemNo,VariantCode) // Receive area
    
            ELSE
    
              QtyBaseMaxAvailToPick :=
    
                CalcAvailableQty(ItemNo,VariantCode,1) -
    
                CalcPickQtyAssigned(LocationCode,ItemNo,VariantCode,FromBinCode,TempWhseItemTrkgLine);
    
            CheckReservation(
    
              QtyBaseMaxAvailToPick,LocationCode,SourceType,SourceSubType,SourceNo,SourceLineNo,SourceSubLineNo,
    
              QtyPerUnitofMeasure,TotalQtytoPick,TotalQtytoPickBase);
    // End of the added lines.
    
            RemQtyToPick := TotalQtytoPick;
    
            RemQtyToPickBase := TotalQtytoPickBase;
    
            ItemTrackingMgt.CheckWhseItemTrkgSetup(ItemNo,SNRequired,LNRequired,FALSE);   
    ...
    
    

    Olemasolev kood 2

    ...
               CreateTempItemTrkgLines(ItemNo,VariantCode,QtyToTrackBase);
    
            END;
    
    
    // Delete the following line.
            IF TotalQtytoPick <>0 THEN BEGIN
    // End of the deleted line.
    
              TempWhseItemTrkgLine.RESET;
    
              TempWhseItemTrkgLine.SETFILTER("Qty. to Handle",'<> 0');
    
              IF TempWhseItemTrkgLine.FIND('-') THEN BEGIN 
    ...
    
    

    Asenduskood 2

    ...
               CreateTempItemTrkgLines(ItemNo,VariantCode,QtyToTrackBase);
    
            END;
    
    
    // Add the following line.
            IF TotalQtytoPickBase <> 0 THEN BEGIN
    // End of the added line.
    
              TempWhseItemTrkgLine.RESET;
    
              TempWhseItemTrkgLine.SETFILTER("Qty. to Handle",'<>0');
    
              IF TempWhseItemTrkgLine.FIND('-') THEN BEGIN
    ...
    
    
  6. Muutke koodi valiku koodiploki (7312) loomise funktsioonis CheckReservation järgmiselt.

    Olemasolev kood 1

    ...
             END;
    
          END;
    
    // Delete the following line.
          PROCEDURE CheckReservation@45(LocationCode@1007 : Code[10];SourceType@1005 : Integer;SourceSubType@1004 : '0,1,2,3,4,5,6,7,8,9,10';SourceNo@1003 : Code[20];SourceLineNo@1002 : Integer;SourceSubLineNo@1001 : Integer;QtyPerUnitofMeasure@1000 : Decimal;VAR Quantity@1006 : Decimal);
    // End of the deleted line.
    
          VAR
    
            ReservEntry@1010 : Record 337;
    
            ReservEntry2@1011 : Record 337;
    ...
    
    

    Asenduskood 1

    ...
              END;
    
          END; 
    
    // Add the following line.
          PROCEDURE CheckReservation@45(QtyBaseAvailToPick@1009 : Decimal;LocationCode@1007 : Code[10];SourceType@1005 : Integer;SourceSubType@1004 : '0,1,2,3,4,5,6,7,8,9,10';SourceNo@1003 : Code[20];SourceLineNo@1002 : Integer;SourceSubLineNo@1001 : Integer;QtyPerUnitofMeasure@1000 : Decimal;VAR Quant
    
    ity@1006 : Decimal;VAR QuantityBase@1008 : Decimal);
    // End of the added line.
    
          VAR
    
            ReservEntry@1010 : Record 337;
    
            ReservEntry2@1011 : Record 337;
    ...
    
    

    Olemasolev kood 2

    ...
            ReservEntry@1010 : Record 337;
    
            ReservEntry2@1011 : Record 337;
    
            Quantity2@1012 : Decimal;
    
    // Delete the following line.
          BEGIN
    // End of the deleted line.
    
            ReservEntry.SETCURRENTKEY(
    
              "Source ID","Source Ref. No.","Source Type","Source Subtype",
    
              "Source Batch Name","Source Prod. Order Line","Reservation Status");
    ...
    
    

    Asenduskood 2

    ...
            ReservEntry@1010 : Record 337;
    
            ReservEntry2@1011 : Record 337;
    
            Quantity2@1012 : Decimal;
    
    // Add the following lines.
            QtyBaseResvdNotOnILE@1018 : Decimal;
    
            QtyResvdNotOnILE@1013 : Decimal;
    
            WhseManagement@1014 : Codeunit 5775;
    
            SrcDocQtyBaseToBeFilledByInvt@1015 : Decimal;
    
            SrcDocQtyToBeFilledByInvt@1016 : Decimal;
    
            QuantityBase2@1019 : Decimal;
    
          BEGIN
    
            ReservationExists := FALSE;
    
            ReservedForItemLedgEntry := FALSE;
    
            Quantity2 := Quantity;
    
            QuantityBase2 := QuantityBase;
    // End of the added lines.
    
            ReservEntry.SETCURRENTKEY(
    
              "Source ID","Source Ref. No.","Source Type","Source Subtype",
    
              "Source Batch Name","Source Prod. Order Line","Reservation Status"); 
    ...
    
    

    Olemasolev kood 3

    ...
            ReservEntry.SETRANGE("Reservation Status",ReservEntry."Reservation Status"::Reservation);
    
            IF ReservEntry.FIND('-') THEN BEGIN
    
              ReservationExists := TRUE;
    
    // Delete the following line.
              Quantity2 := Quantity;
    // End of the deleted line.
    
              Quantity := Quantity * QtyPerUnitofMeasure;
    
              REPEAT
    
                IF ReservEntry2.GET(ReservEntry."Entry No.",NOT ReservEntry.Positive) AND 
    ...
    
    

    Asenduskood 3

    ...
              ReservEntry.SETRANGE("Reservation Status",ReservEntry."Reservation Status"::Reservation);
    
            IF ReservEntry.FIND('-') THEN BEGIN
    
              ReservationExists := TRUE;
    
              Quantity := Quantity * QtyPerUnitofMeasure;
    
              REPEAT
    
                IF ReservEntry2.GET(ReservEntry."Entry No.",NOT ReservEntry.Positive) AND 
    ...
    
    

    Olemasolev kood 4

    ...
               REPEAT
    
                IF ReservEntry2.GET(ReservEntry."Entry No.",NOT ReservEntry.Positive) AND
    
                   (ReservEntry2."Source Type" <> DATABASE::"Item Ledger Entry")
    
    // Delete the following lines.
                THEN
    
                  Quantity := Quantity - ReservEntry2."Quantity (Base)";
    
              UNTIL ReservEntry.NEXT = 0;
    
    
    
              IF Quantity <0 THEN
    
                Quantity := 0;
    
              Quantity := ROUND(Quantity / QtyPerUnitofMeasure,0.00001);
    
              IF Quantity = 0 THEN BEGIN
    // End of the deleted lines.
    
                GetLocation(LocationCode);
    
                IF Location."Always Create Pick Line" THEN BEGIN
    
                  ReservedForItemLedgEntry := FALSE;
    ...
    
    

    Asenduskood 4

    ...
               REPEAT
    
                IF ReservEntry2.GET(ReservEntry."Entry No.",NOT ReservEntry.Positive) AND
    
                   (ReservEntry2."Source Type" <> DATABASE::"Item Ledger Entry")
    
    // Add the following lines.
                THEN BEGIN
    
                  QtyBaseResvdNotOnILE += ReservEntry2."Quantity (Base)";
    
                  QtyResvdNotOnILE += ReservEntry2.Quantity;
    
                END;
    
              UNTIL ReservEntry.NEXT = 0;
    
              WhseManagement.GetOutboundDocLineQtyOtsdg(SourceType,SourceSubType,
    
                SourceNo,SourceLineNo,SourceSubLineNo,SrcDocQtyToBeFilledByInvt,SrcDocQtyBaseToBeFilledByInvt);
    
              SrcDocQtyBaseToBeFilledByInvt := SrcDocQtyBaseToBeFilledByInvt - QtyBaseResvdNotOnILE;
    
              SrcDocQtyToBeFilledByInvt := SrcDocQtyToBeFilledByInvt - QtyResvdNotOnILE;
    
    
    
              IF QuantityBase >SrcDocQtyBaseToBeFilledByInvt THEN BEGIN
    
                QuantityBase := SrcDocQtyBaseToBeFilledByInvt;
    
                Quantity := SrcDocQtyToBeFilledByInvt;
    
              END;
    
    
    
              IF QuantityBase <=SrcDocQtyBaseToBeFilledByInvt THEN
    
                IF QuantityBase >QtyBaseAvailToPick THEN BEGIN
    
                  QuantityBase := QtyBaseAvailToPick;
    
                  Quantity := ROUND(QtyBaseAvailToPick / QtyPerUnitofMeasure,0.00001);
    
                END;
    
              IF QuantityBase = 0 THEN BEGIN
    // End of the added lines.
    
                GetLocation(LocationCode);
    
                IF Location."Always Create Pick Line" THEN BEGIN
    
                  ReservedForItemLedgEntry := FALSE;
    ...
    
    

    Olemasolev kood 5

    ...
                IF Location."Always Create Pick Line" THEN BEGIN
    
                  ReservedForItemLedgEntry := FALSE;
    
                  Quantity := Quantity2;
    
                END;
    
              END ELSE
    
                ReservedForItemLedgEntry := TRUE; 
    ...
    
    

    Asenduskood 5

    ...
                IF Location."Always Create Pick Line" THEN BEGIN
    
                  ReservedForItemLedgEntry := FALSE;
    
                  Quantity := Quantity2;
    
    // Add the following line.
                  QuantityBase := QuantityBase2;
    // End of the added line.
    
                END;
    
              END ELSE
    
                ReservedForItemLedgEntry := TRUE; 
    ...
    
    
  7. Muutke koodi picki koodiploki loomise (7312) funktsioonis Documentation järgmiselt.

    Olemasolev kood

    ...
             EXIT(xReservedQty > Item."Reserved Qty. on Inventory");
    
          END;
    
    // Delete the following line.    
          BEGIN
    // End of the deleted line.
    
          END.
    
        }
    
      }
    ...
    
    

    Asenduskood

    ...
           EXIT(xReservedQty >Item."Reserved Qty. on Inventory");
    
          END;
    
    
    
    // Add the following lines.
          PROCEDURE CalcTotalQtyAssgndOnWhse@1102601005(LocationCode@1002 : Code[10];ItemNo@1003 : Code[20];VariantCode@1004 : Code[10]) : Decimal;
    
          VAR
    
            WhseShipmentLine@1010 : Record 7321;
    
            ProdOrderComp@1011 : Record 5407;
    
            QtyAssgndToWhseAct@1012 : Decimal;
    
            QtyAssgndToShipment@1013 : Decimal;
    
            QtyAssgndToProdComp@1014 : Decimal;
    
          BEGIN
    
            QtyAssgndToWhseAct +=
    
              CalcTotalQtyAssgndOnWhseAct(TempWhseActivLine."Activity Type"::" ",LocationCode,ItemNo,VariantCode);
    
            QtyAssgndToWhseAct +=
    
              CalcTotalQtyAssgndOnWhseAct(TempWhseActivLine."Activity Type"::"Put-away",LocationCode,ItemNo,VariantCode);
    
            QtyAssgndToWhseAct +=
    
              CalcTotalQtyAssgndOnWhseAct(TempWhseActivLine."Activity Type"::Pick,LocationCode,ItemNo,VariantCode);
    
            QtyAssgndToWhseAct +=
    
              CalcTotalQtyAssgndOnWhseAct(TempWhseActivLine."Activity Type"::Movement,LocationCode,ItemNo,VariantCode);
    
            QtyAssgndToWhseAct +=
    
              CalcTotalQtyAssgndOnWhseAct(TempWhseActivLine."Activity Type"::"Invt. Put-away",LocationCode,ItemNo,VariantCode);
    
            QtyAssgndToWhseAct +=
    
              CalcTotalQtyAssgndOnWhseAct(TempWhseActivLine."Activity Type"::"Invt. Pick",LocationCode,ItemNo,VariantCode);
    
    
    
            WITH WhseShipmentLine DO BEGIN
    
              SETCURRENTKEY("Item No.","Location Code","Variant Code","Due Date");
    
              SETRANGE("Location Code",LocationCode);
    
              SETRANGE("Item No.",ItemNo);
    
              SETRANGE("Variant Code",VariantCode);
    
              CALCSUMS("Qty. Picked (Base)");
    
              QtyAssgndToShipment := "Qty. Picked (Base)";
    
            END;
    
    
    
            WITH ProdOrderComp DO BEGIN
    
              SETCURRENTKEY("Item No.","Variant Code","Location Code",Status,"Due Date");
    
              SETRANGE("Location Code",LocationCode);
    
              SETRANGE("Item No.",ItemNo);
    
              SETRANGE("Variant Code",VariantCode);
    
              CALCSUMS("Qty. Picked (Base)");
    
              QtyAssgndToProdComp := "Qty. Picked (Base)";
    
            END;
    
    
    
            EXIT(QtyAssgndToWhseAct + QtyAssgndToShipment + QtyAssgndToProdComp);
    
          END;
    
    
    
          PROCEDURE CalcTotalQtyAssgndOnWhseAct@1102601006(ActivityType@1003 : Option;LocationCode@1004 : Code[10];ItemNo@1005 : Code[20];VariantCode@1006 : Code[10]) : Decimal;
    
          VAR
    
            WhseActivLine@1002 : Record 5767;
    
          BEGIN
    
            WITH WhseActivLine DO BEGIN
    
              SETCURRENTKEY(
    
                "Item No.","Location Code","Activity Type","Bin Type Code",
    
                "Unit of Measure Code","Variant Code","Breakbulk No.","Action Type");
    
              SETRANGE("Location Code",LocationCode);
    
              SETRANGE("Item No.",ItemNo);
    
              SETRANGE("Variant Code",VariantCode);
    
              SETRANGE("Activity Type",ActivityType);
    
              SETRANGE("Breakbulk No.",0);
    
              SETFILTER("Action Type",'%1|%2',"Action Type"::" ","Action Type"::Take);
    
              CALCSUMS("Qty. Outstanding (Base)");
    
              EXIT("Qty. Outstanding (Base)");
    
            END;
    
          END;
    
    
    
          PROCEDURE CalcTotalQtyOnBinType@1102601007(BinTypeFilter@1004 : Text[1024];LocationCode@1003 : Code[10];ItemNo@1002 : Code[10];VariantCode@1001 : Code[10]) : Decimal;
    
          VAR
    
            WhseEntry@1000 : Record 7312;
    
          BEGIN
    
            WITH WhseEntry DO BEGIN
    
              SETCURRENTKEY("Item No.","Location Code","Variant Code","Bin Type Code");
    
              SETRANGE("Item No.",ItemNo);
    
              SETRANGE("Location Code",LocationCode);
    
              SETRANGE("Variant Code",VariantCode);
    
             IF BinTypeFilter <>'' THEN
    
                SETFILTER("Bin Type Code",BinTypeFilter);
    
              CALCSUMS("Qty. (Base)");
    
              EXIT("Qty. (Base)");
    
            END;
    
          END;
    // End of the added lines.
    
        }
    
      }  
    ...
    
    

          

Eeltingimused

Selle kiirparanduse rakendamiseks peab teil olema installitud Microsoft Dynamics NAV 5.0 SP1.

Eemaldamisteave

Seda kiirparandust ei saa eemaldada.

Microsoft on kinnitanud, et see on jaotises „Rakenduskoht“ loetletud Microsofti toodete korral esinev probleem.

Olek

Märkus. See on otse Microsofti tugiteenuste organisatsioonist loodud FAST PUBLISH-artikkel. Käesolevas artiklis sisalduv teave on esitatud kujul, mis on seotud tekkivate küsimustega. Materjali kättesaadavaks tegemise kiiruse tõttu võivad materjalid sisaldada kirjavigu ja neid võib igal ajal ette teatamata läbi vaadata. Muid kaalutlusi leiate teemast Kasutustingimused .