מאפייני הבעיה
לאחר שתיישם את התיקון ב- KB3001759 וב - KB3036811 ב- Microsoft Dynamics NAV 2009, יכול להיות שלא הוחל ערכי G/L. עם זאת, ישנם ערך G/L שגוי - קישורים ערך מע מ שנרשמו ביישום. בצע את השלבים במקטע קוד שינויים כדי לפתור בעיה זו. בעיה זו מתרחשת במוצרים הבאים:
-
Microsoft Dynamics R2 2009 סרגל ניווט
-
Microsoft Dynamics SP1 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 מזהה אובייקט מערכת
אובייקט.
הערה אין לך הרשאות למאגרי נתונים אלא אם כן יש לך לבצע תיקון נתונים.
שינויי קוד
הערה תמיד קוד מחשב פותר בסביבה מבוקרת לפני החלת התיקונים למחשבים הייצור שלך.
כדי לפתור בעיה זו, בצע את הפעולות הבאות:
-
לשנות את הקוד בפונקציה UnapplyCustLedgEntry Jnl Gen..-codeunit קו Post (12) כפי שמוצג להלן:
קוד קיים 1... NegativeLCYAppAmt@1021 : Decimal;
PositiveACYAppAmt@1020 : Decimal;
NegativeACYAppAmt@1019 : Decimal;
// Delete the following lines.
VatBaseSum@1008 : ARRAY [2] OF Decimal;
EntryNoBegin@1025 : ARRAY [2] OF Integer;
// End of the deleted lines.
i@1027 : Integer;
TempVatEntryNo@1028 : Integer;
BEGIN
...קוד החלפה 1
... NegativeLCYAppAmt@1021 : Decimal;
PositiveACYAppAmt@1020 : Decimal;
NegativeACYAppAmt@1019 : Decimal;
// Add the following lines.
VatBaseSum@1008 : ARRAY [3] OF Decimal;
EntryNoBegin@1025 : ARRAY [3] OF Integer;
// End of the added lines.
i@1027 : Integer;
TempVatEntryNo@1028 : Integer;
BEGIN
...קוד קיים 2
... VATEntry2."Entry No." := NextVATEntryNo;
NextVATEntryNo := NextVATEntryNo + 1;
VATEntry2.INSERT;
TempVatEntry.DELETE;
END;
IF (VATPostingSetup."Adjust for Payment Discount") AND
...קוד החלפה 2
...VATEntry2."Entry No." := NextVATEntryNo;
NextVATEntryNo := NextVATEntryNo + 1;
VATEntry2.INSERT;
// Add the following lines.
IF VATEntry2."Unrealized VAT Entry No." = 0 THEN BEGIN
GLEntryTmp."Entry No." := NextEntryNo;
GLEntryVatEntrylink.InsertLink(GLEntryTmp,VATEntry2);
END;
// End of the added lines.
TempVatEntry.DELETE;
END;
IF (VATPostingSetup."Adjust for Payment Discount") AND
...קוד קיים 3
... IF TempVatEntry.FINDSET THEN BEGIN
REPEAT
CASE TRUE OF
VatBaseSum[2] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
i := 3;
VatBaseSum[1] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
...קוד החלפה 3
...IF TempVatEntry.FINDSET THEN BEGIN
REPEAT
CASE TRUE OF
// Add the followoing lines.
VATBaseSum[3] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
i := 4;
// End of the added lines.
VatBaseSum[2] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
i := 3;
VatBaseSum[1] + TempVatEntry.Base = DtldCustLedgEntry2."Amount (LCY)":
...קוד קיים 4
...END;
TempVatEntry := VATEntrySaved;
UNTIL TempVatEntry.NEXT = 0;
// Delete the following line.
FOR i := 1 TO 2 DO BEGIN
// End of the deleted line.
VatBaseSum[i] := 0;
EntryNoBegin[i] := 0;
END;
...קוד החלפה 4
...END;
TempVatEntry := VATEntrySaved;
UNTIL TempVatEntry.NEXT = 0;
// Add the following line.
FOR i := 1 TO 3 DO BEGIN
// End of the added line.
VatBaseSum[i] := 0;
EntryNoBegin[i] := 0;
END;
...קוד קיים 5
...END;
TempVatEntry.SETRANGE("Entry No.",0,999999);
END ELSE BEGIN
VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
VatBaseSum[1] := TempVatEntry.Base;
EntryNoBegin[2] := EntryNoBegin[1];
EntryNoBegin[1] := TempVatEntry."Entry No.";
END;
...קוד החלפה 5
...END;
TempVatEntry.SETRANGE("Entry No.",0,999999);
END ELSE BEGIN
// Add the following line.
VatBaseSum[3] += TempVATEntry.Base;
// End of the added line.
VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
VatBaseSum[1] := TempVatEntry.Base;
// Add the folloiwng lines.
IF EntryNoBegin[3] > 0 THEN
EntryNoBegin[3] := TempVatEntry."Entry No.";
// End of the added lines.
EntryNoBegin[2] := EntryNoBegin[1];
EntryNoBegin[1] := TempVatEntry."Entry No.";
END;
... -
לשנות את הקוד בפונקציה UnapplyVendLedgEntry Jnl Gen..-codeunit קו Post (12) כפי שמוצג להלן:
קוד קיים 1... NegativeLCYAppAmt@1021 : Decimal;
PositiveACYAppAmt@1020 : Decimal;
NegativeACYAppAmt@1019 : Decimal;
// Delete the following lines.
VatBaseSum@1029 : ARRAY [2] OF Decimal;
EntryNoBegin@1028 : ARRAY [2] OF Integer;
// End of the deleted lines.
i@1027 : Integer;
TempVatEntryNo@1025 : Integer;
BEGIN
...קוד החלפה 1
... NegativeLCYAppAmt@1021 : Decimal;
PositiveACYAppAmt@1020 : Decimal;
NegativeACYAppAmt@1019 : Decimal;
V
// Add the following lines.
atBaseSum@1029 : ARRAY [3] OF Decimal;
EntryNoBegin@1028 : ARRAY [3] OF Integer;
// End of the added lines.
i@1027 : Integer;
TempVatEntryNo@1025 : Integer;
BEGIN
...קוד קיים 2
...VatEntry2."Entry No." := NextVATEntryNo;
NextVATEntryNo := NextVATEntryNo + 1;
VatEntry2.INSERT;
TempVatEntry.DELETE;
END;
IF (VATPostingSetup."Adjust for Payment Discount") AND
...קוד החלפה 2
...VatEntry2."Entry No." := NextVATEntryNo;
NextVATEntryNo := NextVATEntryNo + 1;
VatEntry2.INSERT;
// Add the following lines.
IF VatEntry2."Unrealized VAT Entry No." = 0 THEN BEGIN
GLEntryTmp."Entry No." := NextEntryNo;
GLEntryVatEntrylink.InsertLink(GLEntryTmp,VatEntry2);
END;
// End of the added lines.
TempVatEntry.DELETE;
END;
IF (VATPostingSetup."Adjust for Payment Discount") AND
...קוד קיים 3
... IF TempVatEntry.FINDSET THEN BEGIN
REPEAT
CASE TRUE OF
VatBaseSum[2] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
i := 3;
VatBaseSum[1] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
...קוד החלפה 3
...IF TempVatEntry.FINDSET THEN BEGIN
REPEAT
CASE TRUE OF
// Add the following lines.
VATBaseSum[3] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
i := 4;
// End of the added lines.
VatBaseSum[2] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
i := 3;
VatBaseSum[1] + TempVatEntry.Base = DtldVendLedgEntry2."Amount (LCY)":
...קוד קיים 4
...END;
TempVatEntry.SETRANGE("Entry No.",0,999999);
END ELSE BEGIN
VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
VatBaseSum[1] := TempVatEntry.Base;
EntryNoBegin[2] := EntryNoBegin[1];
EntryNoBegin[1] := TempVatEntry."Entry No.";
END;
...קוד החלפה 4
... END;
TempVatEntry.SETRANGE("Entry No.",0,999999);
END ELSE BEGIN
// Add the following line.
VatBaseSum[3] += TempVATEntry.Base;
// End of the added line.
VatBaseSum[2] := VatBaseSum[1] + TempVatEntry.Base;
VatBaseSum[1] := TempVatEntry.Base;
// Add the following lines.
IF EntryNoBegin[3] > 0 THEN
EntryNoBegin[3] := TempVatEntry."Entry No.";
// End of the added lines.
EntryNoBegin[2] := EntryNoBegin[1];
EntryNoBegin[1] := TempVatEntry."Entry No.";
END;
... -
לשנות את הקוד בפונקציה InsertVatEntriesFromTemp Jnl Gen..-codeunit קו Post (12) כפי שמוצג להלן:
קוד קיים... DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance (VAT Excl.)":
TempVatEntry.SETRANGE("Entry No.",2000000,2999999)
END;
// Delete the following line.
TempVatEntry.FINDSET;
// End of the deleted line.
REPEAT
VATEntry := TempVatEntry;
VATEntry."Entry No." := NextVATEntryNo;
VATEntry.INSERT;
NextVATEntryNo := NextVATEntryNo + 1;
IF VATEntry."Unrealized VAT Entry No." = 0 THEN
GLEntryVatEntrylink.InsertLink(GLEntry,VATEntry);
TempVatEntry.DELETE;
LinkedAmount := LinkedAmount + VATEntry.Base;
Complete := LinkedAmount = -DtldCVLedgEntryBuf."Amount (LCY)";
UNTIL Complete OR (TempVatEntry.NEXT = 0);
END;
LOCAL PROCEDURE CaptureOrRefundCreditCardPmnt@85() : Integer;
...קוד החלפה
...DtldCVLedgEntryBuf."Entry Type"::"Payment Tolerance (VAT Excl.)":
TempVatEntry.SETRANGE("Entry No.",2000000,2999999)
END;
// Add the following line.
IF TempVatEntry.FINDSET THEN
// End of the added line.
REPEAT
VATEntry := TempVatEntry;
VATEntry."Entry No." := NextVATEntryNo;
VATEntry.INSERT;
NextVATEntryNo := NextVATEntryNo + 1;
IF VATEntry."Unrealized VAT Entry No." = 0 THEN
GLEntryVatEntrylink.InsertLink(GLEntry,VATEntry);
TempVatEntry.DELETE;
LinkedAmount := LinkedAmount + VATEntry.Base;
Complete := LinkedAmount = -DtldCVLedgEntryBuf."Amount (LCY)";
UNTIL Complete OR (TempVatEntry.NEXT = 0);
END;
LOCAL PROCEDURE CaptureOrRefundCreditCardPmnt@85() : Integer;
...
דרישות מוקדמות
עליך להגדיר אחד מהמוצרים הבאים מותקנים כדי להחיל תיקון חם זה:
-
Microsoft Dynamics R2 2009 סרגל ניווט
-
Microsoft Dynamics SP1 2009 סרגל ניווט
מידע בדבר הסרת ההתקנה
אין אפשרות להסיר את התיקון החם.
מצב
Microsoft אישרה כי מדובר בבעיה במוצרי Microsoft הרשומים במקטע 'חל על'.
הערה זהו מאמר "פרסום מהיר" שנוצר ישירות בתוך ארגון התמיכה של Microsoft. המידע הכלול במסמך זה מסופק כמו שהוא כתגובה לבעיות המתעוררות. כתוצאה מהמהירות בביצוע כדי להפוך אותו לזמין, החומרים עשויים לכלול שגיאות טיפוגרפיות וייתכן שיבוצעו בהם שינויים בכל עת ללא הודעה מוקדמת. ראה תנאי השימוששיקולים נוספים.
