סכום שגוי מחושב בערכי מע"מ בעת החלת חשבון המשתמשת קבוצת פרסום מס ערך מוסף (מע"מ) עבור מע מ לא מותאם בגירסת ספרדית של Microsoft Dynamics NAV 2009

חל על
Dynamics NAV 2009

מאמר זה חל על Microsoft Dynamics NAV עבור אזור השפה של ספרד (es).

סימפטומים

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

  • הגירסה הספרדית של Microsoft Dynamics NAV 2009 R2
  • הגירסה הספרדית של Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

      

גורם

בעיה זו מתרחשת מאחר שהמערכת מחשבת את הכמות המקורית במקום את הכמות הנותרת בעת החלת חשבון המשתמש בקבוצת הצבת מע"מ עבור מע"מ לא ממומשו.

פתרון

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

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

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

            
          

מידע התקנה

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

הערה לפני התקנת תיקון חם זה, ודא כי כל משתמשי לקוח Microsoft Navision נרשם המערכת. הדבר כולל משתמשי לקוח של Microsoft Navision Application Services (NAS). עליך להיות משתמש הלקוח היחיד שנכנס בעת יישום תיקון חם זה.

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

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

  • ההרשאה Modify עבור האובייקט שאתה תשנה.
  • ההרשאה Execute עבור אובייקט System Object ID 5210 ולאובייקט System Object ID 9015.

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

שינויי קוד

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

  1. שנה את הקוד במשתנים כלליים בטבלת ערך מע מ (254) באופן הבא:
    קוד קיים

    ...
GLSetupRead@1004 : Boolean;
VATPostingSetup@1100000 : Record 325;
...

    קוד חלופי

    ...
GLSetupRead@1004 : Boolean;

// Add the following line.
IsBillDoc@1100001 : Boolean;

VATPostingSetup@1100000 : Record 325;
...

  2. שנה את הקוד בפונקציה GetUnRealizedVATPart בטבלת ערך המע"מ (254) באופן הבא:
    קוד קיים

    ...
UnrealizedVatType::Percentage:

// Delete the following line.
EXIT(ABS(SettledAmount) / (ABS(Full) - (ABS(Paid) - ABS(SettledAmount))));

UnrealizedVatType::First:
...

    קוד חלופי

    ...
UnrealizedVatType::Percentage:

// Add the following lines.
BEGIN
IF IsBillDoc THEN
EXIT(ABS(SettledAmount) / ABS(Full));
EXIT(ABS(SettledAmount) / (ABS(Full) - (ABS(Paid) - ABS(SettledAmount))));
END;
// End of the lines.

UnrealizedVatType::First:
...

  3. הוסף פרוצדורה חדשה בטבלת הזנת המע"מ (254) באופן הבא:

    PROCEDURE SetBillDoc@1100000(NewIsBillDoc@1100000 : Boolean);
BEGIN
IsBillDoc := NewIsBillDoc;
END;

  4. שנה את הקוד בפונקציה CustUnrealizedVAT ב- "Gen. Jnl.-Post Line" codeunit (12) באופן הבא:
    קוד קיים 1

    ...
END;

// Delete the following lines.
IF CustLedgEntry4."Document Type" = CustLedgEntry4."Document Type"::Bill THEN
VATPart :=
VATEntry2.GetUnRealizedVATPart(
ROUND(SettledAmount / CustLedgEntry3.GetOriginalCurrencyFactor),
PaidAmount,
CustLedgEntry3."Original Amt. (LCY)",
TotalUnrealVATAmountFirst,
TotalUnrealVATAmountLast)
ELSE
VATPart :=
VATEntry2.GetUnRealizedVATPart(
ROUND(SettledAmount / CustLedgEntry2.GetOriginalCurrencyFactor),
PaidAmount,
CustLedgEntry2."Original Amt. (LCY)",
TotalUnrealVATAmountFirst,
TotalUnrealVATAmountLast);
// End of the lines.
...

    קוד חלופי 1

    ...
END;

// Add the following lines.
VATEntry2.SetBillDoc(IsCustBillDoc(CustLedgEntry4));
VATPart :=
VATEntry2.GetUnRealizedVATPart(
GetCustSettledAmount(SettledAmount,CustLedgEntry4,CustLedgEntry3,CustLedgEntry2),
PaidAmount,
GetCustOriginalAmtLCY(CustLedgEntry4,CustLedgEntry3,CustLedgEntry2),
TotalUnrealVATAmountFirst,
TotalUnrealVATAmountLast);
// End of the lines.
...

    קוד קיים 2

    ...
VATBaseAddCurr := VATEntry2."Add.-Curr. Rem. Unreal. Base";

