原创_【网络许可到期】提醒脚本分享【添加弹窗设置提醒天数】_使用经验
学习.交流
专业源于专注
www. onlyit. cn   
学习交流 文件下载 手册资料 交流QQ群

    

 7  1/1   1  
作者
内容
fwj3861  [个人空间]
QQ名  越南-叶子(121305301)


注册  2010-09-09
发贴数  524
精华贴  10
原创贴  20
来自  越南
状态  正常

级别  贵宾
#1»发布于2023-07-06 17:29

昨天官方发布的新版本添加了弹出【网络许可到期提醒】信息的功能(针对所有用户),为了精准提醒到指定人员和自由设置到期天数,特用脚本添加了到期提醒弹窗 
脚本思路: 
1. 启用一个采购类自定义单据(我这里是启用【AN】类)命名:【V2许可清单】(目前基本上都是使用V2许可),单据业务规则:表头不用显示其他控件,不影响库存和业务往来,不做权限控制 
2.新建2个不勾选【不进行存货管理】的产品资料,产品编号和产品名称都命名一致,2个产品分别命名:mssql,oit(根据购买的产品标识来命名) 
3.导出许可清单,新建一个【V2许可清单】单据,导入许可清单明细【启用明细自定义1(标题改为:许可序号)和明细自定义2(标题改为:到期日期)】后保存审核单据 
4.新建操作员分组【V2许可清单】,把需要接收许可到期提醒的操作员勾选到这个分组 
5.新建脚本【V2许可到期提醒】,把这个脚本放在【app_ready】里面执行(小秘书模式登陆也执行) 
 
【V2许可到期提醒】脚本: 
int test() 

  return 1; 
}; 
 
int main() 

 if(is_user_in_group("V2许可清单")) 

  int j,count; 
  string sql,dqrq,jzrq; 
   dqrq  =  get_cur_date_std() //获取当前日期 
   jzrq = date_add(dqrq,30) //30天后到期的日期 
   sql = "select vr_item_ext_1 as 许可序号,vr_item_ext_2 as 到期日期,res_id as 产品标示 from ebs_vr_item a left join ebs_v c on a.voucher_id = c.voucher_id "; 
   sql = sql+"where voucher_type='AN' and vr_item_ext_2 > ('"+dqrq+"') and vr_item_ext_2 < ('"+jzrq+"')"; 
   db_run(sql) 
   count = db_row_count() 
   for(j=0;j<count;j++); 
   { 
    db_go_row(j) 
    db_add_field('到期日期') 
    db_set_value_ext('到期日期', fmt_date(db_res(1),"yyyy年mm月dd日")) 
    }; 
    if(count > 0) 
    { 
     db_show('V2许可到期提醒') 
     }; 
   }; 
  return 1; 
}; 
 
 
【app_ready】脚本 
int main() 

 call_str('call_prog.V2许可到期提醒'); 
  return 1; 
};

V


        于 2023-07-06 17:29 被 fwj3861 修改




官方认证第三方服务团队  樊文俊(越南-叶子) QQ:121305301 TEL:+84869350626
承接越南北部-河内周边省份-OIT部署和维护服务(24小时上门或远程服务)
服务介绍:http://www.onlyit.cn/onlyit_service.html

wwx001  [个人空间]
QQ名  时光呓语


注册  2011-05-23
发贴数  634
精华贴  2
原创贴  3
来自  
状态  正常

级别  会员
#2»发布于2023-07-05 17:28

看更新说明,是许可15天内到期提醒,现在好像是每次启动都提醒。并且日期前面多一个“20”,这是许可类型吗?






QQ:772600297

fwj3861  [个人空间]
QQ名  越南-叶子(121305301)


注册  2010-09-09
发贴数  524
精华贴  10
原创贴  20
来自  越南
状态  正常

级别  贵宾
#3»发布于2023-07-05 17:37

