应用对象
Dynamics NAV 2009

本文适用于 Microsoft Dynamics 导航 (它) 的意大利语语言区域设置。

症状

假定您在意大利版本 Microsoft Dynamics 导航 2009 R2 和 Microsoft Dynamics 导航 2009 Service Pack 1 (SP1) 中安装修补程序 2274594。折旧帐簿报表 (12119) 运行时,该报告不打印最终合计,与前一年的数字。有关修补程序 2274594 的更多信息,请单击下面的文章编号,以查看 Microsoft 知识库中相应的文章︰

2274594帐面价值时不正确打印折旧帐簿报表 (12119) Microsoft Dynamics 导航 2009年意大利版中的增强

解决方案

修补程序信息

受支持的修补程序现已从 Microsoft 推出。然而,它仅用于纠正本文中描述的问题。它仅应用于正经历此特定问题的系统。此修补程序可能会接受进一步的测试。因此,如果这个问题没有对您造成严重的影响,我们建议您等待下一个 Microsoft Dynamics 导航 2009 服务包 或包含此修复程序的下一步的 Microsoft Dynamics 导航版本。注意: 在特殊情况下,可免收的支持电话,可免收如果技术支持专业人员对 Microsoft Dynamics 和相关的产品的费用确定某个特定的更新能够解决您的问题。照常收取支持费用将应用于其他支持问题和对于特定更新无法解决的问题。

安装信息

Microsoft 提供的编程示例仅用于说明,没有任何明示或暗示的担保。这包括但不限于适销性或特定用途适用性的暗示担保。本文假定您熟悉所演示的编程语言和用于创建和调试过程的工具。Microsoft 的支持工程师可以帮助解释某个特定过程的功能,但是他们不会修改这些示例以提供额外的功能或构建过程以满足您的特定要求。注意:安装此修复程序之前,请验证所有 Microsoft Navision 客户端用户都注销系统。这包括 Microsoft Navision 应用程序服务 (NAS) 客户端的用户。要实现此修补程序时,在登录的唯一客户端用户。若要实现此修补程序,必须使用开发人员许可证。我们建议在 Windows 登录窗口或数据库登录窗口中的用户帐户将分配该"超级"角色 id。如果不能将用户帐户分配成"超级"角色 ID,则必须验证用户帐户具有下列权限:

  • 您将更改该对象的修改权限。

  • 为系统对象 ID ™ 5210对象和系统对象 ID 9015对象的 Execute 权限。

注意:您不需要具有对数据存储区的权限,除非您需要执行数据修复。

代码更改

