原创_ 脚本分享：开单时按产品批次库存先进先出，批次库存不足续调下一批次。（180401升级_使用经验
| 学习交流 » 使用经验 » 脚本分享：开单时按产品批次库存先进先出，批次库存不足续调下一批次。（180401升级
|
|
| |
| 作者 |
|
afoo [个人空间]
QQ名 常德-ZEN
 
注册 2010-04-08
发贴数 207
精华贴 6
原创贴 6
来自 常德-ZEN
状态 正常
级别 会员 |
|
|
主要是修复了以前的实现方案不能调用超过3个批次的问题。
脚本写得比较笨拙，如有bug请告知。
int _fio()
{
int rc1,rc2,i,j;
string sql,resid,add_batch_no,add_produce_date;
num resinpnum,add_num;
rc1 = grid_find("MG_Item","res_id","")
for(i=1;i<rc1;i++)
{
resid=grid_get_v("MG_Item","res_id",i);
resinpnum=grid_get_v("MG_Item","inp_num",i); //获取循环行的数量
sql="select res_id,edt_id,produce_date,batch_no,num from edt_res where res_id='" + resid + "' and edt_id='" + gui_get_val('ComboBox_Ext_Edt_Id') + "'order by batch_no";
db_run(sql);
rc2 = db_row_count()
for(j=0;j<rc2;j++)
{
db_go_row(j)
add_num = db_res(4);
if(resinpnum > 0)
{
if(resinpnum<=add_num)
{
add_num = resinpnum;
}
add_batch_no = db_res(3);
add_produce_date = db_res(2);
grid_insert_before("MG_Item",i);
vr_add_res_ext(resid,add_num,'batch_no:' + add_batch_no + ';produce_date:' + add_produce_date);
resinpnum = resinpnum - add_num;
rc1 ++
i++
};
}
}
for(i=1;i<rc1;i++)
{
string nil_batch_no;
nil_batch_no = grid_get_v('MG_Item','batch_no',i);
if(nil_batch_no == '-' || nil_batch_no == '')
{
grid_del_row('MG_Item',i);
i--;
rc1--;
}
};
};
int func_before_save()
{
if(confirm('是否进行先进先出处理？')==1)
{
_fio();
};
//can_save=1;
return 1;
}; |
|
 |
官方认证第三方服务团队 蒋逸凡（常德-ZEN） QQ:50636277 微信FrankBZE
服务介绍： http://www.onlyit.cn/user_show_topic?user_id=13498&topic_id=79894&topic_page_id=1
|
|
xwb514 [个人空间]
QQ名 福建流浪（340298101）
注册 2010-03-19
发贴数 576
精华贴 7
原创贴 7
来自
状态 正常
级别 会员 |
|
|
|
|
官方认证第三方服务团队 徐文标（福建-流浪） QQ:340298101 Ｖ&P :177-5046-4787
服务介绍：http://www.onlyit.cn/onlyit_service.html
|
|
wwx001 [个人空间]
QQ名 时光呓语
注册 2011-05-23
发贴数 719
精华贴 2
原创贴 3
来自
状态 正常
级别 会员 |
|
|
|
|
QQ：772600297
|
|
zhushi08 [个人空间]
注册 2010-05-18
发贴数 124
精华数 0
原创贴 0
来自
状态 正常
级别 会员 |
|
firewallxk [个人空间]
QQ名 广东--跌倒了再爬起来
注册 2013-06-26
发贴数 12
精华数 0
原创贴 0
来自
状态 正常
级别 会员 |
|
tonyjona [个人空间]
注册 2014-05-28
发贴数 109
精华数 0
原创贴 0
来自
状态 正常
级别 会员 |
|
chymore [个人空间]
注册 2011-05-22
发贴数 33
精华数 0
原创贴 1
来自
状态 正常
级别 会员 |
|
19915565185 [个人空间]
注册 2019-12-31
发贴数 1
精华数 0
原创贴 0
来自
状态 正常
级别 会员 |
|
wwx001 [个人空间]
QQ名 时光呓语
注册 2011-05-23
发贴数 719
精华贴 2
原创贴 3
来自
状态 正常
级别 会员 |
|
|
最近测试发现一个问题，就是保存的时候批次是正常的，但是输入的价格信息没有了，需要重新输入…… |
|
|
QQ：772600297
|
|
afoo [个人空间]
QQ名 常德-ZEN
注册 2010-04-08
发贴数 207
精华贴 6
原创贴 6
来自 常德-ZEN
状态 正常
级别 会员 |
|
|
|
|
官方认证第三方服务团队 蒋逸凡（常德-ZEN） QQ:50636277 微信FrankBZE
服务介绍： http://www.onlyit.cn/user_show_topic?user_id=13498&topic_id=79894&topic_page_id=1
|
|
wwx001 [个人空间]
QQ名 时光呓语
注册 2011-05-23
发贴数 719
精华贴 2
原创贴 3
来自
状态 正常
级别 会员 |
|
|
|
|
QQ：772600297
|
|
|
|