招标代{过}{滤}理费计算，河南版本 豫招协[2023]002号文件
本帖最后由 aqwly 于 2023-6-28 17:34 编辑招标代{过}{滤}理费计算，河南版本符合参照豫招协002号文收取标准指定的。
代码区
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 _按钮1_被单击
.局部变量 中标价, 小数型
.局部变量 工程费, 小数型
.局部变量 货物费, 小数型
.局部变量 服务费, 小数型
.局部变量 打折费率, 小数型
.局部变量 场地费, 小数型
.局部变量 评委费, 小数型
.局部变量 监督费, 小数型
.局部变量 工程基数, 小数型
.局部变量 货物基数, 小数型
.局部变量 服务基数, 小数型
打折费率 ＝ 到数值 (编辑框2.内容) ÷ 100
中标价 ＝ 到数值 (编辑框1.内容)
场地费 ＝ 到数值 (编辑框6.内容) ÷ 10000
评委费 ＝ 到数值 (编辑框7.内容) ÷ 10000
监督费 ＝ 到数值 (编辑框8.内容) ÷ 10000
' 0-100
.判断开始 (中标价 ≤ 100)
货物费 ＝ 中标价 × 0.017
服务费 ＝ 中标价 × 0.017
工程费 ＝ 中标价 × 0.012
.默认
.判断结束
货物基数 ＝ 100 × 0.017
服务基数 ＝ 100 × 0.017
工程基数 ＝ 100 × 0.012
' 100-500
.如果 (100 ＜ 中标价 且 中标价 ≤ 500)
货物费 ＝ 货物基数 ＋ (中标价 － 100) × 0.012
服务费 ＝ 服务基数 ＋ (中标价 － 100) × 0.012
工程费 ＝ 工程基数 ＋ (中标价 － 100) × 0.01
.否则
.如果结束
货物基数 ＝ 货物基数 ＋ 400 × 0.012
服务基数 ＝ 服务基数 ＋ 400 × 0.012
工程基数 ＝ 工程基数 ＋ 400 × 0.01
' 500-1000
.判断开始 (500 ＜ 中标价 且 中标价 ≤ 1000)
货物费 ＝ 货物基数 ＋ (中标价 － 500) × 0.008
服务费 ＝ 服务基数 ＋ (中标价 － 500) × 0.007
工程费 ＝ 工程基数 ＋ (中标价 － 500) × 0.007
.默认
.判断结束
货物基数 ＝ 货物基数 ＋ 500 × 0.008
服务基数 ＝ 服务基数 ＋ 500 × 0.007
工程基数 ＝ 工程基数 ＋ 500 × 0.007
' 1000-5000
.判断开始 (1000 ＜ 中标价 且 中标价 ≤ 5000)
货物费 ＝ 货物基数 ＋ (中标价 － 1000) × 0.005
服务费 ＝ 服务基数 ＋ (中标价 － 1000) × 0.004
工程费 ＝ 工程基数 ＋ (中标价 － 1000) × 0.004
.默认
.判断结束
货物基数 ＝ 货物基数 ＋ 4000 × 0.005
服务基数 ＝ 服务基数 ＋ 4000 × 0.004
工程基数 ＝ 工程基数 ＋ 4000 × 0.004
.判断开始 (5000 ＜ 中标价 且 中标价 ≤ 10000)
货物费 ＝ 货物基数 ＋ (中标价 － 5000) × 0.003
服务费 ＝ 服务基数 ＋ (中标价 － 5000) × 0.0025
工程费 ＝ 工程基数 ＋ (中标价 － 5000) × 0.0025
.默认
.判断结束
货物基数 ＝ 货物基数 ＋ 5000 × 0.003
服务基数 ＝ 服务基数 ＋ 5000 × 0.0025
工程基数 ＝ 工程基数 ＋ 5000 × 0.0025
.判断开始 (10000 ＜ 中标价 且 中标价 ≤ 50000)
货物费 ＝ 货物基数 ＋ (中标价 － 10000) × 0.001
服务费 ＝ 服务基数 ＋ (中标价 － 10000) × 0.001
工程费 ＝ 工程基数 ＋ (中标价 － 10000) × 0.001
.默认
.判断结束
货物基数 ＝ 货物基数 ＋ 40000 × 0.001
服务基数 ＝ 服务基数 ＋ 40000 × 0.001
工程基数 ＝ 工程基数 ＋ 40000 × 0.001
.判断开始 (50000 ＜ 中标价 且 中标价 ≤ 100000)
货物费 ＝ 货物基数 ＋ (中标价 － 50000) × 0.00045
服务费 ＝ 服务基数 ＋ (中标价 － 50000) × 0.00045
工程费 ＝ 工程基数 ＋ (中标价 － 50000) × 0.00045
.默认
.判断结束
货物基数 ＝ 货物基数 ＋ 50000 × 0.00045
服务基数 ＝ 服务基数 ＋ 50000 × 0.00045
工程基数 ＝ 工程基数 ＋ 50000 × 0.00045
.判断开始 (100000 ＜ 中标价 且 中标价 ≤ 500000)
货物费 ＝ 货物基数 ＋ (中标价 － 100000) × 0.0001
服务费 ＝ 服务基数 ＋ (中标价 － 100000) × 0.0001
工程费 ＝ 工程基数 ＋ (中标价 － 100000) × 0.0001
.默认
.判断结束
货物基数 ＝ 货物基数 ＋ 400000 × 0.0001
服务基数 ＝ 服务基数 ＋ 400000 × 0.0001
工程基数 ＝ 工程基数 ＋ 400000 × 0.0001
.判断开始 (500000 ＜ 中标价 且 中标价 ≤ 1000000)
货物费 ＝ 货物基数 ＋ (中标价 － 500000) × 8e-005
服务费 ＝ 服务基数 ＋ (中标价 － 500000) × 8e-005
工程费 ＝ 工程基数 ＋ (中标价 － 500000) × 8e-005
.默认
.判断结束
货物基数 ＝ 货物基数 ＋ 500000 × 8e-005
服务基数 ＝ 服务基数 ＋ 500000 × 8e-005
工程基数 ＝ 工程基数 ＋ 500000 × 8e-005
.判断开始 (1000000 ＜ 中标价)
货物费 ＝ 货物基数 ＋ (中标价 － 1000000) × 4e-005
服务费 ＝ 服务基数 ＋ (中标价 － 1000000) × 4e-005
工程费 ＝ 工程基数 ＋ (中标价 － 1000000) × 4e-005
.默认
.判断结束
.判断开始 (取现行时间 () ＜ 指定时间 (2023, 12, 30, , , ))
货物费 ＝ 货物费 × 打折费率 ＋ 场地费 ＋ 评委费 ＋ 监督费
服务费 ＝ 服务费 × 打折费率 ＋ 场地费 ＋ 评委费 ＋ 监督费
工程费 ＝ 工程费 × 打折费率 ＋ 场地费 ＋ 评委费 ＋ 监督费
编辑框3.内容 ＝ 到文本 (工程费)
编辑框4.内容 ＝ 到文本 (货物费)
编辑框5.内容 ＝ 到文本 (服务费)
.默认
.判断结束
可惜我是四川的 四川的可以 按照国家2002 号文件收取吗 是发改价格299 号文件吗，这个也有。 感谢分享，可惜不清楚是不是全国通用的 dph5199278 发表于 2023-6-28 17:55
感谢分享，可惜不清楚是不是全国通用的
看你需要那个收费版本，可以修改 no2013 发表于 2023-6-28 17:33
可惜我是四川的
是发改价格299 号文件吗，这个也有。 是没下载完整是数据库吗？
这个不需要数据库啊！。 31803 发表于 2023-6-28 18:27
是没下载完整是数据库吗？
这个不需要数据库，
页:
[1]
2