原创_在客户资料显示会员的级别,会员卡状态_使用经验
学习.交流
专业源于专注
www. onlyit. cn   
学习交流 文件下载 手册资料 交流QQ群

    

 3  1/1   1  
作者
内容
liuyw2000  [个人空间]
QQ名  1138418237


注册  2012-02-16
发贴数  69
精华贴  2
原创贴  1
来自  
状态  正常

级别  会员
#1»发布于2019-12-08 13:21

目前客户管理与会员管理是分开的,增加会员卡时可以关联到相关客户,但不能从客户资料里看到是否会员,会员卡状态。但通过系统强大的脚本功能,可以实现以上功能。实现步骤及代码如下: 
1、客户管理》功能》记录管理列表脚本定义 
2、具体代码: 
    int load_over() 

  grid_add_col_str('MG','card_grade','卡级别'); 
  grid_set_col_width('MG','card_grade',140); 
  grid_add_col_str('MG','card_state','卡状态'); 
  grid_set_col_width('MG','card_state',140); 
 
  int id,r_num; 
  string mobile; 
 
  r_num = grid_row_num('MG'); 
  //msg(r_num); 
  for(id=1;id <= r_num;id++) 
  { 
     mobile=grid_get_v('MG','mobile_no',id); 
     if(mobile=='') continue; 
      //msg(mobile); 
     db_run("select mem_card_grade,state from eba_mem_card where card_no='"+mobile+"'"); 
     //msg(db_row_count()); 
     if(db_row_count()>0) 
       { 
         grid_set_v('MG','card_grade',id,db_res(0)); 
         grid_set_v('MG','card_state',id,db_res(1)); 
       }; 
   }; 
   return 1; 
}; 
 
注意事项:增加会员卡,会员卡号必须是客户资料主联系人的手机号。 
 
实现效果如:



        于 2019-12-08 13:21 被 liuyw2000 修改




提供ERP顾问咨询及落地实施,商业智能及数据分析BI,提供私有云、公有云环境的系统集成服务,QQ号:1138418237

liuyw2000  [个人空间]
QQ名  1138418237


注册  2012-02-16
发贴数  69
精华贴  2
原创贴  1
来自  
状态  正常

级别  会员
#2»发布于2019-12-08 17:26

代码又完善了一下,可以显示字典中代码对应的中文标识: 
int load_over() 

  grid_add_col_str('MG','card_grade','卡级别'); 
  grid_set_col_width('MG','card_grade',140); 
  grid_add_col_str('MG','card_state','卡状态'); 
  grid_set_col_width('MG','card_state',140); 
 
  int id,r_num; 
  string mobile,grade_name,state_name; 
 
  r_num = grid_row_num('MG'); 
  //msg(r_num); 
  for(id=1;id <= r_num;id++) 
  { 
     mobile=grid_get_v('MG','mobile_no',id); 
     if(mobile=='') continue; 
      //msg(mobile); 
     db_run("select mem_card_grade,state from eba_mem_card where card_no='"+mobile+"'"); 
     //msg(db_row_count()); 
     if(db_row_count()>0) 
       { 
         grade_name=dt_get_name('eba_mem_card_grade',db_res(0)); 
         state_name=dt_get_name('eba_mem_card_state',db_res(1)); 
         grid_set_v('MG','card_grade',id,grade_name); 
         grid_set_v('MG','card_state',id,state_name); 
       }; 
   }; 
   return 1; 
}; 
 
 
效果如下:



        于 2019-12-08 17:26 被 liuyw2000 修改




提供ERP顾问咨询及落地实施,商业智能及数据分析BI,提供私有云、公有云环境的系统集成服务,QQ号:1138418237

qf2016  [个人空间]
QQ名  meng 113779009


注册  2016-01-17
发贴数  2537
精华数  0
原创贴  0
来自  
状态  正常

级别  版主
#3»发布于2019-12-09 10:01

 
感谢分享,很不错的想法。





 3  1/1   1  

登录后方可发贴


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