| 作者 |
|
liuyw2000 [个人空间]
QQ名 1138418237
注册 2012-02-16
发贴数 69
精华贴 2
原创贴 1
来自
状态 正常
级别 会员 |
|
|
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<n;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<nb;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
|
|
liuyw2000 [个人空间]
QQ名 1138418237
注册 2012-02-16
发贴数 69
精华贴 2
原创贴 1
来自
状态 正常
级别 会员 |
|
|
第二种算法
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<n;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
|
|
|