VFP表如何按要求编号

来源：百度知道 编辑：UC知道 时间：2024/06/22 09:05:11
有一VFP表,ckb(出库表)如下:
凭证号 日期 物料号 发出数量 单位 代码
2006/11/11 AAAA1 22 单位1 A
2006/11/11 AAAA2 333 单位1 B
2006/11/11 AAAA3 22 单位2 A
2006/11/11 AAAA4 22 单位2 A
要求:按代码及单位生成凭证号,即代码为A中的每个单位中七条记录为一组,生成一个凭证号
凭证号规则:日期+00001 即061111-00001 061111-00002
程序简单位快捷,执行速度快.
1、日期字段为日期型.
2、按代码和单位生成凭证号，相同代码相同的单位生成相同的凭证号，但七条记录为一组。例如：共有20条记录。其中代码为A的10条，代码为B的10条。代码为A单位为AAAA1的9条,代码为A单位为AAAA2的1条，那么生成的凭证号就是代码为A单位为AAAA1的7条为一个凭证号，代码为A单位为AAAA1的其余2条为一个凭证号。
3、凭证号规则为"当前日期+00001"

dm=''
use ckb
index on 代码,单位 to px
jsq=1
lshh=0
scan
if dm<>代码 or jsq>=7
lshh=lshh+1
dm=代码
jsq=1
endif
repl 凭证号 with right(dtos(date()),6)+'-'+right('0000'+(allt(str(lshh)),5)
endscan
use