作者 |
|
qq名 1138418237
  注册 2012-02-16 发贴数 精华贴 原创贴 来自 状态 正常
级别 会员 |
|
|
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 发贴数 精华贴 原创贴 来自 状态 正常
级别 会员 |
|
|
第二种算法 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
|
|
|