עלות היחידה של פריטים הופכת שלילית לאחר הפעלת ההערכת פריטים המשתמשים בפעולת השירות Average costing ב- Microsoft Dynamics NAV

חל על
Dynamics NAV 2009 Service Pack 1 Dynamics NAV 2009 Microsoft Dynamics NAV 5.0 Service Pack 1

מאמר זה חל על Microsoft Dynamics NAV עבור כל המדינות ואזורי השפות.

סימפטומים

נניח שיש לך פריט שמשתמש בפעולת השירות Average costing. בעת הפעלת הערכת הפריט, עלות היחידה של הפריט הופכת שלילית באופן בלתי צפוי. בנוסף, אתה נתקל בביצועים איטיים בעת ביצוע משימת האצווה התאמת עלות עבור הפריט.
בעיה זו מתרחשת במוצרים הבאים:

  • Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)
  • Microsoft Dynamics NAV 2009
  • Microsoft Dynamics NAV 5.0 Service Pack 1 (SP1) עם תיקון 975251 הוחל

הערה לקבלת מידע נוסף אודות תיקון 975251, לחץ על מספר המאמר הבא כדי להציג את המאמר מתוך מאגר הידע Microsoft Knowledge Base:

975251 אתה נתקל בביצועים איטיים בעת ביצוע משימת האצווה התאמת עלות עבור העלות הממוצעת ב- Microsoft Dynamics NAV 5.0

פתרון

מידע אודות תיקונים חמים

תיקון חם נתמך זמין כעת מ- Microsoft. עם זאת, הוא מיועד רק לתיקון הבעיה המתוארת במאמר זה. החל אותו רק על מערכות שנתקלות בבעיה ספציפית זו. תיקון חם זה עשוי לקבל בדיקות נוספות. לכן, אם אתה לא מושפע באופן חמור מבעיה זו, מומלץ להמתין ל- Service Pack הבא של Microsoft Dynamics NAV 2009 או לגירסת MICROSOFT Dynamics NAV הבאה המכילה תיקון חם זה.

הערה במקרים מיוחדים, חיובים שנצבורים בדרך כלל עבור שיחות תמיכה עשויים להבוטל אם מומחה תמיכה טכנית עבור Microsoft Dynamics ומוצרים קשורים קובע שעדכון ספציפי יפתור את הבעיה. עלויות התמיכה הרגילות יחולו על שאלות ובעיות תמיכה נוספות שלא עומדות בדרישות לעדכון הספציפי הרלוונטי.

            
          

מידע התקנה

Microsoft מספקת דוגמאות תיכנות לאיור בלבד, ללא אחריות, מפורשת או משתמעת. הדבר כולל, אך אינו מוגבל לאחריות המשתמעת של סוחר או התאמה למטרה מסוימת. מאמר זה מבוסס על ההנחה שאתה מכיר את שפת התיכנות המודגמת, עם הכלים המשמשים ליצירת הליכים ולאתר באגים. מהנדסי התמיכה של Microsoft יכולים לעזור להסביר את הפונקציונליות של הליך מסוים, אך הם לא ישנו דוגמאות אלה כדי לספק פונקציונליות נוספת או לבנות הליכים שיסייעו לך לעמוד בדרישות הספציפיות שלך.

הערה לפני התקנת תיקון חם זה, ודא כי כל משתמשי לקוח Microsoft Navision נרשם המערכת. הדבר כולל משתמשי לקוח של Microsoft Navision Application Services (NAS). עליך להיות משתמש הלקוח היחיד שנכנס בעת יישום תיקון חם זה.

כדי ליישם תיקון חם זה, דרוש לך רשיון מפתח.

אנו ממליצים להקצות לחשבון המשתמש בחלון כניסות Windows או בחלון כניסות מסד נתונים את מזהה התפקיד "SUPER". אם אין אפשרות להקצות לחשבון המשתמש את מזהה התפקיד "SUPER", עליך לוודא שלחשבון המשתמש יש את ההרשאות הבאות:

  • ההרשאה Modify עבור האובייקט שאתה תשנה.
  • ההרשאה Execute עבור אובייקט System Object ID 5210 ולאובייקט System Object ID 9015.

                
הערה אין צורך להחזיק בזכויות על מאגרי הנתונים אלא אם עליך לבצע תיקון נתונים.

שינויי קוד

