המערכת מייצרת כמות שגויה ביומן סטטיסטיקה אם אתה מפרסם חשבונית הכוללת מספרי Lot מרובים עבור שורת פריט בגירסה האיטלקית של Microsoft Dynamics NAV 2009

חל על
Dynamics NAV 2009

מאמר זה חל על Microsoft Dynamics NAV עבור אזור השפה האיטלקית (it).

סימפטומים

שקול את התרחיש הבא בגירסה האיטלקית של Microsoft Dynamics NAV 2009 R2 וב- Microsoft Dynamics NAV 2009 Service Pack 1 (SP1):

  • צור חשבונית עבור פריט והגדרת כמות הפריט ל- 2.
  • עליך להקצות שני מספרי פריטים עבור שורת הפריט בתיבת הדו-שיח שורות מעקב אחר פריטים.
  • אתה מוסיף שורת פריט חיוב שהוקצתה לכל פריט החשבונית לפי סכום בתיבת הדו-שיח הקצאות חיוב פריט.
  • תפרסם את החשבונית.

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

פתרון

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

תיקון חם נתמך זמין כעת מ- 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.

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

שינויי קוד

הערה בדוק תמיד את תיקוני הקוד בסביבה מבוקרת לפני החלת התיקונים על מחשבי הייצור שלך.
כדי לפתור בעיה זו, שנה את הקוד בדוח Get Item Ledger Entries (594). לשם כך, בצע את השלבים הבאים:

  1. שנה את הקוד בפריט הנתונים מספר 2 באופן הבא:

    1. מחק משתנה כללי באופן הבא:
      קוד קיים

      ...
SalesShipLine@1130019 : Record 111;
ReturnRcptHeader@1130011 : Record 6660;
DocItemSum@1130013 : Decimal;
CorrectionFound@1130014 : Boolean;
ItemCharge@1130015 : Record 5800;

// Delete the following line.
ValueEntry2@1130016 : Record 5802;

IncludeItemCharge@1130017 : Boolean;
BEGIN
IntrastatJnlLine2.SETRANGE("Source Entry No.","Entry No.");
IF IntrastatJnlLine2.FINDFIRST THEN
CurrReport.SKIP;
...

      קוד חלופי

      ...
SalesShipLine@1130019 : Record 111;
ReturnRcptHeader@1130011 : Record 6660;
DocItemSum@1130013 : Decimal;
CorrectionFound@1130014 : Boolean;
ItemCharge@1130015 : Record 5800;
IncludeItemCharge@1130017 : Boolean;
BEGIN
IntrastatJnlLine2.SETRANGE("Source Entry No.","Entry No.");
IF IntrastatJnlLine2.FINDFIRST THEN
CurrReport.SKIP;
...

    2. שנה את הקוד באופן הבא:
      קוד קיים 1

      ...
TotalAmt := 0;
DocItemSum := 0;
CorrectionFound := FALSE;

ValueEntry.SETRANGE("Item Ledger Entry No.","Item Ledger Entry"."Entry No.");

// Delete the following lines.
 ValueEntry2.COPYFILTERS(ValueEntry);
 ValueEntry2.SETRANGE("Invoiced Quantity",0);
// End of the deleted lines.

IF ValueEntry.FINDSET(FALSE,FALSE) THEN BEGIN
CASE ValueEntry."Item Ledger Entry Type" OF
ValueEntry."Item Ledger Entry Type" :: Purchase: BEGIN
IF ValueEntry."Invoiced Quantity" > 0 THEN BEGIN
...

      קוד חלופי 1

      ...
TotalAmt := 0;
DocItemSum := 0;
CorrectionFound := FALSE;

ValueEntry.SETRANGE("Item Ledger Entry No.","Item Ledger Entry"."Entry No.");

IF ValueEntry.FINDSET(FALSE,FALSE) THEN BEGIN
CASE ValueEntry."Item Ledger Entry Type" OF
ValueEntry."Item Ledger Entry Type" :: Purchase: BEGIN
IF ValueEntry."Invoiced Quantity" > 0 THEN BEGIN
...

      קוד קיים 2

      ...
