Valores de um ficheiro exportado da declaração de IVA estão incorrectos na versão Checa do Microsoft Dynamics NAV 2009 R2

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.

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:

1. Altere o código na função ExportToXML sob a forma de exportar a declaração de IVA (11764) do seguinte modo:
   Código existente 1

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

   Código de substituição 1

   ...
   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);
   ...

   Código existente 2

   ...
   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 forma:

   • Nome: SavedStmtLine

   • Tipo de dados: registo

   • Subtipo: Linha declaração 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 forma:

   • Nome: SavedTotalAmount

   • Tipo de dados: Decimal

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

   ...
   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");
   ...

   Código de substituição 1

   ...
   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");
   ...

   Código existente 2

   ...
   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:
   ;
   ...

   Código existente 3

   ...
   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;
   ...