טופס החל ערכי לקוחות וטופס החל ערכי ספק להציג ערכים שגויים יתרה ושדות הדיסק תשלום. שדה סכום ב- Microsoft Dynamics NAV 2009

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

מאפייני הבעיה

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

בעיה זו מתרחשת במוצרים הבאים:

Microsoft Dynamics NAV 2009 ה-Service Pack 1
Microsoft Dynamics R2 2009 סרגל ניווט

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

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

2764340 ערכי ספק עדיין נבחרו למרות ניקית את הערכים ספק בעבר בטופס "החל ערכי הספק" ב- 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 מזהה אובייקט מערכת

אובייקט.

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

שינויי קוד

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

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

שנה את הקוד בפונקציה HandlChosenEntries ב- theApply טופס ערכי הלקוח (232) כדלקמן:
קוד קיים 1

...CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                  AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
              END ELSE IF (ABS(CurrentAmount) = ABS(AppliedCustLedgEntryTemp."Remaining Amount" -
                AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible"))
              THEN BEGIN

// Delete the following lines.
               PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" + PossiblePmtDisc;
               CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                 AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" - PossiblePmtDisc;
               PossiblePmtDisc := 0;
// End of the deleted lines.

                AppliedAmount := AppliedAmount + CorrectionAmount;
              END ELSE IF (FromZeroGenJnl) THEN BEGIN
                PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                CurrentAmount := CurrentAmount +
                  AppliedCustLedgEntryTemp."Remaining Amount" - AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
...

קוד החלפה 1

...CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                  AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
              END ELSE IF (ABS(CurrentAmount) = ABS(AppliedCustLedgEntryTemp."Remaining Amount" -
                AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible"))
              THEN BEGIN

// Add the following lines.
               PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
               CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                 AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
// End of the added lines.

                AppliedAmount := AppliedAmount + CorrectionAmount;
              END ELSE IF (FromZeroGenJnl) THEN BEGIN
                PmtDiscAmount := PmtDiscAmount + AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
                CurrentAmount := CurrentAmount +
                  AppliedCustLedgEntryTemp."Remaining Amount" - AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
...

קוד קיים 2

...END;
                CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                  AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
              END;
            END ELSE BEGIN

// Delete the following lines.
             PossiblePmtDisc := AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
             IF (((CurrentAmount - PossiblePmtDisc + AppliedCustLedgEntryTemp."Amount to Apply") * CurrentAmount) <= 0) THEN BEGIN
               PmtDiscAmount := PmtDiscAmount + PossiblePmtDisc;
               CurrentAmount := CurrentAmount - PossiblePmtDisc;
               PossiblePmtDisc := 0;
               AppliedAmount := AppliedAmount + CorrectionAmount;
             END;
// End of the deleted lines.

              CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Amount to Apply";
            END;
          END ELSE BEGIN
            AppliedCustLedgEntryTemp.SETRANGE(Positive);
            AppliedCustLedgEntryTemp.FINDFIRST;
...

קוד החלפה 2

...END;
                CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Remaining Amount" -
                  AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible";
              END;
            END ELSE BEGIN

// Add the following lines.
             IF (((CurrentAmount + AppliedCustLedgEntryTemp."Amount to Apply") * CurrentAmount) <= 0) THEN
               AppliedAmount := AppliedAmount + CorrectionAmount;
// End of the added lines.

              CurrentAmount := CurrentAmount + AppliedCustLedgEntryTemp."Amount to Apply";
            END;
          END ELSE BEGIN
            AppliedCustLedgEntryTemp.SETRANGE(Positive);
            AppliedCustLedgEntryTemp.FINDFIRST;
...

שנה את הקוד בפונקציה HandlChosenEntries בטופס החל ערכי ספק (233) כדלקמן:
קוד קיים 1

...CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                  AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
              END ELSE IF (ABS(CurrentAmount) = ABS(AppliedVendLedgEntryTemp."Remaining Amount" -
                AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible"))
              THEN BEGIN

// Delete the following lines.
               PmtDiscAmount := PmtDiscAmount + AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible" + PossiblePmtdisc;
               CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                 AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible" - PossiblePmtdisc;
               PossiblePmtdisc := 0;
// End of the deleted lines.

                AppliedAmount := AppliedAmount + CorrectionAmount;
              END ELSE IF FromZeroGenJnl THEN BEGIN
                PmtDiscAmount := PmtDiscAmount + AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                CurrentAmount := CurrentAmount +
                  AppliedVendLedgEntryTemp."Remaining Amount" - AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
...

קוד החלפה 1

...CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                  AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
              END ELSE IF (ABS(CurrentAmount) = ABS(AppliedVendLedgEntryTemp."Remaining Amount" -
                AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible"))
              THEN BEGIN

// Add the following lines.
               PmtDiscAmount := PmtDiscAmount + AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
               CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                 AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
// End of the added lines.

                AppliedAmount := AppliedAmount + CorrectionAmount;
              END ELSE IF FromZeroGenJnl THEN BEGIN
                PmtDiscAmount := PmtDiscAmount + AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
                CurrentAmount := CurrentAmount +
                  AppliedVendLedgEntryTemp."Remaining Amount" - AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
...

קוד קיים 2

...END;
                CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                  AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
              END;
            END ELSE BEGIN

// Delete the following lines.
             PossiblePmtdisc := AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
             IF (((CurrentAmount - PossiblePmtdisc + AppliedVendLedgEntryTemp."Amount to Apply") * CurrentAmount) >= 0) THEN BEGIN
               PmtDiscAmount := PmtDiscAmount + PossiblePmtdisc;
               CurrentAmount := CurrentAmount - PossiblePmtdisc;
               PossiblePmtdisc := 0;
               AppliedAmount := AppliedAmount + CorrectionAmount;
             END;
// End of the deleted lines.

              CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Amount to Apply";
            END;
          END ELSE BEGIN
            AppliedVendLedgEntryTemp.SETRANGE(Positive);
            AppliedVendLedgEntryTemp.FINDFIRST;
...

קוד החלפה 2

...END;
                CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Remaining Amount" -
                  AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible";
              END;
            END ELSE BEGIN

// Add the following lines.
             IF (((CurrentAmount + AppliedVendLedgEntryTemp."Amount to Apply") * CurrentAmount) >= 0) THEN
               AppliedAmount := AppliedAmount + CorrectionAmount;
// End of the added lines.

              CurrentAmount := CurrentAmount + AppliedVendLedgEntryTemp."Amount to Apply";
            END;
          END ELSE BEGIN
            AppliedVendLedgEntryTemp.SETRANGE(Positive);
            AppliedVendLedgEntryTemp.FINDFIRST;
...

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

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

Microsoft Dynamics NAV 2009 ה-Service Pack 1
Microsoft Dynamics R2 2009 סרגל ניווט

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

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

מצב

Microsoft אישרה כי מדובר בבעיה במוצרי Microsoft הרשומים במקטע 'חל על'.

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

טופס החל ערכי לקוחות וטופס החל ערכי ספק להציג ערכים שגויים יתרה ושדות הדיסק תשלום. שדה סכום ב- Microsoft Dynamics NAV 2009

מאפייני הבעיה

פתרון

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

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

שינויי קוד

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

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

מצב

זקוק לעזרה נוספת?

מעוניין באפשרויות נוספות?

האם מידע זה היה שימושי?

תודה על המשוב!