Prepmt. חסר שדה סכום מע מ מלאי (LCY) לאחר שדרוג מ- Microsoft Dynamics NAV 2009 ל- Dynamics NAV 2013

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

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

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

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

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

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

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

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

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

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

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

שינויי קוד

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

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

1. שנה את הקוד בפונקציה לשדרג שדרוג חדש גירסה Codeunit (104048) באופן הבא:
   קוד קיים

   ...UpdateItemLedgerEntry(StateIndicator);
         UpdateDOCreditCard(StateIndicator);
         UpdateSalesOrderDate(StateIndicator);
         UpdateOutlookSynchFilter(StateIndicator);
         UpdateOutlookSynchField(StateIndicator);
         DeleteRemovedPermissions(StateIndicator);
   ...
   

   קוד החלפה

   ...UpdateItemLedgerEntry(StateIndicator);
         UpdateDOCreditCard(StateIndicator);
         UpdateSalesOrderDate(StateIndicator);
   
   // Add the following lines.
         UpdateSalesLines(StateIndicator);
         UpdatePurchLines(StateIndicator);
   // End of the added lines.
   
         UpdateOutlookSynchFilter(StateIndicator);
         UpdateOutlookSynchField(StateIndicator);
         DeleteRemovedPermissions(StateIndicator);
   ...
   

2. הוסף את הפונקציות הבאות:

   LOCAL PROCEDURE UpdateSalesLines@62(VAR StateIndicator@1000 : Record 104037);VAR
         SalesLine@1001 : Record 37;
         LastDocumentNo@1002 : Code[20];
         PrepmtInvReminderAmount@1003 : Decimal;
       BEGIN
         WITH SalesLine DO
           IF StateIndicator.UpdateTable(TABLENAME) THEN BEGIN
             TimeLog.TimeLogInsert(TimeLog,TABLENAME,TRUE);
             SETCURRENTKEY("Document Type","Document No.","Line No.");
             IF FINDSET THEN
               REPEAT
                 StateIndicator.Update;
                 IF ("Document Type" = "Document Type"::Order) AND ("Prepayment Amount" <> "Prepmt. Amt. Incl. VAT") THEN BEGIN
                   IF "Document No." <> LastDocumentNo THEN BEGIN
                     LastDocumentNo := "Document No.";
                     PrepmtInvReminderAmount := 0;
                   END;
                   IF ("Prepmt. Amount Inv. (LCY)" <> 0) AND ("Prepmt. VAT Amount Inv. (LCY)" = 0) THEN BEGIN
                     "Prepmt. VAT Amount Inv. (LCY)" :=
                       CalcRndedAmount("Prepmt. Amount Inv. (LCY)","Prepayment VAT %" / 100,PrepmtInvReminderAmount);
                     MODIFY;
                   END;
                 END;
               UNTIL NEXT = 0;
             TimeLog.TimeLogInsert(TimeLog,TABLENAME,FALSE);
             StateIndicator.EndUpdateTable(TABLENAME);
           END;
   
   LOCAL PROCEDURE UpdatePurchLines@63(VAR StateIndicator@1000 : Record 104037);
       VAR
         PurchaseLine@1001 : Record 39;
         LastDocumentNo@1002 : Code[20];
         PrepmtInvReminderAmount@1003 : Decimal;
       BEGIN
         WITH PurchaseLine DO
           IF StateIndicator.UpdateTable(TABLENAME) THEN BEGIN
             TimeLog.TimeLogInsert(TimeLog,TABLENAME,TRUE);
             IF FINDSET THEN
               REPEAT
                 StateIndicator.Update;
                 IF ("Document Type" = "Document Type"::Order) AND ("Prepayment Amount" <> "Prepmt. Amt. Incl. VAT") THEN BEGIN
                   IF "Document No." <> LastDocumentNo THEN BEGIN
                     LastDocumentNo := "Document No.";
                     PrepmtInvReminderAmount := 0;
                   END;
                   IF ("Prepmt. Amount Inv. (LCY)" <> 0) AND ("Prepmt. VAT Amount Inv. (LCY)" = 0) THEN BEGIN
                     "Prepmt. VAT Amount Inv. (LCY)" :=
                       CalcRndedAmount("Prepmt. Amount Inv. (LCY)","Prepayment VAT %" / 100,PrepmtInvReminderAmount);
                     MODIFY;
                   END;
                 END;
               UNTIL NEXT = 0;
             TimeLog.TimeLogInsert(TimeLog,TABLENAME,FALSE);
             StateIndicator.EndUpdateTable(TABLENAME);
           END;
   
   LOCAL PROCEDURE CalcRndedAmount@64(LineAmount@1000 : Decimal;Ratio@1001 : Decimal;VAR Reminder@1002 : Decimal) RndedAmount : Decimal;
       VAR
         Amount@1003 : Decimal;
       BEGIN
         Amount := Reminder + LineAmount * Ratio;
         RndedAmount := ROUND(Amount);
         Reminder := Amount - RndedAmount;
       END;
   

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

חייב להיות מותקן כדי להחיל תיקון חם זה 2013 NAV של Microsoft Dynamics.

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

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