Az anyagjegyzék mennyiségének kiszámítása jelentésben hiányos tételek jelennek meg, ha a Nem értéket állítja be. termékjegyzék esetében a Microsoft Dynamics NAV 2009 SP1 vagy a Microsoft Dynamics NAV 2009 R2 rendszer Cikktáblájában található cikkszám használatával

Hatókör
Microsoft Dynamics NAV 2009 R2 Dynamics NAV 2009 Service Pack 1

Ez a cikk a Microsoft Dynamics NAV-ra vonatkozik az összes nyelvi beállítás esetén.

Tünetek

Amikor a Microsoft Dynamics NAV rendszerben megadja a Nem. Termelési anyagjegyzék esetében a Cikktábla cikkszámának használatával, majd az "Anyagjegyzék mennyiségének robbantása" jelentés futtatásával a jelentés hiányos cikkeket jelenít meg.
Ez a probléma a következő termékekben fordul elő:

  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
  • Microsoft Dynamics NAV 2009 R2

Megoldás

Gyorsjavítással kapcsolatos információk

A Microsoft már elérhető egy támogatott gyorsjavítást kínál. Ez azonban csak a cikkben ismertetett probléma megoldására szolgál. Csak olyan rendszerekre alkalmazza, amelyek tapasztalják ezt a problémát. Előfordulhat, hogy a gyorsjavítás további tesztelésen eshet át. Ezért ha nem érinti súlyosan ez a probléma, azt javasoljuk, hogy várja meg a Microsoft Dynamics NAV 2009 következő szervizcsomagját, illetve a Microsoft Dynamics NAV következő olyan verzióját, amely tartalmazza ezt a gyorsjavítást.

Megjegyzés: Különleges esetekben a támogatási hívások szokásos díjai törölhetők, ha a Microsoft Dynamics és a kapcsolódó termékek terméktámogatási szakértője úgy ítéli meg, hogy egy adott frissítés megoldja a problémát. A szokásos támogatási költségek olyan további támogatási kérdések és problémák esetén merülnek fel, amelyek nem felelnek meg a kérdéses frissítés feltételeinek.

            
          

Telepítési információk

A Microsoft csak illusztrációs céllal kínál programozási példákat, kifejezett vagy vélelmezett garancia nélkül. Ez magában foglalja, de nem kizárólagosan a forgalmazhatóságra vagy az adott célra való alkalmasságra vonatkozó vélelmezett garanciát. Ez a cikk feltételezi, hogy ismeri a bemutatott programozási nyelvet, valamint az eljárások létrehozásához és hibakereséséhez használt eszközöket. A Microsoft támogatási szakemberei segíthetnek elmagyarázni egy adott eljárás funkcionalitását, de nem módosítják a példákat, hogy további funkciókat biztosítsanak, és nem építenek ki eljárásokat az egyéni igényekre.

Megjegyzés: A gyorsjavítás telepítése előtt győződjön meg arról, hogy a Microsoft Navision-ügyfél összes felhasználója kijelentkezett a rendszerről. Ide tartoznak a Microsoft Navision Application Services (NAS) kliens felhasználói is. A gyorsjavítás telepítésekor csak Ön lehet az, aki be van jelentkezve.

A gyorsjavítás implementálásához fejlesztői licenccel kell rendelkeznie.

Javasoljuk, hogy a Windows Bejelentkezések ablakában vagy az Adatbázis-bejelentkezések ablakban látható felhasználói fiókhoz rendelje a "SUPER" szerepkörazonosítót. Ha a felhasználói fiókhoz nem rendelhető a "SUPER" szerepkörazonosító, ellenőriznie kell, hogy a felhasználói fiók rendelkezik-e az alábbi engedélyekkel:

  • A módosítani kívánt objektum Módosítás engedélye.
  • Végrehajtási engedély az 5210-es rendszerazonosítójú objektumhoz és a 9015-ös rendszerobjektum-azonosítójú objektumhoz.

                
