יצירת ערכי G/L שגוי בעת ייחוס שטרי בגירסה ספרדית של Microsoft Dynamics NAV 2009

ב שנרשמו הזמנות תשלום בעת ייחוס שטרי המכילים מס ערך מוסף (VAT) של חיוב הפוך מע מ בלתי ממומש, ערכי G/L שגוי נוצרות בגירסה ספרדית של Microsoft Dynamics NAV 2009. עם זאת, אם לייחס מאותו עץ באמצעות יומן תשלומים, הוא פועל כראוי. בצע את השלבים במקטע קוד שינויים כדי לפתור בעיה זו. בעיה זו מתרחשת בהמוצר הבאים:

גירסת Microsoft Dynamics NAV 2009 R2 ספרדית
גירסת Microsoft Dynamics NAV 2009 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.

כדי לפתור בעיה זו, שנה את הקוד בפונקציה VendUnrealizedVAT ב CarteraManagement Codeunit (7000000) כדלקמן:

קוד קיים 1

...PurchVATAccount@1100016 : Code[20];
        PurchVATUnrealAccount@1100017 : Code[20];
        LastConnectionNo@1100018 : Integer;
        Test1@1100019 : Boolean;
        Test2@1100020 : Boolean;
      BEGIN
        VendLedgEntry2.CALCFIELDS(
          Amount,
          "Amount (LCY)",
          "Remaining Amount",
...

קוד החלפה 1

...PurchVATAccount@1100016 : Code[20];
        PurchVATUnrealAccount@1100017 : Code[20];
        LastConnectionNo@1100018 : Integer;
        Test1@1100019 : Boolean;
        Test2@1100020 : Boolean;

// Add the following lines.
ReverseChrgVATAcc@1000000000 : Code[20];
ReverseChrgVATUnrealAcc@1000000001 : Code[20];
// End of the added lines.

      BEGIN
        VendLedgEntry2.CALCFIELDS(
          Amount,
          "Amount (LCY)",
          "Remaining Amount",
...

קוד קיים 2

...VATEntry2."VAT Calculation Type"::"Reverse Charge VAT",
                    VATEntry2."VAT Calculation Type"::"Full VAT":
                      BEGIN
                        VATPostingSetup.TESTFIELD("Purchase VAT Account");
                        VATPostingSetup.TESTFIELD("Purch. VAT Unreal. Account");
                        PurchVATAccount := VATPostingSetup."Purchase VAT Account";
                        PurchVATUnrealAccount := VATPostingSetup."Purch. VAT Unreal. Account";
                      END;

                  END;
...

קוד החלפה 2

...VATEntry2."VAT Calculation Type"::"Reverse Charge VAT",
                    VATEntry2."VAT Calculation Type"::"Full VAT":
                      BEGIN
                        VATPostingSetup.TESTFIELD("Purchase VAT Account");
                        VATPostingSetup.TESTFIELD("Purch. VAT Unreal. Account");

// Add the following lines.
IF VATEntry2."VAT Calculation Type" = VATEntry2."VAT Calculation Type"::"Reverse Charge VAT" THEN BEGIN
VATPostingSetup.TESTFIELD("Reverse Chrg. VAT Acc.");
VATPostingSetup.TESTFIELD("Reverse Chrg. VAT Unreal. Acc.");
ReverseChrgVATAcc := VATPostingSetup."Reverse Chrg. VAT Acc.";
ReverseChrgVATUnrealAcc := VATPostingSetup."Reverse Chrg. VAT Unreal. Acc.";
END;
// End of the added lines.

                        PurchVATAccount := VATPostingSetup."Purchase VAT Account";
                        PurchVATUnrealAccount := VATPostingSetup."Purch. VAT Unreal. Account";
                      END;

                  END;
...

קוד קיים 3

...NoRealVATBuffer.Amount := TotalVATAmount;
                    NoRealVATBuffer."Entry No." := VATEntry2."Entry No.";
                    NoRealVATBuffer.INSERT;
                  END;

                  VATEntry := VATEntry2;
                  VATEntry."Entry No." := VATEntryNo;
                  VATEntry."Posting Date" := GenJnlLine."Posting Date";
                  VATEntry."Document No." := GenJnlLine."Document No.";
                  VATEntry."External Document No." := GenJnlLine."External Document No.";
...

קוד החלפה 3

...NoRealVATBuffer.Amount := TotalVATAmount;
                    NoRealVATBuffer."Entry No." := VATEntry2."Entry No.";
                    NoRealVATBuffer.INSERT;
                  END;

// Add the following lines.
IF VATEntry2."VAT Calculation Type" = VATEntry2."VAT Calculation Type"::"Reverse Charge VAT" THEN BEGIN
IF NoRealVATBuffer.GET(ReverseChrgVATAcc,ReverseChrgVATUnrealAcc,VATEntry2."Entry No.") THEN
NoRealVATBuffer.Amount := NoRealVATBuffer.Amount + TotalVATAmount
ELSE BEGIN
NoRealVATBuffer.INIT;
NoRealVATBuffer.Account := ReverseChrgVATAcc;
NoRealVATBuffer."Balance Account" := ReverseChrgVATUnrealAcc;
NoRealVATBuffer.Amount := TotalVATAmount;
NoRealVATBuffer."Entry No." := VATEntry2."Entry No.";
NoRealVATBuffer.INSERT;
END;
END;

// End of the added lines.

                  VATEntry := VATEntry2;
                  VATEntry."Entry No." := VATEntryNo;
                  VATEntry."Posting Date" := GenJnlLine."Posting Date";
                  VATEntry."Document No." := GenJnlLine."Document No.";
                  VATEntry."External Document No." := GenJnlLine."External Document No.";
...

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

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

גירסת Microsoft Dynamics NAV 2009 R2 ספרדית
גירסת Microsoft Dynamics NAV 2009 SP1 ספרדית

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

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

מצב

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

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