סכום הנחת חשבונית מחושב באופן שגוי בעת חישוב הסטטיסטיקה של חשבונית רכישה הפורטוגזית בגירסה של 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. שנה את הקוד בפונקציה CalculateInvoiceDiscount ב Codeunit הנחה (60) של Calc. מכירות כדלהלן:
   קוד קיים 1

   ...GLAcc@1110002 : Record 15;
         BEGIN
   ...
   

   קוד החלפה 1

   ...GLAcc@1110002 : Record 15;
   
   // Add the following lines.
          TempSalesLineRemainder@1110000 : Record 37;
          TotRoundedInvDiscAmt@1110001 : Decimal;
          TotRoundedPmtDiscAmt@1110003 : Decimal;
   // End of the added lines.
   
         BEGIN
   ...
   

   קוד קיים 2

   ...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
   
   // Delete the following lines.
   SalesLine2."Inv. Discount Amount" :=
     ROUND(SalesLine2."Line Amount" * CustInvDisc."Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
     SalesLine2."Inv. Discount Amount" :=
       ROUND(
         (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
         CustInvDisc."Discount %" / 100,0.01);
       END;
   // End of the deleted lines.
   
                     IF GLSetup."Payment Discount Type" =
   ...
   

   קוד החלפה 2

   ...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
   
   // Add the following lines.
   BEGIN
     TempSalesLineRemainder."Inv. Discount Amount" +=
       SalesLine2."Line Amount" * CustInvDisc."Discount %" / 100;
     SalesLine2."Inv. Discount Amount" :=
       CalcRoundedAmt(TempSalesLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
   END;
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
   BEGIN
     TempSalesLineRemainder."Inv. Discount Amount" +=
         (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
         CustInvDisc."Discount %" / 100;
     SalesLine2."Inv. Discount Amount" :=
       CalcRoundedAmt(TempSalesLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
   END;
   END;
   // End of the added lines.
   
                     IF GLSetup."Payment Discount Type" =
   ...
   

   קוד קיים 3

   ...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
   
   // Delete the following lines.
     SalesLine2."Pmt. Disc. Given Amount" :=
       ROUND(
         (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount")
         * SalesHeader."Payment Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
     SalesLine2."Pmt. Disc. Given Amount" :=
       ROUND(
         (SalesLine2."Line Amount" - SalesLine2."Inv. Discount Amount") *
         SalesHeader."Payment Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
     SalesLine2."Pmt. Disc. Given Amount" :=
       ROUND(
         (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount") *
         SalesHeader."Payment Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
     SalesLine2."Pmt. Disc. Given Amount" :=
       ROUND(
         (SalesLine2."Line Amount" - SalesLine2."Inv. Discount Amount") *
         SalesHeader."Payment Discount %" / 100,0.01);
   // End of the deleted lines.
   
                       END;
   ...
   

   קוד החלפה 3

   ...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
   
   // Add the following lines.
      BEGIN
       TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
           (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
           SalesHeader."Payment Discount %" / 100;
       SalesLine2."Pmt. Disc. Given Amount" :=
         CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
     BEGIN
       TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
           (SalesLine2."Line Amount" - SalesLine2."Line Discount Amount" ) *
           SalesHeader."Payment Discount %" / 100;
       SalesLine2."Pmt. Disc. Given Amount" :=
         CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
     BEGIN
       TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
           (SalesLine2."Line Amount" + SalesLine2."Line Discount Amount" ) *
           SalesHeader."Payment Discount %" / 100;
       SalesLine2."Pmt. Disc. Given Amount" :=
         CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
     BEGIN
       TempSalesLineRemainder."Pmt. Disc. Given Amount" +=
           (SalesLine2."Line Amount" - SalesLine2."Line Discount Amount" ) *
           SalesHeader."Payment Discount %" / 100;
       SalesLine2."Pmt. Disc. Given Amount" :=
         CalcRoundedAmt(TempSalesLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   // End of the added lines.
   
                       END;
   ...
   

2. צור פונקציה ב- Codeunit הנחה (60) של Calc. מכירות כדלהלן:

   PROCEDURE CalcRoundedAmt@1110000(TotAmt@1110000 : Decimal;VAR TotAmtRnded@1110001 : Decimal;AmountRoundingPrecision@1110002 : Decimal) RndAmt : Decimal;BEGIN
   RndAmt := ROUND(TotAmt,AmountRoundingPrecision) - TotAmtRnded;
   TotAmtRnded := TotAmtRnded + RndAmt;
   END;
   

3. לשנות את הקוד בפונקציה CalculateInvoiceDiscount ורכישה.-Calc.Discount Codeunit (70) כפי שמוצג להלן:
   קוד קיים 1

   ...GLAcc@1110002 : Record 15;
         BEGIN
   ...
   

   קוד החלפה 1

   ...GLAcc@1110002 : Record 15;
   
   // Add the following lines.
   TempPurchLineRemainder@1110000 : Record 39;
   TotRoundedInvDiscAmt@1110001 : Decimal;
   TotRoundedPmtDiscAmt@1110004 : Decimal;
   // End of the added lines.
   
         BEGIN
   ...
   

   קוד קיים 2

   ...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
   
   // Delete the following lines.
     PurchLine2."Inv. Discount Amount" :=
       ROUND(PurchLine2."Line Amount" * VendInvDisc."Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
       PurchLine2."Inv. Discount Amount" :=
         ROUND(
           (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
           VendInvDisc."Discount %" / 100,0.01);
   // End of the deleted lines.
   
                 END;
   ...
   

   קוד החלפה 2

   ...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
   
   // Add the following lines.
     BEGIN
       TempPurchLineRemainder."Inv. Discount Amount" +=
         PurchLine2."Line Amount" * VendInvDisc."Discount %" / 100;
       PurchLine2."Inv. Discount Amount" :=
         CalcRoundedAmt(TempPurchLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
     BEGIN
       TempPurchLineRemainder."Inv. Discount Amount" +=
           (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
           VendInvDisc."Discount %" / 100;
       PurchLine2."Inv. Discount Amount" :=
         CalcRoundedAmt(TempPurchLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
     END;
   // End of the added lines.
   
                 END;
   ...
   

   קוד קיים 3

   ...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
   
   // Delete the following lines.
     PurchLine2."Pmt. Disc. Rcd. Amount" :=
       ROUND(
         (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount") *
         PurchHeader."Payment Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
      PurchLine2."Pmt. Disc. Rcd. Amount" :=
        ROUND(
          (PurchLine2."Line Amount" - PurchLine2."Inv. Discount Amount") *
          PurchHeader."Payment Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
      PurchLine2."Pmt. Disc. Rcd. Amount" :=
          ROUND(
          (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount") *
          PurchHeader."Payment Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
      PurchLine2."Pmt. Disc. Rcd. Amount" :=
        ROUND(
          (PurchLine2."Line Amount" - PurchLine2."Inv. Discount Amount") *
          PurchHeader."Payment Discount %" / 100,0.01);
   // End of the deleted lines.
   
                        END;
   ...
   

   קוד החלפה 3

   ...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
   
   // Add the following lines.
     BEGIN
       TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
           (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
           PurchHeader."Payment Discount %" / 100;
       PurchLine2."Pmt. Disc. Rcd. Amount" :=
         CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
     BEGIN
       TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
           (PurchLine2."Line Amount" - PurchLine2."Line Discount Amount" ) *
           PurchHeader."Payment Discount %" / 100;
       PurchLine2."Pmt. Disc. Rcd. Amount" :=
         CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
     BEGIN
       TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
           (PurchLine2."Line Amount" + PurchLine2."Line Discount Amount" ) *
           PurchHeader."Payment Discount %" / 100;
       PurchLine2."Pmt. Disc. Rcd. Amount" :=
         CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
     BEGIN
       TempPurchLineRemainder."Pmt. Disc. Rcd. Amount" +=
           (PurchLine2."Line Amount" - PurchLine2."Line Discount Amount" ) *
           PurchHeader."Payment Discount %" / 100;
       PurchLine2."Pmt. Disc. Rcd. Amount" :=
         CalcRoundedAmt(TempPurchLineRemainder."Pmt. Disc. Rcd. Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   // End of the added lines.
   
                        END;
   ...
   

4. צור פונקציה ורכישה.-Calc.Discount Codeunit (70) כפי שמוצג להלן:

   PROCEDURE CalcRoundedAmt@1110000(TotAmt@1110000 : Decimal;VAR TotAmtRnded@1110001 : Decimal;AmountRoundingPrecision@1110002 : Decimal) RndAmt : Decimal;BEGIN
   RndAmt := ROUND(TotAmt,AmountRoundingPrecision) - TotAmtRnded;
   TotAmtRnded := TotAmtRnded + RndAmt;
   END;
   

5. שנה את הקוד בפונקציה CalculateInvoiceDiscount ב Codeunit הנחה (5950) של שירות-Calc. כדלקמן:
   קוד קיים 1

   ...GLAcc@1110002 : Record 15;
         BEGIN
   ...
   

   קוד החלפה 1

   ...GLAcc@1110002 : Record 15;
   
   // Add the following lines.
   TempServLineRemainder@1110000 : Record 5902;
   TotRoundedInvDiscAmt@1110001 : Decimal;
   TotRoundedPmtDiscAmt@1110003 : Decimal;
   // End of the added lines.
   
         BEGIN
   ...
   

   קוד קיים 2

   ...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
   
   // Delete the following lines.
   ServiceLine2."Inv. Discount Amount" :=
     ROUND(ServiceLine2."Line Amount" * CustInvDisc."Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
     ServiceLine2."Inv. Discount Amount" :=
       ROUND(
         (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
         CustInvDisc."Discount %" / 100,0.01);
       END;
   // End of the deleted lines.
   
                     IF GLSetup."Payment Discount Type" =
   ...
   

   קוד החלפה 2

   ...GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
   
   // Add the following lines.
   BEGIN
   TempServLineRemainder."Inv. Discount Amount" +=
   ServiceLine2."Line Amount" * CustInvDisc."Discount %" / 100;
   ServiceLine2."Inv. Discount Amount" :=
   CalcRoundedAmt(TempServLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
   END;
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.",
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
   BEGIN
   TempServLineRemainder."Inv. Discount Amount" +=
   (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
   CustInvDisc."Discount %" / 100;
   ServiceLine2."Inv. Discount Amount" :=
   CalcRoundedAmt(TempServLineRemainder."Inv. Discount Amount",TotRoundedInvDiscAmt,0.01);
   END;
   END;
   // End of the added lines.
   
   IF GLSetup."Payment Discount Type" =
   ...
   

   קוד קיים 3

   ...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
   
   // Delete the following lines.
     ServiceLine2."Pmt. Disc. Given Amount" :=
       ROUND(
         (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount")
         * ServHeader."Payment Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
     ServiceLine2."Pmt. Disc. Given Amount" :=
       ROUND(
         (ServiceLine2."Line Amount" - ServiceLine2."Inv. Discount Amount") *
         ServHeader."Payment Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
     ServiceLine2."Pmt. Disc. Given Amount" :=
       ROUND(
         (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount") *
         ServHeader."Payment Discount %" / 100,0.01);
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
     ServiceLine2."Pmt. Disc. Given Amount" :=
       ROUND(
         (ServiceLine2."Line Amount" - ServiceLine2."Inv. Discount Amount") *
         ServHeader."Payment Discount %" / 100,0.01);
   // End of the deleted lines.
   
                       END;
   

   קוד החלפה 3

   ...GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. + Payment Disc.":
   
   // Add the following lines.
     BEGIN
       TempServLineRemainder."Pmt. Disc. Given Amount" +=
           (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
           ServHeader."Payment Discount %" / 100;
       ServiceLine2."Pmt. Disc. Given Amount" :=
         CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. + Inv. Disc. * Payment Disc.":
     BEGIN
       TempServLineRemainder."Pmt. Disc. Given Amount" +=
           (ServiceLine2."Line Amount" - ServiceLine2."Line Discount Amount" ) *
           ServHeader."Payment Discount %" / 100;
       ServiceLine2."Pmt. Disc. Given Amount" :=
         CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. + Payment Disc.":
     BEGIN
       TempServLineRemainder."Pmt. Disc. Given Amount" +=
           (ServiceLine2."Line Amount" + ServiceLine2."Line Discount Amount" ) *
           ServHeader."Payment Discount %" / 100;
       ServiceLine2."Pmt. Disc. Given Amount" :=
         CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   GLSetup."Discount Calculation"::"Line Disc. * Inv. Disc. * Payment Disc.":
     BEGIN
       TempServLineRemainder."Pmt. Disc. Given Amount" +=
           (ServiceLine2."Line Amount" - ServiceLine2."Line Discount Amount" ) *
           ServHeader."Payment Discount %" / 100;
       ServiceLine2."Pmt. Disc. Given Amount" :=
         CalcRoundedAmt(TempServLineRemainder."Pmt. Disc. Given Amount",TotRoundedPmtDiscAmt,0.01);
     END;
   // End of the added lines.
   
                       END;
   ...
   

6. צור פונקציה ב- Codeunit הנחה (5950) של שירות-Calc. כדלקמן:

   PROCEDURE CalcRoundedAmt@1110000(TotAmt@1110000 : Decimal;VAR TotAmtRnded@1110001 : Decimal;AmountRoundingPrecision@1110002 : Decimal) RndAmt : Decimal;BEGIN
     RndAmt := ROUND(TotAmt,AmountRoundingPrecision) - TotAmtRnded;
     TotAmtRnded := TotAmtRnded + RndAmt;
   END;
   

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

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

• גירסת Microsoft Dynamics NAV 2009 R2 פורטוגזי

• גירסת Microsoft Dynamics NAV 2009 Service Pack 1 פורטוגזי

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

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