不正確的成本量會顯示在 10540 和 10541，英國當地語系化，Microsoft 動態航行點 2009 年中的報表

Hotfix 資訊

已經可以從 Microsoft 取得支援的 hotfix。不過，它只被用來修正本文所述的問題。它只適用於發生此特定問題的系統上。此 hotfix 可能會接受其他測試。因此，如果此問題不會嚴重影響，我們建議您等候下一步的 Microsoft 動態航行點 2009 service pack 或包含此 hotfix 的下一個 Microsoft 動態航行點版本。

注意 在特殊的情況下，通常會支援呼叫可能已被取消如果技術支援專業人員的 Microsoft 動態及相關的產品所產生的費用會決定某特定更新程式可以解決您的問題。收取支援費用會套用，如果有其他支援問題是，不能限定的特定更新程式。

安裝資訊

Microsoft 會提供程式設計範例僅供說明，而不做任何明示或默示的保證。這包括，但不限於適售性或適合某特定用途之默示擔保責任。本文假設您已相當熟悉使用的我們所示範的程式設計語言以及建立和偵錯程序所使用的工具。Microsoft 技術支援工程師可以協助解釋特定程序的功能。不過，它們不會修改這些範例以提供附加功能或建構程序來滿足您特定需求。

注意套用此 hotfix 之前，請確認所有的 Microsoft 動態航行點用戶端使用者會登出系統。這包括 Microsoft 動態航行點應用程式伺服器 (NAS) 服務。您應該是唯一的用戶端使用者已登入，當您實作此 hotfix。

若要實作此 hotfix，您必須有開發人員授權。

我們建議您在 Windows 登入] 視窗中的色彩，或資料庫登入] 視窗中的使用者帳戶被指派 「 進階 」 的角色識別碼。如果使用者帳戶不能指派為 「 超級 」 的角色識別碼，您必須確認使用者帳戶具有下列權限︰

• 您將會變更物件的 [修改] 權限。

• 執行權限的系統物件 ID 5210物件和系統物件 ID 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 動態航行點 2009 R2 的英國當地語系化或套用此 hotfix 之後，安裝 SP1。

移除資訊

您無法移除此 hotfix。