之前发料只能整箱发，导致每次都有多发物料，后面这些物料都堆积在车间，很是浪费，为解决这个问题，所有才有了这个脚本。
1、准备工作
a、启用表格自定义项，我这里是“vr_item_ext_1”，名称为配料数量
b、增加一个用来放车间多领物料的仓库，我这里代码是“31”
2、代码如下
int func_after_oper()
{
int id,r_num,shop_edt_num,request_num,input_num,shop_num,new_shop_num,new_shop_num_r;
string sql,result,r_res_id,r_batch_no;
//can_save=1;
r_num = grid_row_num('MG_Item');
//msg(r_num);
for(id=1;id<r_num;id++)
{
r_res_id=grid_get_v('MG_Item','res_id',id);
r_batch_no=grid_get_v('MG_Item','batch_no',id);
request_num=grid_get_v('MG_Item','vr_item_ext_1',id);
sql="select * from edt_res where batch_no='"+r_batch_no+"' and res_id='"+r_res_id+"' and edt_id='31'";
if(r_batch_no=='-')
{
sql="select * from edt_res where batch_no='-' and res_id='"+r_res_id+"' and edt_id='31'";
}
if(r_res_id=='') break;
db_run(sql);
shop_edt_num=db_res_ext('num');
input_num=grid_get_v('MG_Item','inp_num',id);
shop_num=input_num-request_num;
new_shop_num=shop_edt_num+shop_num;
new_shop_num_r=shop_edt_num-shop_num;
result=db_row_count();
if(request_num==0)
{}else
{
if(oper_type =='check' && r_batch_no=='-' && result == 0)
{
sql="insert into edt_res (res_id,batch_no,edt_id,num) values ('"+r_res_id+"','-','31',"+shop_num+")";
db_run(sql);
}
else if(oper_type =='check' && r_batch_no =='-' && result != 0)
{
sql="update edt_res set num="+new_shop_num+ " where edt_id='31' and res_id='"+r_res_id+"' and batch_no='-' ";
db_run(sql);
}
else if(oper_type =='check' && r_batch_no !='-' && result == 0)
{
sql="insert into edt_res (res_id,batch_no,edt_id,num) values ('"+r_res_id+"','"+r_batch_no+"','31',"+shop_num+")";
db_run(sql);
}
else if(oper_type =='check' && r_batch_no !='-' && result != 0)
{
sql="update edt_res set num="+new_shop_num+ " where edt_id='31' and res_id='"+r_res_id+"' and batch_no='"+r_batch_no+"'";
db_run(sql);
}
//反审核
else if(oper_type =='check_r' && r_batch_no =='-' && result != 0)
{
sql="update edt_res set num="+new_shop_num_r+ " where edt_id='31' and res_id='"+r_res_id+"' and batch_no='-' ";
db_run(sql);
}
else if(oper_type =='check_r' && r_batch_no !='-' && result != 0)
{
sql="update edt_res set num="+new_shop_num_r+ " where edt_id='31' and res_id='"+r_res_id+"' and batch_no='"+r_batch_no+"'";
db_run(sql);
}
}
};
return 1;
};
3、用上面的函数覆盖原来的同名函数就可以了 |
