Foxtable(狐表)用户栏目专家坐堂 → 会计凭证的设计和录入


  共有14311人关注过本帖树形打印复制链接

主题:会计凭证的设计和录入

帅哥,在线噢!
有点蓝
  151楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107133 积分:544908 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/16 17:06:00 [只看该作者]

1、没有办法,Validating取消是无法离开控件的。要么就只做提示,不要取消

2、怎么样才算是【未保存】?

 回到顶部
美女呀,在线,快来找我吧!
采菊东篱下
  152楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1881 积分:10374 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/6/16 17:22:00 [只看该作者]

未保存就是指定字号、日期、凭证号,财务数据源表上不存在的数据。

 回到顶部
帅哥,在线噢!
有点蓝
  153楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107133 积分:544908 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/16 17:31:00 [只看该作者]

这个窗口正常应该是双击打开的,这时对应的数据肯定已存在,所以是不能改的。

只有点击新增按钮,新增的单据才可以改,149楼项目就是这样处理的

 回到顶部
美女呀,在线,快来找我吧!
采菊东篱下
  154楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1881 积分:10374 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/6/16 22:01:00 [只看该作者]

现在是双击表打开窗口,日期依然能改,修改后凭证号也相应变了,窗口中的Validating事件代码根本不起作用。
[此贴子已经被作者于2021/6/17 0:30:21编辑过]

 回到顶部
美女呀,在线,快来找我吧!
采菊东篱下
  155楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1881 积分:10374 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/6/16 22:23:00 [只看该作者]

应该判断修改前的凭证号是否存在,修改后的凭证号财务数据源表肯定不存在,因为那是重新生成的,未保存,因此窗口中的Validating事件代码根本不起作用,如何设置允许已保存的单据修改当月日期,凭证号不变,禁止跨月自动修改已保存的凭证号,允许手动修改凭证号。
[此贴子已经被作者于2021/6/17 14:25:17编辑过]

 回到顶部
帅哥,在线噢!
有点蓝
  156楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:107133 积分:544908 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2021/6/17 11:43:00 [只看该作者]

Validating事件只有在当前控件里编辑数据才会触发。其它控件给这个控件赋值是不会触发的,应该到日期控件的Validating事件或者valuechanged处理

 回到顶部
帅哥哟,离线,有人找我吗?
shenyl0211
  157楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:四尾狐 帖子:977 积分:6835 威望:0 精华:0 注册:2012/4/2 21:49:00
  发帖心情 Post By:2021/6/17 13:25:00 [只看该作者]

看了蓝版在4楼的回复和后面一连串的耐心解答,觉得蓝版态度特好;再看楼主在5楼的冒火(说话真难听、真恶心,且纯粹是楼主自己眼瞎造成的。过后还不删除5楼的内容和道歉),真不知道是谁在求谁?

我没有任何挑唆的意思,只是希望大家平心静气、互相尊重,特别是要尊重版主,帮你解决问题了就应该说声谢谢,即使解决不了,人家也是尽力思考过了,也应该说声谢谢。
1、因为狐表只是一个开发软件,不是现成的管理系统,不能求全责备。即使是一个管理系统,也不可能面面俱到、没有差错。windows不是一个最好的例子吗?你们开发的管理系统不也是最好的例子吗?
2、虽然有些解答是必须的,但有些解答不是必须的,是用户自己的问题。
3、用户来自各行各业、需求各异,而版主缺少太多的行业知识,如果用户不能详细描述或上传项目,版主是很难答复的。即使上传项目,如果版主没有足够的时间理解、消化,同样难以回答。而版主确实太缺乏时间了,因为他面对的用户太多,而有不少用户的惰性太大。
4、按照版主对某些用户付出的服务,狐表的价格对他们来说是严重偏低的,如果此时还要版主有问题必解决,确实是有些过分的,特别是那些自己懒得看帮助、懒得在论坛搜索的用户,更过分。
5、还有不少注册用户是没花一分钱的,因为他们在用试用版,而版主却同样要解答他们的提问,真是太难为版主了。

 回到顶部
美女呀,在线,快来找我吧!
采菊东篱下
  158楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1881 积分:10374 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/6/17 14:18:00 [只看该作者]

以下是引用shenyl0211在2021/6/17 13:25:00的发言:
看了蓝版在4楼的回复和后面一连串的耐心解答,觉得蓝版态度特好;再看楼主在5楼的冒火(说话真难听、真恶心,且纯粹是楼主自己眼瞎造成的。过后还不删除5楼的内容和道歉),真不知道是谁在求谁?

我没有任何挑唆的意思,只是希望大家平心静气、互相尊重,特别是要尊重版主,帮你解决问题了就应该说声谢谢,即使解决不了,人家也是尽力思考过了,也应该说声谢谢。
1、因为狐表只是一个开发软件,不是现成的管理系统,不能求全责备。即使是一个管理系统,也不可能面面俱到、没有差错。windows不是一个最好的例子吗?你们开发的管理系统不也是最好的例子吗?
2、虽然有些解答是必须的,但有些解答不是必须的,是用户自己的问题。
3、用户来自各行各业、需求各异,而版主缺少太多的行业知识,如果用户不能详细描述或上传项目,版主是很难答复的。即使上传项目,如果版主没有足够的时间理解、消化,同样难以回答。而版主确实太缺乏时间了,因为他面对的用户太多,而有不少用户的惰性太大。
4、按照版主对某些用户付出的服务,狐表的价格对他们来说是严重偏低的,如果此时还要版主有问题必解决,确实是有些过分的,特别是那些自己懒得看帮助、懒得在论坛搜索的用户,更过分。
5、还有不少注册用户是没花一分钱的,因为他们在用试用版,而版主却同样要解答他们的提问,真是太难为版主了。

不想跟你多言,你一边去。

 回到顶部
美女呀,在线,快来找我吧!
采菊东篱下
  159楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1881 积分:10374 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/6/17 16:10:00 [只看该作者]

把自动生成凭证号的条件改为增加新的窗口时执行,一切问题解决,谢谢指出增加这个标签控件。
[此贴子已经被作者于2021/6/17 20:16:04编辑过]

 回到顶部
美女呀,在线,快来找我吧!
采菊东篱下
  160楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:八尾狐 帖子:1881 积分:10374 威望:0 精华:0 注册:2019/4/6 8:45:00
  发帖心情 Post By:2021/6/18 11:49:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下:061802.png
图片点击可在新窗口打开查看
我想实现当借方金额合计数大于贷方金额合计数,双击
会计科目不为空的贷方金额为空的单元格,自动填充借方金额合计与贷方金额的差额;同理当贷方金额合计数大于借方金额合计数,双击会计科目不为空的借方金额为空的单元格,自动填充借方金额合计与贷方金额的差额,我这样写报错:

图片点击可在新窗口打开查看此主题相关图片如下:061801.png
图片点击可在新窗口打开查看

Dim dt As DataTable = DataTables("转账凭证_Table1")
With dt
    If .Compute("sum(借方金额)") > .Compute("sum(贷方金额)","[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") Then
        e.DataRow("贷方金额") = .Compute("sum(借方金额)") - .Compute("sum(贷方金额)","[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc")
    ElseIf .Compute("sum(借方金额)") < .Compute("sum(贷方金额)") - .Compute("sum(贷方金额)","[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc") Then
        e.DataRow("借方金额") = .Compute("sum(贷方金额)") - .Compute("sum(借方金额)","[_SortKey] < " & e.DataRow("_SortKey"), "[_SortKey] Desc")
    End If
End With

 回到顶部