Select Case e.DataCol.Name
Case "正数是应交税额负数是留抵税额","简易销项税额"
If e.DataRow("正数是应交税额负数是留抵税额") < 0 Then
If e.DataTable.DataCols.Contains("简易销项税额") Then
e.DataRow("应交税额") = e.DataRow("简易销项税额")
Else
e.DataRow("应交税额") = Nothing
End If
Else
If e.DataTable.DataCols.Contains("简易销项税额") Then
e.DataRow("应交税额") = e.DataRow("正数是应交税额负数是留抵税额") + e.DataRow("简易销项税额")
Else
e.DataRow("应交税额") = e.DataRow("正数是应交税额负数是留抵税额")
End If
End If
Case "应交税额"
e.DataRow("城建税") = Round2(e.DataRow("应交税额") * 0.05 , 2)
e.DataRow("教育费") = round2(e.DataRow("应交税额") * 0.03 , 2)
e.DataRow("地方教育费") = round2(e.DataRow("应交税额") * 0.02 , 2)
End Select
加好友 
发短信
Post By：2020/1/3 15:24:00 [显示全部帖子]
