מאפייני הבעיה

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

  • גירסת 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 מזהה אובייקט מערכת

    אובייקט.

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

שינויי קוד

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

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

  1. שנה את הקוד בפונקציה CalcTotals ב הדוח לבצע הצהרה 340 (10743) כדלקמן:
    קוד קיים 1

    ...VAR
    VATEntry6@1100000 : Record 254;
    VATEntry7@1100002 : Record 254;
    BEGIN
    VATEntryTemporary.DELETEALL;
    VATEntry6.RESET;
    ...

    קוד החלפה 1

    ...VAR
    VATEntry6@1100000 : Record 254;
    VATEntry7@1100002 : Record 254;

    // Add the following line.
    TempUnrealVATBuffer@1100001 : TEMPORARY Record 10704;
    // End of the added line.

    BEGIN
    VATEntryTemporary.DELETEALL;
    VATEntry6.RESET;
    ...

    קוד קיים 2

    ...VATEntry7.SETRANGE(VATEntry7.Type,VATEntryTemporary.Type);
    IF VATEntry7.FINDFIRST THEN
    VATBuffer.DELETEALL;
    REPEAT
    VATBuffer."VAT %" := VATEntry7."VAT %";
    VATBuffer."EC %" := VATEntry7."EC %";
    ...

    קוד החלפה 2

    ...VATEntry7.SETRANGE(VATEntry7.Type,VATEntryTemporary.Type);
    IF VATEntry7.FINDFIRST THEN
    VATBuffer.DELETEALL;

    // Add the following line.
    TempUnrealVATBuffer.DELETEALL;
    // End of the added line.

    REPEAT
    VATBuffer."VAT %" := VATEntry7."VAT %";
    VATBuffer."EC %" := VATEntry7."EC %";
    ...

    קוד קיים 3

    ... IF VATEntry7.Type = VATEntry7.Type::Sale THEN BEGIN
    VATEntry7.Base := -VATEntry7.Base;
    VATEntry7.Amount := -VATEntry7.Amount;

    // Delete the following lines.
    END;
    IF VATBuffer.FIND THEN BEGIN
    VATBuffer.Base := VATBuffer.Base + VATEntry7.Base;
    VATBuffer.Amount := VATBuffer.Amount + VATEntry7.Amount;
    IF (VATEntry7.Type = VATEntry7.Type::Sale) AND (VATEntry7."EC %" <> 0) THEN
    VATBuffer."EC Amount" := VATBuffer."EC Amount" + ROUND(VATEntry7.Base * VATEntry7."EC %" / 100);
    VATBuffer.MODIFY;
    END ELSE BEGIN
    VATBuffer.Base := VATEntry7.Base;
    VATBuffer.Amount := VATEntry7.Amount;
    VATBuffer."EC Amount" := 0;
    IF (VATEntry7.Type = VATEntry7.Type::Sale) AND (VATEntry7."EC %" <> 0) THEN
    VATBuffer."EC Amount" := ROUND(VATEntry7.Base * VATEntry7."EC %" / 100);
    VATBuffer.INSERT;
    END;
    // End of the deleted lines.

    UNTIL VATEntry7.NEXT = 0;
    IF VATBuffer.FINDFIRST THEN
    NoofRecords := NoofRecords + VATBuffer.COUNT;
    ...

    קוד החלפה 3

    ...IF VATEntry7.Type = VATEntry7.Type::Sale THEN BEGIN
    VATEntry7.Base := -VATEntry7.Base;
    VATEntry7.Amount := -VATEntry7.Amount;

    // Add the following lines.
    VATEntry7."Unrealized Base" := -VATEntry7."Unrealized Base";
    VATEntry7."Unrealized Amount" := -VATEntry7."Unrealized Amount";
    END;
    IF VATBuffer.FIND THEN BEGIN
    UpdateVATBuffer(VATBuffer,VATEntry7);
    VATBuffer.MODIFY;
    END ELSE BEGIN
    VATBuffer.INIT;
    UpdateVATBuffer(VATBuffer,VATEntry7);
    VATBuffer.INSERT;
    END;
    TempUnrealVATBuffer := VATBuffer;
    IF TempUnrealVATBuffer.FIND THEN BEGIN
    UpdateUnrealVATBuffer(TempUnrealVATBuffer,VATEntry7);
    TempUnrealVATBuffer.MODIFY;
    END ELSE BEGIN
    TempUnrealVATBuffer.INIT;
    UpdateUnrealVATBuffer(TempUnrealVATBuffer,VATEntry7);
    TempUnrealVATBuffer.INSERT;
    END;
    IF IsEmptyVATBuffer(VATBuffer) AND IsEmptyVATBuffer(TempUnrealVATBuffer) THEN BEGIN
    VATBuffer.DELETE;
    TempUnrealVATBuffer.DELETE;
    END;
    // End of the added lines.

    UNTIL VATEntry7.NEXT = 0;
    IF VATBuffer.FINDFIRST THEN
    NoofRecords := NoofRecords + VATBuffer.COUNT;
    ...
  2. שנה את הקוד בפונקציה IsEmptyVATBuffer ב הדוח לבצע הצהרה 340 (10743) כדלקמן:
    קוד קיים

    ...UNTIL VATEntryTemporary.NEXT = 0;
    END;

    PROCEDURE GetSalesShipmentDate@1100022(DocumentNo@1100000 : Code[20]) : Date;
    VAR
    SalesShipmentHeader@1100001 : Record 110;
    ...

    קוד החלפה

    ...UNTIL VATEntryTemporary.NEXT = 0;
    END;

    // Add the following lines.
    LOCAL PROCEDURE IsEmptyVATBuffer@1100065(TempVATBuffer@1100000 : Record 10704) : Boolean;
    BEGIN
    WITH TempVATBuffer DO
    EXIT((Base = 0) AND (Amount = 0) AND ("EC Amount" = 0));
    END;

    LOCAL PROCEDURE UpdateVATBuffer@1100061(VAR TempVATBuffer@1100000 : Record 10704;AddedVATEntry@1100001 : Record 254);
    BEGIN
    WITH TempVATBuffer DO BEGIN
    Base += AddedVATEntry.Base;
    Amount += AddedVATEntry.Amount;
    IF (AddedVATEntry.Type = AddedVATEntry.Type::Sale) AND (AddedVATEntry."EC %" <> 0) THEN
    "EC Amount" += ROUND(AddedVATEntry.Base * AddedVATEntry."EC %" / 100);
    END;
    END;

    LOCAL PROCEDURE UpdateUnrealVATBuffer@1100063(VAR TempVATBuffer@1100000 : Record 10704;AddedVATEntry@1100001 : Record 254);
    BEGIN
    WITH TempVATBuffer DO BEGIN
    Base += AddedVATEntry."Unrealized Base";
    Amount += AddedVATEntry."Unrealized Amount";
    IF (AddedVATEntry.Type = AddedVATEntry.Type::Sale) AND (AddedVATEntry."EC %" <> 0) THEN
    "EC Amount" += ROUND(AddedVATEntry."Unrealized Base" * AddedVATEntry."EC %" / 100);
    END;
    END;

    // End of the added lines.

    PROCEDURE GetSalesShipmentDate@1100022(DocumentNo@1100000 : Code[20]) : Date;
    VAR
    SalesShipmentHeader@1100001 : Record 110;
    ...

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

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

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

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

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

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

מצב

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

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

זקוק לעזרה נוספת?

הרחב את הכישורים שלך
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Microsoft insider

האם מידע זה היה שימושי?

עד כמה אתם מרוצים מאיכות השפה?
מה השפיע על החוויה שלכם?

תודה על המשוב!

×