学习.交流
专业源于专注
www. myoit. cn   
学习交流 文件下载 手册资料 交流QQ群

    

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


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

级别  会员
#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<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
发贴数  71
精华贴  2
原创贴  1
来自  
状态  正常

级别  会员
#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<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

庫存管理軟體, 綠色免費


 2  1/1   1  


登录后方可发贴


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