Valores em um arquivo de declaração de IVA exportado estão incorretos na versão em checo do Microsoft Dynamics NAV 2009 R2

Informações sobre o hotfix

Um hotfix suportado está disponível agora na Microsoft. No entanto, apenas destina-se a corrigir o problema descrito neste artigo. Aplique-o somente aos sistemas que apresentarem esse problema específico. Esta correção poderá ser submetida a testes adicionais. Portanto, se esse problema não o prejudicar, recomendamos que você aguarde o próximo service pack do Microsoft Dynamics NAV 2009 ou a próxima versão do Microsoft Dynamics NAV que contém esse hotfix.

Observação: Em alguns casos, as taxas cobradas para suporte a chamadas podem ser canceladas se um profissional de suporte técnico do Microsoft Dynamics e produtos relacionados determina que uma atualização específica resolverá o problema. Os custos normais de suporte serão aplicados para questões de suporte adicionais e problemas que não se qualificam à atualização específica em questão.

Alterações de código

Observação: Sempre teste código correções em um ambiente controlado antes de aplicar as correções para os computadores de produção.
Para resolver esse problema, execute as seguintes etapas:

1. Altere o código na função ExportToXML no formulário de declaração de IVA exportar (11764) da seguinte forma:
   1 de código existente

   ...
   VATStatementLine.SETFILTER("Attribute Code",'<>%1','');
   IF VATStatementLine.FINDSET THEN
   REPEAT
   VATStatement.InitializeRequest(
   VATStatementName,VATStatementLine,Selection,
   PeriodSelection,PrintInIntegers,UseAmtsInAddCurr);
   ...

   1 código de substituição

   ...
   VATStatementLine.SETFILTER("Attribute Code",'<>%1','');
   IF VATStatementLine.FINDSET THEN
   REPEAT
   
   // Add the following line.
   VATStatement.SetRoundingDirection(RoundingDirection);
   
   VATStatement.InitializeRequest(
   VATStatementName,VATStatementLine,Selection,
   PeriodSelection,PrintInIntegers,UseAmtsInAddCurr);
   ...

   2 de código existente

   ...
   AttributeCode.GET(VATStatementLine."Attribute Code");
   
   // Delete the following lines. 
   IF (AttributeCode."XML Code" <> 'KOEF_P20_NOV') AND
   (AttributeCode."XML Code" <> 'KOEF_P20_VYPOR')
   THEN
   ColumnValue := ROUND(ColumnValue,1);
   // End of the lines.
   ...

   Código de substituição 2

   ...
   AttributeCode.GET(VATStatementLine."Attribute Code");
   
   // Add the following lines. 
   IF PrintInIntegers AND (AttributeCode."XML Code" <> 'KOEF_P20_NOV') AND
   (AttributeCode."XML Code" <> 'KOEF_P20_VYPOR')
   THEN
   ColumnValue := VATStatement.RoundAmount(ColumnValue);
   // End of the lines. 
   ...

2. Criar uma nova variável local na função CalcLineTotal no relatório de declaração de IVA (12) e, em seguida, especifique a variável da seguinte maneira:

   • Nome: SavedStmtLine

   • Tipo de dados: registro

   • Subtipo: linha de declaração de IVA

3. Criar uma nova variável local na função CalcLineTotal no relatório de declaração de IVA (12) e, em seguida, especifique a variável da seguinte maneira:

   • Nome: SavedTotalAmount

   • Tipo de dados: Decimal

4. Altere o código da função CalcLineTotal no relatório de declaração de IVA (12) da seguinte forma:
   1 de código existente

   ...
   IF VATStmtLine2."Row Totaling" = '' THEN
   EXIT(TRUE);
   VATStmtLine2.SETRANGE("Statement Template Name",VATStmtLine2."Statement Template Name");
   VATStmtLine2.SETRANGE("Statement Name",VATStmtLine2."Statement Name");
   VATStmtLine2.SETFILTER("Row No.",VATStmtLine2."Row Totaling");
   ...

   1 código de substituição

   ...
   IF VATStmtLine2."Row Totaling" = '' THEN
   EXIT(TRUE);
   
   // Add the following lines.
   SavedStmtLine := VATStmtLine2;
   SavedTotalAmount := TotalAmount;
   TotalAmount := 0;
   // End of the lines. 
   
   VATStmtLine2.SETRANGE("Statement Template Name",VATStmtLine2."Statement Template Name");
   VATStmtLine2.SETRANGE("Statement Name",VATStmtLine2."Statement Name");
   VATStmtLine2.SETFILTER("Row No.",VATStmtLine2."Row Totaling");
   ...

   2 de código existente

   ...
   VATStmtLine2.FIELDERROR("Row No.",ErrorText);
   END;
   UNTIL VATStmtLine2.NEXT = 0;
   END;
   VATStmtLine2.Type::Description:
   ;
   ...

   Código de substituição 2

   ...
   VATStmtLine2.FIELDERROR("Row No.",ErrorText);
   END;
   UNTIL VATStmtLine2.NEXT = 0;
   
   // Add the following lines.
   Amount := TotalAmount;
   TotalAmount := SavedTotalAmount;
   CalcTotalAmount(SavedStmtLine,TotalAmount);
   // End of the lines. 
   
    END;
   VATStmtLine2.Type::Description:
   ;
   ...

   3 de código existente

   ...
   VATStmtLine2.Type::Formula:
   
   // Delete the following line. 
   TotalAmount := EvaluateExpression(TRUE,VATStmtLine2."Row Totaling",VATStmtLine2,TRUE);
   
   END;
   ...

   Código de substituição 3

   ...
   VATStmtLine2.Type::Formula:
   
   // Add the following lines. 
   BEGIN
   Amount := EvaluateExpression(TRUE,VATStmtLine2."Row Totaling",VATStmtLine2,TRUE);
   TotalAmount := 0;
   CalcTotalAmount(VATStmtLine2,TotalAmount);
   END;
   // End of the lines. 
   
   END;
   ...