Megjegyzés: Az adattárakhoz csak akkor kell jogokkal rendelkeznie, ha adatokat kell javítást végeznie.

Kódváltozások

Megjegyzés: Mindig ellenőrzött környezetben tesztelje a kódjavításokat, mielőtt telepítené őket az üzemi számítógépekre.
A probléma megoldásához hajtsa végre az alábbi lépéseket:

  1. Módosítsa a kódot a 2. adatelem-függvényben az anyagjegyzék mennyiségének kibontása jelentésben (99000753) a következők szerint:
    Meglévő kód: 1

    ...
                               BomComponent[Level]."Production BOM No." := Item."Production BOM No.";
    
                              BomComponent[Level].SETRANGE("Production BOM No.",Item."Production BOM No.");
    
                              BomComponent[Level].SETRANGE("Version Code",VersionCode[Level]);
    
                              BomComponent[Level].SETFILTER("Starting Date",'%1|..%2',0D,CalculateDate);
    
                              BomComponent[Level].SETFILTER("Ending Date",'%1|%2..',0D,CalculateDate);
    
                              NoList[Level] := Item."No.";
    
                              Quantity[Level] :=
    
                                UOMMgt.GetQtyPerUnitOfMeasure(Item,Item."Base Unit of Measure") /
    
                                UOMMgt.GetQtyPerUnitOfMeasure(
    
                                  Item,
    ...
    

    Helyettesítő kód 1

    ...
                             BomComponent[Level]."Production BOM No." := Item."Production BOM No.";
    
                              BomComponent[Level].SETRANGE("Production BOM No.",Item."Production BOM No.");
    
                              BomComponent[Level].SETRANGE("Version Code",VersionCode[Level]);
    
                              BomComponent[Level].SETFILTER("Starting Date",'%1|..%2',0D,CalculateDate);
    
                              BomComponent[Level].SETFILTER("Ending Date",'%1|%2..',0D,CalculateDate);
    
    // Add the following line.
                             NoListType[Level] := NoListType[Level]::Item;
    // End of the added line.
    
                              NoList[Level] := Item."No.";
    
                              Quantity[Level] :=
    
                                UOMMgt.GetQtyPerUnitOfMeasure(Item,Item."Base Unit of Measure") /
    
                                UOMMgt.GetQtyPerUnitOfMeasure(
    
                                  Item,
    ...
    

    Meglévő 2. kód

    ...
                             BEGIN
    
                                 WHILE BomComponent[Level].NEXT = 0 DO BEGIN
    
                                   Level := Level - 1;
    
                                   IF Level <1 THEN
    
                                     CurrReport.BREAK;
    
    // Delete the following line.
                                  IF NOT UpperLevelItem.GET(NoList[Level]) THEN
    // End of the deleted line.
    
                                     UpperLevelItem."Production BOM No." := NoList[Level];
    
                                   BomComponent[Level].SETRANGE("Production BOM No.",UpperLevelItem."Production BOM No.");
    
                                   BomComponent[Level].SETRANGE("Version Code",VersionCode[Level]);
    
                                 END; 
    ...
    

    2-es helyettesítő kód

    ...
                              BEGIN
    
                                 WHILE BomComponent[Level].NEXT = 0 DO BEGIN
    
                                   Level := Level - 1;
    
                                   IF Level <1 THEN
    
                                     CurrReport.BREAK;
    
    // Add the following line.
                                  IF NoListType[NextLevel] = NoListType[NextLevel]::"Production BOM" THEN
    // End of the added line.
    
                                     UpperLevelItem."Production BOM No." := NoList[Level];
    
                                   BomComponent[Level].SETRANGE("Production BOM No.",UpperLevelItem."Production BOM No.");
    
                                   BomComponent[Level].SETRANGE("Version Code",VersionCode[Level]);
    
                                 END;
    ...
    

    Meglévő 3-as kód

    ...
                                      BEGIN
    
                                       CompItem.GET(BomComponent[Level]."No.");
    
                                       IF CompItem."Production BOM No."<>'' THEN BEGIN
    
                                         NextLevel := Level + 1;
    
                                         CLEAR(BomComponent[NextLevel]);
    
                                         NoList[NextLevel] := CompItem."No.";
    
                                         VersionCode[NextLevel] :=
    
                                           VersionMgt.GetBOMVersion(CompItem."Production BOM No.",CalculateDate,FALSE);
    
                                         BomComponent[NextLevel].SETRANGE("Production BOM No.",CompItem."Production BOM No.");
    
                                         BomComponent[NextLevel].SETRANGE("Version Code",VersionCode[NextLevel]);
    ...
    

    3-as helyettesítő kód

    ...
                                      BEGIN
    
                                       CompItem.GET(BomComponent[Level]."No.");
    
                                       IF CompItem."Production BOM No."<>'' THEN BEGIN
    
                                         NextLevel := Level + 1;
    
                                         CLEAR(BomComponent[NextLevel]);
    
    // Add the following line.
                                        NoListType[NextLevel] := NoListType[NextLevel]::Item;
    // End of the added line.
    
                                         NoList[NextLevel] := CompItem."No.";
    
                                         VersionCode[NextLevel] :=
    
                                           VersionMgt.GetBOMVersion(CompItem."Production BOM No.",CalculateDate,FALSE);
    
                                         BomComponent[NextLevel].SETRANGE("Production BOM No.",CompItem."Production BOM No.");
    
                                         BomComponent[NextLevel].SETRANGE("Version Code",VersionCode[NextLevel]);
    ...
    

    Meglévő 4-es kód

    ...
                                            CompItem,
    
                                             VersionMgt.GetBOMUnitOfMeasure(
    
                                               CompItem."Production BOM No.",VersionCode[NextLevel]));
    
                                       END;
    
                                       IF Level > 1 THEN BEGIN
    
    // Delete the following lines.
                                        IF BomItem.GET(BomComponent[Level - 1]."No.") THEN BEGIN
    
                                          QtyPerUnitOfMeasure :=
    
                                            UOMMgt.GetQtyPerUnitOfMeasure(BomItem,BomComponent[Level - 1]."Unit of Measure Code") /
    
                                            UOMMgt.GetQtyPerUnitOfMeasure(
    
                                              BomItem,VersionMgt.GetBOMUnitOfMeasure(BomItem."Production BOM No.",VersionCode[Level]));
    // End of the deleted lines.
    
                                         END;
    
                                       END;
    
                                     END;
    
                                   BomComponent[Level].Type::"Production BOM":
    
                                     BEGIN
    ...
    

    4-es helyettesítő kód

    ...
                                           CompItem,
    
                                             VersionMgt.GetBOMUnitOfMeasure(
    
                                               CompItem."Production BOM No.",VersionCode[NextLevel]));
    
                                       END;
    
                                       IF Level > 1 THEN BEGIN
    
    // Add the following lines.
                                        IF (BomComponent[Level - 1].Type = BomComponent[Level - 1].Type::Item) THEN BEGIN
    
                                          IF BomItem.GET(BomComponent[Level - 1]."No.") THEN BEGIN
    
                                            QtyPerUnitOfMeasure :=
    
                                              UOMMgt.GetQtyPerUnitOfMeasure(BomItem,BomComponent[Level - 1]."Unit of Measure Code") /
    
                                              UOMMgt.GetQtyPerUnitOfMeasure(
    
                                                BomItem,VersionMgt.GetBOMUnitOfMeasure(BomItem."Production BOM No.",VersionCode[Level]));
    
                                          END;
    // End of the added lines.
    
                                         END;
    
                                       END;
    
                                     END;
    
                                   BomComponent[Level].Type::"Production BOM":
    
                                     BEGIN
    ...
    

    Meglévő 5-ös kód

    ...
                                 BomComponent[Level].Type::"Production BOM":
    
                                     BEGIN
    
                                       ProdBOM.GET(BomComponent[Level]."No.");
    
                                       NextLevel := Level + 1;
    
                                       CLEAR(BomComponent[NextLevel]);
    
                                       NoList[NextLevel] := ProdBOM."No.";
    
                                       VersionCode[NextLevel] := VersionMgt.GetBOMVersion(ProdBOM."No.",CalculateDate,FALSE);
    
                                       BomComponent[NextLevel].SETRANGE("Production BOM No.",NoList[NextLevel]);
    
                                       BomComponent[NextLevel].SETRANGE("Version Code",VersionCode[NextLevel]);
    
                                       BomComponent[NextLevel].SETFILTER("Starting Date",'%1|..%2',0D,CalculateDate); 
    ...
    

    5-ös helyettesítő kód

    ...
                                BomComponent[Level].Type::"Production BOM":
    
                                     BEGIN
    
                                       ProdBOM.GET(BomComponent[Level]."No.");
    
                                       NextLevel := Level + 1;
    
                                       CLEAR(BomComponent[NextLevel]);
    
    // Add the following line.
                                      NoListType[NextLevel] := NoListType[NextLevel]::"Production BOM";
    // End of the added line.
    
                                       NoList[NextLevel] := ProdBOM."No.";
    
                                       VersionCode[NextLevel] := VersionMgt.GetBOMVersion(ProdBOM."No.",CalculateDate,FALSE);
    
                                       BomComponent[NextLevel].SETRANGE("Production BOM No.",NoList[NextLevel]);
    
                                       BomComponent[NextLevel].SETRANGE("Version Code",VersionCode[NextLevel]);
    
                                       BomComponent[NextLevel].SETFILTER("Starting Date",'%1|..%2',0D,CalculateDate);
    ...
    
  2. Módosítsa a kódot a Globális változók között az anyagjegyzék mennyiségi robbantása jelentésben (99000753) a következők szerint:
    Meglévő kód

    ...
          Quantity@1013 : ARRAY [99] OF Decimal;
    
            QtyPerUnitOfMeasure@1014 : Decimal;
    
            Level@1015 : Integer;
    
            NextLevel@1016 : Integer;
    
            BOMQty@1017 : Decimal;
    
    
    
          BEGIN
    
          END.
    
        }
    
        RDLDATA
    ...
    

    Helyettesítő kód

    ...
           Quantity@1013 : ARRAY [99] OF Decimal;
    
            QtyPerUnitOfMeasure@1014 : Decimal;
    
            Level@1015 : Integer;
    
           NextLevel@1016 : Integer;
    
            BOMQty@1017 : Decimal;
    
    // Add the following line.
           NoListType@1018 : ARRAY [99] OF ' ,Item,Production BOM';
    // End of the added line.  
    
          BEGIN
    
          END.
    
        }
    
        RDLDATA
    ...
    

          

Előfeltételek

A gyorsjavítás alkalmazásához az alábbi termékek egyikének telepítve kell lennie:

  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
  • Microsoft Dynamics NAV 2009 R2

                
              

Eltávolítással kapcsolatos információk

Ez a gyorsjavítás nem távolítható el.

Állapot

A Microsoft megerősítette, hogy ez egy olyan probléma a Microsoft-termékekben, amely az „Érintett szolgáltatás“ című szakaszban van felsorolva.

Hivatkozások

VSTF DynamicsNAV SE: 251802

Megjegyzés: Ez egy "GYORS KÖZZÉTÉTELŰ" cikk, amelyet közvetlenül a Microsoft támogatási szervezete készített. A dokumentumban szereplő információkat adott formában bocsátjuk rendelkezésre, a felmerülő problémákra adott válaszként. A rendelkezésre bocsátás gyorsasága következtében az anyagok sajtóhibákat tartalmazhatnak, és bármikor, előzetes értesítés nélkül felülvizsgálhatók. További szempontokat a használati feltételekben talál.