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

    

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


注册  2010-04-08
发贴数  203
精华贴  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
发贴数  512
精华贴  7
原创贴  7
来自  
状态  正常

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

谢谢老师,收藏。


        




官方认证第三方服务团队  徐文标(福建-流浪) QQ:340298101
服务介绍:http://www.onlyit.cn/onlyit_service.html

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


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

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

感谢老师分享,收藏了。


        




QQ:772600297

zhushi08  [个人空间]


注册  2010-05-18
发贴数  121
精华数  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
发贴数  108
精华数  0
原创贴  0
来自  
状态  正常

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

感谢老师分享,收藏了。


        


chymore  [个人空间]


注册  2011-05-22
发贴数  33
精华数  0
原创贴  1
来自  
状态  正常

级别  会员
#7»发布于2019-10-07 17:04

这个是好东西,学习了!


        


19915565185  [个人空间]


注册  2019-12-31
发贴数  1
精华数  0
原创贴  0
来自  
状态  正常

级别  会员
#8»发布于2019-12-31 15:17

写脚本的都是大咖了,小白一个,膜拜围观


        


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


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

级别  会员
#9»发布于2022-11-23 10:45

最近测试发现一个问题,就是保存的时候批次是正常的,但是输入的价格信息没有了,需要重新输入……


        




QQ:772600297


 9  1/1   1  

登录后方可发贴


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