// Delete the following lines.
END ELSE BEGIN
VATAmount := ROUND(VATEntry2."Unrealized Amount" * VATPart);
VATBase := ROUND(VATEntry2."Unrealized Base" * VATPart);
VATAmountAddCurr :=
ROUND(
VATEntry2."Add.-Currency Unrealized Amt." * VATPart,
AddCurrency."Amount Rounding Precision");
VATBaseAddCurr :=
ROUND(
VATEntry2."Add.-Currency Unrealized Base" * VATPart,
AddCurrency."Amount Rounding Precision");
END;
// End of the lines.
...

    קוד חלופי 2

    ...
VATBaseAddCurr := VATEntry2."Add.-Curr. Rem. Unreal. Base";

// Add the following lines.
END ELSE
CalcCustRealizedVATAmt(
VATBase,VATAmount,
VATBaseAddCurr,VATAmountAddCurr,
VATEntry2,CustLedgEntry4,VATPart);
// End of the lines.
...

  5. שנה את הקוד בפונקציה VendUnrealizedVAT ב- "Gen. Jnl.-Post Line" codeunit (12) באופן הבא:
    קוד קיים 1

    ...
IF VendLedgEntry3.FIND('-') THEN BEGIN
VendLedgEntry2.Open := TRUE;
...

    קוד חלופי 1

    ...
IF VendLedgEntry3.FIND('-') THEN BEGIN

// Add the following line.
VendLedgEntry3.CALCFIELDS("Original Amt. (LCY)");

VendLedgEntry2.Open := TRUE;
...

    קוד קיים 2

    ...
