症状
如果应用到相关的付款交易记录的发票,然后将其张贴在 Microsoft Dynamics 导航 2009 年意大利版本中安装最新版本的客户清单列表报告后,报告将不显示付款。它仅显示关闭的发票。按照在代码更改部分,若要解决此问题的步骤。下列产品中发生此问题︰
-
意大利语版 Microsoft Dynamics 导航 2009 R2
-
意大利语版 Microsoft Dynamics 导航 2009 SP1
解决方案
修补程序信息
受支持的修补程序现已从 Microsoft 推出。然而,它仅用于纠正本文中描述的问题。它仅应用于正经历此特定问题的系统。此修补程序可能会接受进一步的测试。因此,如果这个问题没有对您造成严重的影响,我们建议您等待下一个 Microsoft Dynamics 导航 2009 服务包 或包含此修复程序的下一步的 Microsoft Dynamics 导航版本。
注意: 在特殊情况下,可免收的支持电话,可免收如果技术支持专业人员对 Microsoft Dynamics 和相关的产品的费用确定某个特定的更新能够解决您的问题。照常收取支持费用将应用于其他支持问题和对于特定更新无法解决的问题。
安装信息
Microsoft 提供的编程示例仅用于说明,没有任何明示或暗示的担保。这包括但不限于适销性或特定用途适用性的暗示担保。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持工程师可以帮助解释某个特定过程的功能。但是,他们不会修改这些示例以提供额外的功能或构建过程以满足您的特定要求。
注意:安装此修复程序之前,请验证所有 Microsoft Dynamics 导航客户端用户都注销系统。这包括 Microsoft Dynamics 导航应用程序服务器 (NAS) 服务。要实现此修补程序时,在登录的唯一客户端用户。
若要实现此修补程序,必须使用开发人员许可证。
我们建议在 Windows 登录窗口或数据库登录窗口中的用户帐户将分配该"超级"角色 id。如果不能将用户帐户分配成"超级"角色 ID,则必须验证用户帐户具有下列权限:
-
您将更改该对象的修改权限。
-
为系统对象 ID™ 5210对象和系统对象 ID 9015执行权限
对象。
注意:您不需要具有对数据存储区的权限,除非您需要执行数据修复。
代码更改
注意:始终测试代码修复在受控环境中应用之前与您的生产计算机的修补程序。
若要解决此问题,请执行以下步骤:
-
更改客户的物料清单列表报表 (12117) 中的代码,如下所示︰
现有代码 1...DataItemTableView=SORTING(Cust. Ledger Entry No.,Entry Type,Posting Date)
WHERE(Entry Type=CONST(Application));
OnPreDataItem=BEGIN
// Delete the following line.
CustLedgEntry1.COPYFILTER("Posting Date", "Detailed Cust. Ledg. Entry"."Posting Date"); // IT0004
// End of the deleted line.
END;
OnAfterGetRecord=BEGIN
...替换代码 1
...DataItemTableView=SORTING(Cust. Ledger Entry No.,Entry Type,Posting Date)
WHERE(Entry Type=CONST(Application));
OnPreDataItem=BEGIN
// Add the following line.
FindAppliedDtldCustLedgEntry(CustLedgEntry1."Entry No.");
// End of the added line.
END;
OnAfterGetRecord=BEGIN
...现有代码 2
... { END;
OnAfterGetRecord=BEGIN
// Delete the following lines.
IF ("Entry No." = 0) OR ("Unapplied by Entry No." <> 0) OR
("Document Type" IN
["Document Type"::Payment,"Document Type"::Refund,"Document Type"::Dishonored,"Document Type"::" "])
THEN
ShowDetailedCustLedgerEntry := TRUE
ELSE
ShowDetailedCustLedgerEntry := FALSE;
// IT0015.begin
//VSTF275923 begin
// VSTF305887.begin
//IF PrintCustLedgEntry2 THEN
IF PrintCustLedgEntry2 AND ("Document Type" <> "Document Type"::Payment) THEN
CurrReport.SKIP;
// VSTF305887.end
//CurrReport.SKIP;
//VSTF275923 end
// IT0015.end
CustLedgEntry3.GET("Applied Cust. Ledger Entry No.");
CustLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
// IT0004.begin
ClosedByAmountLCY := "Amount (LCY)";
TotalForCustomer += "Amount (LCY)";
// IT0004.end
TotalClosedByAmntLCY += "Amount (LCY)"; // IT0005
// End of the deleted lines.
END;
DataItemLink=Cust. Ledger Entry No.=FIELD(Entry No.);
...替换代码 2
...END;
OnAfterGetRecord=BEGIN
// Add the following lines.
IF NOT TempDetailedCustLedgEntryApp.GET("Entry No.") THEN
CurrReport.SKIP;
CustLedgEntry3.GET("Cust. Ledger Entry No.");
CustLedgEntry3.CALCFIELDS("Original Amt. (LCY)");
AppliedDocumentTypeText := FORMAT(CustLedgEntry3."Document Type");
ClosedByAmountLCY := "Amount (LCY)";
TotalForCustomer -= "Amount (LCY)";
TotalClosedByAmntLCY -= "Amount (LCY)";
// End of the added lines.
END;
DataItemLink=Cust. Ledger Entry No.=FIELD(Entry No.);
...现有代码 3
... SectionWidth=24450;
SectionHeight=846;
OnPreSection=BEGIN
// Delete the following line.
CurrReport.SHOWOUTPUT(ShowDetailedCustLedgerEntry)
// End of the deleted line.
END;
}
...替换代码 3
...SectionWidth=24450;
SectionHeight=846;
OnPreSection=BEGIN
// Add the following lines.
IF ("Unapplied by Entry No." <> 0) THEN
CurrReport.SHOWOUTPUT(FALSE);
// End of the added lines.
END;
}
...现有代码 4
...ForeColor=65535;
SourceExpr="Document Type" = "Document Type"::Dishonored;
DataSetFieldName=Document_Type_____Document_Type___Dishonored }
// Delete the following lines.
{ 1130123;TextBox ;24000;0 ;150 ;423 ;Visible=No;
SourceExpr=ShowDetailedCustLedgerEntry;
DataSetFieldName=ShowDetailedCustLedgerEntry }
// End of the deleted lines.
}
}
{ PROPERTIES
...替换代码 4
... ForeColor=65535;
SourceExpr="Document Type" = "Document Type"::Dishonored;
DataSetFieldName=Document_Type_____Document_Type___Dishonored }
}
}
{ PROPERTIES
... -
更改客户的物料清单列表报表 (12117) 中的全局变量中的代码,如下所示︰
现有代码 1...Text000@1130000 : TextConst 'ENU=Please specify the Ending Date';
Text001@1130001 : TextConst 'ENU=The Bank Receipts Risk Period Value must not be blank in Sales Setup';
SalesSetup@1130002 : Record 311;
EndingDate@1130003 : Date;
ExposureDate@1130004 : Date;
OnlyOpened@1130005 : Boolean;
...替换代码 1
... Text000@1130000 : TextConst 'ENU=Please specify the Ending Date';
Text001@1130001 : TextConst 'ENU=The Bank Receipts Risk Period Value must not be blank in Sales Setup';
SalesSetup@1130002 : Record 311;
// Add the following lines.
CustLedgEntry3@1130130 : Record 21;
TempDetailedCustLedgEntryApp@1130131 : TEMPORARY Record 379;
// End of the added lines.
EndingDate@1130003 : Date;
ExposureDate@1130004 : Date;
OnlyOpened@1130005 : Boolean;
...现有代码 2
... TotExpAmntForCust@1130011 : Decimal;
BalanceDue@1130012 : Decimal;
NULL@1130013 : DateFormula;
// Delete the following lines.
CustLedgEntry3@1130130 : Record 21;
PrintCustLedgEntry2@1130014 : Boolean;
ShowDetailedCustLedgerEntry@1130015 : Boolean INDATASET;
// End of the deleted lines.
BEGIN
{
...替换代码 2
... TotExpAmntForCust@1130011 : Decimal;
BalanceDue@1130012 : Decimal;
NULL@1130013 : DateFormula;
// Add the following lines.
PrintCustLedgEntry2@1130014 : Boolean;
AppliedDocumentTypeText@1130132 : Text[30];
LOCAL PROCEDURE FindAppliedDtldCustLedgEntry@1130007(CustLedgerEntryNo@1130000 : Integer);
VAR
DetailedCustLedgEntry@1130001 : Record 379;
DetailedCustLedgEntryApplied@1130003 : Record 379;
BEGIN
TempDetailedCustLedgEntryApp.RESET;
TempDetailedCustLedgEntryApp.DELETEALL;
DetailedCustLedgEntry.SETRANGE("Cust. Ledger Entry No.",CustLedgerEntryNo);
DetailedCustLedgEntry.SETRANGE("Entry Type",DetailedCustLedgEntry."Entry Type"::Application);
DetailedCustLedgEntry.SETRANGE(Unapplied,FALSE);
DetailedCustLedgEntryApplied.SETRANGE(
"Entry Type",DetailedCustLedgEntryApplied."Entry Type"::Application);
IF DetailedCustLedgEntry.FINDSET THEN
REPEAT
DetailedCustLedgEntryApplied.SETRANGE(
"Applied Cust. Ledger Entry No.",DetailedCustLedgEntry."Applied Cust. Ledger Entry No.");
DetailedCustLedgEntryApplied.SETFILTER(
"Cust. Ledger Entry No.",'<>%1',CustLedgerEntryNo);
DetailedCustLedgEntryApplied.SETRANGE(
"Customer No.",DetailedCustLedgEntry."Customer No.");
DetailedCustLedgEntryApplied.SETRANGE(
"Transaction No.",DetailedCustLedgEntry."Transaction No.");
IF DetailedCustLedgEntryApplied.FINDSET THEN
REPEAT
TempDetailedCustLedgEntryApp := DetailedCustLedgEntryApplied;
IF TempDetailedCustLedgEntryApp.INSERT THEN;
UNTIL DetailedCustLedgEntryApplied.NEXT = 0;
UNTIL DetailedCustLedgEntry.NEXT = 0;
END;
// End of the added lines.
BEGIN
{
... -
更改供应商科目清单列表报表 (12116) 中的代码,如下所示︰
现有代码 1... </TableRow>
</TableRows>
</Header>
<Visibility>
<Hidden>=IIF(Fields!ShowDetailedCustLedgerEntry.Value,TRUE,FALSE)</Hidden>
</Visibility>
</TableGroup>
</TableGroups>
<Top>2.22222cm</Top>
...替换代码 1
... </TableRow>
</TableRows>
</Header>
// Delete the following lines.
<Visibility>
<Hidden>=IIF(Fields!ShowDetailedCustLedgerEntry.Value,TRUE,FALSE)</Hidden>
</Visibility>
// End of the deleted lines.
</TableGroup>
</TableGroups>
<Top>2.22222cm</Top>
...现有代码 2
...Field Name="Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_">
<DataField>Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_</DataField>
</Field>
<Field Name="ShowDetailedCustLedgerEntry">
<DataField>ShowDetailedCustomerLedgerEntry</DataField>
</Field>
</Fields>
<Query>
<CommandText />
...替换代码 2
...<Field Name="Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_">
<DataField>Detailed_Cust__Ledg__Entry_Cust__Ledger_Entry_No_</DataField>
</Field>
// Delete the following lines.
<Field Name="ShowDetailedCustLedgerEntry">
<DataField>ShowDetailedCustomerLedgerEntry</DataField>
</Field>
// End of the deleted lines.
</Fields>
<Query>
<CommandText />
...
系统必备组件
您必须具有要应用此修补程序的安装以下产品之一︰
-
意大利语版 Microsoft Dynamics 导航 2009 R2
-
意大利语版 Microsoft Dynamics 导航 2009 SP1
删除信息
您不能删除此修补程序。
状态
Microsoft 已经确认这是“适用于”一节中列出的 Microsoft 产品中的问题。
注意:这是直接从创建 Microsoft 支持部门内的"快速发布"的文章。此处包含的信息是作为为了响应新出现的问题而提供的。由于以使其可用的速度,而材料可能包含印刷错误,恕不另行通知,随时可能进行修订。其他考虑因素,请参阅使用条款。