本文适用于 Microsoft Dynamics 导航为英语 (en gb) 语言区域设置。
症状
不能运行库存接收未开票报告和库存发货未开票报告回溯地在 Microsoft Dynamics 导航 2009 年的英国版本。
下列产品中发生此问题︰
-
大不列颠及北爱尔兰联合王国版本的 Microsoft Dynamics 导航 2009 Service Pack 1
-
大不列颠及北爱尔兰联合王国版本的 Microsoft Dynamics 导航 2009 R2
解决方案
修补程序信息
受支持的修补程序现已从 Microsoft 推出。然而，它仅用于纠正本文中描述的问题。它仅应用于正经历此特定问题的系统。此修补程序可能会接受进一步的测试。因此，如果这个问题没有对您造成严重的影响，我们建议您等待下一个 Microsoft Dynamics 导航 2009 服务包 或包含此修复程序的下一步的 Microsoft Dynamics 导航版本。
注意： 在特殊情况下，可免收的支持电话，可免收如果技术支持专业人员对 Microsoft Dynamics 和相关的产品的费用确定某个特定的更新能够解决您的问题。照常收取支持费用将应用于其他支持问题和对于特定更新无法解决的问题。
安装信息
Microsoft 提供的编程示例仅用于说明，没有任何明示或暗示的担保。这包括但不限于适销性或特定用途适用性的暗示担保。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持工程师可以帮助解释某个特定过程的功能。但是，他们不会修改这些示例以提供额外的功能或构建过程以满足您的特定要求。
注意：安装此修复程序之前，请验证所有 Microsoft Dynamics 导航客户端用户都注销系统。这包括 Microsoft Dynamics 导航应用程序服务器 (NAS) 服务。要实现此修补程序时，在登录的唯一客户端用户。
若要实现此修补程序，必须使用开发人员许可证。
我们建议在 Windows 登录窗口或数据库登录窗口中的用户帐户将分配该"超级"角色 id。如果不能将用户帐户分配成"超级"角色 ID，则必须验证用户帐户具有下列权限:
-
您将更改该对象的修改权限。
-
为系统对象 ID™ 5210对象和系统对象 ID 9015执行权限
对象。
注意：您不需要具有对数据存储区的权限，除非您需要执行数据修复。
代码更改
注意：始终测试代码修复在受控环境中应用之前与您的生产计算机的修补程序。
若要解决此问题，请执行以下步骤：
-
更改中股票接收的数据项号 1 中的代码未开票报告 (10540)，如下所示︰
现有代码...CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");
// GB1004.begin
// Delete the following lines.
TotalSum1 := 0;
TotalSum2 := 0;
TotalSum3 := 0;
TotalSum4 := 0;
TotalSum5 := 0;
// End of the deleted lines.
// GB1004.end
END;
...替换代码
...CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");
// GB1004.begin
// Add the following lines.
ItemReceivedQtyTotal := 0;
ItemInvoicedQtyTotal := 0;
ItemCostAmtExpectedTotal := 0;
ValueCostAmtActualTotal := 0;
ValueInvoicedQtyTotal := 0;
// End of the added lines.
// GB1004.end
END;
... -
更改数据项目编号 1 各节中股票接收代码未开票报告 (10540)，如下所示︰
现有代码 1...SourceExpr=USERID;
DataSetFieldName=USERID }
// Delete the following lines.
{ 1040092;TextBox ;15000;1692 ;150 ;423 ;Name=Sum1;
Visible=No;
ForeColor=65535;
SourceExpr=Sum1;
DataSetFieldName=Sum1 }
{ 1040094;TextBox ;15600;1692 ;150 ;423 ;Name=Sum5;
Visible=No;
ForeColor=65535;
SourceExpr=Sum5;
DataSetFieldName=Sum5 }
{ 1040095;TextBox ;15450;1692 ;150 ;423 ;Name=Sum4;
Visible=No;
ForeColor=65535;
SourceExpr=Sum4;
DataSetFieldName=Sum4 }
{ 1040096;TextBox ;15150;1692 ;150 ;423 ;Name=Sum2;
Visible=No;
ForeColor=65535;
SourceExpr=Sum2;
DataSetFieldName=Sum2 }
{ 1040097;TextBox ;15300;1692 ;150 ;423 ;Name=Sum3;
Visible=No;
ForeColor=65535;
SourceExpr=Sum3;
DataSetFieldName=Sum3 }
// End of the deleted lines.
}
}
...替换代码 1
...SourceExpr=USERID;
DataSetFieldName=USERID }
// Add the following lines.
{ 1040092;TextBox ;15000;1692 ;150 ;423 ;Name=ItemReceivedQty;
Visible=No;
ForeColor=65535;
SourceExpr=ItemReceivedQty;
DataSetFieldName=ItemReceivedQty }
{ 1040094;TextBox ;15600;1692 ;150 ;423 ;Name=ValueInvoicedQty;
Visible=No;
ForeColor=65535;
SourceExpr=ValueInvoicedQty;
DataSetFieldName=ValueInvoicedQty }
{ 1040095;TextBox ;15450;1692 ;150 ;423 ;Name=ValueCostAmtActual;
Visible=No;
ForeColor=65535;
SourceExpr=ValueCostAmtActual;
DataSetFieldName=ValueCostAmtActual }
{ 1040096;TextBox ;15150;1692 ;150 ;423 ;Name=ItemInvoicedQty;
Visible=No;
ForeColor=65535;
SourceExpr=ItemInvoicedQty;
DataSetFieldName=ItemInvoicedQty }
{ 1040097;TextBox ;15300;1692 ;150 ;423 ;Name=ItemCostAmtExpected;
Visible=No;
ForeColor=65535;
SourceExpr=ItemCostAmtExpected;
DataSetFieldName=ItemCostAmtExpected }
// End of the added lines.
}
}现有代码 2
...{ 1040046;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Delete the following line.
SourceExpr="Item Ledger Entry".Quantity - "Item Ledger Entry"."Invoiced Quantity";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040033;TextBox ;9150 ;0 ;1800 ;423 ;FontBold=Yes;替换代码 2
...{ 1040046;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Add the following line.
SourceExpr="Item Ledger Entry".Quantity - "Value Entry"."Invoiced Quantity";
// End of the added line.
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040033;TextBox ;9150 ;0 ;1800 ;423 ;FontBold=Yes;
...现有代码 3
...DataSetFieldName=Item_Ledger_Entry__Quantity }
{ 1040038;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Delete the following line.
SourceExpr="Item Ledger Entry"."Invoiced Quantity";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040039;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...替换代码 3
...DataSetFieldName=Item_Ledger_Entry__Quantity }
{ 1040038;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Add the following line.
SourceExpr="Value Entry"."Invoiced Quantity";
// End of the added line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040039;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...现有代码 4
...{ 1040059;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Delete the following line.
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)";
// 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;
...替换代码 4
...{ 1040059;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Add the following line.
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)" - "Value Entry"."Cost Amount (Actual)";
// 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;
...现有代码 5
...FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Delete the following line.
SourceExpr="Item Ledger Entry".Quantity - "Item Ledger Entry"."Invoiced Quantity";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040065 }
{ 1040066;TextBox ;9150 ;423 ;1800 ;423 ;FontSize=7;
...替换代码 5
...FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Add the following line.
SourceExpr="Item Ledger Entry".Quantity - "Value Entry"."Invoiced Quantity";
// End of the added line.
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040065 }
{ 1040066;TextBox ;9150 ;423 ;1800 ;423 ;FontSize=7;
...现有代码 6
...{ 1040067;TextBox ;11100;423 ;1800 ;423 ;FontSize=7;
FontBold=Yes;
// Delete the following line.
SourceExpr="Item Ledger Entry"."Invoiced Quantity";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040067 }
{ 1040068;TextBox ;13050;423 ;1800 ;423 ;FontSize=7;
...替换代码 6
...{ 1040067;TextBox ;11100;423 ;1800 ;423 ;FontSize=7;
FontBold=Yes;
// Add the following line.
SourceExpr="Value Entry"."Invoiced Quantity";
// End of the added line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040067 }
{ 1040068;TextBox ;13050;423 ;1800 ;423 ;FontSize=7;
...现有代码 7
...FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Delete the following line.
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040069 }
{ 1040070;TextBox ;15000;423 ;1500 ;423 ;FontSize=7;
...替换代码 7
...FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Add the following line.
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)" - "Value Entry"."Cost Amount (Actual)";
// End of the added line.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040069 }
{ 1040070;TextBox ;15000;423 ;1500 ;423 ;FontSize=7;
...现有代码 8
...CaptionML=ENU=Total;
DataSetFieldName=TotalCaption }
// Delete the following lines.
{ 1040100;TextBox ;600 ;0 ;150 ;423 ;Name=TotalSum5;
Visible=No;
ForeColor=65535;
SourceExpr=TotalSum5;
DataSetFieldName=TotalSum5 }
{ 1040101;TextBox ;450 ;0 ;150 ;423 ;Name=TotalSum4;
Visible=No;
ForeColor=65535;
SourceExpr=TotalSum4;
DataSetFieldName=TotalSum4 }
{ 1040102;TextBox ;150 ;0 ;150 ;423 ;Name=TotalSum2;
Visible=No;
ForeColor=65535;
SourceExpr=TotalSum2;
DataSetFieldName=TotalSum2 }
{ 1040103;TextBox ;300 ;0 ;150 ;423 ;Name=TotalSum3;
Visible=No;
ForeColor=65535;
SourceExpr=TotalSum3;
DataSetFieldName=TotalSum3 }
{ 1040104;TextBox ;0 ;0 ;150 ;423 ;Name=TotalSum1;
Visible=No;
ForeColor=65535;
SourceExpr=TotalSum1;
DataSetFieldName=TotalSum1 }
// End of the deleted lines.
}
}
...替换代码 8
...CaptionML=ENU=Total;
DataSetFieldName=TotalCaption }
// Add the following lines.
{ 1040100;TextBox ;600 ;0 ;150 ;423 ;Name=ValueInvoicedQtyTotal;
Visible=No;
ForeColor=65535;
SourceExpr=ValueInvoicedQtyTotal;
DataSetFieldName=ValueInvoicedQtyTotal }
{ 1040101;TextBox ;450 ;0 ;150 ;423 ;Name=ValueCostAmtActualTotal;
Visible=No;
ForeColor=65535;
SourceExpr=ValueCostAmtActualTotal;
DataSetFieldName=ValueCostAmtActualTotal }
{ 1040102;TextBox ;150 ;0 ;150 ;423 ;Name=ItemInvoicedQtyTotal;
Visible=No;
ForeColor=65535;
SourceExpr=ItemInvoicedQtyTotal;
DataSetFieldName=ItemInvoicedQtyTotal }
{ 1040103;TextBox ;300 ;0 ;150 ;423 ;Name=ItemCostAmtExpectedTotal;
Visible=No;
ForeColor=65535;
SourceExpr=ItemCostAmtExpectedTotal;
DataSetFieldName=ItemCostAmtExpectedTotal }
{ 1040104;TextBox ;0 ;0 ;150 ;423 ;Name=ItemReceivedQtyTotal;
Visible=No;
ForeColor=65535;
SourceExpr=ItemReceivedQtyTotal;
DataSetFieldName=ItemReceivedQtyTotal }
// End of the added lines.
}
} -
在股票接收数据项目号 2 中的代码更改未开票报告 (10540)，如下所示︰
现有代码 1...DataItemTable=Table32;
DataItemTableView=SORTING(Item No.,Positive,Completely Invoiced,Last Invoice Date,Location Code,Variant Code)
// Delete the following lines.
WHERE(Completely Invoiced=CONST(No),
Entry Type=CONST(Purchase));
// End of the deleted lines.
OnPreDataItem=BEGIN
IF EndDate <> 0D THEN
...替换代码 1
...DataItemTable=Table32;
DataItemTableView=SORTING(Item No.,Positive,Completely Invoiced,Last Invoice Date,Location Code,Variant Code)
// Add the following line.
WHERE(Entry Type=CONST(Purchase));
// End of the added line.
OnPreDataItem=BEGIN
IF EndDate <> 0D THEN
...现有代码 2
...SETRANGE("Posting Date",0D,EndDate);
// GB1004.begin
// Delete the following lines.
Sum1 := 0;
Sum2 := 0;
Sum3 := 0;
Sum4 := 0;
Sum5 := 0;
// End of the deleted lines.
// GB1004.end
END;
...替换代码 2
...SETRANGE("Posting Date",0D,EndDate);
// GB1004.begin
// Add the following lines.
ItemReceivedQty := 0;
ItemInvoicedQty := 0;
ItemCostAmtExpected := 0;
ValueCostAmtActual := 0;
ValueInvoicedQty := 0;
// End of the added lines.
// GB1004.end
END;
...现有代码 3
...CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");
// GB1004.begin
// Delete the following lines.
Sum1 += Quantity;
Sum2 += "Invoiced Quantity";
Sum3 += "Cost Amount (Expected)";
TotalSum1 += Quantity;
TotalSum2 += "Invoiced Quantity";
TotalSum3 += "Cost Amount (Expected)";
// End of the deleted lines.
// GB1004.end
END;
...替换代码 3
...CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");
// GB1004.begin
// Add the following lines.
ItemReceivedQty += Quantity;
ItemInvoicedQty += "Invoiced Quantity";
ItemCostAmtExpected += "Cost Amount (Expected)";
ItemReceivedQtyTotal += Quantity;
ItemInvoicedQtyTotal += "Invoiced Quantity";
ItemCostAmtExpectedTotal += "Cost Amount (Expected)";
// End of the added lines.
// GB1004.end
END;
... -
更改数据项目编号 2 各节中股票接收代码未开票报告 (10540)，如下所示︰
现有代码 1...DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry__Quantity }
{ 1040075;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Delete the following line.
SourceExpr="Item Ledger Entry"."Invoiced Quantity";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040076;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...替换代码 1
...DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry__Quantity }
{ 1040075;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Add the following line.
SourceExpr="Value Entry"."Invoiced Quantity";
// End of the added line.
DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040076;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...现有代码 2
...{ 1040080;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Quantity;
// Delete the following lines.
SourceExpr="Item Ledger Entry".Quantity - "Item Ledger Entry"."Invoiced Quantity";
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040080 }
{ 1040081;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Cost;
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)";
// End of the deleted lines.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040081 }
{ 1040078;TextBox ;18000;0 ;150 ;423 ;Name=NoOfItems;
...替换代码 2
...{ 1040080;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Quantity;
// Add the following lines.
SourceExpr="Item Ledger Entry".Quantity - "Value Entry"."Invoiced Quantity";
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040080 }
{ 1040081;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Cost;
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)" - "Value Entry"."Cost Amount (Actual)";
// End of the added lines.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040081 }
{ 1040078;TextBox ;18000;0 ;150 ;423 ;Name=NoOfItems;
... -
在股票接收数据项目编号 3 中的代码更改未开票报告 (10540)，如下所示︰
现有代码 1...Expected Cost=CONST(No));
OnPreDataItem=BEGIN
CurrReport.CREATETOTALS("Cost Amount (Actual)","Invoiced Quantity");
END;
...替换代码 1
...Expected Cost=CONST(No));
OnPreDataItem=BEGIN
// Add the following lines.
IF EndDate <> 0D THEN
SETRANGE("Posting Date",0D,EndDate);
SETFILTER("Invoiced Quantity",'<>%1',0);
// End of the added lines.
CurrReport.CREATETOTALS("Cost Amount (Actual)","Invoiced Quantity");
END;
...现有代码 2
...OnAfterGetRecord=BEGIN
// GB1004.begin
// Delete the following lines.
Sum4 += "Cost Amount (Actual)";
Sum5 += "Invoiced Quantity";
TotalSum4 += "Cost Amount (Actual)";
TotalSum5 += "Invoiced Quantity";
// End of the deleted lines.
// GB1004.end
END;
...替换代码 2
...OnAfterGetRecord=BEGIN
// GB1004.begin
// Add the following lines.
ValueCostAmtActual += "Cost Amount (Actual)";
ValueInvoicedQty += "Invoiced Quantity";
ValueCostAmtActualTotal += "Cost Amount (Actual)";
ValueInvoicedQtyTotal += "Invoiced Quantity";
// End of the added lines.
// GB1004.end
END;
... -
在股票接收数据项目数 4 节中的代码更改未开票报告 (10540)，如下所示︰
现有代码 1...DataSetFieldName=Item_Ledger_Entry__Quantity_Control1040032 }
{ 1040034;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Delete the following line.
SourceExpr="Item Ledger Entry"."Invoiced Quantity";
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040034 }
{ 1040035;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...替换代码 1
...DataSetFieldName=Item_Ledger_Entry__Quantity_Control1040032 }
{ 1040034;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Add the following line.
SourceExpr="Value Entry"."Invoiced Quantity";
// End of the added line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040034 }
{ 1040035;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...现有代码 2
...{ 1040040;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Quantity;
// Delete the following lines.
SourceExpr="Item Ledger Entry".Quantity - "Item Ledger Entry"."Invoiced Quantity";
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040040 }
{ 1040058;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Cost;
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)";
// End of the deleted lines.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040058 }
{ 1040082;TextBox ;5400 ;0 ;150 ;423 ;Name=ItemTotal.Number;
...替换代码 2
...{ 1040040;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Quantity;
// Add the following lines.
SourceExpr="Item Ledger Entry".Quantity - "Value Entry"."Invoiced Quantity";
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040040 }
{ 1040058;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Cost;
SourceExpr="Item Ledger Entry"."Cost Amount (Expected)" - "Value Entry"."Cost Amount (Actual)";
// End of the added lines.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040058 }
{ 1040082;TextBox ;5400 ;0 ;150 ;423 ;Name=ItemTotal.Number;
... -
更改在全局变量中股票接收代码未开票报告 (10540)，如下所示︰
现有代码 1...Text1040005@1040005 : TextConst 'ENU=Received not invoiced for item';
NoOfItems@1040006 : Integer;
// Delete the following lines.
Sum1@1040007 : Decimal;
Sum2@1040008 : Decimal;
Sum3@1040009 : Decimal;
Sum4@1040010 : Decimal;
Sum5@1040011 : Decimal;
TotalSum1@1040012 : Decimal;
TotalSum2@1040013 : Decimal;
TotalSum3@1040014 : Decimal;
TotalSum4@1040015 : Decimal;
TotalSum5@1040016 : Decimal;
// End of the deleted lines.
BEGIN
...替换代码 1
...Text1040005@1040005 : TextConst 'ENU=Received not invoiced for item';
NoOfItems@1040006 : Integer;
// Add the following lines.
ItemReceivedQty@1040007 : Decimal;
ItemInvoicedQty@1040008 : Decimal;
ItemCostAmtExpected@1040009 : Decimal;
ValueCostAmtActual@1040010 : Decimal;
ValueInvoicedQty@1040011 : Decimal;
ItemReceivedQtyTotal@1040012 : Decimal;
ItemInvoicedQtyTotal@1040013 : Decimal;
ItemCostAmtExpectedTotal@1040014 : Decimal;
ValueCostAmtActualTotal@1040015 : Decimal;
ValueInvoicedQtyTotal@1040016 : Decimal;
// End of the added lines.
BEGIN
...现有代码 2
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!TotalSum1.Value) - Last(Fields!TotalSum2.Value)</Value>
// End of the deleted line.
<ZIndex>40</ZIndex>
</Textbox>
...替换代码 2
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemReceivedQtyTotal.Value) - Last(Fields!ValueInvoicedQtyTotal.Value)</Value>
// End of the added line.
<ZIndex>40</ZIndex>
</Textbox>
...现有代码 3
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!TotalSum3.Value) - Last(Fields!TotalSum4.Value)</Value>
// End of the deleted line.
<ZIndex>39</ZIndex>
</Textbox>
...替换代码 3
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemCostAmtExpectedTotal.Value) - Last(Fields!ValueCostAmtActualTotal.Value)</Value>
// End of the added line.
<ZIndex>39</ZIndex>
</Textbox>
...现有代码 4
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!TotalSum1.Value)</Value>
// End of the deleted line.
<ZIndex>38</ZIndex>
</Textbox>
...替换代码 4
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemReceivedQtyTotal.Value)</Value>
// End of the added line.
<ZIndex>38</ZIndex>
</Textbox>
...现有代码 5
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!TotalSum2.Value)</Value>
// End of the deleted line.
<ZIndex>37</ZIndex>
</Textbox>
...替换代码 5
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ValueInvoicedQtyTotal.Value)</Value>
// End of the added line.
<ZIndex>37</ZIndex>
</Textbox>
...现有代码 6
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!TotalSum3.Value)</Value>
// End of the deleted line.
<ZIndex>36</ZIndex>
</Textbox>
...替换代码 6
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemCostAmtExpectedTotal.Value)</Value>
// End of the added line.
<ZIndex>36</ZIndex>
</Textbox>
...现有代码 7
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum1.Value) - Last(Fields!Sum2.Value)</Value>
// End of the deleted line.
<ZIndex>13</ZIndex>
</Textbox>
...替换代码 7
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemReceivedQty.Value) - Last(Fields!ValueInvoicedQty.Value)</Value>
// End of the added line.
<ZIndex>13</ZIndex>
</Textbox>
...现有代码 8
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum3.Value) - Last(Fields!Sum4.Value)</Value>
// End of the deleted line.
<ZIndex>12</ZIndex>
</Textbox>
...替换代码 8
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemCostAmtExpected.Value) - Last(Fields!ValueCostAmtActual.Value)</Value>
// End of the added line.
<ZIndex>12</ZIndex>
</Textbox>
...现有代码 9
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum1.Value)</Value>
// End of the deleted line.
<ZIndex>11</ZIndex>
</Textbox>
...替换代码 9
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemReceivedQty.Value)</Value>
// End of the added line.
<ZIndex>11</ZIndex>
</Textbox>
...现有代码 10
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum2.Value)</Value>
// End of the deleted line.
<ZIndex>10</ZIndex>
</Textbox>
...替换代码 10
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ValueInvoicedQty.Value)</Value>
// End of the added line.
<ZIndex>10</ZIndex>
</Textbox>
...现有代码 11
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum3.Value)</Value>
// End of the deleted line.
<ZIndex>9</ZIndex>
</Textbox>
...替换代码 11
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemCostAmtExpected.Value)</Value>
// End of the added line.
<ZIndex>9</ZIndex>
</Textbox>
...现有代码 12
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum1.Value) - Last(Fields!Sum2.Value)</Value>
// End of the deleted line.
<ZIndex>21</ZIndex>
</Textbox>
...替换代码 12
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemReceivedQty.Value) - Last(Fields!ValueInvoicedQty.Value)</Value>
// End of the added line.
<ZIndex>21</ZIndex>
</Textbox>
...现有代码 13
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum3.Value) - Last(Fields!Sum4.Value)</Value>
// End of the deleted line.
<ZIndex>20</ZIndex>
</Textbox>
...替换代码 13
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemCostAmtExpected.Value) - Last(Fields!ValueCostAmtActual.Value)</Value>
// End of the added line.
<ZIndex>20</ZIndex>
</Textbox>
...现有代码 14
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum1.Value)</Value>
// End of the deleted line.
<ZIndex>19</ZIndex>
</Textbox>
...替换代码 14
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemReceivedQty.Value)</Value>
// End of the added line.
<ZIndex>19</ZIndex>
</Textbox>
...现有代码 15
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum2.Value)</Value>
// End of the deleted line.
<ZIndex>18</ZIndex>
</Textbox>
...替换代码 15
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ValueInvoicedQty.Value)</Value>
// End of the added line.
<ZIndex>18</ZIndex>
</Textbox>
...现有代码 16
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum3.Value)</Value>
// End of the deleted line.
<ZIndex>17</ZIndex>
</Textbox>
...替换代码 16
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemCostAmtExpected.Value)</Value>
// End of the added line.
<ZIndex>17</ZIndex>
</Textbox>
...现有代码 17
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum1.Value) - Last(Fields!Sum2.Value)</Value>
// End of the deleted line.
<ZIndex>30</ZIndex>
</Textbox>
...替换代码 17
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemReceivedQty.Value) - Last(Fields!ValueInvoicedQty.Value)</Value>
// End of the added line.
<ZIndex>30</ZIndex>
</Textbox>
...现有代码 18
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum3.Value) - Last(Fields!Sum4.Value)</Value>
// End of the deleted line.
<ZIndex>29</ZIndex>
</Textbox>
...替换代码 18
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemCostAmtExpected.Value) - Last(Fields!ValueCostAmtActual.Value)</Value>
// End of the added line.
<ZIndex>29</ZIndex>
</Textbox>
...现有代码 19
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum1.Value)</Value>
// End of the deleted line.
<ZIndex>28</ZIndex>
</Textbox>
...替换代码 19
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemReceivedQty.Value)</Value>
// End of the added line.
<ZIndex>28</ZIndex>
</Textbox>
...现有代码 20
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum2.Value)</Value>
// End of the deleted line.
<ZIndex>27</ZIndex>
</Textbox>
...替换代码 20
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ValueInvoicedQty.Value)</Value>
// End of the added line.
<ZIndex>27</ZIndex>
</Textbox>
...现有代码 21
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Delete the following line.
<Value>=Last(Fields!Sum3.Value)</Value>
// End of the deleted line.
<ZIndex>26</ZIndex>
</Textbox>
...替换代码 21
...<VerticalAlign>Middle</VerticalAlign>
</Style>
// Add the following line.
<Value>=Last(Fields!ItemCostAmtExpected.Value)</Value>
// End of the added line.
<ZIndex>26</ZIndex>
</Textbox>
...现有代码 22
...<DataField>USERID</DataField>
</Field>
// Delete the following lines.
<Field Name="Sum1">
<DataField>Sum1</DataField>
</Field>
<Field Name="Sum1Format">
<DataField>Sum1Format</DataField>
</Field>
<Field Name="Sum5">
<DataField>Sum5</DataField>
</Field>
<Field Name="Sum5Format">
<DataField>Sum5Format</DataField>
</Field>
<Field Name="Sum4">
<DataField>Sum4</DataField>
</Field>
<Field Name="Sum4Format">
<DataField>Sum4Format</DataField>
</Field>
<Field Name="Sum2">
<DataField>Sum2</DataField>
</Field>
<Field Name="Sum2Format">
<DataField>Sum2Format</DataField>
</Field>
<Field Name="Sum3">
<DataField>Sum3</DataField>
</Field>
<Field Name="Sum3Format">
<DataField>Sum3Format</DataField>
// End of the deleted lines.
</Field>
<Field Name="Totals__Rec__not_invoiced_Caption">
...替换代码 22
...<DataField>USERID</DataField>
</Field>
// Add the following lines.
<Field Name="ItemReceivedQty">
<DataField>ItemReceivedQty</DataField>
</Field>
<Field Name="ItemReceivedQtyFormat">
<DataField>ItemReceivedQtyFormat</DataField>
</Field>
<Field Name="ValueInvoicedQty">
<DataField>ValueInvoicedQty</DataField>
</Field>
<Field Name="ValueInvoicedQtyFormat">
<DataField>ValueInvoicedQtyFormat</DataField>
</Field>
<Field Name="ValueCostAmtActual">
<DataField>ValueCostAmtActual</DataField>
</Field>
<Field Name="ValueCostAmtActualFormat">
<DataField>ValueCostAmtActualFormat</DataField>
</Field>
<Field Name="ItemInvoicedQty">
<DataField>ItemInvoicedQty</DataField>
</Field>
<Field Name="ItemInvoicedQtyFormat">
<DataField>ItemInvoicedQtyFormat</DataField>
</Field>
<Field Name="ItemCostAmtExpected">
<DataField>ItemCostAmtExpected</DataField>
</Field>
<Field Name="ItemCostAmtExpectedFormat">
<DataField>ItemCostAmtExpectedFormat</DataField>
// End of the added lines.
</Field>
<Field Name="Totals__Rec__not_invoiced_Caption">
...现有代码 23
...<DataField>TotalCaption</DataField>
</Field>
// Delete the following lines.
<Field Name="TotalSum5">
<DataField>TotalSum5</DataField>
</Field>
<Field Name="TotalSum5Format">
<DataField>TotalSum5Format</DataField>
</Field>
<Field Name="TotalSum4">
<DataField>TotalSum4</DataField>
</Field>
<Field Name="TotalSum4Format">
<DataField>TotalSum4Format</DataField>
</Field>
<Field Name="TotalSum2">
<DataField>TotalSum2</DataField>
</Field>
<Field Name="TotalSum2Format">
<DataField>TotalSum2Format</DataField>
</Field>
<Field Name="TotalSum3">
<DataField>TotalSum3</DataField>
</Field>
<Field Name="TotalSum3Format">
<DataField>TotalSum3Format</DataField>
</Field>
<Field Name="TotalSum1">
<DataField>TotalSum1</DataField>
</Field>
<Field Name="TotalSum1Format">
<DataField>TotalSum1Format</DataField>
// End of the deleted lines.
</Field>
<Field Name="Item_Ledger_Entry__Posting_Date_">
...替换代码 23
...<DataField>TotalCaption</DataField>
</Field>
// Add the following lines.
<Field Name="ValueInvoicedQtyTotal">
<DataField>ValueInvoicedQtyTotal</DataField>
</Field>
<Field Name="ValueInvoicedQtyTotalFormat">
<DataField>ValueInvoicedQtyTotalFormat</DataField>
</Field>
<Field Name="ValueCostAmtActualTotal">
<DataField>ValueCostAmtActualTotal</DataField>
</Field>
<Field Name="ValueCostAmtActualTotalFormat">
<DataField>ValueCostAmtActualTotalFormat</DataField>
</Field>
<Field Name="ItemInvoicedQtyTotal">
<DataField>ItemInvoicedQtyTotal</DataField>
</Field>
<Field Name="ItemInvoicedQtyTotalFormat">
<DataField>ItemInvoicedQtyTotalFormat</DataField>
</Field>
<Field Name="ItemCostAmtExpectedTotal">
<DataField>ItemCostAmtExpectedTotal</DataField>
</Field>
<Field Name="ItemCostAmtExpectedTotalFormat">
<DataField>ItemCostAmtExpectedTotalFormat</DataField>
</Field>
<Field Name="ItemReceivedQtyTotal">
<DataField>ItemReceivedQtyTotal</DataField>
</Field>
<Field Name="ItemReceivedQtyTotalFormat">
<DataField>ItemReceivedQtyTotalFormat</DataField>
// End of the added lines.
</Field>
<Field Name="Item_Ledger_Entry__Posting_Date_">
... -
在库存发货数据项目编号 1 节中的代码更改未开票报告 (10541)，如下所示︰
现有代码 1...{ 1040046;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Delete the following line.
SourceExpr=ItemQuantity;
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040033;TextBox ;9150 ;0 ;1800 ;423 ;FontBold=Yes;
...替换代码 1
...{ 1040046;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Add the following line.
SourceExpr=ItemShippedQty - ValueInvoicedQty;
// End of the added line.
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040033;TextBox ;9150 ;0 ;1800 ;423 ;FontBold=Yes;
...现有代码 2
...DataSetFieldName=Item_Ledger_Entry__Quantity }
{ 1040038;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Delete the following line.
SourceExpr=ItemInvoicedQty;
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040039;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...替换代码 2
...DataSetFieldName=Item_Ledger_Entry__Quantity }
{ 1040038;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Add the following line.
SourceExpr=ValueInvoicedQty;
// End of the added line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040039;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...现有代码 3
...{ 1040059;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Delete the following lines.
SourceExpr=ItemCostAmount;
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";
// End of the deleted lines.
DataSetFieldName=Value_Entry___Invoiced_Quantity_ }
}替换代码 3
...{ 1040059;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Add the following lines.
SourceExpr=ItemCostAmtExpected - ValueCostAmtActual;
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";
// End of the added lines.
DataSetFieldName=Value_Entry___Invoiced_Quantity_ }
}现有代码 4
...FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Delete the following line.
SourceExpr=ItemQuantityTotal;
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040065 }
{ 1040066;TextBox ;9150 ;423 ;1800 ;423 ;FontSize=7;
...替换代码 4
...FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Add the following line.
SourceExpr=ItemShippedQtyTotal - ValueInvoicedQtyTotal;
// End of the added line.
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040065 }
{ 1040066;TextBox ;9150 ;423 ;1800 ;423 ;FontSize=7;
...现有代码 5
...{ 1040067;TextBox ;11100;423 ;1800 ;423 ;FontSize=7;
FontBold=Yes;
// Delete the following line.
SourceExpr=ItemInvoicedQtyTotal;
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040067 }
{ 1040068;TextBox ;13050;423 ;1800 ;423 ;FontSize=7;
...替换代码 5
...{ 1040067;TextBox ;11100;423 ;1800 ;423 ;FontSize=7;
FontBold=Yes;
// Add the following line.
SourceExpr=ValueInvoicedQtyTotal;
// End of the added line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040067 }
{ 1040068;TextBox ;13050;423 ;1800 ;423 ;FontSize=7;
...现有代码 6
...FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Delete the following lines.
SourceExpr=ItemCostAmountTotal;
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040069 }
{ 1040070;TextBox ;15000;423 ;1500 ;423 ;FontSize=7;
FontBold=Yes;
SourceExpr="Value Entry"."Invoiced Quantity";
// End of the deleted lines.
DataSetFieldName=Value_Entry___Invoiced_Quantity__Control1040070 }
{ 1040071;TextBox ;16650;423 ;1500 ;423 ;FontSize=7;
...替换代码 6
...FontBold=Yes;
CaptionML=ENU=Rec. not invoiced;
// Add the following lines.
SourceExpr=ItemCostAmtExpectedTotal - ValueCostAmtActualTotal;
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040069 }
{ 1040070;TextBox ;15000;423 ;1500 ;423 ;FontSize=7;
FontBold=Yes;
SourceExpr=-"Value Entry"."Invoiced Quantity";
// End of the added lines.
DataSetFieldName=Value_Entry___Invoiced_Quantity__Control1040070 }
{ 1040071;TextBox ;16650;423 ;1500 ;423 ;FontSize=7;
... -
更改数据在库存发货的项号 2 中的代码未开票报告 (10541)，如下所示︰
现有代码 1...DataItemTable=Table32;
DataItemTableView=SORTING(Item No.,Positive,Completely Invoiced,Last Invoice Date,Location Code,Variant Code)
// Delete the following lines.
WHERE(Completely Invoiced=CONST(No),
Entry Type=CONST(Sale));
// End of the deleted lines.
OnPreDataItem=BEGIN
// GB0004.begin
...替换代码 1
...DataItemTable=Table32;
DataItemTableView=SORTING(Item No.,Positive,Completely Invoiced,Last Invoice Date,Location Code,Variant Code)
// Add the following line.
WHERE(Entry Type=CONST(Sale));
// End of the added line.
OnPreDataItem=BEGIN
// GB0004.begin
...现有代码 2
...// GB0004.end
// Delete the following line.
ItemQuantity := 0;
// End of the deleted line.
ItemCostAmount := 0;
ItemShippedQty := 0;
...替换代码 2
...// GB0004.end
ItemCostAmount := 0;
ItemShippedQty := 0;
...现有代码 3
...ItemInvoicedQty := 0;
ItemCostAmtExpected := 0;
END;
...替换代码 3
...ItemInvoicedQty := 0;
ItemCostAmtExpected := 0;
// Add the following lines.
ValueInvoicedQty := 0;
ValueCostAmtActual := 0;
// End of the added lines.
END;
...现有代码 4
...CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");
// Delete the following lines.
ItemQuantity += Quantity - "Invoiced Quantity";
ItemCostAmount += "Cost Amount (Expected)";
ItemShippedQty += Quantity;
ItemInvoicedQty += "Invoiced Quantity";
ItemCostAmtExpected += "Cost Amount (Expected)";
ItemQuantityTotal += Quantity - "Invoiced Quantity";
ItemCostAmountTotal += "Cost Amount (Expected)";
ItemShippedQtyTotal += Quantity;
ItemInvoicedQtyTotal += "Invoiced Quantity";
// End of the deleted lines.
ItemCostAmtExpectedTotal += "Cost Amount (Expected)";
END;
...替换代码 4
...CurrReport.CREATETOTALS("Value Entry"."Cost Amount (Actual)","Value Entry"."Invoiced Quantity");
// Add 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";
// End of the added lines.
ItemCostAmtExpectedTotal += "Cost Amount (Expected)";
END;
... -
在库存发货数据项目编号 2 节中的代码更改未开票报告 (10541)，如下所示︰
现有代码 1...DataSetFieldName=Item_Ledger_Entry_Description }
{ 1040019;TextBox ;9150 ;0 ;1800 ;423 ;CaptionML=ENU=Shipped Quantity;
// Delete the following lines.
SourceExpr=Quantity;
DataSetFieldName=Item_Ledger_Entry_Quantity }
{ 1040021;TextBox ;11100;0 ;1800 ;423 ;SourceExpr="Invoiced Quantity";
// End of the deleted lines.
DataSetFieldName=Item_Ledger_Entry__Invoiced_Quantity_ }
{ 1040023;TextBox ;1350 ;0 ;600 ;423 ;SourceExpr="Source Type";
...替换代码 1
...DataSetFieldName=Item_Ledger_Entry_Description }
{ 1040019;TextBox ;9150 ;0 ;1800 ;423 ;CaptionML=ENU=Shipped Quantity;
// Add the following lines.
SourceExpr=-Quantity;
DataSetFieldName=Item_Ledger_Entry_Quantity }
{ 1040021;TextBox ;11100;0 ;1800 ;423 ;CaptionML=ENU=Invoiced Quantity;
SourceExpr=-"Invoiced Quantity";
// End of the added lines.
DataSetFieldName=Item_Ledger_Entry__Invoiced_Quantity_ }
{ 1040023;TextBox ;1350 ;0 ;600 ;423 ;SourceExpr="Source Type";
...现有代码 2
...DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry__Quantity }
{ 1040075;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Delete the following line.
SourceExpr=ItemInvoicedQty;
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040076;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...替换代码 2
...DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry__Quantity }
{ 1040075;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Add the following line.
SourceExpr=ValueInvoicedQty;
// End of the added line.
DataSetFieldName=Item_Ledger_Entry__Item_Ledger_Entry___Invoiced_Quantity_ }
{ 1040076;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...现有代码 3
...{ 1040080;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Quantity;
// Delete the following lines.
SourceExpr=ItemQuantity;
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040080 }
{ 1040081;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Cost;
SourceExpr=ItemCostAmount;
// End of the deleted lines.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040081 }
}
...替换代码 3
... { 1040080;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Quantity;
// Add the following lines.
SourceExpr=ItemShippedQty - ValueInvoicedQty;
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040080 }
{ 1040081;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Cost;
SourceExpr=ItemCostAmtExpected - ValueCostAmtActual;
// End of the added lines.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040081 }
}
... -
在库存发货数据项目编号 3 中的代码更改未开票报告 (10541)，如下所示︰
现有代码...Expected Cost=CONST(No));
OnPreDataItem=BEGIN
// Delete the following lines.
CurrReport.CREATETOTALS("Cost Amount (Actual)","Invoiced Quantity");
END;
// End of the deleted lines.
DataItemLink=Item Ledger Entry No.=FIELD(Entry No.);
...替换代码
...Expected Cost=CONST(No));
OnPreDataItem=BEGIN
// Add the following lines.
IF EndDate <> 0D THEN
SETRANGE("Posting Date",0D,EndDate);
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;
// End of the added lines.
DataItemLink=Item Ledger Entry No.=FIELD(Entry No.);
... -
在库存发货数据项目编号 3 节中的代码更改未开票报告 (10541)，如下所示︰
现有代码...{ 1040043;TextBox ;6600 ;0 ;2250 ;423 ;SourceExpr=Description;
DataSetFieldName=Value_Entry_Description }
// Delete the following line.
{ 1040025;TextBox ;15000;0 ;1500 ;423 ;SourceExpr="Invoiced Quantity";
// End of the deleted line.
DataSetFieldName=Value_Entry__Invoiced_Quantity_ }
{ 1040027;TextBox ;16650;0 ;1500 ;423 ;SourceExpr="Cost Amount (Actual)";
...替换代码
...{ 1040043;TextBox ;6600 ;0 ;2250 ;423 ;SourceExpr=Description;
DataSetFieldName=Value_Entry_Description }
// Add the following lines.
{ 1040025;TextBox ;15000;0 ;1500 ;423 ;CaptionML=ENU=Invoiced Quantity;
SourceExpr=-"Invoiced Quantity";
// End of the added lines.
DataSetFieldName=Value_Entry__Invoiced_Quantity_ }
{ 1040027;TextBox ;16650;0 ;1500 ;423 ;SourceExpr="Cost Amount (Actual)";
... -
在库存发货数据项目数 4 节中的代码更改未开票报告 (10541)，如下所示︰
现有代码 1...DataSetFieldName=Item_Ledger_Entry__Quantity_Control1040032 }
{ 1040034;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Delete the following line.
SourceExpr=ItemInvoicedQty;
// End of the deleted line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040034 }
{ 1040035;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...替换代码 1
...DataSetFieldName=Item_Ledger_Entry__Quantity_Control1040032 }
{ 1040034;TextBox ;11100;0 ;1800 ;423 ;FontBold=Yes;
// Add the following line.
SourceExpr=ValueInvoicedQty;
// End of the added line.
DataSetFieldName=Item_Ledger_Entry___Invoiced_Quantity__Control1040034 }
{ 1040035;TextBox ;13050;0 ;1800 ;423 ;FontBold=Yes;
...现有代码 2
...DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected___Control1040035 }
{ 1040036;TextBox ;15000;0 ;1500 ;423 ;FontBold=Yes;
// Delete the following line.
SourceExpr="Value Entry"."Invoiced Quantity";
// End of the deleted line.
DataSetFieldName=Value_Entry___Invoiced_Quantity__Control1040036 }
{ 1040044;TextBox ;16650;0 ;1500 ;423 ;FontBold=Yes;
...替换代码 2
...DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected___Control1040035 }
{ 1040036;TextBox ;15000;0 ;1500 ;423 ;FontBold=Yes;
// Add the following line.
SourceExpr=-"Value Entry"."Invoiced Quantity";
// End of the added line.
DataSetFieldName=Value_Entry___Invoiced_Quantity__Control1040036 }
{ 1040044;TextBox ;16650;0 ;1500 ;423 ;FontBold=Yes;
...现有代码 3
...{ 1040040;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Quantity;
// Delete the following lines.
SourceExpr=ItemQuantity;
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040040 }
{ 1040058;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Cost;
SourceExpr=ItemCostAmount;
// End of the deleted lines.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040058 }
{ 1040078;TextBox ;18000;423 ;150 ;423 ;Name=NoOfItems;
...替换代码 3
...{ 1040040;TextBox ;5700 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Quantity;
// Add the following lines.
SourceExpr=ItemShippedQty - ValueInvoicedQty;
DataSetFieldName=Item_Ledger_Entry__Quantity____Item_Ledger_Entry___Invoiced_Quantity__Control1040040 }
{ 1040058;TextBox ;7350 ;0 ;1550 ;423 ;FontBold=Yes;
CaptionML=ENU=Cost;
SourceExpr=ItemCostAmtExpected - ValueCostAmtActual;
// End of the added lines.
DataSetFieldName=Item_Ledger_Entry___Cost_Amount__Expected______Value_Entry___Cost_Amount__Actual___Control1040058 }
{ 1040078;TextBox ;18000;423 ;150 ;423 ;Name=NoOfItems;
... -
更改代码在全局变量中库存发货未开票报告 (10541)，如下所示︰
现有代码 1...Text1040005@1040005 : TextConst 'ENU=Shipped not invoiced for item';
NoOfItems@1040006 : Integer;
// Delete the following line.
ItemQuantity@1040007 : Decimal;
// End of the deleted line.
ItemCostAmount@1040008 : Decimal;
ItemShippedQty@1040009 : Decimal;
...替换代码 1
...Text1040005@1040005 : TextConst 'ENU=Shipped not invoiced for item';
NoOfItems@1040006 : Integer;
ItemCostAmount@1040008 : Decimal;
ItemShippedQty@1040009 : Decimal;
...现有代码 2
...ItemInvoicedQty@1040010 : Decimal;
ItemCostAmtExpected@1040011 : Decimal;
// Delete the following line.
ItemQuantityTotal@1040012 : Decimal;
// End of the deleted line.
ItemCostAmountTotal@1040013 : Decimal;
ItemShippedQtyTotal@1040014 : Decimal;
...替换代码 2
...ItemInvoicedQty@1040010 : Decimal;
ItemCostAmtExpected@1040011 : Decimal;
// Add the following lines.
ValueInvoicedQty@1040017 : Decimal;
ValueCostAmtActual@1040018 : Decimal;
// End of the added lines.
ItemCostAmountTotal@1040013 : Decimal;
ItemShippedQtyTotal@1040014 : Decimal;
...现有代码 3
...ItemInvoicedQtyTotal@1040015 : Decimal;
ItemCostAmtExpectedTotal@1040016 : Decimal;
BEGIN
...替换代码 3
...ItemInvoicedQtyTotal@1040015 : Decimal;
ItemCostAmtExpectedTotal@1040016 : Decimal;
// Add the following lines.
ValueInvoicedQtyTotal@1040019 : Decimal;
ValueCostAmtActualTotal@1040020 : Decimal;
// End of the added lines.
BEGIN
...
系统必备组件
您必须具有要应用此修补程序的安装以下产品之一︰
-
大不列颠及北爱尔兰联合王国版本的 Microsoft Dynamics 导航 2009 Service Pack 1
-
大不列颠及北爱尔兰联合王国版本的 Microsoft Dynamics 导航 2009 R2
删除信息
您不能删除此修补程序。
状态
Microsoft 已经确认这是“适用于”一节中列出的 Microsoft 产品中的问题。
注意：这是直接从创建 Microsoft 支持部门内的"快速发布"的文章。此处包含的信息是作为为了响应新出现的问题而提供的。由于以使其可用的速度，而材料可能包含印刷错误，恕不另行通知，随时可能进行修订。其他考虑因素，请参阅使用条款。
