学习.交流
专业源于专注
www. myoit. cn   
学习交流 文件下载 手册资料 交流QQ群

    

 4  1/1   1  
作者
内容
xwb514  [个人空间]
QQ名  无锡-流浪(340298101)


注册  2010-03-19
发贴数  497
精华贴  7
原创贴  7
来自  
状态  正常

级别  会员
#1»发布于2019-05-08 16:43

群里总有人问质保期提醒的问题,可以说目前官方没有提供这个解决方案,本人不才,献丑用脚本解决这个问题。因没有环境,把脚本贴出以供测试,请有环境的朋友测试跟贴反馈。 
脚本放在主窗口脚本定义中;如果认为主窗口脚本定义要简洁,可以把脚本另存为(例如 quality_days)然后在主窗口脚本定义中: 
int main() 

call_str("call_csp. quality_days") 
  return 1; 
}; 
 
以下为质保期提醒脚本,从临期30天开始提醒,临期10天再提醒,如果达到或者超过质保期也作出提醒。 
int main() 

dbg_clear(); 
string sql; 
string today,resid,batch,produce; 
int i,row,day,days; 
today=get_cur_date_std(); 
sql="select res_id,produce_date,batch_no,num from edt_res " 
db_run(sql); 
 
if(db_row_count()>0) 

for (i=0;i<db_row_count();i++) 

db_go_row(i) 
resid=db_res(0); 
produce=db_res(1); 
batch=db_res(2); 
days=get_res_info(resid,"quality_days");//产品资料中的质保天数 
day=days-get_day_between(produce,today);//剩余天数 
if(db_res(3)>0) 

 
if(day<=30 && day>20 && day>0) 
dbg("编号:"+resid+"  名称:"+get_res_info(resid,"res_name")+"批次号为:"+batch+"  的质保期还有:"+day+"天") 
else 
if(day<=10 && day>0) 
dbg("编号:"+resid+"  名称:"+get_res_info(resid,"res_name")+"批次号为:"+batch+"  的质保期还有:"+day+"天") 
else 
if(day<=0) 
dbg("编号:"+resid+"  名称:"+get_res_info(resid,"res_name")+"  批次号为:"+batch+"  质保期已过!"); 
 

 


  return 1; 
}; 
 
提示:如果产品较多在进入软件时速度较慢,请耐心等待。


        于 2019-05-08 16:43 被 xwb514 修改




官方认证第三方服务团队  徐文标(福建-流浪) QQ:340298101
服务介绍:http://www.onlyit.cn/onlyit_service.html

afoo  [个人空间]
QQ名  常德-ZEN


注册  2010-04-08
发贴数  201
精华贴  6
原创贴  6
来自  常德-ZEN
状态  正常

级别  会员
#2»发布于2019-05-07 12:37

浪哥好人,这个必须要顶起来!






官方认证第三方服务团队  蒋逸凡(常德-ZEN) QQ:50636277
服务介绍: http://www.onlyit.cn/user_home?user_id=13498

chymore  [个人空间]


注册  2011-05-22
发贴数  33
精华数  0
原创贴  1
来自  
状态  正常

级别  会员
#3»发布于2019-09-03 21:33

收藏备用,谢谢分享!




loo0  [个人空间]


注册  2018-10-30
发贴数  1
精华数  0
原创贴  0
来自  
状态  正常

级别  会员
#4»发布于2021-08-31 01:40

感谢lz,收藏备用。最缺的功能





 4  1/1   1  


登录后方可发贴


[ 电话: 0571-85462761 王先生 QQ: 124520435 加入软件QQ群 - 杭州 - 浙ICP备19051128号-1 网安 33010402003225 ]