הדוח Fill Liquidity Journal (5055250) מציג ערכים שגויים כאשר הזמנה שהתשלום מראש זמין בה מעורב בגירסה הגרמנית של Microsoft Dynamics NAV 2009

מאמר זה חל על Microsoft Dynamics NAV עבור אזור השפה הגרמנית (de).

סימפטומים

נניח שאתה משתמש במכירות ורכישת מסמכים בגירסה הגרמנית של Microsoft Dynamics NAV 2009. יש לך הזמנה הכוללת יותר משורה אחת והתשלום מראש זמין. במצב זה, בעת הפעלת הדוח מילוי יומן נוזלים (5055250) הכולל את הסדר מעורב, מוצגים ערכים שגויים.
בעיה זו מתרחשת במוצרים הבאים:

• הגירסה הגרמנית של Microsoft Dynamics NAV 2009 R2
• הגירסה הגרמנית של Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

פתרון

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

תיקון חם נתמך זמין כעת מ- Microsoft. עם זאת, הוא מיועד רק לתיקון הבעיה המתוארת במאמר זה. החל אותו רק על מערכות שנתקלות בבעיה ספציפית זו. תיקון חם זה עשוי לקבל בדיקות נוספות. לכן, אם אתה לא מושפע באופן חמור מבעיה זו, מומלץ להמתין ל- Service Pack הבא של Microsoft Dynamics NAV או לגירסת 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. הוסף משתנה מקומי חדש בגורם המפעיל Sales Line - OnAfterGetRecord בדוח Fill Liquidity Journal (5055250), ציין את המשתנה באופן הבא:

   • שם: CurrencyLCY
   • סוג נתונים: רשומה
   • סוג משנה: מטבע (4)

2. הוסף משתנה מקומי חדש בגורם המפעיל Sales Line - OnAfterGetRecord בדוח Fill Liquidity Journal (5055250), ציין את המשתנה באופן הבא:

   • Name: PrevDocNo
   • סוג נתונים: קוד
   • אורך: 20

3. הוסף משתנה מקומי חדש בגורם המפעיל Sales Line - OnAfterGetRecord בדוח Fill Liquidity Journal (5055250), ציין את המשתנה באופן הבא:

   • שם: AmountLCY
   • סוג נתונים: עשרוני

4. הוסף משתנה מקומי חדש בגורם המפעיל Sales Line - OnAfterGetRecord בדוח Fill Liquidity Journal (5055250), ציין את המשתנה באופן הבא:

   • Name: RemainderAmountLCY
   • סוג נתונים: עשרוני

5. הוסף משתנה מקומי חדש בגורם המפעיל Sales Line - OnAfterGetRecord בדוח Fill Liquidity Journal (5055250), ציין את המשתנה באופן הבא:

   • שם: PrepmtAmtInclVAT
   • סוג נתונים: עשרוני

6. שנה את הקוד בגורם המפעיל Sales Line - OnAfterGetRecord בדוח Fill Liquidity Journal (5055250) באופן הבא:
   קוד קיים 1

   ...
   PurchHeader.GET("Purchase Line"."Document Type","Purchase Line"."Document No.");
   WITH LiqLine2 DO BEGIN
   ...
   

   קוד חלופי 1

   ...
   PurchHeader.GET("Purchase Line"."Document Type","Purchase Line"."Document No.");
   
   // Add the following lines.
   IF (PurchHeader."Currency Code" <> '') AND (PrevDocNo <> PurchHeader."No.") THEN BEGIN
   RemainderAmountLCY := 0;
   PurchHeader.TESTFIELD("Currency Factor");
   CurrencyLCY.InitRoundingPrecision;
   PrevDocNo := PurchHeader."No.";
   END;
   // End of lines.
   
   WITH LiqLine2 DO BEGIN
   ...
   

   קוד קיים 2

   ...
   // Delete the following lines.
   IF "Purchase Line"."Prepmt. Amt. Inv." <> 0 THEN BEGIN
   PurchInvHeader.RESET;
   PurchInvHeader.SETCURRENTKEY("Prepayment Order No.");
   PurchInvHeader.SETRANGE("Prepayment Order No.","Purchase Line"."Document No.");
   IF PurchInvHeader.FIND('-') THEN REPEAT
   VendorLedgerEntry.RESET;
   VendorLedgerEntry.SETCURRENTKEY("Document No.");
   VendorLedgerEntry.SETRANGE("Document No.",PurchInvHeader."No.");
   VendorLedgerEntry.SETRANGE("Posting Date",PurchInvHeader."Posting Date");
   IF VendorLedgerEntry.FIND('-') THEN REPEAT
   VendorLedgerEntry.CALCFIELDS("Remaining Amt. (LCY)","Remaining Amount");
   "Amount (Currency)" := "Amount (Currency)" - VendorLedgerEntry."Remaining Amount";
   Amount := Amount - VendorLedgerEntry."Remaining Amt. (LCY)";
   UNTIL VendorLedgerEntry.NEXT = 0;
   UNTIL PurchInvHeader.NEXT = 0;
   END;
   // End of the lines.
   ...
   

   קוד חלופי 2

   ...
   // Add the following lines.
   PrepmtAmtInclVAT := ROUND("Purchase Line"."Prepmt. Amt. Inv." * (1 + ("Purchase Line"."Prepayment VAT %" / 100)),
   CurrencyLCY."Amount Rounding Precision");
   IF PrepmtAmtInclVAT <> 0 THEN BEGIN
   "Amount (Currency)" := "Amount (Currency)" - PrepmtAmtInclVAT;
   IF PurchHeader."Currency Code" = '' THEN
   Amount := Amount - PrepmtAmtInclVAT
   ELSE BEGIN
   AmountLCY := RemainderAmountLCY + PrepmtAmtInclVAT / PurchHeader."Currency Factor";
   RemainderAmountLCY := AmountLCY - ROUND(AmountLCY,CurrencyLCY."Amount Rounding Precision");
   Amount := Amount - ROUND(AmountLCY,CurrencyLCY."Amount Rounding Precision");
   END;
   END;
   // End of the lines.
   ...
   

