标题：QQLING服务器

1楼

zhuxinhui 发表于：2024/3/14 12:00:00

现在使用了QQLIN服务器，

1、因为每个表的单号列名称不一致，造成了最大编码不能在启动系统时自动计算，经常出现重复的单号

2、如果我编辑的不是当月日期的单据，这个单号还是按当月日期进行编排，这个对于会计凭证来说，不太适合，需要怎样处理

2楼

有点蓝 发表于：2024/3/14 12:04:00

QQLIN是什么东西？

3楼

zhuxinhui 发表于：2024/3/14 14:13:00

QQClient

4楼

有点蓝 发表于：2024/3/14 14:27:00

1、不同表使用不同的集合计算最大编码

2、扩展一下消息的格式，把日期也发过去计算

5楼

zhuxinhui 发表于：2024/3/14 17:13:00

有相关案例吗？

6楼

有点蓝 发表于：2024/3/14 17:17:00

没有的。可以上传您的实例看看

7楼

有点蓝 发表于：2024/3/14 17:27:00

二、按月生成编号和三、按日期和类别编号就是按月进行编号的呀，除非不按帮助使用，自己乱想一套

8楼

zhuxinhui 发表于：2024/3/15 11:54:00

下载信息 [文件大小：下载次数： ]
点击浏览该文件:客户端.foxdb

按月和类别进行编号比较好些

下载信息 [文件大小：下载次数： ]
点击浏览该文件:服务器.foxdb

9楼

zhuxinhui 发表于：2024/3/15 11:59:00

现在就是想达到二个效果：

1、重新登录时可以重新计算最大单号

2、在客户端日期改变后，也能自动更新修改日期的最大单号。

会计凭证经常修改一年内几个月的日期，要做到随日期变动而变动才行

10楼

有点蓝 发表于：2024/3/15 12:17:00

把日期格式也加到生成编号的判断即可

下载信息 [文件大小：下载次数： ]
点击浏览该文件:服务器.zip

至于客户端，连不到数据库，看不到表格无法更改，发送消息的时候加上年月即可

Dim bh As String = e.datatable.name & "|" & Format(e.DataRow("日期"),"yyyyMM")

Dim rt As String = QQClient.SendWait(":f" & bh & "f:")

共56 条记录, 每页显示 10 条, 页签: [1] [2][3][4][5][6]