סכום עלות שגוי מוצג בדוחות 10540 ו- 10541 בההסבה בבריטניה של Microsoft Dynamics NAV 2009

תבנית: CPR - תבנית תיקון של קוד Navision

באג #: 204163 (תחזוקת תוכן)

מאמר זה מתאר בעיה בעת הדפסת הדוחות שהתקבלו מניות שלא חויבו ו מניות שנשלחו לא חויבו הסבה בריטניה של Microsoft Dynamics NAV 2009. הבעיה עדיין מתרחשת לאחר יישום KB 2882942.

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

  • הסבה בריטניה של Microsoft Dynamics NAV 2009 R2

  • הסבה בריטניה של Microsoft Dynamics NAV 2009 Service Pack 1 (SP1)

פתרון

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

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

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

אם תיקון חם זה לא פורסם להורדה עבור הציבור הרחב (כלומר שמאמר זה אינו מספק כתובת URL ציבורית להורדת התיקון החם), הפצתו דורשת באישור מאת ראש צוות טכני, חבר צוות הסלמה או מנהל, ויחולו הבאים:

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

  • עליך לנהל מעקב אחר לקוחות שלח זו כדי לספק אותם עם ה-service pack הבאה לכשתהיה זמינה (ואם אכן תפורסם service pack).

תיקון חם זה אינו מיועד להיכלל עם Microsoft Dynamics NAV Service Pack.

מידע על ההתקנה

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

הערה לפני התקנת תיקון חם זה, ודא כי כל המשתמשים לקוח Microsoft Dynamics NAV אינם מחוברים למערכת. זה כולל שירותי Microsoft Dynamics NAV יישום שרת (NAS). אתה אמור להיות לקוח בלבד המשתמש המחובר כאשר ליישם תיקון חם זה.

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

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

  • שנה את ההרשאה עבור האובייקט שינוי.

  • הרשאת Execute עבור האובייקט 5210 מזהה אובייקט מערכת ועבור 9015 מזהה אובייקט מערכת

    אובייקט.

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

