主题：急需帮助 关天流水号的问题！
luzhong588
[专家分：30] 发布于 2008-12-05 16:15:00
我有一个仓库出库程序
要求按每出库时生成一个号码如001
以后出库自动生成002，003，004。。。。。。。。并按这个号码生成出库单
我想在出库表单的一个文本框内显视并保存添加到数据库中
应该怎样写代码啊
回复列表 （共2个回复）
沙发
hw2007name [专家分：4790] 发布于 2008-12-05 17:07:00
你可以记住已生成出库单的号码在一个表中,当你要生成新的出库单号号时读取此表,得到+1的一个新号就可以了.我下面给一个我理解你的意图的代码:
**我是用一个低级文件记住生成的新号
LOCAL cFileNUM,nCQ_num,cCQ_num
cFileNUM="D:\出库程序\出库单号.TXT"&&注意此文件可以是程序中生成,不必预先设置此文件
IF !FILE(cFileNUM)
=STRTOFILE("1",cFileNUM)
ENDIF
nCQ_num=int(val(filetostr(cFileNUM)))+1
if nCQ_num>999
&&在此可以限制出库单最大号,你上面只用到3位,我才有这个想法
RETURN .F.
endif
=STRTOFILE(ALLTRIM(PADL(nCQ_num,3)),cFileNUM)
cCQ_num=padl(nCQ_num,3,"0")
**这里的cCQ_num就是你要的出库单号001,002,003...方式的字符串.
板凳
luzhong588 [专家分：30] 发布于 2008-12-06 07:26:00
非常感谢楼上朋友的帮助！
我来回复
您所在位置：