开发订单系统用到的新建单据自动编号

年月日 ＝ 删首尾空 (读配置项 (取运行目录 () ＋ “\setting.ini”, “自动编号”, “年月日”, ))
当前年月日 ＝ 到文本 (取年份 (取现行时间 ())) ＋ 到文本 (取月份 (取现行时间 ())) ＋ 到文本 (取日 (取现行时间 ()))
流水号 ＝ 删首尾空 (读配置项 (取运行目录 () ＋ “\setting.ini”, “自动编号”, “流水号”, ))
.如果 (年月日 ＝ 当前年月日)
.如果真 (到整数 (流水号) ≠ 1000)
写配置项 (取运行目录 () ＋ “\setting.ini”, “自动编号”, “流水号”, 到文本 (到整数 (流水号) ＋ 1))
编辑框1.内容 ＝ “FK” ＋ 当前年月日 ＋ 到文本 (到整数 (流水号) ＋ 1)
.如果真结束

.否则
写配置项 (取运行目录 () ＋ “\setting.ini”, “自动编号”, “单据头”, “FK”)
写配置项 (取运行目录 () ＋ “\setting.ini”, “自动编号”, “年月日”, 当前年月日)
写配置项 (取运行目录 () ＋ “\setting.ini”, “自动编号”, “流水号”, “1001”)
编辑框1.内容 ＝ “FK” ＋ 当前年月日 ＋ “1001”