שינויי קוד

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

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

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

    ...VertAlign=Bottom;
    FontBold=Yes;
    MultiLine=Yes;
    DataSetFieldName=Item_Ledger_Entry__Cost_Amount__Expected__Caption }
    { 1040042;Label ;5700 ;0 ;1550 ;846 ;ParentControl=1040040;
    VertAlign=Bottom;
    ...

    קוד החלפה 1

    ...VertAlign=Bottom;
    FontBold=Yes;
    MultiLine=Yes;

    // Adding the following line.
    CaptionML=ENU=Cost Amount (Expected);
    // End of the added line.

    DataSetFieldName=Item_Ledger_Entry__Cost_Amount__Expected__Caption }
    { 1040042;Label ;5700 ;0 ;1550 ;846 ;ParentControl=1040040;
    VertAlign=Bottom;
    ...

    קוד קיים 2

    ...SourceExpr="Value Entry"."Invoiced Quantity";
    DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity_ }
    { 1040039;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;

    // Deleting the following line.
    SourceExpr="Item Ledger Entry"."Cost Amount (Expected)";
    // End of the deleted line.

    DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected__ }
    { 1040045;TextBox ;0 ;0 ;5400 ;423 ;FontBold=Yes;
    SourceExpr=Text1040005 + ' ' + Item."No.";
    ...

    קוד החלפה 2

    ...SourceExpr="Value Entry"."Invoiced Quantity";
    DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity_ }
    { 1040039;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;

    // Adding the following line.
    SourceExpr=ItemCostAmtExpected;
    // End of the added line.

    DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected__ }
    { 1040045;TextBox ;0 ;0 ;5400 ;423 ;FontBold=Yes;
    SourceExpr=Text1040005 + ' ' + Item."No.";
    ...

    קוד קיים 3

    ...DataSetFieldName=Value_Entry___Cost_Amount__Actual__ }
    { 1040059;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
    CaptionML=ENU=Rec. not invoiced;

    // Deleting the following line.
    SourceExpr="Item Ledger Entry"."Cost Amount (Expected)" - "Value Entry"."Cost Amount (Actual)";
    // End of the deleted line.

    DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual__ }
    { 1040064;TextBox ;15000;0 ;1500 ;423 ;FontBold=Yes;
    SourceExpr="Value Entry"."Invoiced Quantity";
    ...

    קוד החלפה 3

    ...DataSetFieldName=Value_Entry___Cost_Amount__Actual__ }
    { 1040059;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
    CaptionML=ENU=Rec. not invoiced;

    // Adding the following line.
    SourceExpr=ItemCostAmtExpected - ValueCostAmtActual;
    // End of the added line.

    DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual__ }
    { 1040064;TextBox ;15000;0 ;1500 ;423 ;FontBold=Yes;
    SourceExpr="Value Entry"."Invoiced Quantity";
    ...

    קוד קיים 4

    ...DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040067 }
    { 1040068;TextBox ;13050;423 ;1800 ;423 ;FontSize=7;
    FontBold=Yes;

    // Deleting the following lines.
    SourceExpr="Item Ledger Entry"."Cost Amount (Expected)";
    DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected___Control1040068 }
    { 1040069;TextBox ;7350 ;423 ;1550 ;423 ;FontSize=7;
    FontBold=Yes;
    CaptionML=ENU=Rec. not invoiced;
    SourceExpr="Item Ledger Entry"."Cost Amount (Expected)" - "Value Entry"."Cost Amount (Actual)";
    // End of the deleted lines.

    DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040069 }
    { 1040070;TextBox ;15000;423 ;1500 ;423 ;FontSize=7;
    FontBold=Yes;
    ...

    קוד החלפה 4

    ...DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040067 }
    { 1040068;TextBox ;13050;423 ;1800 ;423 ;FontSize=7;
    FontBold=Yes;

    // Adding the following lines.
    SourceExpr=ItemCostAmtExpectedTotal }
    { 1040069;TextBox ;7350 ;423 ;1550 ;423 ;FontSize=7;
    FontBold=Yes;
    CaptionML=ENU=Rec. not invoiced;
    SourceExpr=ItemCostAmtExpectedTotal - ValueCostAmtActualTotal;
    // End of the added lines.

    DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040069 }
    { 1040070;TextBox ;15000;423 ;1500 ;423 ;FontSize=7;
    FontBold=Yes;
    ...

    קוד קיים 5

    ...ForeColor=65535;
    SourceExpr=ItemInvoicedQtyTotal;
    DataSetFieldName=ItemInvoicedQtyTotal }

    // Delete the following lines.
    { 1040103;TextBox ;300 ;0 ;150 ;423 ;Name=ItemCostAmtExpectedTotal;
    Visible=No;
    ForeColor=65535;
    SourceExpr=ItemCostAmtExpectedTotal;
    DataSetFieldName=ItemCostAmtExpectedTotal }
    // End of the deleted lines.

    { 1040104;TextBox ;0 ;0 ;150 ;423 ;Name=ItemReceivedQtyTotal;
    Visible=No;
    ForeColor=65535;
    ...

    קוד החלפה 5

    ...ForeColor=65535;
    SourceExpr=ItemInvoicedQtyTotal;
    DataSetFieldName=ItemInvoicedQtyTotal }
    { 1040104;TextBox ;0 ;0 ;150 ;423 ;Name=ItemReceivedQtyTotal;
    Visible=No;
    ForeColor=65535;
    ...
  2. שינוי נתוני פריט מספר 2 מקטעים שהתקבלו מניות הקוד לא חויבו הדוח (10540) כדלקמן:
    קוד קיים 1

    ...NoOfItems := NoOfItems + 1;
    CurrReport.CREATETOTALS(Quantity,"Invoiced Quantity","Cost Amount (Expected)");
    CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");

    // Delete the following lines.
    // GB1004.begin
    ItemReceivedQty += Quantity;
    ItemInvoicedQty += "Invoiced Quantity";
    ItemCostAmtExpected += "Cost Amount (Expected)";
    ItemReceivedQtyTotal += Quantity;
    ItemInvoicedQtyTotal += "Invoiced Quantity";
    ItemCostAmtExpectedTotal += "Cost Amount (Expected)";
    // End of the deleted lines.

    // GB1004.end
    END;
    ...

    קוד החלפה 1

    ...NoOfItems := NoOfItems + 1;
    CurrReport.CREATETOTALS(Quantity,"Invoiced Quantity","Cost Amount (Expected)");
    CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");

    // Add the following lines.
    CALCFIELDS("Cost Amount (Actual)");
    CALCFIELDS("Cost Amount (Expected)");
    // GB1004.begin
    ItemReceivedQty += Quantity;
    ItemInvoicedQty += "Invoiced Quantity";
    ItemCostAmtExpected += "Cost Amount (Expected)" + "Cost Amount (Actual)";
    ItemReceivedQtyTotal += Quantity;
    ItemInvoicedQtyTotal += "Invoiced Quantity";
    ItemCostAmtExpectedTotal += "Cost Amount (Expected)" + "Cost Amount (Actual)";
    // End of the added lines.

    // GB1004.end
    END;
    ...

    קוד קיים 2

    ...{ 1040047;TextBox   ;2100 ;0    ;1500 ;423  ;HorzAlign=Left;
    SourceExpr="Source No.";
    DataSetFieldName=Item_Ledger_Entry__Source_No__ }

    // Delete the following line.
    { 1040030;TextBox ;13050;0 ;1800 ;423 ;SourceExpr="Cost Amount (Expected)";
    // End of the deleted line.

    DataSetFieldName=Item_Ledger_Entry__Cost_Amount__Expected__ }
    }
    }
    ...

    קוד החלפה 2

    ...{ 1040047;TextBox   ;2100 ;0    ;1500 ;423  ;HorzAlign=Left;
    SourceExpr="Source No.";
    DataSetFieldName=Item_Ledger_Entry__Source_No__ }

    // Add the following line.
    { 1040030;TextBox ;13050;0 ;1800 ;423 ;SourceExpr="Cost Amount (Expected)" + "Cost Amount (Actual)";
    // End of the added line.

    DataSetFieldName=Item_Ledger_Entry__Cost_Amount__Expected__ }
    }
    }
    ...

    קוד קיים 3

    ...SourceExpr="Value Entry"."Invoiced Quantity";
    DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry___Invoiced_Quantity_ }
    { 1040076;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;

    // Delete the following line.
    SourceExpr="Item Ledger Entry"."Cost Amount (Expected)";
    // End of the deleted line.

    DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry___Cost_Amount__Expected__ }
    { 1040079;TextBox ;0 ;0 ;5400 ;423 ;FontBold=Yes;
    SourceExpr=Text1040005 + ' ' + Item."No.";
    ...

    קוד החלפה 3

    ...SourceExpr="Value Entry"."Invoiced Quantity";
    DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry___Invoiced_Quantity_ }
    { 1040076;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;

    // Add the following line.
    SourceExpr=ItemCostAmtExpected;
    // End of the added line.

    DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry___Cost_Amount__Expected__ }
    { 1040079;TextBox ;0 ;0 ;5400 ;423 ;FontBold=Yes;
    SourceExpr=Text1040005 + ' ' + Item."No.";
    ...

    קוד קיים 4

    ...DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040080 }
    { 1040081;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
    CaptionML=ENU=Cost;

    // Delete the following line.
    SourceExpr="Item Ledger Entry"."Cost Amount (Expected)" - "Value Entry"."Cost Amount (Actual)";
    // End of the deleted line.

    DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040081 }
    { 1040078;TextBox ;18000;0 ;150 ;423 ;Name=NoOfItems;
    Visible=No;
    ...

    קוד החלפה 4

    ...DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040080 }
    { 1040081;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
    CaptionML=ENU=Cost;

    // Add the following line.
    SourceExpr=ItemCostAmtExpected - ValueCostAmtActual;
    // End of the added line.

    DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040081 }
    { 1040078;TextBox ;18000;0 ;150 ;423 ;Name=NoOfItems;
    Visible=No;
    ...
  3. שינוי נתוני פריט מספר 3 מקטעים שהתקבלו מניות הקוד לא חויבו הדוח (10540) כדלקמן:
    קוד קיים 1

    ...OnPreDataItem=BEGIN
    IF EndDate <> 0D THEN
    SETRANGE("Posting Date",0D,EndDate);

    // Delete the following line.
    SETFILTER("Invoiced Quantity",'<>%1',0);
    CurrReport.CREATETOTALS("Cost Amount (Actual)","Invoiced Quantity");
    // End of the deleted line.

    END;

    OnAfterGetRecord=BEGIN
    ...

    קוד החלפה 1

    ...OnPreDataItem=BEGIN
    IF EndDate <> 0D THEN
    SETRANGE("Posting Date",0D,EndDate);

    // Add the following lines.
    CurrReport.CREATETOTALS("Cost Amount (Actual)","Invoiced Quantity");
    LastDocumentNo := '';
    // End of the added lines.

    END;

    OnAfterGetRecord=BEGIN
    ...

    קוד קיים 2

    ...ValueInvoicedQty += "Invoiced Quantity";
    ValueCostAmtActualTotal += "Cost Amount (Actual)";
    ValueInvoicedQtyTotal += "Invoiced Quantity";
    // GB1004.end
    END;
    ...

    קוד החלפה 2

    ...ValueInvoicedQty += "Invoiced Quantity";
    ValueCostAmtActualTotal += "Cost Amount (Actual)";
    ValueInvoicedQtyTotal += "Invoiced Quantity";

    // Add the following line.
    CalcSumDocumentNo("Value Entry");
    // End of the added line.

    // GB1004.end
    END;
    ...

    קוד קיים 3

    ...SectionWidth=18150;
    SectionHeight=423;
    OnPreSection=BEGIN

    // Delete the following line.
    CurrReport.SHOWOUTPUT(PrintDetails);
    // End of the deleted line.

    END;

    }
    ...

    קוד החלפה 3

    ...SectionWidth=18150;
    SectionHeight=423;
    OnPreSection=BEGIN

    // Add the following line.
    CurrReport.SHOWOUTPUT(PrintDetails AND ("Invoiced Quantity" <> 0));
    // End of the added line.

    END;

    }
    ...
  4. שינוי הקוד ב משתנים גלובליים ב שהתקבלו מניות שלא חויבו הדוח (10540) כדלקמן:
    קוד קיים

    ...</TableCell>
    </TableCells>
    <Visibility>

    // Delete the following line.
    <Hidden>=iif (Fields!PrintDetails.Value and Fields!Value_Entry_Entry_No_.Value > 0,FALSE,TRUE)</Hidden>
    // End of the deleted line.

    </Visibility>
    </TableRow>
    </TableRows>
    ...

    קוד החלפה

    ...</TableCell>
    </TableCells>
    <Visibility>

    // Adding the following line.
    <Hidden>=iif (Fields!PrintDetails.Value and Fields!Value_Entry_Entry_No_.Value and Fields!Value_Entry__Invoiced_Quantity_.Value <> 0,FALSE,TRUE)</Hidden>
    // End of the added line.

    </Visibility>
    </TableRow>
    </TableRows>
    ...
  5. שינוי הקוד ב נתוני פריט מספר 1 מקטעים שנשלחו מניות לא חויבו הדוח (10541) כדלקמן:
    קוד קיים 1

    ...VertAlign=Bottom;
    FontBold=Yes;
    MultiLine=Yes;
    DataSetFieldName=Value_Entry__Cost_Amount__Actual__Caption }
    { 1040026;Label ;15000;846 ;1500 ;846 ;ParentControl=1040025;
    HorzAlign=Right;
    ...

    קוד החלפה 1

    ...VertAlign=Bottom;
    FontBold=Yes;
    MultiLine=Yes;

    // Add the following line.
    CaptionML=ENU=Cost Amount (Actual);
    // End of the added line.

    DataSetFieldName=Value_Entry__Cost_Amount__Actual__Caption }
    { 1040026;Label ;15000;846 ;1500 ;846 ;ParentControl=1040025;
    HorzAlign=Right;
    ...

    קוד קיים 2

    ...VertAlign=Bottom;
    FontBold=Yes;
    MultiLine=Yes;
    DataSetFieldName=Item_Ledger_Entry__Cost_Amount__Expected__Caption }
    { 1040042;Label ;5700 ;0 ;1550 ;846 ;ParentControl=1040040;
    VertAlign=Bottom;
    ...

    קוד החלפה 2

    ...VertAlign=Bottom;
    FontBold=Yes;
    MultiLine=Yes;

    // Add the following line.
    CaptionML=ENU=Cost Amount (Expected);
    // End of the added line.

    DataSetFieldName=Item_Ledger_Entry__Cost_Amount__Expected__Caption }
    { 1040042;Label ;5700 ;0 ;1550 ;846 ;ParentControl=1040040;
    VertAlign=Bottom;
    ...

    קוד קיים 3

    ...SourceExpr=Text1040005 + ' ' + Item."No.";
    DataSetFieldName=Text1040005_________Item__No__ }
    { 1040054;TextBox ;16650;0 ;1500 ;423 ;FontBold=Yes;

    // Delete the following line.
    SourceExpr="Value Entry"."Cost Amount (Actual)";
    // End of the deleted line.

    DataSetFieldName=Value_Entry___Cost_Amount__Actual__ }
    { 1040059;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
    CaptionML=ENU=Rec. not invoiced;
    ...

    קוד החלפה 3

    ...SourceExpr=Text1040005 + ' ' + Item."No.";
    DataSetFieldName=Text1040005_________Item__No__ }
    { 1040054;TextBox ;16650;0 ;1500 ;423 ;FontBold=Yes;

    // Add the following line.
    SourceExpr=-"Value Entry"."Cost Amount (Actual)";
    // End of the added line.

    DataSetFieldName=Value_Entry___Cost_Amount__Actual__ }
    { 1040059;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
    CaptionML=ENU=Rec. not invoiced;
    ...

    קוד קיים 4

    ...DataSetFieldName=Value_Entry___Invoiced_Quantity__Control1040070 }
    { 1040071;TextBox ;16650;423 ;1500 ;423 ;FontSize=7;
    FontBold=Yes;

    // Delete the following line.
    SourceExpr="Value Entry"."Cost Amount (Actual)";
    // End of the deleted line.

    DataSetFieldName=Value_Entry___Cost_Amount__Actual___Control1040071 }
    { 1040072;Label ;0 ;423 ;5550 ;423 ;FontSize=9;
    FontBold=Yes;
    ...

    קוד החלפה 4

    ...DataSetFieldName=Value_Entry___Invoiced_Quantity__Control1040070 }
    { 1040071;TextBox ;16650;423 ;1500 ;423 ;FontSize=7;
    FontBold=Yes;

    // Add the following line.
    SourceExpr=-"Value Entry"."Cost Amount (Actual)";
    // End of the added line.

    DataSetFieldName=Value_Entry___Cost_Amount__Actual___Control1040071 }
    { 1040072;Label ;0 ;423 ;5550 ;423 ;FontSize=9;
    FontBold=Yes;
    ...
  6. שנה קוד מספר פריט נתונים 2 שנשלחו מניות לא חויבו הדוח (10541) כדלקמן:
    קוד קיים 1

    ...OnAfterGetRecord=BEGIN
    NoOfItems := NoOfItems + 1;
    CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");

    // Delete the following lines.
    ItemCostAmount += "Cost Amount (Expected)";
    ItemShippedQty += -Quantity;
    ItemInvoicedQty += -"Invoiced Quantity";
    ItemCostAmtExpected += "Cost Amount (Expected)";

    ItemCostAmountTotal += "Cost Amount (Expected)";
    ItemShippedQtyTotal += -Quantity;
    ItemInvoicedQtyTotal += -"Invoiced Quantity";
    ItemCostAmtExpectedTotal += "Cost Amount (Expected)";
    // End of the deleted lines.

    END;

    DataItemLink=Item No.=FIELD(No.);
    ...

    קוד החלפה 1

    ...OnAfterGetRecord=BEGIN
    NoOfItems := NoOfItems + 1;
    CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");

    // Add the following lines.
    CALCFIELDS("Cost Amount (Actual)");
    CALCFIELDS("Cost Amount (Expected)");

    ItemCostAmount -= ("Cost Amount (Expected)" + "Cost Amount (Actual)");
    ItemShippedQty -= Quantity;
    ItemInvoicedQty -= "Invoiced Quantity";
    ItemCostAmtExpected -= ("Cost Amount (Expected)" + "Cost Amount (Actual)");

    ItemCostAmountTotal -= ("Cost Amount (Expected)" + "Cost Amount (Actual)");
    ItemShippedQtyTotal -= Quantity;
    ItemInvoicedQtyTotal -= "Invoiced Quantity";
    ItemCostAmtExpectedTotal -= ("Cost Amount (Expected)" + "Cost Amount (Actual)");
    // End of the added lines.

    END;

    DataItemLink=Item No.=FIELD(No.);
    ...

    קוד קיים 2

    ...{ 1040047;TextBox   ;2100 ;0    ;1500 ;423  ;HorzAlign=Left;
    SourceExpr="Source No.";
    DataSetFieldName=Item_Ledger_Entry__Source_No__ }

    // Delete the following line.
    { 1040030;TextBox ;13050;0 ;1800 ;423 ;SourceExpr="Cost Amount (Expected)";
    // End of the deleted line.

    DataSetFieldName=Item_Ledger_Entry__Cost_Amount__Expected__ }
    { 1040082;TextBox ;18000;0 ;150 ;423 ;Name="Entry No.";
    Visible=No;
    ...

    קוד החלפה 2

    ...{ 1040047;TextBox   ;2100 ;0    ;1500 ;423  ;HorzAlign=Left;
    SourceExpr="Source No.";
    DataSetFieldName=Item_Ledger_Entry__Source_No__ }

    // Add the following line.
    { 1040030;TextBox ;13050;0 ;1800 ;423 ;SourceExpr=-("Cost Amount (Expected)" + "Cost Amount (Actual)");
    // End of the added line.

    DataSetFieldName=Item_Ledger_Entry__Cost_Amount__Expected__ }
    { 1040082;TextBox ;18000;0 ;150 ;423 ;Name="Entry No.";
    Visible=No;
    ...
  7. שינוי קוד 3 מספר פריט נתונים ב- שנשלחו מניות שלא חויבו הדוח (10541) כדלקמן:
    קוד קיים 1

    ...OnPreDataItem=BEGIN
    IF EndDate <> 0D THEN
    SETRANGE("Posting Date",0D,EndDate);

    // Delete the following lines.
    SETFILTER("Invoiced Quantity",'<>%1',0);
    CurrReport.CREATETOTALS("Cost Amount (Actual)","Invoiced Quantity");
    END;

    OnAfterGetRecord=BEGIN
    ValueInvoicedQty += -"Invoiced Quantity";
    ValueCostAmtActual += "Cost Amount (Actual)";

    ValueInvoicedQtyTotal += -"Invoiced Quantity";
    ValueCostAmtActualTotal += "Cost Amount (Actual)";
    // End of the deleted lines.

    END;

    DataItemLink=Item Ledger Entry No.=FIELD(Entry No.);
    ...

    קוד החלפה 1

    ...OnPreDataItem=BEGIN
    IF EndDate <> 0D THEN
    SETRANGE("Posting Date",0D,EndDate);

    // Add the following lines.
    CurrReport.CREATETOTALS("Cost Amount (Actual)","Invoiced Quantity");
    LastDocumentNo := '';
    END;

    OnAfterGetRecord=BEGIN
    ValueInvoicedQty -= "Invoiced Quantity";
    ValueCostAmtActual -= "Cost Amount (Actual)";

    ValueInvoicedQtyTotal -= "Invoiced Quantity";
    ValueCostAmtActualTotal -= "Cost Amount (Actual)";

    CalcSumDocumentNo("Value Entry");
    // End of the added lines.

    END;

    DataItemLink=Item Ledger Entry No.=FIELD(Entry No.);
    ...

    קוד קיים 3

    ...SectionWidth=18150;
    SectionHeight=423;
    OnPreSection=BEGIN

    // Delete the following line.
    CurrReport.SHOWOUTPUT(PrintDetails);
    // End of the deleted line.

    END;

    }
    ...

    קוד החלפה 3

    ...SectionWidth=18150;
    SectionHeight=423;
    OnPreSection=BEGIN

    // Add the following line.
    CurrReport.SHOWOUTPUT(PrintDetails AND ("Invoiced Quantity" <> 0));
    // End of the added line.

    END;

    }
    ...

    קוד קיים 4

    ...{ 1040025;TextBox   ;15000;0    ;1500 ;423  ;CaptionML=ENU=Invoiced Quantity;
    SourceExpr=-"Invoiced Quantity";
    DataSetFieldName=Value_Entry__Invoiced_Quantity_ }

    // Delete the following line.
    { 1040027;TextBox ;16650;0 ;1500 ;423 ;SourceExpr="Cost Amount (Actual)";
    // End of the deleted line.

    DataSetFieldName=Value_Entry__Cost_Amount__Actual__ }
    }
    }
    ...

    קוד החלפה 4

    ...{ 1040025;TextBox   ;15000;0    ;1500 ;423  ;CaptionML=ENU=Invoiced Quantity;
    SourceExpr=-"Invoiced Quantity";
    DataSetFieldName=Value_Entry__Invoiced_Quantity_ }

    // Add the following line.
    { 1040027;TextBox ;16650;0 ;1500 ;423 ;SourceExpr=-"Cost Amount (Actual)";
    // End of the added line.

    DataSetFieldName=Value_Entry__Cost_Amount__Actual__ }
    }
    }
    ...
  8. שינוי קוד 4 מספר פריט נתונים ב- שנשלחו מניות שלא חויבו הדוח (10541) כדלקמן:
    קוד קיים

    ...SourceExpr=-"Value Entry"."Invoiced Quantity";
    DataSetFieldName=Value_Entry___Invoiced_Quantity__Control1040036 }
    { 1040044;TextBox ;16650;0 ;1500 ;423 ;FontBold=Yes;

    // Delete the following line.
    SourceExpr="Value Entry"."Cost Amount (Actual)";
    // End of the deleted line.

    DataSetFieldName=Value_Entry___Cost_Amount__Actual___Control1040044 }
    { 1040029;TextBox ;0 ;0 ;5400 ;423 ;FontBold=Yes;
    SourceExpr=Text1040005 + ' ' + Item."No.";
    ...

    קוד החלפה

    ...SourceExpr=-"Value Entry"."Invoiced Quantity";
    DataSetFieldName=Value_Entry___Invoiced_Quantity__Control1040036 }
    { 1040044;TextBox ;16650;0 ;1500 ;423 ;FontBold=Yes;

    // Add the following line.
    SourceExpr=-"Value Entry"."Cost Amount (Actual)";
    // End of the added line.

    DataSetFieldName=Value_Entry___Cost_Amount__Actual___Control1040044 }
    { 1040029;TextBox ;0 ;0 ;5400 ;423 ;FontBold=Yes;
    SourceExpr=Text1040005 + ' ' + Item."No.";
    ...
  9. שינוי בקוד משתנים גלובליים ב שנשלחו מלאי שלא חויבו הדוח (10541) כדלקמן:
    קוד קיים 1

    ...ItemCostAmtExpectedTotal@1040016 : Decimal;
    ValueInvoicedQtyTotal@1040019 : Decimal;
    ValueCostAmtActualTotal@1040020 : Decimal;

    BEGIN
    {
    ...

    קוד החלפה 1

    ...ItemCostAmtExpectedTotal@1040016 : Decimal;
    ValueInvoicedQtyTotal@1040019 : Decimal;
    ValueCostAmtActualTotal@1040020 : Decimal;

    // Add the following lines.
    LastDocumentNo@1040023 : Code[20];

    LOCAL PROCEDURE CalcSumDocumentNo@1040000(VAR ValueEntry@1040000 : Record 5802);
    VAR
    ValueEntry1@1040001 : Record 5802;
    ValueCostAmtActualPer@1040002 : Decimal;
    ValueIncoicedQtyPer@1040003 : Decimal;
    BEGIN
    IF LastDocumentNo = ValueEntry."Document No." THEN BEGIN
    ValueEntry."Cost Amount (Actual)" := 0;
    ValueEntry."Invoiced Quantity" := 0;
    END ELSE BEGIN
    WITH ValueEntry1 DO BEGIN
    COPYFILTERS(ValueEntry);
    SETRANGE("Document No.",ValueEntry."Document No.");
    IF FINDSET THEN
    REPEAT
    ValueCostAmtActualPer += "Cost Amount (Actual)";
    ValueIncoicedQtyPer += "Invoiced Quantity";
    UNTIL NEXT = 0;
    END;
    ValueEntry."Cost Amount (Actual)" := ValueCostAmtActualPer;
    ValueEntry."Invoiced Quantity" := ValueIncoicedQtyPer;
    LastDocumentNo := ValueEntry."Document No.";
    END;
    END;
    // End of the added lines.

    BEGIN
    {
    ...

    קוד קיים 2

    ...</TableCell>
    </TableCells>
    <Visibility>

    // Delete the following line.
    <Hidden>=IIF(First(Fields!PrintDetails.Value) And (Fields!Value_Entry__Document_No__.Value<>""),False,True)</Hidden>
    // End of the deleted line.

    </Visibility>
    </TableRow>
    </TableRows>
    ...

    קוד החלפה 2

    ...</TableCell>
    </TableCells>
    <Visibility>

    // Add the following line.
    <Hidden>=IIF(First(Fields!PrintDetails.Value) And (Fields!Value_Entry__Document_No__.Value<>"") And (Fields!Value_Entry__Invoiced_Quantity_.Value <>0),False,True)</Hidden>
    // End of the added line.

    </Visibility>
    </TableRow>
    </TableRows>
    ...


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

אתה חייב להיות ההסבה בבריטניה של Microsoft Dynamics NAV 2009 R2 SP1 מותקן או כדי להחיל תיקון חם זה.

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

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

מצב

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

הפניות

VSFT DynamicsNAVSE: 352587

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

מחבר: avannini
Writer: v-six
סוקר טכני: avannini
Editor:

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

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

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

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

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×