END;
IF IntrastatJnlBatch."Amounts in Add. Currency" THEN
TotalAmt := CurrExchRate.ExchangeAmtLCYToFCY(
ValueEntry."Posting Date",GLSetup."Additional Reporting Currency",
TotalAmt,AddCurrencyFactor);

// Delete the following lines.
 ValueEntry2.SETRANGE("Item Ledger Entry Type",ValueEntry."Item Ledger Entry Type");
 IF ValueEntry2.FINDSET THEN BEGIN
 REPEAT
 IF IntrastatJnlBatch."Amounts in Add. Currency" THEN
 ValueEntry2."Cost Amount (Actual)" :=
 CurrExchRate.ExchangeAmtLCYToFCY(
 ValueEntry2."Posting Date",GLSetup."Additional Reporting Currency",
 ValueEntry2."Cost Amount (Actual)",AddCurrencyFactor);
 TotalAmt := TotalAmt + ValueEntry2."Cost Amount (Actual)";
 UNTIL ValueEntry2.NEXT = 0;
 END;
// End of the deleted lines.

END;

ValueEntry."Item Ledger Entry Type" :: Sale: BEGIN
IF ValueEntry."Invoiced Quantity" < 0 THEN BEGIN
SalesInvoiceLine.SETRANGE("Document No.",ValueEntry."Document No.");
...

      קוד חלופי 2

      ...
END;
IF IntrastatJnlBatch."Amounts in Add. Currency" THEN
TotalAmt := CurrExchRate.ExchangeAmtLCYToFCY(
ValueEntry."Posting Date",GLSetup."Additional Reporting Currency",
TotalAmt,AddCurrencyFactor);
END;

ValueEntry."Item Ledger Entry Type" :: Sale: BEGIN
IF ValueEntry."Invoiced Quantity" < 0 THEN BEGIN
SalesInvoiceLine.SETRANGE("Document No.",ValueEntry."Document No.");
...

      קוד קיים 3

      ...
IF IntrastatJnlBatch."Amounts in Add. Currency" THEN
TotalAmt := CurrExchRate.ExchangeAmtLCYToFCY(
ValueEntry."Posting Date",GLSetup."Additional Reporting Currency",
TotalAmt,AddCurrencyFactor);

// Delete the following lines.
 ValueEntry2.SETRANGE("Item Ledger Entry Type",ValueEntry."Item Ledger Entry Type");
 IF ValueEntry2.FINDSET THEN BEGIN
 REPEAT
 IF IntrastatJnlBatch."Amounts in Add. Currency" THEN
 ValueEntry2."Sales Amount (Actual)" :=
 CurrExchRate.ExchangeAmtLCYToFCY(
 ValueEntry2."Posting Date",GLSetup."Additional Reporting Currency",
 ValueEntry2."Sales Amount (Actual)",AddCurrencyFactor);
 TotalAmt := TotalAmt - ValueEntry2."Sales Amount (Actual)";
 UNTIL ValueEntry2.NEXT = 0;
 END;
// End of the deleted lines.

END;
ELSE BEGIN
TotalInvoicedQty := TotalInvoicedQty + ValueEntry."Invoiced Quantity";
IF NOT IntrastatJnlBatch."Amounts in Add. Currency" THEN
TotalAmt := TotalAmt + ValueEntry."Cost Amount (Actual)"
...

      קוד חלופי 3

      ...
END;
IF IntrastatJnlBatch."Amounts in Add. Currency" THEN
TotalAmt := CurrExchRate.ExchangeAmtLCYToFCY(
ValueEntry."Posting Date",GLSetup."Additional Reporting Currency",
TotalAmt,AddCurrencyFactor);
END;
ELSE BEGIN
TotalInvoicedQty := TotalInvoicedQty + ValueEntry."Invoiced Quantity";
IF NOT IntrastatJnlBatch."Amounts in Add. Currency" THEN
TotalAmt := TotalAmt + ValueEntry."Cost Amount (Actual)"
...

      קוד קיים 4

      ...
