סכום שהוחל מחושב באופן שגוי בלקוח החל או להחיל עמודי ערכי ספק ב- Microsoft Dynamics NAV 2009

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

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

פתרון

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

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

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

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

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

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

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

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

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

אובייקט.

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

שינויי קוד

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

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

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

...OnModifyRecord=BEGIN
                     CODEUNIT.RUN(CODEUNIT::"Cust. Entry-Edit",Rec);
                     EXIT(FALSE);
                   END;
...

קוד החלפה

...OnModifyRecord=BEGIN
                     CODEUNIT.RUN(CODEUNIT::"Cust. Entry-Edit",Rec);
                     IF "Applies-to ID" <> xRec."Applies-to ID" THEN
                       CalcApplnAmount;
                     EXIT(FALSE);
                   END;
...

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

...IF NOT FromZeroGenJnl THEN
          AppliedCustLedgEntryTemp.SETRANGE(Positive,CurrentAmount < 0);
        IF AppliedCustLedgEntryTemp.FINDFIRST THEN BEGIN
          AppliedCustLedgEntryTemp.CALCFIELDS("Remaining Amount");

          IF Type = Type::Direct THEN
            CalculateCurrency := ApplyingCustLedgEntry."Entry No." <> 0
          ELSE
            CalculateCurrency := TRUE;


          IF (CurrencyCode <> AppliedCustLedgEntryTemp."Currency Code") AND CalculateCurrency THEN BEGIN
            AppliedCustLedgEntryTemp."Remaining Amount" :=
              GenJnlPostLine.ExchAmount(
                AppliedCustLedgEntryTemp."Remaining Amount",
                AppliedCustLedgEntryTemp."Currency Code",
                CurrencyCode,"Posting Date");
            AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" :=
              GenJnlPostLine.ExchAmount(
                AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible",
                AppliedCustLedgEntryTemp."Currency Code",
                CurrencyCode,"Posting Date");
            AppliedCustLedgEntryTemp."Amount to Apply" :=
              GenJnlPostLine.ExchAmount(
                AppliedCustLedgEntryTemp."Amount to Apply",
                AppliedCustLedgEntryTemp."Currency Code",
                CurrencyCode,"Posting Date");
          END;

          CASE Type OF
            Type::Direct:
...

קוד החלפה 1

...IF NOT FromZeroGenJnl THEN
          AppliedCustLedgEntryTemp.SETRANGE(Positive,CurrentAmount < 0);
        IF AppliedCustLedgEntryTemp.FINDFIRST THEN BEGIN
          ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedCustLedgEntryTemp);

          CASE Type OF
            Type::Direct:
...

קוד קיים 2

...END ELSE BEGIN
          AppliedCustLedgEntryTemp.SETRANGE(Positive);
          AppliedCustLedgEntryTemp.FINDFIRST;
        END;

        IF (OldPmtDisc <> PmtDiscAmount) THEN
...

קוד החלפה 2

...END ELSE BEGIN
          AppliedCustLedgEntryTemp.SETRANGE(Positive);
          AppliedCustLedgEntryTemp.FINDFIRST;
          ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedCustLedgEntryTemp);
        END;

        IF (OldPmtDisc <> PmtDiscAmount) THEN
...

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

...CheckRounding;
    END;

    BEGIN
    END.
  }
...

קוד החלפה

...CheckRounding;
    END;

    LOCAL PROCEDURE ExchangeAmountsOnLedgerEntry@20(Type@1003 : 'Direct,GenJnlLine,SalesHeader';CurrencyCode@1000 : Code[10];VAR AppliedCustLedgEntryTemp@1001 : Record 21);
    VAR
      CalculateCurrency@1002 : Boolean;
    BEGIN
      AppliedCustLedgEntryTemp.CALCFIELDS("Remaining Amount");

      IF Type = Type::Direct THEN
        CalculateCurrency := ApplyingCustLedgEntry."Entry No." <> 0
      ELSE
        CalculateCurrency := TRUE;

      IF (CurrencyCode <> AppliedCustLedgEntryTemp."Currency Code") AND CalculateCurrency THEN BEGIN
        AppliedCustLedgEntryTemp."Remaining Amount" :=
          GenJnlPostLine.ExchAmount(
            AppliedCustLedgEntryTemp."Remaining Amount",
            AppliedCustLedgEntryTemp."Currency Code",
            CurrencyCode,"Posting Date");
        AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible" :=
          GenJnlPostLine.ExchAmount(
            AppliedCustLedgEntryTemp."Remaining Pmt. Disc. Possible",
            AppliedCustLedgEntryTemp."Currency Code",
            CurrencyCode,"Posting Date");
        AppliedCustLedgEntryTemp."Amount to Apply" :=
          GenJnlPostLine.ExchAmount(
            AppliedCustLedgEntryTemp."Amount to Apply",
            AppliedCustLedgEntryTemp."Currency Code",
            CurrencyCode,"Posting Date");
      END;
    END;

    BEGIN
    END.
  }
...

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

