以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  最低收费  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=175144)

--  作者:沙漠之鹰
--  发布时间:2022/2/22 10:10:00
--  最低收费
老师,请问:

<!--[if !supportLists]-->1、<!--[endif]-->代垫税金项下的值如果是490元,那么手续费则是490*0.1=49。问题是手续费的最低收费为50元。

<!--[if !supportLists]-->2、<!--[endif]-->代垫税金项下的值如果是510元,那么手续费则是510*0.1=51。按实际的金额。

<!--[if !supportLists]-->3、<!--[endif]-->代码该怎么写,谢谢!


--  作者:有点蓝
--  发布时间:2022/2/22 10:13:00
--  
加一个判断,如果计算的结果小于50,就等于50

IIF(代垫税金 * 0.1 < 50,50,代垫税金 * 0.1)

--  作者:沙漠之鹰
--  发布时间:2022/2/22 10:14:00
--  
谢谢老师
--  作者:沙漠之鹰
--  发布时间:2022/2/22 10:41:00
--  请老师指点
图片点击可在新窗口打开查看
--  作者:有点蓝
--  发布时间:2022/2/22 10:55:00
--  
把代码文字发上来,截图没法直接改

e.datarow("手续费") = xxx计算
if e.datarow("手续费") < 50 then
e.datarow("手续费") = 50
end if

--  作者:沙漠之鹰
--  发布时间:2022/2/22 10:58:00
--  
Select Case e.DataCol.Name
    Case "代垫税金","手续费","报关费","续页费","商检费","其他费用","应收","应付","毛利"
                   
        e.DataRow("手续费") = e.DataRow("代垫税金") * 0.1
        
        e.DataRow("应收") = e.DataRow("代垫税金") + e.DataRow("手续费") + e.DataRow("报关费") + e.DataRow("续页费") + e.DataRow("商检费") + e.DataRow("其他费用")
        
        e.DataRow("毛利") = e.DataRow("应收") - e.DataRow("应付")
                   
End Select

     IIf(代垫税金 * 0.1 < 50,50,代垫税金 * 0.1)    \'加一个判断,如果计算的结果小于50,就等于50

--  作者:有点蓝
--  发布时间:2022/2/22 11:00:00
--  
e.DataRow("手续费") = e.DataRow("代垫税金") * 0.1
if e.datarow("手续费") < 50 then
e.datarow("手续费") = 50
end if

--  作者:沙漠之鹰
--  发布时间:2022/2/22 11:47:00
--  
图片点击可在新窗口打开查看
Select Case e.DataCol.Name
    Case "代垫税金","手续费","报关费","续页费","商检费","其他费用","应收","应付","毛利"
 
        e.DataRow("应收") = e.DataRow("代垫税金") + e.DataRow("手续费") + e.DataRow("报关费") + e.DataRow("续页费") + e.DataRow("商检费") + e.DataRow("其他费用")
        
        e.DataRow("毛利") = e.DataRow("应收") - e.DataRow("应付")
        
        
        If e.DataRow("手续费") < 50 Then
            e.DataRow("手续费") = 50
        End If
        e.DataRow("手续费") = e.DataRow("代垫税金") * 0.1
End Select

\'IIf(代垫税金 * 0.1 < 50,50,代垫税金 * 0.1)    \'加一个判断,如果计算的结果小于50,就等于50
是什么地方出错了!!!请老师帮修改一下,万分感谢!

--  作者:有点蓝
--  发布时间:2022/2/22 12:27:00
--  
Select Case e.DataCol.Name
case "代垫税金"
    e.DataRow("手续费") = e.DataRow("代垫税金") * 0.1
        If e.DataRow("手续费") < 50 Then
            e.DataRow("手续费") = 50
        End If
end select
Select Case e.DataCol.Name
    case "应收","应付"
        e.DataRow("毛利") = e.DataRow("应收") - e.DataRow("应付")
    Case "代垫税金","手续费","报关费","续页费","商检费","其他费用"
        e.DataRow("应收") = e.DataRow("代垫税金") + e.DataRow("手续费") + e.DataRow("报关费") + e.DataRow("续页费") + e.DataRow("商检费") + e.DataRow("其他费用")
End Select

--  作者:沙漠之鹰
--  发布时间:2022/2/22 13:22:00
--  
可以了,谢谢老师!