CurrExchRate.ExchangeAmtLCYToFCY(
ValueEntry."Posting Date",GLSetup."Additional Reporting Currency",
ValueEntry."Cost Amount (Actual)",AddCurrencyFactor);
END;
END;
END;

IF ValueEntry."Item Ledger Entry Type" = ValueEntry."Item Ledger Entry Type"::Transfer THEN
InsertItemJnlLine()
ELSE BEGIN
...

      קוד חלופי 4

      ...
CurrExchRate.ExchangeAmtLCYToFCY(
ValueEntry."Posting Date",GLSetup."Additional Reporting Currency",
ValueEntry."Cost Amount (Actual)",AddCurrencyFactor);
END;
END;

// Add the following line.
CalcTotalItemChargeAmt;

END;

IF ValueEntry."Item Ledger Entry Type" = ValueEntry."Item Ledger Entry Type"::Transfer THEN
InsertItemJnlLine()
ELSE BEGIN
...

  2. שנה את הקוד בפונקציה CalcTotalItemChargeAmt באופן הבא:
    קוד קיים

    ...
IntrastatJnlBatch2.SETRANGE("EU Service",TRUE);
IntrastatJnlBatch2.SETRANGE("Corrective Entry",FALSE);
IntrastatJnlBatch2.SETRANGE(Type,IntrastatJnlBatch.Type);
END;

BEGIN
END.
}
RDLDATA
{
...

    קוד חלופי

    ...
IntrastatJnlBatch2.SETRANGE("EU Service",TRUE);
IntrastatJnlBatch2.SETRANGE("Corrective Entry",FALSE);
IntrastatJnlBatch2.SETRANGE(Type,IntrastatJnlBatch.Type);
END;


// Add the following lines.
 LOCAL PROCEDURE CalcTotalItemChargeAmt@1130002();
 VAR
 ValueEntry2@1130001 : Record 5802;
 ActualAmount@1130002 : Decimal;
 BEGIN
 ValueEntry2.COPYFILTERS(ValueEntry);
 ValueEntry2.SETRANGE("Invoiced Quantity",0);
 ValueEntry2.SETRANGE("Item Ledger Entry Type",ValueEntry."Item Ledger Entry Type");
 ValueEntry2.SETRANGE("Item Ledger Entry No.");
 ValueEntry2.SETFILTER("Item Charge No.",'<>%1','');
 ValueEntry2.SETRANGE("Document No.",ValueEntry."Document No.");
 IF ValueEntry2.FINDSET THEN BEGIN
 REPEAT
 ActualAmount := GetActualAmount(ValueEntry2);
 IF IntrastatJnlBatch."Amounts in Add. Currency" THEN
 ActualAmount :=
 CurrExchRate.ExchangeAmtLCYToFCY(
 ValueEntry2."Posting Date",GLSetup."Additional Reporting Currency",
 ActualAmount,AddCurrencyFactor);
 TotalAmt := TotalAmt + ActualAmount;
 UNTIL ValueEntry2.NEXT = 0;
 END;
 END;

 LOCAL PROCEDURE GetActualAmount@1130001(ValueEntry2@1170000000 : Record 5802) : Decimal;
 BEGIN
 CASE ValueEntry2."Item Ledger Entry Type" OF
 ValueEntry2."Item Ledger Entry Type"::Sale:
 EXIT(- ValueEntry2."Sales Amount (Actual)");
 ValueEntry2."Item Ledger Entry Type"::Purchase:
 EXIT(ValueEntry2."Cost Amount (Actual)");
 END;
 END;
// End of the added lines.

BEGIN
END.
}
RDLDATA
{
...

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

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

  • הגירסה האיטלקית של Microsoft Dynamics NAV 2009 R2
  • הגירסה האיטלקית של Microsoft Dynamics NAV 2009 Service Pack 1

מידע על הסרה

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

מצב

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

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