hx9617的空间..原创-捕鱼app

学习.交流
专业源于专注
  
学习交流 文件下载 手册资料 交流qq群


文章分类
   ☉
   ☉
   ☉
   ☉
照片夹
手机版捕鱼的友情链接
游客:   注册 | 登录 | 论坛
 10  1/1   
# 1    发布于 2015-04-25 08:16

int _fifo() 

  string sql_batch_no,batchno,resid; 
  int i,j,k,v; 
  num resinpnum,x,s; 
 
  grid_seek("mg_item","res_id","");//将光标定位到商品编码的最后一行; 
  i=grid_cur_row("mg_item");//获得最后一行的行号,用它减1就是真实的有数据的行数了。 
 
  for(j=1;j  { 
    sql_batch_no="select res_id,edt_id,produce_date,batch_no,num from edt_res where res_id='"   grid_get_v("mg_item","res_id",j) ; 
    sql_batch_no=sql_batch_no   "' and edt_id='"   gui_get_val('combobox_ext_edt_id')   "'order by produce_date"; 
    db_run(sql_batch_no); 
 
  //fmt_date(db_res(2),'yyyy.mm.dd'); //格式化生产日期 
 
    grid_set_v('mg_item','batch_no',j,db_res(3)); 
    grid_set_v('mg_item','produce_date',j,db_res(2)); 
    grid_trigger_change('mg_item','batch_no',-1); 
  }; 
 
 
  for(j=1;j  { 
    resid=grid_get_v("mg_item","res_id",j); 
    sql_batch_no="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_batch_no); 
    k=db_row_count(); 
    batchno=grid_get_v("mg_item","batch_no",j); //获取循环行的批号 
    resinpnum=grid_get_v("mg_item","inp_num",j); //获取循环行的数量 
 
    for(v=0;v    { 
      db_go_row(v); 
      s=db_res(4); 
      if(batchno==db_res(3) && resinpnum>s) 
      { 
        j=j v; 
        grid_seek_from('mg_item',j,'res_id',resid); 
        menu_trigger_click("popu_item_copy_curr"); 
        grid_set_v('mg_item','inp_num',j,db_res(4)); 
        grid_set_v('mg_item','produce_date',j,db_res(2)); 
        grid_trigger_change('mg_item','inp_num',-1); 
        grid_insert_before('mg_item',j 1); 
        grid_seek_from('mg_item',j 1,'res_id',''); 
  //      x=db_res(4); 
        menu_trigger_click("popu_item_paster"); 
        db_go_row(v 1); 
        grid_set_v('mg_item','batch_no',j 1,db_res(3)); 
        grid_set_v('mg_item','produce_date',j 1,db_res(2)); 
        grid_trigger_change('mg_item','batch_no',-1); 
        grid_set_v('mg_item','inp_num',j 1,resinpnum-s); 
        grid_trigger_change('mg_item','inp_num',-1); 
        batchno=grid_get_v("mg_item","batch_no",j 1); 
        resinpnum=grid_get_v("mg_item","inp_num",j 1); 
 
        s=db_res(4); 
        i ; 
      }; 
    }; 
  }; 
  return 1; 
}; 
 
int func_before_save() 

  if(confirm('是否进行先进先出处理?')==1) 
  { 
    _fifo(); 
  }; 
}; 
 
脚本写得比较笨拙,还希望高手们多指点。


于 2015-04-25 08:16 被 afoo 修改

官方认证第三方服务团队  蒋逸凡(常德-zen) qq:50636277
服务介绍: http://www.onlyit.cn/user_home?user_id=13498
# 2    发布于 2015-02-01 14:26

顶一下.这是个难点.



官方认证第三方服务团队  徐文标(福建-流浪) qq:340298101
服务介绍:http://www.onlyit.cn/onlyit_service.html
# 3    发布于 2015-09-12 13:29

很好,收藏学习。

# 4    发布于 2015-09-22 09:13

好东西,收下。

# 5    发布于 2015-09-22 16:50

感谢分享,收藏参考。



qq:772600297
# 6    发布于 2016-01-22 14:31

谢谢分享,值得学习。

# 7    发布于 2017-03-10 00:28

谢谢分享,值得学习。

# 8    发布于 2017-03-10 09:22

感谢分享,收藏参考

# 9    发布于 2018-03-27 12:34

为什么超过4.5个批次后就不行

# 10    发布于 2018-03-31 10:28

4.5个确实有问题。写这个脚本的时候当时也没考虑到这个,我们厂不会有一次超过3个批次的情况。



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

 10  1/1   


登录后方可发贴



[ 电话: 0571-85462761 王先生 qq: 124520435 加入软件qq群 - - ]