הנחות התשלום מחושב לא צפויה בעת רישום חשבונית ב- Microsoft Dynamics NAV 2009

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

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

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

מידע על ההתקנה

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

הערה לפני התקנת תיקון חם זה, ודא כי כל המשתמשים לקוח Microsoft Dynamics NAV אינם מחוברים למערכת. זה כולל שירותי Microsoft Dynamics NAV יישום שרת (NAS). אתה אמור להיות לקוח בלבד המשתמש המחובר כאשר ליישם תיקון חם זה.

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

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

• שנה את ההרשאה עבור האובייקט שינוי.

• הרשאת Execute עבור האובייקט 5210 מזהה אובייקט מערכת ועבור 9015 מזהה אובייקט מערכת
  
  אובייקט.

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

שינויי קוד

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

כדי לפתור בעיה זו, בצע את הפעולות הבאות:

1. לשנות את הקוד בפונקציה PostCust Jnl Gen..-Codeunit קו Post (12) כפי שמוצג להלן:
   קוד קיים 1

   ...InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,CVLedgEntryBuf,TRUE);
             CVLedgEntryBuf.Open := CVLedgEntryBuf."Remaining Amount" <> 0;
             CVLedgEntryBuf.Positive := CVLedgEntryBuf."Remaining Amount" > 0;
   
             IF "Amount (LCY)" <> 0 THEN BEGIN
               IF GLSetup."Pmt. Disc. Excl. VAT" THEN
                 CVLedgEntryBuf."Original Pmt. Disc. Possible" := "Sales/Purch. (LCY)" * Amount / "Amount (LCY)"
               ELSE
                 CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
               CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
   ...
   

   קוד החלפה 1

   ...InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,CVLedgEntryBuf,TRUE);
             CVLedgEntryBuf.Open := CVLedgEntryBuf."Remaining Amount" <> 0;
             CVLedgEntryBuf.Positive := CVLedgEntryBuf."Remaining Amount" > 0;
   
             IF "Amount (LCY)" <> 0 THEN BEGIN
   
   // Add the following lines.
             IF (CVLedgEntryBuf."Pmt. Discount Date" >= CVLedgEntryBuf."Posting Date") OR
                (CVLedgEntryBuf."Pmt. Discount Date" = 0D) THEN BEGIN
   // End of the added lines.
   
               IF GLSetup."Pmt. Disc. Excl. VAT" THEN
                 CVLedgEntryBuf."Original Pmt. Disc. Possible" := "Sales/Purch. (LCY)" * Amount / "Amount (LCY)"
               ELSE
                 CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
               CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
   ...
   

   קוד קיים 2

   ...CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
               CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
                 ROUND(
                   CVLedgEntryBuf."Original Pmt. Disc. Possible" * "Payment Discount %" / 100,
                   Currency."Amount Rounding Precision"); 
               CVLedgEntryBuf."Remaining Pmt. Disc. Possible" := CVLedgEntryBuf."Original Pmt. Disc. Possible";
             END;
   
             IF "Currency Code" <> '' THEN BEGIN
               TESTFIELD("Currency Factor");
   ...
   

   קוד החלפה 2

   ...CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
               CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
                 ROUND(
                   CVLedgEntryBuf."Original Pmt. Disc. Possible" * "Payment Discount %" / 100,
                   Currency."Amount Rounding Precision");
   
   // Add the following line.
              END;
   // End of the added line.
   
               CVLedgEntryBuf."Remaining Pmt. Disc. Possible" := CVLedgEntryBuf."Original Pmt. Disc. Possible";
             END;
   
             IF "Currency Code" <> '' THEN BEGIN
               TESTFIELD("Currency Factor");
   ...
   

2. לשנות את הקוד בפונקציה PostVend Jnl Gen..-Codeunit קו Post (12) כפי שמוצג להלן:
   קוד קיים 1

   ...InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,CVLedgEntryBuf,TRUE);
             CVLedgEntryBuf.Open := CVLedgEntryBuf."Remaining Amount" <> 0;
             CVLedgEntryBuf.Positive := CVLedgEntryBuf."Remaining Amount" > 0;
   
             IF "Amount (LCY)" <> 0 THEN BEGIN
               IF GLSetup."Pmt. Disc. Excl. VAT" THEN
                 CVLedgEntryBuf."Original Pmt. Disc. Possible" := "Sales/Purch. (LCY)" * Amount / "Amount (LCY)"
               ELSE
                 CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
   ...
   

   קוד החלפה 1

   ...InsertDtldCVLedgEntry(DtldCVLedgEntryBuf,CVLedgEntryBuf,TRUE);
             CVLedgEntryBuf.Open := CVLedgEntryBuf."Remaining Amount" <> 0;
             CVLedgEntryBuf.Positive := CVLedgEntryBuf."Remaining Amount" > 0;
   
             IF "Amount (LCY)" <> 0 THEN BEGIN
   
   // Add the following lines.
             IF (CVLedgEntryBuf."Pmt. Discount Date" >= CVLedgEntryBuf."Posting Date") OR
                (CVLedgEntryBuf."Pmt. Discount Date" = 0D) THEN BEGIN
   // End of the added lines.
   
               IF GLSetup."Pmt. Disc. Excl. VAT" THEN
                 CVLedgEntryBuf."Original Pmt. Disc. Possible" := "Sales/Purch. (LCY)" * Amount / "Amount (LCY)"
               ELSE
                 CVLedgEntryBuf."Original Pmt. Disc. Possible" := Amount;
   ...
   

   קוד קיים 2

   ...
   CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
                 ROUND(
                   CVLedgEntryBuf."Original Pmt. Disc. Possible" * "Payment Discount %" / 100,
                   Currency."Amount Rounding Precision");
               CVLedgEntryBuf."Remaining Pmt. Disc. Possible" := CVLedgEntryBuf."Original Pmt. Disc. Possible";
             END;
   
             IF "Currency Code" <> '' THEN BEGIN
               TESTFIELD("Currency Factor");
   ...
   

   קוד החלפה 2

   ...CVLedgEntryBuf."Original Pmt. Disc. Possible" :=
                 ROUND(
                   CVLedgEntryBuf."Original Pmt. Disc. Possible" * "Payment Discount %" / 100,
                   Currency."Amount Rounding Precision");
   
   // Add the following line.
              END;
   // End of the added line.
   
               CVLedgEntryBuf."Remaining Pmt. Disc. Possible" := CVLedgEntryBuf."Original Pmt. Disc. Possible";
             END;
   
             IF "Currency Code" <> '' THEN BEGIN
               TESTFIELD("Currency Factor");
   ...
   

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

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

• Microsoft Dynamics NAV 2009 ה-Service Pack 1

• Microsoft Dynamics R2 2009 סרגל ניווט

מידע בדבר הסרת ההתקנה

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