7. הוסף משתנה מקומי חדש בגורם המפעיל PurchaseLine - OnAfterGetRecord בדוח יומן נוזלים של מילוי (5055250), ציין את המשתנה באופן הבא:

   • שם: CurrencyLCY
   • סוג נתונים: רשומה
   • סוג משנה: מטבע (4)

8. הוסף משתנה מקומי חדש בגורם המפעיל PurchaseLine - OnAfterGetRecord בדוח יומן נוזלים של מילוי (5055250), ציין את המשתנה באופן הבא:

   • Name: PrevDocNo
   • סוג נתונים: קוד
   • אורך: 20

9. הוסף משתנה מקומי חדש בגורם המפעיל PurchaseLine - OnAfterGetRecord בדוח יומן נוזלים של מילוי (5055250), ציין את המשתנה באופן הבא:

   • שם: AmountLCY
   • סוג נתונים: עשרוני

10. הוסף משתנה מקומי חדש בגורם המפעיל PurchaseLine - OnAfterGetRecord בדוח יומן נוזלים של מילוי (5055250), ציין את המשתנה באופן הבא:

    • Name: RemainderAmountLCY
    • סוג נתונים: עשרוני

11. הוסף משתנה מקומי חדש בגורם המפעיל PurchaseLine - OnAfterGetRecord בדוח יומן נוזלים של מילוי (5055250), ציין את המשתנה באופן הבא:

    • שם: PrepmtAmtInclVAT
    • סוג נתונים: עשרוני

12. שנה את הקוד בגורם המפעיל PurchaseLine - OnAfterGetRecord בדוח יומן נזילות מילוי (5055250) באופן הבא:
    קוד קיים 1

    ...
    PurchHeader.GET("Purchase Line"."Document Type","Purchase Line"."Document No.");
    WITH LiqLine2 DO BEGIN
    ...
    

    קוד חלופי 1

    ...
    PurchHeader.GET("Purchase Line"."Document Type","Purchase Line"."Document No.");
    
    // Add the following lines.
    IF (PurchHeader."Currency Code" <> '') AND (PrevDocNo <> PurchHeader."No.") THEN BEGIN
    RemainderAmountLCY := 0;
    PurchHeader.TESTFIELD("Currency Factor");
    CurrencyLCY.InitRoundingPrecision;
    PrevDocNo := PurchHeader."No.";
    END;
    // End of the lines.
    
    WITH LiqLine2 DO BEGIN
    ...
    

    קוד קיים 2

    ...
    // Delete the following lines.
    IF "Purchase Line"."Prepmt. Amt. Inv." <> 0 THEN BEGIN
    PurchInvHeader.RESET;
    PurchInvHeader.SETCURRENTKEY("Prepayment Order No.");
    PurchInvHeader.SETRANGE("Prepayment Order No.","Purchase Line"."Document No.");
    IF PurchInvHeader.FIND('-') THEN REPEAT
    VendorLedgerEntry.RESET;
    VendorLedgerEntry.SETCURRENTKEY("Document No.");
    VendorLedgerEntry.SETRANGE("Document No.",PurchInvHeader."No.");
    VendorLedgerEntry.SETRANGE("Posting Date",PurchInvHeader."Posting Date");
    IF VendorLedgerEntry.FIND('-') THEN REPEAT
    VendorLedgerEntry.CALCFIELDS("Remaining Amt. (LCY)","Remaining Amount");
    "Amount (Currency)" := "Amount (Currency)" - VendorLedgerEntry."Remaining Amount";
    Amount := Amount - VendorLedgerEntry."Remaining Amt. (LCY)";
    UNTIL VendorLedgerEntry.NEXT = 0;
    UNTIL PurchInvHeader.NEXT = 0;
    END;
    // End of the lines.
    ...
    

    קוד חלופי 2

    ...
    // Add the following lines.
    PrepmtAmtInclVAT := ROUND("Purchase Line"."Prepmt. Amt. Inv." * (1 + ("Purchase Line"."Prepayment VAT %" / 100)),
    CurrencyLCY."Amount Rounding Precision");
    IF PrepmtAmtInclVAT <> 0 THEN BEGIN
    "Amount (Currency)" := "Amount (Currency)" + PrepmtAmtInclVAT;
    IF PurchHeader."Currency Code" = '' THEN
    Amount := Amount + PrepmtAmtInclVAT
    ELSE BEGIN
    AmountLCY := RemainderAmountLCY + PrepmtAmtInclVAT / PurchHeader."Currency Factor";
    RemainderAmountLCY := AmountLCY - ROUND(AmountLCY,CurrencyLCY."Amount Rounding Precision");
    Amount := Amount + ROUND(AmountLCY,CurrencyLCY."Amount Rounding Precision");
    END;
    END;
    // End of the lines.
    ...
    

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

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

• הגירסה הגרמנית של Microsoft Dynamics NAV 2009 R2
• הגירסה הגרמנית של Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

מידע על הסרה

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

מצב

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

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