多一个20是有这样的问题,待官方更新,所以暂时可以用脚本,待官方的更新满足需求后就可以取消脚本了


        于 2023-07-05 17:37 被 fwj3861 修改




官方认证第三方服务团队  樊文俊(越南-叶子) QQ:121305301 TEL:+84869350626
承接越南北部-河内周边省份-OIT部署和维护服务(24小时上门或远程服务)
服务介绍:http://www.onlyit.cn/onlyit_service.html

fwj3861  [个人空间]
QQ名  越南-叶子(121305301)


注册  2010-09-09
发贴数  524
精华贴  10
原创贴  20
来自  越南
状态  正常

级别  贵宾
#4»发布于2023-07-06 08:58

添加一个到期天数 
int main()  
{  
 if(is_user_in_group("V2许可清单"))  
{  
  int j,count;  
  string sql,dqrq,jzrq;  
   dqrq  =  get_cur_date_std() //获取当前日期  
   jzrq = date_add(dqrq,30) //30天后到期的日期  
   sql = "select vr_item_ext_1 as 许可序号,vr_item_ext_2 as 到期日期,res_id as 产品标示 from ebs_vr_item a left join ebs_v c on a.voucher_id = c.voucher_id ";  
   sql = sql+"where voucher_type='AN' and vr_item_ext_2 > ('"+dqrq+"') and vr_item_ext_2 < ('"+jzrq+"')";  
   db_run(sql)  
   count = db_row_count()  
   for(j=0;j<count;j++);  
   {  
    db_go_row(j)  
    db_add_field('到期天数') 
    db_set_value_ext('到期天数', get_day_between(dqrq,db_res(1))) 
    db_add_field('到期日期')  
    db_set_value_ext('到期日期', fmt_date(db_res(1),"yyyy年mm月dd日"))  
    };  
    if(count > 0)  
    {  
     db_show('V2许可到期提醒')  
     };  
   };  
  return 1;  
};







官方认证第三方服务团队  樊文俊(越南-叶子) QQ:121305301 TEL:+84869350626
承接越南北部-河内周边省份-OIT部署和维护服务(24小时上门或远程服务)
服务介绍:http://www.onlyit.cn/onlyit_service.html

fwj3861  [个人空间]
QQ名  越南-叶子(121305301)


注册  2010-09-09
发贴数  524
精华贴  10
原创贴  20
来自  越南
状态  正常

级别  贵宾
#5»发布于2023-07-10 08:57

昨天的脚本还是每次登陆都会弹出提醒,再加上弹窗灵活设置提醒天数脚本 
思路,新建一个表:v2_log,添加5个列:user_id,voucher_type,log_date,log_time,num_date【分别写入登陆帐号,单据类型,登陆日期,登陆时刻,弹窗输入的间隔提醒天数(每天都提醒就为-1)】,这样就解决了当天每次登陆都弹窗的问题 
 
【V2许可到期提醒】脚本更新: 
int test() 

  return 1; 
}; 
 