הערה בדוק תמיד את תיקוני הקוד בסביבה מבוקרת לפני החלת התיקונים על מחשבי הייצור שלך.
כדי לפתור בעיה זו, בצע את הפעולות הבאות:

  1. שנה את הקוד בפונקציה AvgValueEntriesToAdjustExist ב- codeunit התאמת מלאי (5895) לנוסחה הבאה:

    ...
             IF FindNextRange THEN BEGIN
               AvgCostAdjmtEntryPoint."Valuation Date" := GetNextDate(AvgCostAdjmtEntryPoint."Valuation Date");
               AvgValueEntriesToAdjustExist(OutbndValueEntry,ExcludedValueEntry,AvgCostAdjmtEntryPoint);
             END;  
    
      // Add the following line.
      OutbndValueEntry.SETCURRENTKEY("Item Ledger Entry No."); 
    
    ...
    
  2. שנה את הקוד בפונקציה IsExcludeEntryFromAvgCostCalc ב- codeunit של התאמת מלאי (5895) לקוד הבא:

    ...
             IF NOT "Valued By Average Cost" THEN
               EXIT(FALSE);
             ItemLedgEntry.GET("Item Ledger Entry No.");
             IF ItemLedgEntry.Positive THEN
               EXIT(FALSE);
    
    // Delete the following line.
    EXIT(TRUE); 
    
    // Add the following line.
           EXIT("Item Ledger Entry No." > OutbndValueEntry."Item Ledger Entry No."); 
    ...
    
    ...
        // Delete the following lines.
        LOCAL PROCEDURE GetEntryNoToStartAt@78
        BEGIN
          StartAt := 0;
          WITH ExcludedValueEntry DO BEGIN
            RESET;
            IF FINDFIRST THEN
              REPEAT
                IF "Partial Revaluation" AND
                   (OutbndValueEntry."Entry No." > "Entry No.")
                THEN
                  StartAt := "Entry No.";
              UNTIL NEXT = 0;
          END;
          EXIT(StartAt + 1);
        END;
        // End of the lines.
    ...
    
  3. שנה את הקוד בפונקציה AdjustItemAvgCost ב- codeunit התאמת מלאי (5895) לקוד הבא:

    ...
                WHILE NOT Restart AND AvgValueEntriesToAdjustExist(
                        TempOutbndValueEntry,TempExcludedValueEntry,AvgCostAdjmtEntryPoint)
                DO BEGIN
                  REPEAT
    
                    // Delete the following lines.
                    TempExcludedValueEntry.SETFILTER("Entry No.",'>=%1',                          
                      GetEntryNoToStartAt(TempOutbndValueEntry,TempExcludedValueEntry)); 
                    // End of the lines.
    
                    AdjustOutbndAvgEntry(TempOutbndValueEntry,TempExcludedValueEntry);
                    UpdateConsumpAvgEntry(TempOutbndValueEntry);
                  UNTIL TempOutbndValueEntry.NEXT = 0;
    ...
    
  4. שנה את הקוד בפונקציה IsExcludeEntryFromAvgCostCalc ב- codeunit של התאמת מלאי (5895) לקוד הבא:

    ...
        BEGIN
          WITH ValueEntry DO BEGIN
            IF "Partial Revaluation" THEN         
    
              // Delete the following line.
              EXIT(TRUE);                                                                           
    
              // Add the following lines.
              EXIT(                                                                                 
                ("Entry No." > OutbndValueEntry."Entry No.") OR                                     
                (("Entry No." < OutbndValueEntry."Entry No.") AND NOT                               
                 IncludedInCostCalculation(ValueEntry,OutbndValueEntry."Item Ledger Entry No.")));  
              // End of the lines.
    
            IF "Item Ledger Entry No." = OutbndValueEntry."Item Ledger Entry No." THEN
              EXIT(TRUE);
    ...
    

דרישות מוקדמות

דרוש לך אחד המוצרים הבאים מותקנים כדי להחיל תיקון חם זה:

  • Microsoft Dynamics NAV 2009 Service Pack 1
  • Microsoft Dynamics NAV 2009
  • Microsoft Dynamics NAV 5.0 Service Pack 1 עם תיקון 975251 הוחל

מידע על הסרה

אין באפשרותך להסיר תיקון חם זה.

מצב

Microsoft אישרה שזוהי בעיה במוצרי Microsoft המפורטים בסעיף "חל על".

הערה זהו מאמר "FAST PUBLISH" שנוצר ישירות מתוך ארגון התמיכה של Microsoft. המידע הכלול ב- Herein מסופק כפי שהוא בתגובה לבעיות מתפתחות. כתוצאה מההפיכתה לזמינה, החומרים עשויים לכלול שגיאות טיפוגרפיות וייתכן שיתוקנו בכל עת ללא הודעה מוקדמת. ראה תנאי שימוש לקבלת שיקולים אחרים.