注意:始终测试代码修复在受控环境中应用之前与您的生产计算机的修补程序。若要解决此问题,请执行以下步骤:

  1. 更改数据项目 1 号中折旧帐簿报表 (12119) 中的代码,如下所示︰现有代码 1

    ...                               FASource := Text008;                             IF NOT FADeprBook.GET("No.",DeprBookCode) THEN                               CurrReport.SKIP;                             // Delete the following lines.                             IF SkipRecord THEN                               CurrReport.SKIP;                             // End of the lines.                             IF "FA Posting Group" <> FADeprBook."FA Posting Group" THEN                               ERROR(Text007,FIELDCAPTION("FA Posting Group"),"No.");...

    替换代码 1

    ...                               FASource := Text008;                             IF NOT FADeprBook.GET("No.",DeprBookCode) THEN                               CurrReport.SKIP;                             // Add the following lines.                             FixedAsset.COPY("Fixed Asset");                             IF SkipRecord THEN BEGIN                               IF FixedAsset.NEXT = 0 THEN                                 CreateTotals;                               CurrReport.SKIP;                             END;                             // End of the lines.                             IF "FA Posting Group" <> FADeprBook."FA Posting Group" THEN                               ERROR(Text007,FIELDCAPTION("FA Posting Group"),"No.");...

    现有代码 2

    ...                               FillTempFALedgEntry;                               UpdateTotals;                               CreateGroupTotals;                               // Delete the following lines.                               CreateTotals;                             TotalStartingAccumulated := TotalStartAmounts[2] + TotalStartAmounts[5] + TotalStartAmounts[6];                             TotalAntAccDepreciation := TotalNetChangeAmounts[5] + TotalNetChangeAmounts[6];                             IF TotalEndingAmounts[1]+TotalEndingAmounts[3]+TotalEndingAmounts[4] = 0 THEN BEGIN                               TotalBasicDepreciationPerc := 0;                               TotalAntAccDepreciationPerc := 0                             END ELSE BEGIN                               TotalBasicDepreciationPerc := ABS(ROUND((((TotalNetChangeAmounts[2] + ReclassDeprAmount) / // IT0001                                 (TotalEndingAmounts[1] +                                 TotalEndingAmounts[3] +                                TotalEndingAmounts[4])) * 100),0.01));                               TotalAntAccDepreciationPerc := ABS(ROUND(((TotalAntAccDepreciation /                                 TotalEndingAmounts[1] +                                 TotalEndingAmounts[3] +                                 TotalEndingAmounts[4]) * 100),0.01));                             END;                             // End of the lines.                           END;          ReqFilterFields=No.,FA Class Code,FA Subclass Code,Budgeted Asset;...

    替换代码 2

    ...                               FillTempFALedgEntry;                               UpdateTotals;                               CreateGroupTotals;                             // Add the following lines.                             IF FixedAsset.NEXT = 0 THEN                               CreateTotals;                             // End of the lines.                           END;          ReqFilterFields=No.,FA Class Code,FA Subclass Code,Budgeted Asset;...
  2. 更改数据项目编号 1 节中折旧帐簿报表 (12119) 中的代码,如下所示︰现有代码 1

    ...            CONTROLS            {              { 169 ;TextBox      ;24450;0    ;1650 ;423  ;FontBold=Yes;                                                           // Delete the following line.                                                           SourceExpr=BookValueAtEndingDate;                                                           // End of the line.                                                           AutoFormatType=1;                                                           DataSetFieldName=BookValueAtEndingDate_Control169 }              { 1130064;Label     ;0    ;0    ;2250 ;423  ;HorzAlign=Left;...

    替换代码 1

    ...            CONTROLS            {              { 169 ;TextBox      ;24450;0    ;1650 ;423  ;FontBold=Yes;                                                           // Add the following line.                                                           SourceExpr=EndTotalBookValueAtEndingDate;                                                           // End of the line.                                                           AutoFormatType=1;                                                           DataSetFieldName=BookValueAtEndingDate_Control169 }              { 1130064;Label     ;0    ;0    ;2250 ;423  ;HorzAlign=Left;...

    现有代码 2

    ...TotalNetChangeAmounts_3__TotalNetChangeAmounts_4_ }              { 1130077;TextBox   ;5850 ;0    ;1800 ;423  ;SourceExpr=TotalDisposalAmounts[1]+TotalDisposalAmounts[3]+TotalDisposalAmounts[4];                                                           DataSetFieldName=TotalDisposalAmounts_1__TotalDisposalAmounts_3__TotalDisposalAmounts_4_ }              // Delete the following line.              { 1130078;TextBox   ;7650 ;0    ;1800 ;423  ;SourceExpr=TotalEndingAmounts[1]+TotalEndingAmounts[3]+TotalEndingAmounts[4];              // End of the line.                                                           DataSetFieldName=TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4__Control1130078 }              { 1130079;TextBox   ;9450 ;0    ;1500 ;423  ;SourceExpr=TotalStartingAccumulated;                                                           DataSetFieldName=TotalStartingAccumulated }...

    替换代码 2

    ...                                                           DataSetFieldName=TotalNetChangeAmounts_1__TotalNetChangeAmounts_3__TotalNetChangeAmounts_4_ }              { 1130077;TextBox   ;5850 ;0    ;1800 ;423  ;SourceExpr=TotalDisposalAmounts[1]+TotalDisposalAmounts[3]+TotalDisposalAmounts[4];                                                           DataSetFieldName=TotalDisposalAmounts_1__TotalDisposalAmounts_3__TotalDisposalAmounts_4_ }              // Add the following line.              { 1130078;TextBox   ;7650 ;0    ;1800 ;423  ;SourceExpr=EndTotalEndingAmounts[1]+EndTotalEndingAmounts[3]+EndTotalEndingAmounts[4];              // End of the line.                                                           DataSetFieldName=TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4__Control1130078 }              { 1130079;TextBox   ;9450 ;0    ;1500 ;423  ;SourceExpr=TotalStartingAccumulated;                                                           DataSetFieldName=TotalStartingAccumulated }...

    现有代码 3

    ...                                                           DataSetFieldName=TotalStartingAccumulated }              { 1130081;TextBox   ;13950;0    ;1500 ;423  ;SourceExpr=ABS(TotalNetChangeAmounts[2]);                                                           DataSetFieldName=ABS_TotalNetChangeAmounts_2__ }              // Delete the following line.              { 1130083;TextBox   ;22950;0    ;1500 ;423  ;SourceExpr=ABS(TotalEndingAmounts[2]+TotalEndingAmounts[5]+TotalEndingAmounts[6]);              // End of the line.                                                           DataSetFieldName=ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6___Control1130083 }              { 1130090;TextBox   ;21450;0    ;1500 ;423  ;SourceExpr=ABS(TotalNetChangeAmounts[2]+TotalAntAccDepreciation);                                                           DataSetFieldName=ABS_TotalNetChangeAmounts_2__TotalAntAccDepreciation_ }...

    替换代码 3

    ...                                                           DataSetFieldName=TotalStartingAccumulated }              { 1130081;TextBox   ;13950;0    ;1500 ;423  ;SourceExpr=ABS(TotalNetChangeAmounts[2]);                                                           DataSetFieldName=ABS_TotalNetChangeAmounts_2__ }              // Add the following line.              { 1130083;TextBox   ;22950;0    ;1500 ;423  ;SourceExpr=ABS(EndTotalEndingAmounts[2]+EndTotalEndingAmounts[5]+EndTotalEndingAmounts[6]);              // End of the line.                                                           DataSetFieldName=ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6___Control1130083 }              { 1130090;TextBox   ;21450;0    ;1500 ;423  ;SourceExpr=ABS(TotalNetChangeAmounts[2]+TotalAntAccDepreciation);                                                           DataSetFieldName=ABS_TotalNetChangeAmounts_2__TotalAntAccDepreciation_ }...
  3. 折旧帐簿报表 (12119) 中添加以下全局变量︰

    • FixedAsset@1130040︰ 记录 5600

    • EndTotalEndingAmounts@1130041︰ 阵列 [7] 的小数

    • EndTotalBookValueAtEndingDate@1130042︰ 十进制

  4. 更改折旧帐簿报表 (12119) 中的UpdateTotals函数中的代码,如下所示︰现有代码 1

    ...          GroupStartAmounts[J] := 0;          GroupNetChangeAmounts[J] := 0;          GroupDisposalAmounts[J] := 0;          // Delete the following lines.          TotalStartAmounts[J] := 0;          TotalNetChangeAmounts[J] := 0;          TotalDisposalAmounts[J] := 0;          TotalReclassDeprAmount := ReclassDeprAmount;          // End of the lines.        END;        // IT0001.end        FOR J := 1 TO NumberOfTypes DO BEGIN...

    替换代码 1

    ...          GroupStartAmounts[J] := 0;          GroupNetChangeAmounts[J] := 0;          GroupDisposalAmounts[J] := 0;        END;        // IT0001.end        FOR J := 1 TO NumberOfTypes DO BEGIN...

    现有代码 2

    ...          TotalStartAmounts[J] := TotalStartAmounts[J] + StartAmounts[J];          TotalNetChangeAmounts[J] := TotalNetChangeAmounts[J] + NetChangeAmounts[J];          TotalDisposalAmounts[J] := TotalDisposalAmounts[J] + DisposalAmounts[J];        END;      END;...

    替换代码 2

    ...          TotalStartAmounts[J] := TotalStartAmounts[J] + StartAmounts[J];          TotalNetChangeAmounts[J] := TotalNetChangeAmounts[J] + NetChangeAmounts[J];          TotalDisposalAmounts[J] := TotalDisposalAmounts[J] + DisposalAmounts[J];          // Add the following lines.          IF J = 2 THEN            TotalReclassDeprAmount := TotalReclassDeprAmount + ReclassDeprAmount;          // End of the lines.        END;      END;...
  5. 更改折旧帐簿报表 (12119) 中的CreateGroupTotals函数中的代码,如下所示︰现有代码 1

    ...      LOCAL PROCEDURE CreateGroupTotals@1130114();      BEGIN        BookValueAtEndingDate := 0;        BookValueAtStartingDate := 0;        FOR J := 1 TO NumberOfTypes DO BEGIN...

    替换代码 1

    ...      LOCAL PROCEDURE CreateGroupTotals@1130114();      BEGIN        BookValueAtEndingDate := 0;        BookValueAtStartingDate := 0;        FOR J := 1 TO NumberOfTypes DO BEGIN...

    现有代码 2

    ...        BookValueAtStartingDate := 0;        FOR J := 1 TO NumberOfTypes DO BEGIN          TotalEndingAmounts[J] := GroupStartAmounts[J] + GroupNetChangeAmounts[J] + GroupDisposalAmounts[J];          BookValueAtEndingDate := BookValueAtEndingDate + TotalEndingAmounts[J];          BookValueAtStartingDate := BookValueAtStartingDate + GroupStartAmounts[J];...

    替换代码 2

    ...        BookValueAtStartingDate := 0;        FOR J := 1 TO NumberOfTypes DO BEGIN          TotalEndingAmounts[J] := GroupStartAmounts[J] + GroupNetChangeAmounts[J] + GroupDisposalAmounts[J];          // Add the following lines.          IF J = 2 THEN            TotalEndingAmounts[J] += ReclassDeprAmount;          // End of the lines.          BookValueAtEndingDate := BookValueAtEndingDate + TotalEndingAmounts[J];          BookValueAtStartingDate := BookValueAtStartingDate + GroupStartAmounts[J];...

    现有代码 3

    ...          BookValueAtEndingDate := BookValueAtEndingDate + TotalEndingAmounts[J];          BookValueAtStartingDate := BookValueAtStartingDate + GroupStartAmounts[J];          // Delete the following lines.          IF J = 2 THEN            TotalEndingAmounts[J] += ReclassDeprAmount;          // End of the lines.        END;      END;...

    替换代码 3

    ...          BookValueAtEndingDate := BookValueAtEndingDate + TotalEndingAmounts[J];          BookValueAtStartingDate := BookValueAtStartingDate + GroupStartAmounts[J];        END;      END;...
  6. 更改折旧帐簿报表 (12119) 中的CreateTotals函数中的代码,如下所示︰现有代码 1

    ...      LOCAL PROCEDURE CreateTotals@1130117();      BEGIN        // Delete the following lines.        BookValueAtEndingDate := 0;        BookValueAtStartingDate := 0;        FOR J := 1 TO NumberOfTypes DO BEGIN          TotalEndingAmounts[J] := TotalStartAmounts[J] + TotalNetChangeAmounts[J] + TotalDisposalAmounts[J];        // End of the lines.          // IT0001.begin          IF J = 2 THEN...

    替换代码 1

    ...      LOCAL PROCEDURE CreateTotals@1130117();      BEGIN        // Add the following lines.        FOR J := 1 TO NumberOfTypes DO BEGIN          EndTotalEndingAmounts[J] := TotalStartAmounts[J] + TotalNetChangeAmounts[J] + TotalDisposalAmounts[J];        // End of the lines.          // IT0001.begin          IF J = 2 THEN...

    现有代码 2

    ...          // IT0001.begin          IF J = 2 THEN            // Delete the following lines.            TotalEndingAmounts[J] += ReclassDeprAmount;          // IT0001.end          BookValueAtEndingDate := BookValueAtEndingDate + TotalEndingAmounts[J];          BookValueAtStartingDate := BookValueAtStartingDate + TotalStartAmounts[J];            // End of the lines.       END;      END;...

    替换代码 2

    ...          // IT0001.begin          IF J = 2 THEN            // Add the following lines.            EndTotalEndingAmounts[J] := EndTotalEndingAmounts[J] + TotalReclassDeprAmount;          // IT0001.end          EndTotalBookValueAtEndingDate := EndTotalBookValueAtEndingDate + EndTotalEndingAmounts[J];        END;        TotalStartingAccumulated := TotalStartAmounts[2] + TotalStartAmounts[5] + TotalStartAmounts[6];        TotalAntAccDepreciation := TotalNetChangeAmounts[5] + TotalNetChangeAmounts[6];        IF EndTotalEndingAmounts[1]+EndTotalEndingAmounts[3]+EndTotalEndingAmounts[4] = 0 THEN BEGIN          TotalBasicDepreciationPerc := 0;          TotalAntAccDepreciationPerc := 0        END ELSE BEGIN          TotalBasicDepreciationPerc := ABS(ROUND((((TotalNetChangeAmounts[2] + TotalReclassDeprAmount) / // IT0001            (EndTotalEndingAmounts[1] +            EndTotalEndingAmounts[3] +            EndTotalEndingAmounts[4])) * 100),0.01));          TotalAntAccDepreciationPerc := ABS(ROUND(((TotalAntAccDepreciation /            EndTotalEndingAmounts[1] +            EndTotalEndingAmounts[3] +            EndTotalEndingAmounts[4]) * 100),0.01));          // End of the lines.        END;      END;...
  7. 更改折旧帐簿报表 (12119) 中的代码,如下所示︰现有代码 1

    ...                          <PaddingTop>2pt</PaddingTop>                          <VerticalAlign>Middle</VerticalAlign>                        </Style>                        // Delete the following line.                        <Value>=LAST(Fields!TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4_.Value)</Value>                        // End of the line.                        <ZIndex>11</ZIndex>                      </Textbox>                    </ReportItems>...

    替换代码 1

    ...                          <PaddingTop>2pt</PaddingTop>                          <VerticalAlign>Middle</VerticalAlign>                        </Style>                       // Add the following line.                        <Value>=LAST(Fields!TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4__Control1130078.Value)</Value>                        // End of the line.                        <ZIndex>11</ZIndex>                      </Textbox>                    </ReportItems>...

    现有代码 2

    ...                          <PaddingTop>2pt</PaddingTop>                          <VerticalAlign>Middle</VerticalAlign>                        </Style>                        // Delete the following line.                        <Value>=LAST(Fields!ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6__.Value)</Value>                        // End of the line.                        <ZIndex>2</ZIndex>                      </Textbox>                    </ReportItems>...

    替换代码 2

    ...                          <PaddingTop>2pt</PaddingTop>                          <VerticalAlign>Middle</VerticalAlign>                        </Style>                        // Add the following line.                        <Value>=LAST(Fields!ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6___Control1130083.Value)</Value>                        // End of the line.                        <ZIndex>2</ZIndex>                      </Textbox>                    </ReportItems>...

    现有代码 3

    ...                          <PaddingTop>2pt</PaddingTop>                          <VerticalAlign>Middle</VerticalAlign>                        </Style>                        // Delete the following line.                        <Value>=LAST(Fields!BookValueAtEndingDate.Value)</Value>                        // End of the line.                        <ZIndex>1</ZIndex>                      </Textbox>                    </ReportItems>...

    替换代码 3

    ...                          <PaddingTop>2pt</PaddingTop>                          <VerticalAlign>Middle</VerticalAlign>                        </Style>                        // Add the following line.                        <Value>=LAST(Fields!BookValueAtEndingDate_Control169.Value)</Value>                        // End of the line.                        <ZIndex>1</ZIndex>                      </Textbox>                    </ReportItems>...

    现有代码 4

    ...          <Field Name="ABS_ReclassDeprAmount__Control1130212Format">            <DataField>ABS_ReclassDeprAmount__Control1130212Format</DataField>          </Field>          <Field Name="BookValueAtEndingDate_Control169Format">            <DataField>BookValueAtEndingDate_Control169Format</DataField>          </Field>...

    替换代码 4

    ...          <Field Name="ABS_ReclassDeprAmount__Control1130212Format">            <DataField>ABS_ReclassDeprAmount__Control1130212Format</DataField>          </Field>          // Add the following lines.          <Field Name="BookValueAtEndingDate_Control169">            <DataField>BookValueAtEndingDate_Control169</DataField>          </Field>          // End of the lines.          <Field Name="BookValueAtEndingDate_Control169Format">            <DataField>BookValueAtEndingDate_Control169Format</DataField>          </Field>...

    现有代码 5

    ...          <Field Name="TotalDisposalAmounts_1__TotalDisposalAmounts_3__TotalDisposalAmounts_4_Format">            <DataField>TotalDisposalAmounts_1__TotalDisposalAmounts_3__TotalDisposalAmounts_4_Format</DataField>          </Field>          <Field Name="TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4__Control1130078Format">            <DataField>TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4__Control1130078Format</DataField>          </Field>...

    替换代码 5

    ...          <Field Name="TotalDisposalAmounts_1__TotalDisposalAmounts_3__TotalDisposalAmounts_4_Format">            <DataField>TotalDisposalAmounts_1__TotalDisposalAmounts_3__TotalDisposalAmounts_4_Format</DataField>          </Field>          // Add the following lines.          <Field Name="TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4__Control1130078">            <DataField>TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4__Control1130078</DataField>          </Field>          // End of the lines.          <Field Name="TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4__Control1130078Format">            <DataField>TotalEndingAmounts_1__TotalEndingAmounts_3__TotalEndingAmounts_4__Control1130078Format</DataField>          </Field>...

    现有代码 6

    ...          <Field Name="ABS_TotalNetChangeAmounts_2__Format">            <DataField>ABS_TotalNetChangeAmounts_2__Format</DataField>          </Field>          <Field Name="ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6___Control1130083Format">            <DataField>ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6___Control1130083Format</DataField>          </Field>...

    替换代码 6

    ...          <Field Name="ABS_TotalNetChangeAmounts_2__Format">            <DataField>ABS_TotalNetChangeAmounts_2__Format</DataField>          </Field>          // Add the following lines.          <Field Name="ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6___Control1130083">            <DataField>ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6___Control1130083</DataField>          </Field>          // End of the lines.          <Field Name="ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6___Control1130083Format">            <DataField>ABS_TotalEndingAmounts_2__TotalEndingAmounts_5__TotalEndingAmounts_6___Control1130083Format</DataField>          </Field>...

系统必备组件

您必须具有要应用此修补程序的安装以下产品之一︰

  • 意大利语版 Microsoft Dynamics 导航 2009 R2

  • 意大利语版 Microsoft Dynamics 导航 2009 Service Pack 1

删除信息

您不能删除此修补程序。

状态

Microsoft 已经确认这是“适用于”一节中列出的 Microsoft 产品中的问题。

注意:这是直接从创建 Microsoft 支持部门内的"快速发布"的文章。此处包含的信息是作为为了响应新出现的问题而提供的。由于以使其可用的速度,而材料可能包含印刷错误,恕不另行通知,随时可能进行修订。其他考虑因素,请参阅使用条款

需要更多帮助?

需要更多选项?

了解订阅权益、浏览培训课程、了解如何保护设备等。