// Delete the following lines.
VATPart :=
VATEntry2.GetUnRealizedVATPart(
ROUND(SettledAmount / VendLedgEntry2.GetOriginalCurrencyFactor),
PaidAmount,
VendLedgEntry2."Original Amt. (LCY)",
// End of the lines.

TotalUnrealVATAmountFirst,
...

    קוד חלופי 2

    ...
// Add the following lines. 
VATEntry2.SetBillDoc(IsVendBillDoc(VendLedgEntry4));
VATPart :=
VATEntry2.GetUnRealizedVATPart(
GetVendSettledAmount(SettledAmount,VendLedgEntry4,VendLedgEntry3,VendLedgEntry2),
PaidAmount,
GetVendOriginalAmtLCY(VendLedgEntry4,VendLedgEntry3,VendLedgEntry2),
// End of the lines.

TotalUnrealVATAmountFirst,
...

    קוד קיים 3

    ...
VATBaseAddCurr := VATEntry2."Add.-Curr. Rem. Unreal. Base";

// Delete the following lines.
END
END ELSE BEGIN
VATAmount := ROUND(VATEntry2."Remaining Unrealized Amount" * VATPart);
VATBase := ROUND(VATEntry2."Remaining Unrealized Base" * VATPart);
VATAmountAddCurr :=
ROUND(
VATEntry2."Add.-Curr. Rem. Unreal. Amount" * VATPart,
AddCurrency."Amount Rounding Precision");
VATBaseAddCurr :=
ROUND(
VATEntry2."Add.-Curr. Rem. Unreal. Base" * VATPart,
AddCurrency."Amount Rounding Precision");
END;
// End of the lines.
...

    קוד חלופי 3

    ...
VATBaseAddCurr := VATEntry2."Add.-Curr. Rem. Unreal. Base";

// Add the following lines.
END;
END ELSE
CalcVendRealizedVATAmt(
VATBase,VATAmount,
VATBaseAddCurr,VATAmountAddCurr,
VATEntry2,VendLedgEntry4,VATPart);
// End of the lines.
...

  6. הוסף את ההליכים המקומיים החדשים הבאים ב-"Gen. Jnl.-Post Line" codeunit (12) באופן הבא:

    LOCAL PROCEDURE GetVendOriginalAmtLCY@1100004(VendLedgEntry4@1100001 : Record 25;VendLedgEntry3@1100002 : Record 25;VendLedgEntry2@1100000 : Record 25) : Decimal;
BEGIN
WITH VendLedgEntry4 DO BEGIN
IF IsVendBillDoc(VendLedgEntry4) THEN
EXIT(VendLedgEntry3."Original Amt. (LCY)");
EXIT(VendLedgEntry2."Original Amt. (LCY)");
END;
END;

LOCAL PROCEDURE GetCustOriginalAmtLCY@1100010(CustLedgEntry4@1100001 : Record 21;CustLedgEntry3@1100002 : Record 21;CustLedgEntry2@1100000 : Record 21) : Decimal;
BEGIN
WITH CustLedgEntry4 DO BEGIN
IF IsCustBillDoc(CustLedgEntry4) THEN
EXIT(CustLedgEntry3."Original Amt. (LCY)");
EXIT(CustLedgEntry2."Original Amt. (LCY)");
END;
END;

LOCAL PROCEDURE GetVendSettledAmount@1100014(SettledAmt@1100000 : Decimal;VendLedgEntry4@1100003 : Record 25;VendLedgEntry3@1100002 : Record 25;VendLedgEntry2@1100001 : Record 25) : Decimal;
BEGIN
WITH VendLedgEntry4 DO BEGIN
IF IsVendBillDoc(VendLedgEntry4) THEN
EXIT(ROUND(SettledAmt / VendLedgEntry3.GetOriginalCurrencyFactor));
EXIT(ROUND(SettledAmt / VendLedgEntry2.GetOriginalCurrencyFactor));
END;
END;

LOCAL PROCEDURE GetCustSettledAmount@1100019(SettledAmt@1100003 : Decimal;CustLedgEntry4@1100002 : Record 21;CustLedgEntry3@1100001 : Record 21;CustLedgEntry2@1100000 : Record 21) : Decimal;
BEGIN
WITH CustLedgEntry4 DO BEGIN
IF IsCustBillDoc(CustLedgEntry4) THEN
EXIT(ROUND(SettledAmt / CustLedgEntry3.GetOriginalCurrencyFactor));
EXIT(ROUND(SettledAmt / CustLedgEntry2.GetOriginalCurrencyFactor));
END;
END;

LOCAL PROCEDURE IsVendBillDoc@1100015(VendLedgEntry4@1100000 : Record 25) : Boolean;
BEGIN
WITH VendLedgEntry4 DO
EXIT("Document Type" = "Document Type"::Bill);
END;

LOCAL PROCEDURE IsCustBillDoc@1100016(CustLedgEntry4@1100000 : Record 21) : Boolean;
BEGIN
WITH CustLedgEntry4 DO
EXIT("Document Type" = "Document Type"::Bill);
END;

LOCAL PROCEDURE CalcVendRealizedVATAmt@1100032(VAR VATBase@1100001 : Decimal;VAR VATAmount@1100000 : Decimal;VAR VATBaseAddCurr@1100005 : Decimal;VAR VATAmountAddCurr@1100006 : Decimal;VATEntry2@1100002 : Record 254;VendLedgEntry4@1100003 : Record 25;VATPart@1100004 : Decimal);
BEGIN
CalcRealizedVATAmt(
VATBase,VATAmount,
VATBaseAddCurr,VATAmountAddCurr,
VATEntry2,
IsVendBillDoc(VendLedgEntry4),
VATPart);
END;

LOCAL PROCEDURE CalcCustRealizedVATAmt@1100029(VAR VATBase@1100001 : Decimal;VAR VATAmount@1100000 : Decimal;VAR VATBaseAddCurr@1100006 : Decimal;VAR VATAmountAddCurr@1100005 : Decimal;VATEntry2@1100002 : Record 254;CustLedgEntry4@1100003 : Record 21;VATPart@1100004 : Decimal);
BEGIN
CalcRealizedVATAmt(
VATBase,VATAmount,
VATBaseAddCurr,VATAmountAddCurr,
VATEntry2,
IsCustBillDoc(CustLedgEntry4),
VATPart);
END;

LOCAL PROCEDURE CalcRealizedVATAmt@1100036(VAR VATBase@1100002 : Decimal;VAR VATAmount@1100001 : Decimal;VAR VATBaseAddCurr@1100008 : Decimal;VAR VATAmountAddCurr@1100007 : Decimal;VATEntry2@1100003 : Record 254;UseUnrealAmt@1100000 : Boolean;VATPart@1100004 : Decimal);
VAR
UnrealAmt@1100006 : Decimal;
UnrealBase@1100005 : Decimal;
UnrealAmtACY@1100009 : Decimal;
UnrealBaseACY@1100010 : Decimal;
BEGIN
WITH VATEntry2 DO
IF UseUnrealAmt THEN BEGIN
UnrealAmt := "Unrealized Amount";
UnrealBase := "Unrealized Base";
UnrealAmtACY := "Add.-Currency Unrealized Amt.";
UnrealBaseACY := "Add.-Currency Unrealized Base";
END ELSE BEGIN
UnrealAmt := "Remaining Unrealized Amount";
UnrealBase := "Remaining Unrealized Base";
UnrealAmtACY := "Add.-Curr. Rem. Unreal. Amount";
UnrealBaseACY := "Add.-Curr. Rem. Unreal. Base";
END;
VATAmount := ROUND(UnrealAmt * VATPart);
VATBase := ROUND(UnrealBase * VATPart);
VATAmountAddCurr := ROUND(UnrealAmtACY * VATPart,AddCurrency."Amount Rounding Precision");
VATBaseAddCurr := ROUND(UnrealBaseACY * VATPart,AddCurrency."Amount Rounding Precision");
END;

          

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

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

  • הגירסה הספרדית של Microsoft Dynamics NAV 2009 R2
  • הגירסה הספרדית של Microsoft Dynamics NAV 2009 SP1

מידע על הסרה

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

מידע נוסף

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

2664615 סכום ערכי המע"מ שגוי בעת פרסום יישום בגירסה הספרדית של Microsoft Dynamics NAV 2009

מצב

Microsoft אישרה שזוהי בעיה במוצרי Microsoft המפורטים בסעיף "חל על".

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