יצירת ערכי שגוי אם תזכירים זיכוי מע מ בלתי ממומש קיים בגירסת 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. שנה את הקוד בפונקציה GetUnRealizedVATPart בטבלה ערך מע מ (254) כדלקמן:
   קוד קיים

   ...ELSE BEGIN
   IF (DocType = DocType::"Credit Memo") THEN BEGIN
   IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
   EXIT(1)
   END ELSE BEGIN
   
   // Delete the following lines.
   IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
   EXIT(CalcVatPart(GetCurrencyCode(), 1.0, TotalPayments,
   ("Remaining Unrealized Amount" + "Remaining Unrealized Base")))
   // End of the deleted lines.
   
   ELSE
   EXIT(1)
   END;
   END;
   END;
   ...
   

   קוד החלפה

   ...ELSE BEGIN
   IF (DocType = DocType::"Credit Memo") THEN BEGIN
   IF (-TotalPayments + ("Remaining Unrealized Amount" + "Remaining Unrealized Base")) <= 0 THEN
   EXIT(1)
   END ELSE BEGIN
   
   // Add the following lines.
   IF (-TotalPayments - ABS("Remaining Unrealized Amount" + "Remaining Unrealized Base")) < 0 THEN
   EXIT(CalcVatPart(GetCurrencyCode(), 1.0, ABS(TotalPayments),
   ABS("Remaining Unrealized Amount" + "Remaining Unrealized Base")))
   // End of the added lines.
   
   ELSE
   EXIT(1)
   END;
   END;
   END;
   ...
   

2. שנה את הקוד בפונקציה InsertVAT ב- Codeunit (12) כדלקמן:
   קוד קיים

   ...IF UnrealizedVAT THEN BEGIN
   VATPostingSetup.TESTFIELD("Sales VAT Unreal. Account");
   InitGLEntry(
   VATPostingSetup."Sales VAT Unreal. Account",
   GLEntryVATAmount,SrcCurrGLEntryVATAmt,TRUE,TRUE);
   // VSTF298177.begin
   IF GLEntry."Document Type" = GLEntry."Document Type"::"Credit Memo" THEN
   UnrealizedVATPosted := TRUE;
   // VSTF298177.end
   END ELSE BEGIN
   VATPostingSetup.TESTFIELD("Sales VAT Account");
   InitGLEntry(
   VATPostingSetup."Sales VAT Account",
   GLEntryVATAmount,SrcCurrGLEntryVATAmt,TRUE,TRUE);
   ...
   

   קוד החלפה

   ...IF UnrealizedVAT THEN BEGIN
   VATPostingSetup.TESTFIELD("Sales VAT Unreal. Account");
   InitGLEntry(
   VATPostingSetup."Sales VAT Unreal. Account",
   GLEntryVATAmount,SrcCurrGLEntryVATAmt,TRUE,TRUE);
   
   // Delete the following lines.
   // VSTF298177.begin
   IF GLEntry."Document Type" = GLEntry."Document Type"::"Credit Memo" THEN
   UnrealizedVATPosted := TRUE;
   // VSTF298177.end
   // End of the deleted lines.
   
   END ELSE BEGIN
   VATPostingSetup.TESTFIELD("Sales VAT Account");
   InitGLEntry(
   VATPostingSetup."Sales VAT Account",
   GLEntryVATAmount,SrcCurrGLEntryVATAmt,TRUE,TRUE);
   ...
   

3. שנה את הקוד בפונקציה CustUnrealizedVAT ב- Codeunit (12) כדלקמן:
   קוד קיים 1

   ...ROUND(
   VATEntry2."Add.-Curr. Rem. Unreal. Base" * VATPart,
   AddCurrency."Amount Rounding Precision");
   END;
   
   // Delete the following lines.
   TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
   
   IF VATAmount <> 0 THEN BEGIN // IT0028
   // VSTF298177.begin
   IF NOT UnrealizedVATPosted THEN BEGIN
   // End of the deleted lines.
   
   InitGLEntry(SalesVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
   GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
   GLEntry."Bal. Account No." := SalesVATAccount;
   SummarizeVAT(
   GLSetup."Summarize G/L Entries",GLEntry,TempGLEntryVAT,InsertedTempGLEntryVAT);
   ...
   

   קוד החלפה 1

   ...ROUND(
   VATEntry2."Add.-Curr. Rem. Unreal. Base" * VATPart,
   AddCurrency."Amount Rounding Precision");
   END;
   
   // Add the following lines.
   IF TotalPayments + ABS(VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base") < 0 THEN
   TotalPayments := TotalPayments - (VATEntry2."Remaining Unrealized Amount" + VATEntry2."Remaining Unrealized Base");
   
   IF VATAmount <> 0 THEN BEGIN // IT0028
   // End of the added lines.
   
   InitGLEntry(SalesVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
   GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
   GLEntry."Bal. Account No." := SalesVATAccount;
   SummarizeVAT(
   GLSetup."Summarize G/L Entries",GLEntry,TempGLEntryVAT,InsertedTempGLEntryVAT);
   ...
   

   קוד קיים 2

   ...InitGLEntry(SalesVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
   GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
   GLEntry."Bal. Account No." := SalesVATAccount;
   SummarizeVAT(
   GLSetup."Summarize G/L Entries",GLEntry,TempGLEntryVAT,InsertedTempGLEntryVAT);
   END;
   // VSTF298177.end
   
   InitGLEntry(SalesVATAccount,VATAmount,0,FALSE,TRUE);
   GLEntry."Additional-Currency Amount" := VATAmountAddCurr;
   GLEntry."Bal. Account No." := SalesVATUnrealAccount;
   GLEntry."Gen. Posting Type" := VATEntry2.Type;
   ...
   

   קוד החלפה 2

   ...InitGLEntry(SalesVATUnrealAccount,-VATAmount,0,FALSE,TRUE);
   GLEntry."Additional-Currency Amount" := -VATAmountAddCurr;
   GLEntry."Bal. Account No." := SalesVATAccount;
   SummarizeVAT(
   GLSetup."Summarize G/L Entries",GLEntry,TempGLEntryVAT,InsertedTempGLEntryVAT);
   
   // Delete the following lines.
   END;
   // VSTF298177.end
   // End of the deleted lines.
   
   InitGLEntry(SalesVATAccount,VATAmount,0,FALSE,TRUE);
   GLEntry."Additional-Currency Amount" := VATAmountAddCurr;
   GLEntry."Bal. Account No." := SalesVATUnrealAccount;
   GLEntry."Gen. Posting Type" := VATEntry2.Type;
   ...
   
   
   

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

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

• גירסת Microsoft Dynamics NAV 2009 R2 איטלקית

• גירסת Microsoft Dynamics NAV 2009 SP1 איטלקית

בנוסף, חייב להיות מותקן KB2694168 .

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

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