标题:库存自动累加如何实现,麻烦高手帮我看看
只看楼主
degidt023023
Rank: 1
等 级:新手上路
帖 子:15
专家分:0
注 册:2021-6-30
结帖率:25%
已结贴  问题点数:10 回复次数:2 
库存自动累加如何实现,麻烦高手帮我看看
*sqlexec(nHandle,"select * from ruku ","入库_")
SELECT 采购入库_
SCATTER TO b
c1=b(1)&&序号
c2=b(2)&&名称
c3=b(3)&&规格
c4=b(4)&&单位
c5=b(5)&&数量
c6=b(6)&&预警数量
c7=b(7)&&单价
c8=b(8)&&总价
c9=b(9)&&供货商
c10=b(10)&&是否入库
d=DATE()
f=TIME()
sqlexec(nHandle,"select * from ruku ","入库")
SELECT 入库
a=recc()
g=a+1 &&采购入库序号  G

sqlexec(nHandle,"insert into ruku (序号,名称,规格,单位,数量,单价,总价,供货商,入库日期,入库时间) values (?g,'&c2','&c3','&c4',?c5,?c7,?c8,'&c9',?d,'&f')")
sqlexec(nHandle,"update ruku set 操作人员='&yonghuming' where 序号="+STR(g))

sqlexec(nHandle,"select * from dangqiankucun ","当前库存")
SELECT 当前库存
PP1=RECCOUNT()+1&&获取当前表总记录并自动+1
SCATTER TO C
cc1=C(1)&&序号
cc2=C(5)&&单价
cc3=C(6)&&数量
cc4=C(7)&&总价

sl=c5+cc3&&数量
zj=cc2*cc3&&总价

COUNT FOR 名称='&c2' AND 规格='&c3'  TO mingcheng

IF mingcheng=0
sqlexec(nHandle,"insert into dangqiankucun (序号,名称,规格,单位,单价,数量,总价,供货商,预警数量)values(?PP1,'&c2','&c3','&c4',?c7,?c5,?c8,'&c9',?c6)")
ELSE
sqlexec(nHandle,"update dangqiankucun set 数量=?sl 总价=?zj where 名称='&c2' and 规格='&c3' )
ENDIF
sqlexec(nHandle,"update caigouruku set 是否入库='是' where 序号="+STR(c1))&&修改采购是否入库
thisform.Init
thisform.AlwaysOnTop= .T.
hytizj.pageframe1.page6.click
GO bottom

现在问题应该出在sqlexec(nHandle,"update dangqiankucun set 数量=?sl 总价=?zj where 名称='&c2' and 规格='&c3' )
应该是where 名称='&c2' and 规格='&c3'这里错了,或者是格式错了,我的最终目的是,如果没有该类别就添加到当前库存,如果有该类别,请自动增加当前库存中的数量和总价
麻烦高手帮我解决一下,有点急!非常感谢!

搜索更多相关主题的帖子: 序号 名称 规格 库存 数量 
2022-04-29 11:58
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:323
帖 子:9621
专家分:26174
注 册:2012-2-5
得分:5 
没有数据如何看

坚守VFP最后的阵地
2022-04-29 12:02
mywisdom88
Rank: 16Rank: 16Rank: 16Rank: 16
等 级:版主
威 望:190
帖 子:3125
专家分:8340
注 册:2015-3-25
得分:5 
现在问题应该出在sqlexec(nHandle,"update dangqiankucun set 数量=?sl 总价=?zj where 名称='&c2' and 规格='&c3' )
少个逗号
sqlexec(nHandle,"update dangqiankucun set 数量=?sl ,总价=?zj where 名称='&c2' and 规格='&c3' )
2022-04-30 14:52



参与讨论请移步原网站贴子:https://bbs.bccn.net/thread-508976-1-1.html




关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.303846 second(s), 7 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved