招标代{过}{滤}理费计算，河南版本 豫招协[2023]002号文件

aqwly

招标代{过}{滤}理费计算，河南版本符合参照豫招协[2023]002号文收取标准指定的。
代{过}{滤}理费计算表 新.zip (4.84 KB, 下载次数: 69)

2023-6-28 17:28 上传

点击文件名下载附件

代码区
.版本 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.内容 ＝ 到文本 (服务费)

.默认

.判断结束

no2013

可惜我是四川的

aqwly

四川的可以 按照国家2002 号文件收取吗

aqwly

是发改价格[2015]299 号文件吗，这个也有。

dph5199278

感谢分享，可惜不清楚是不是全国通用的

aqwly

dph5199278 发表于 2023-6-28 17:55
感谢分享，可惜不清楚是不是全国通用的

看你需要那个收费版本，可以修改

aqwly

no2013 发表于 2023-6-28 17:33
可惜我是四川的

是发改价格[2015]299 号文件吗，这个也有。

31803

是没下载完整是数据库吗？

aqwly

这个不需要数据库啊！。

aqwly

31803 发表于 2023-6-28 18:27
是没下载完整是数据库吗？

这个不需要数据库，