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

    

 3  1/1   1  
作者
内容
wwx001  [个人空间]
QQ名  时光呓语


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

级别  会员
#1»发布于2022-11-09 20:19

在制作会计凭证时,可能会由于删除之前凭证等原因导致凭证断号,尽管可以利用系统的“断号检查”功能来修正,但是不如在制作凭证时直接检查修正。下面的脚本放在“会计凭证”、“结转凭证”和“调汇凭证”。 
int func_before_save() 

  string a,b,sql; 
  int i,n,x,y; 
  a=str_get_sub(gui_get_val("DateTimePicker_Voucher_Date"),0,6); 
  b=a+'%'; 
  sql="select mark_no  from ebs_v as a,evm_v as b where a.voucher_id=b.voucher_id "; 
  sql=sql+"and a.voucher_type like 'V_' and a.voucher_date like '"+b+"' order by mark_no"; 
  db_run(sql); 
  n=db_row_count(); 
  x=1; 
  for(i=0;i<n;i++) { 
    db_go_row(i); 
    y=db_res(0); 
    if(x!=y){ 
      if(confirm("凭证号存在断号,是否自动补全?")==1){ 
      gui_set_val("Edit_Mark_No",x); 
      } 
      break; 
    } 
    x++; 
  } 
  return 1; 
};


        




QQ:772600297

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


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

级别  会员
#2»发布于2022-11-09 20:32

以上脚本仅用于使用一个凭证字的情况,如果使用“收、付、转”多个凭证字的请自行修改脚本。


        




QQ:772600297

qf2016  [个人空间]
QQ名  meng 113779009


注册  2016-01-17
发贴数  1511
精华数  0
原创贴  0
来自  
状态  正常

级别  版主
#3»发布于2022-11-09 20:45

厉害啊,都能用脚本改造系统了


        



 3  1/1   1  

登录后方可发贴


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