在匯出的增值稅陳述式檔案的數量會不正確的 Microsoft 動態航行點 2009 R2 捷克文版本

Hotfix 資訊

已經可以從 Microsoft 取得支援的 hotfix。不過，它只被用來修正本文所述的問題。它只適用於發生此特定問題的系統上。此 hotfix 可能會接受其他測試。因此，如果此問題不會嚴重影響，我們建議您等候下一步的 Microsoft 動態航行點 2009 service pack 或包含此 hotfix 的下一個 Microsoft 動態航行點版本。

注意 在特殊的情況下，通常會支援呼叫可能已被取消如果技術支援專業人員的 Microsoft 動態及相關的產品所產生的費用會決定某特定更新程式可以解決您的問題。收取支援費用會套用，如果有其他支援問題是，不能限定的特定更新程式。

程式碼變更

注意永遠測試程式碼修正在受控制的環境中才能套用到實際執行電腦的修正程式。
若要解決這個問題，請依照下列步驟執行：

1. 變更匯出增值稅陳述式形式 (11764) 的ExportToXML函式中的程式碼如下所示：
   現有的程式碼 1

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

   取代程式碼 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);
   ...

   現有的程式碼 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.
   ...

   取代程式碼 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. 建立新的區域變數 (12)、 增值稅陳述式報表中的CalcLineTotal函式中，然後指定變數，如下所示：

   • 名稱： SavedStmtLine

   • 資料型別：資料錄

   • 子類型：增值稅陳述式行

3. 建立新的區域變數 (12)、 增值稅陳述式報表中的CalcLineTotal函式中，然後指定變數，如下所示：

   • 名稱： SavedTotalAmount

   • 資料型別：十進位

4. 變更增值稅陳述式報表 (12) 中的CalcLineTotal 函式中的程式碼如下所示：
   現有的程式碼 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");
   ...

   取代程式碼 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");
   ...

   現有的程式碼 2

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

   取代程式碼 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

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

   取代程式碼 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;
   ...