以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  求助:如何设置验证公式防止误删会计录入凭证?  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=27135)

--  作者:ghgs
--  发布时间:2014/4/23 16:55:00
--  求助:如何设置验证公式防止误删会计录入凭证?
     在会计凭证录入过程中,有时不慎误删除中间(不是末尾)的会计凭证,造成缺号而引引起数据错乱,如果能在误删除时弹出提示“此凭证不是最末尾的记录不许删除。否则,会造成缺号引起数据错乱!”,这样的容错提示就能限制误删凭证。但如何设置该验证函数公式?请各位老师指教。谢谢!
--  作者:dancedy
--  发布时间:2014/4/23 16:58:00
--  
设置自定义按钮删除,屏蔽系统菜单的删除行
--  作者:ghgs
--  发布时间:2014/4/23 17:10:00
--  
问题是自定义删除按钮里面的公式函数如何设置,请示教,谢谢!
--  作者:dancedy
--  发布时间:2014/4/23 17:17:00
--  
if(row<>rows,msgbox("此凭证不是最末尾的记录不许删除。否则,会造成缺号引起数据错乱!",0),delrow(gridname,row))
--  作者:ghgs
--  发布时间:2014/4/24 9:29:00
--  

谢谢老师的指教,我原来折腾了半天就是找不到ROWS(末行)的函数,现经高人点拨,难题迎刃而解,受益匪浅。  
为更规范删除凭证(记录),我把“delrow(gridname,row)”换成“Do(102)”,利用系统行删除函数的提示还可删除关联表的行。                
                 
 if(row<>rows,msgbox("此凭证不是最末尾的记录,只许修改不许删除。否则,会造成缺号引起数据错乱!",0),Do(102))                
                 
还有一个“撤销”/“重做”问题,如果在单张表的情况下就很容易实现,但在会计凭证录入窗口里的关联表(记账凭证明细)“撤销”/“重做”
的功能就不起作用了。如何设置关联表的“撤销”/“重做”自定义按钮函数公式,恳请老师明示,谢谢!                

[此贴子已经被作者于2014-4-24 9:48:49编辑过]

--  作者:dancedy
--  发布时间:2014/4/24 9:46:00
--  
撤销/重做只针对当前表,关联表不行
--  作者:smileboy
--  发布时间:2014/4/27 8:15:00
--  
可以考虑单独建一个保存删除记录的表,如果想恢复的话可以从这个表拷贝回来