Este artigo aplica-se para o Microsoft Dynamics NAV para a região do idioma italiano (-).
Sintomas
Suponha que instale a correcção 2274594 na versão italiana do Microsoft Dynamics NAV 2009 R2 e do Microsoft Dynamics NAV 2009 Service Pack 1 (SP1). Quando executar o relatório de livro de amortização (12119), o relatório não imprime os totais de fim que estão relacionados com valores do ano anterior.
Para mais informações sobre a correcção 2274594, clique no número de artigo seguinte para visualizar o artigo na Microsoft Knowledge Base:
2274594 o valor líquido está incorrecto quando imprimir o relatório de livro de amortização (12119) na versão italiana do Microsoft Dynamics NAV 2009
Resolução
Informações sobre correção
Agora tem uma correcção suportada disponível na Microsoft. Contudo, destina-se apenas a corrigir o problema descrito neste artigo. Aplique-a apenas em sistemas que tenham este problema específico. Esta correcção poderá ser submetida a testes adicionais. Por conseguinte, se não estiver a ser gravemente afectado por este problema, recomendamos que aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contenha esta correcção.
Nota Em casos especiais, os custos normalmente inerentes para suporte chamadas poderão ser anuladas se um técnico de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma actualização específica resolverá o problema. Os custos de normais do suporte serão aplicados a questões de suporte adicionais e problemas que não se enquadrem na atualização específica em questão.
Informações de instalação
A Microsoft fornece exemplos de programação apenas a título ilustrativo, sem garantia expressa ou implícita. Isto inclui, mas não está limitado a, garantias implícitas de comercialização ou adequação a um fim específico. Este artigo pressupõe que está familiarizado com a linguagem de programação que está a ser demonstrada e com as ferramentas que são utilizadas para criar e depurar procedimentos. Técnicos de suporte da Microsoft podem ajudar a explicar a funcionalidade de um determinado procedimento, mas não modificarão estes exemplos para proporcionarem funcionalidades adicionais nem criarão procedimentos adaptados às necessidades específicas do utilizador.
Nota Antes de instalar esta correcção, certifique-se de que todos os utilizadores de cliente do Microsoft Navision são registados no sistema. Isto inclui os utilizadores de clientes do Microsoft Navision Application Server (NAS). Deve ser o único usuário do cliente que tem sessão iniciada quando implementar esta correcção.
Para implementar esta correcção, tem de ter uma licença de desenvolvedor.
Recomendamos que a conta de utilizador na janela Logins do Windows ou na janela Logins de base de dados seja atribuída a ID de função "SUPER". Se a conta de utilizador não é possível atribuir o ID de função "SUPER", tem de verificar que a conta de utilizador tem as seguintes permissões:
-
A permissão Modificar para o objecto que estará a alterar.
-
A permissão executar para o objecto 5210 de ID de objecto de sistema e para o objecto 9015 de ID de objecto de sistema .
Nota Não tem de ter direitos para os arquivos de dados, excepto se tiver de efectuar a reparação de dados.
Alterações de código
Nota Sempre o código de ensaio corrige num ambiente controlado antes de aplicar as correcções para os computadores de produção.
Para resolver este problema, siga estes passos:
-
Altere o código em dados produto número 1 no relatório do livro de amortização (12119) do seguinte modo:
Código existente 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.");
...Código de substituição 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.");
...Código existente 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;
...Código de substituição 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;
... -
Altere o código nas secções de 1 de número de Item de dados no relatório do livro de amortização (12119) do seguinte modo:
Código existente 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;
...Código de substituição 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;
...Código existente 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 }
...Código de substituição 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 }
...Código existente 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_ }
...Código de substituição 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_ }
... -
Adicione as seguintes variáveis globais no relatório do livro de amortização (12119):
-
FixedAsset@1130040: Registo 5600
-
EndTotalEndingAmounts@1130041: Matriz de [7] Decimal
-
EndTotalBookValueAtEndingDate@1130042: Decimal
-
-
Altere o código na função UpdateTotals no relatório do livro de amortização (12119) do seguinte modo:
Código existente 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
...Código de substituição 1
... GroupStartAmounts[J] := 0;
GroupNetChangeAmounts[J] := 0;
GroupDisposalAmounts[J] := 0;
END;
// IT0001.end
FOR J := 1 TO NumberOfTypes DO BEGIN
...Código existente 2
... TotalStartAmounts[J] := TotalStartAmounts[J] + StartAmounts[J];
TotalNetChangeAmounts[J] := TotalNetChangeAmounts[J] + NetChangeAmounts[J];
TotalDisposalAmounts[J] := TotalDisposalAmounts[J] + DisposalAmounts[J];
END;
END;
...Código de substituição 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;
... -
Altere o código na função CreateGroupTotals no relatório do livro de amortização (12119) do seguinte modo:
Código existente 1... LOCAL PROCEDURE CreateGroupTotals@1130114();
BEGIN
BookValueAtEndingDate := 0;
BookValueAtStartingDate := 0;
FOR J := 1 TO NumberOfTypes DO BEGIN
...Código de substituição 1
... LOCAL PROCEDURE CreateGroupTotals@1130114();
BEGIN
BookValueAtEndingDate := 0;
BookValueAtStartingDate := 0;
FOR J := 1 TO NumberOfTypes DO BEGIN
...Código existente 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];
...Código de substituição 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];
...Código existente 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;
...Código de substituição 3
... BookValueAtEndingDate := BookValueAtEndingDate + TotalEndingAmounts[J];
BookValueAtStartingDate := BookValueAtStartingDate + GroupStartAmounts[J];
END;
END;
... -
Altere o código na função CreateTotals no relatório do livro de amortização (12119) do seguinte modo:
Código existente 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
...Código de substituição 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
...Código existente 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;
...Código de substituição 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;
... -
Altere o código no relatório do livro de amortização (12119) do seguinte modo:
Código existente 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>
...Código de substituição 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>
...Código existente 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>
...Código de substituição 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>
...Código existente 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>
...Código de substituição 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>
...Código existente 4
... <Field Name="ABS_ReclassDeprAmount__Control1130212Format">
<DataField>ABS_ReclassDeprAmount__Control1130212Format</DataField>
</Field>
<Field Name="BookValueAtEndingDate_Control169Format">
<DataField>BookValueAtEndingDate_Control169Format</DataField>
</Field>
...Código de substituição 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>
...Código existente 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>
...Código de substituição 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>
...Código existente 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>
...Código de substituição 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>
...
Pré-requisitos
Tem de ter um dos seguintes produtos instalado para aplicar esta correcção:
-
A versão italiana do Microsoft Dynamics NAV 2009 R2
-
A versão italiana do Microsoft Dynamics NAV 2009 Service Pack 1
Informações de remoção
Não é possível remover esta correcção.
Estado
A Microsoft confirmou que este é um problema nos produtos da Microsoft listados na secção "Aplica-se a".
Nota Este é um artigo "Publicação rápida" criado diretamente a partir da organização de suporte da Microsoft. As informações contidas neste documento são fornecidas como-se em resposta a questões emergentes. Como resultado da urgência na sua disponibilização, os materiais podem incluir erros tipográficos e podem ser revistos em qualquer altura sem aviso prévio. Para outras considerações, consulte os Termos de utilização .