原创-捕鱼app

学习.交流
专业源于专注
  
学习交流 文件下载 手册资料 交流qq群

    

 2  1/1   
作者
内容
  
qq名  1138418237


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

级别  会员
#1»发布于2021-01-12 17:13

int switch() 

int i,n,ib,nb; 
num cjlv,jcl,mc; 
string r_id,r_idb; 
//n=grid_row_num("mg_main_res"); 
n=grid_find("mg_main_res","res_id",""); 
//msg(n); 
for(i=1;i { 
r_id=grid_get_v('mg_main_res','res_id',i); 
//nb=grid_row_num("mg_item"); 
nb=grid_find("mg_item","res_id",""); 
//msg(nb); 
for(ib=1;ib
 r_idb=grid_get_v('mg_item','res_id',ib); 
 mc=grid_get_v('mg_item','inp_num',ib); 
 
 db_run("select waste_factor from res_composing where res_id='" r_id "'" "and sub_res_id='" r_idb "'"); 
 if(db_row_count()>0) 
   { 
    cjlv=1/(1 db_res(0)/100);//出净率 
    jcl=mc*cjlv;//净菜量 
    cjlv=num_dec_cut(cjlv,2); 
    jcl=num_dec_cut(jcl,2); 
    grid_set_v('mg_item','vr_item_ext_1',ib,db_res(0)); 
    grid_set_v('mg_item','vr_item_ext_2',ib,cjlv); 
    grid_set_v('mg_item','vr_item_ext_3',ib,jcl); 
 
   } 
 } 
 

  return 1; }; 
 
int func_show() 

  gui_create_button("panel_func","switch",770,3,120,29,"计算净菜量","call_csp.voucher.mc.switch"); 
   return 1; 
 };


        于 2021-01-12 17:13 被 liuyw2000 修改




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

  
qq名  1138418237


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

级别  会员
#2»发布于2021-01-12 17:57

第二种算法 
int init_row() 

int i,n; 
num cjlv,jcl,mc; 
string r_id,r_idb; 
r_id=grid_get_v('mg_main_res','res_id',grid_cur_row('mg_main_res')); 
n=grid_find("mg_item","res_id",""); 
for(i=1;i
 r_idb=grid_get_v('mg_item','res_id',i); 
 mc=grid_get_v('mg_item','inp_num',i); 
 db_run("select waste_factor from res_composing where res_id='" r_id "'" "and sub_res_id='" r_idb "'"); 
 if(db_row_count()>0) 
   { 
    cjlv=1/(1 db_res(0)/100);//出净率 
    jcl=mc*cjlv;//净菜量 
    cjlv=num_dec_cut(cjlv,2); 
    jcl=num_dec_cut(jcl,2); 
    grid_set_v('mg_item','vr_item_ext_1',i,db_res(0)); 
    grid_set_v('mg_item','vr_item_ext_2',i,cjlv); 
    grid_set_v('mg_item','vr_item_ext_3',i,jcl); 
 
   } 

  return 1; 
};






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


 2  1/1   


登录后方可发贴


[ 电话: 0571-85462761 王先生 qq: 124520435 加入软件qq群 - - ]