...OnModifyRecord=BEGIN
                     CODEUNIT.RUN(CODEUNIT::"Vend. Entry-Edit",Rec);
                     EXIT(FALSE);
                   END;
...

קוד החלפה

...OnModifyRecord=BEGIN
                     CODEUNIT.RUN(CODEUNIT::"Vend. Entry-Edit",Rec);
                     IF "Applies-to ID" <> xRec."Applies-to ID" THEN
                       CalcApplnAmount;
                     EXIT(FALSE);
                   END;
...

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

...IF NOT FromZeroGenJnl THEN
          AppliedVendLedgEntryTemp.SETRANGE(Positive,CurrentAmount < 0);
        IF AppliedVendLedgEntryTemp.FINDFIRST THEN BEGIN
          AppliedVendLedgEntryTemp.CALCFIELDS("Remaining Amount");

          IF Type = Type::Direct THEN
            CalculateCurrency := ApplyingVendLedgEntry."Entry No." <> 0
          ELSE
            CalculateCurrency := TRUE;


          IF (CurrencyCode <> AppliedVendLedgEntryTemp."Currency Code") AND CalculateCurrency THEN BEGIN
            AppliedVendLedgEntryTemp."Remaining Amount" :=
              GenJnlPostLine.ExchAmount(
                AppliedVendLedgEntryTemp."Remaining Amount",
                AppliedVendLedgEntryTemp."Currency Code",
                CurrencyCode,"Posting Date");
            AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible" :=
              GenJnlPostLine.ExchAmount(
                AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible",
                AppliedVendLedgEntryTemp."Currency Code",
                CurrencyCode,"Posting Date");
            AppliedVendLedgEntryTemp."Amount to Apply" :=
              GenJnlPostLine.ExchAmount(
                AppliedVendLedgEntryTemp."Amount to Apply",
                AppliedVendLedgEntryTemp."Currency Code",
                CurrencyCode,"Posting Date");
          END;

          CASE Type OF
            Type::Direct:
...

קוד החלפה 1

...IF NOT FromZeroGenJnl THEN
          AppliedVendLedgEntryTemp.SETRANGE(Positive,CurrentAmount < 0);
        IF AppliedVendLedgEntryTemp.FINDFIRST THEN BEGIN
          ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedVendLedgEntryTemp);

          CASE Type OF
            Type::Direct:
...

קוד קיים 2

...END ELSE BEGIN
          AppliedVendLedgEntryTemp.SETRANGE(Positive);
          AppliedVendLedgEntryTemp.FINDFIRST;
        END;

        IF (OldPmtdisc <> PmtDiscAmount) THEN
...

קוד החלפה 2

...END ELSE BEGIN
          AppliedVendLedgEntryTemp.SETRANGE(Positive);
          AppliedVendLedgEntryTemp.FINDFIRST;
          ExchangeAmountsOnLedgerEntry(Type,CurrencyCode,AppliedVendLedgEntryTemp);
        END;

        IF (OldPmtdisc <> PmtDiscAmount) THEN
...

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

...AppliesToID := AppliesToID2;
    END;

    BEGIN
    END.
  }
...

קוד החלפה

...AppliesToID := AppliesToID2;
    END;

    PROCEDURE ExchangeAmountsOnLedgerEntry@14(Type@1000 : 'Direct,GenJnlLine,PurchHeader';CurrencyCode@1001 : Code[10];VAR AppliedVendLedgEntryTemp@1002 : Record 25);
    VAR
      CalculateCurrency@1003 : Boolean;
    BEGIN
      AppliedVendLedgEntryTemp.CALCFIELDS("Remaining Amount");

      IF Type = Type::Direct THEN
        CalculateCurrency := ApplyingVendLedgEntry."Entry No." <> 0
      ELSE
        CalculateCurrency := TRUE;

      IF (CurrencyCode <> AppliedVendLedgEntryTemp."Currency Code") AND CalculateCurrency THEN BEGIN
        AppliedVendLedgEntryTemp."Remaining Amount" :=
          GenJnlPostLine.ExchAmount(
            AppliedVendLedgEntryTemp."Remaining Amount",
            AppliedVendLedgEntryTemp."Currency Code",
            CurrencyCode,"Posting Date");
        AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible" :=
          GenJnlPostLine.ExchAmount(
            AppliedVendLedgEntryTemp."Remaining Pmt. Disc. Possible",
            AppliedVendLedgEntryTemp."Currency Code",
            CurrencyCode,"Posting Date");
        AppliedVendLedgEntryTemp."Amount to Apply" :=
          GenJnlPostLine.ExchAmount(
            AppliedVendLedgEntryTemp."Amount to Apply",
            AppliedVendLedgEntryTemp."Currency Code",
            CurrencyCode,"Posting Date");
      END;
    END;

    BEGIN
    END.
  }
...

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

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

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

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

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

מצב

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

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

סכום שהוחל מחושב באופן שגוי בלקוח החל או להחיל עמודי ערכי ספק ב- Microsoft Dynamics NAV 2009

פתרון

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

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

שינויי קוד

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

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

מצב

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

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

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

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