管理者软件
专业源于专注
www. onlyIt. cn   
软件交流 管理软件 软件手册 »
管理模型 管理资料

    

 6  1/1   1  
作者
内容
afoo  [个人空间]
QQ名  常德-ZEN


注册  2010-04-08
发贴数  172
精华贴  6
原创贴  6
来自  常德-ZEN
状态  正常

级别  会员
#1»发布于2018-04-01 20:41

主要是修复了以前的实现方案不能调用超过3个批次的问题。 
脚本写得比较笨拙,如有bug请告知。 
 
int _fio() 

  int rc1,rc2,i,j; 
  string sql,resid,add_batch_no,add_produce_date; 
  num resinpnum,add_num; 
 
  rc1 =  grid_find("MG_Item","res_id","") 
 
  for(i=1;i<rc1;i++) 
  { 
    resid=grid_get_v("MG_Item","res_id",i); 
    resinpnum=grid_get_v("MG_Item","inp_num",i); //获取循环行的数量 
    sql="select res_id,edt_id,produce_date,batch_no,num from edt_res where res_id='" + resid + "' and edt_id='" + gui_get_val('ComboBox_Ext_Edt_Id') + "'order by batch_no"; 
    db_run(sql); 
    rc2 = db_row_count() 
    for(j=0;j<rc2;j++) 
    { 
      db_go_row(j) 
      add_num = db_res(4); 
      if(resinpnum > 0) 
      { 
        if(resinpnum<=add_num) 
        { 
          add_num = resinpnum; 
        } 
        add_batch_no = db_res(3); 
        add_produce_date = db_res(2); 
        grid_insert_before("MG_Item",i); 
        vr_add_res_ext(resid,add_num,'batch_no:' + add_batch_no + ';produce_date:' + add_produce_date); 
        resinpnum = resinpnum - add_num; 
        rc1 ++ 
        i++ 
      }; 
    } 
  } 
  for(i=1;i<rc1;i++) 
  { 
    string nil_batch_no; 
    nil_batch_no = grid_get_v('MG_Item','batch_no',i); 
    if(nil_batch_no == '-' || nil_batch_no == '') 
    { 
      grid_del_row('MG_Item',i); 
      i--; 
      rc1--; 
    } 
  }; 
}; 
 
 
int func_before_save() 

  if(confirm('是否进行先进先出处理?')==1) 
  { 
    _fio(); 
  }; 
  //can_save=1; 
  return 1; 
};






        




官方认证第三方服务团队  蒋逸凡(常德-ZEN) QQ:50636277
服务介绍: http://www.onlyit.cn/user_home?user_id=13498

庫存管理軟體, 綠色免費

xwb514  [个人空间]
QQ名  无锡-流浪(340298101)


注册  2010-03-19
发贴数  374
精华贴  5
原创贴  6
来自  
状态  正常

级别  会员
#2»发布于2018-04-01 20:47

谢谢老师,收藏。


        




承接OIT进销存商业服务

固定資産設備 管理軟體, 綠色免費

wwx001  [个人空间]
QQ名  时光呓语


注册  2011-05-23
发贴数  287
精华贴  1
原创贴  2
来自  
状态  正常

级别  会员
#3»发布于2018-04-04 07:50

感谢老师分享,收藏了。


        




QQ:772600297

商贸进销存 管理軟體, 綠色免費

zhushi08  [个人空间]


注册  2010-05-18
发贴数  112
精华数  0
原创贴  0
来自  
状态  正常

级别  会员
#4»发布于2018-04-07 10:37

感谢,学习了


        



人力資源管理軟體, 綠色免費

firewallxk  [个人空间]
QQ名  广东--跌倒了再爬起来


注册  2013-06-26
发贴数  12
精华数  0
原创贴  0
来自  
状态  正常

级别  会员
#5»发布于2018-04-10 17:14

学习了.谢谢,老师


        



庫存管理軟體, 綠色免費

tonyjona  [个人空间]


注册  2014-05-28
发贴数  101
精华数  0
原创贴  0
来自  
状态  正常

级别  会员
#6»发布于2018-09-17 19:18

感谢老师分享,收藏了。


        



固定資産設備 管理軟體, 綠色免費

 >经典理论    >职业工具    >交流论坛      >阅读1 ,2 ,3 ,4  >文本论坛    
 6  1/1   1  


登录后方可发贴


[ 电话: 0571-85462761 王先生 QQ: 124520435 加入软件QQ群 - 中国杭州 - 备案号码 33010402003225]