int main() 

 if(is_user_in_group("V2许可清单")) 
 { 
  int j,i,count; 
  string sql,uid,dqsk,dqrq,jzrq,jgrq,rzrq; 
   dqrq  =  get_cur_date_std() //获取登陆日期 
   dqsk = get_serv_time() //获取登陆时刻 
   jzrq = date_add(dqrq,30) //设置默认30天内到期的截止日期 
   uid = get_user_id() //获取登陆帐号 
   db_run("select user_id,voucher_type,log_date,log_time,num_date from v2_log where voucher_type='AN' and user_id='"+uid+"'"); 
   jgrq = date_add(dqrq,db_res(4)) //获取已写入的提醒日志的间隔天数 
   rzrq = db_res(1) //获取日志写入日期 
   i = db_row_count() 
 
    sql = "select vr_item_ext_1 as 许可序号,vr_item_ext_2 as 到期日期,res_id as 产品标示 from ebs_vr_item a left join ebs_v c on a.voucher_id = c.voucher_id "; 
    sql = sql+"where voucher_type='AN' and vr_item_ext_2 > ('"+dqrq+"') and vr_item_ext_2 < ('"+jzrq+"')"; 
    db_run(sql) 
    count = db_row_count() 
    for(j=0;j<count;j++); 
    { 
     db_go_row(j) 
     db_add_field('到期天数') 
     db_set_value_ext('到期天数', get_day_between(dqrq,db_res(1))) 
     db_add_field('到期日期') 
     db_set_value_ext('到期日期', fmt_date(db_res(1),"yyyy年mm月dd日")) 
     }; 
     if(count > 0) 
     { 
      if(i == 0 || jgrq == dqrq) //日志为空或设置的间隔日期到期的提醒条件 
      { 
       db_show('V2许可到期提醒') 
       if(confirm('请输入下次弹出提醒的天数,或点击【否】则每天弹出1次提醒!')== '1') 
       { 
        inp_clear(); 
        inp_para_set_title('请输入【下次弹出提醒的天数】') 
        inp_def_string('mnum','下次提醒的天数:'); 
        inp_para() 
        num inp_num; 
        inp_num=inp_get_val('mnum') 
        db_run("delete from v2_log where user_id='"+uid+"'"); //写入日志前删除该用户已写入的旧日志 
        sql = "insert into v2_log(user_id,voucher_type,log_date,log_time,num_date) values"; 
        sql = sql+"('"+uid+"','AN','"+dqrq+"','"+dqsk+"','"+inp_num+"') commit"; 
        db_run(sql) //写入当前提醒信息日志(按间隔天数提醒) 
        }else{ 
        db_run("delete from v2_log where user_id='"+uid+"'"); //写入日志前删除该用户已写入的旧日志 
        sql = "insert into v2_log(user_id,voucher_type,log_date,log_time,num_date) values"; 
        sql = sql+"('"+uid+"','AN','"+dqrq+"','"+dqsk+"','-1') commit"; 
        db_run(sql) //写入当前提醒信息日志(每天提醒一次) 
        }; 
      }; 
    if(rzrq == -1 && dqrq != rzrq) //每天提醒一次的条件 
    { 
      db_show('V2许可到期提醒') 
     }; 
    }; 
  }; 
  return 1; 
};




        于 2023-07-10 08:57 被 fwj3861 修改




官方认证第三方服务团队  樊文俊(越南-叶子) QQ:121305301 TEL:+84869350626
承接越南北部-河内周边省份-OIT部署和维护服务(24小时上门或远程服务)
服务介绍:http://www.onlyit.cn/onlyit_service.html

fwj3861  [个人空间]
QQ名  越南-叶子(121305301)


注册  2010-09-09
发贴数  524
精华贴  10
原创贴  20
来自  越南
状态  正常

级别  贵宾
#6»发布于2023-07-06 17:40

关闭到期许可明细窗口后会弹出提醒间隔天数确认窗口,输入天数,点击确认后,会按照这个天数到期再弹窗提醒,直接点击【否】,会默认每天弹窗提醒一次,不会每次登陆都弹窗提醒








官方认证第三方服务团队  樊文俊(越南-叶子) QQ:121305301 TEL:+84869350626
承接越南北部-河内周边省份-OIT部署和维护服务(24小时上门或远程服务)
服务介绍:http://www.onlyit.cn/onlyit_service.html

fwj3861  [个人空间]
QQ名  越南-叶子(121305301)


注册  2010-09-09
发贴数  524
精华贴  10
原创贴  20
来自  越南
状态  正常

级别  贵宾
#7»发布于2023-07-06 17:41

写入的间隔7天提醒的日志查询和每天都提醒一次的日志查询








官方认证第三方服务团队  樊文俊(越南-叶子) QQ:121305301 TEL:+84869350626
承接越南北部-河内周边省份-OIT部署和维护服务(24小时上门或远程服务)
服务介绍:http://www.onlyit.cn/onlyit_service.html


 7  1/1   1  

登录后方可发贴


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