recallkc.prg

来自「一个简单的零售系统,功能不是太强大,一般适合便利店自用还可以,本人没有实际应用测」· PRG 代码 · 共 6 行

SELECT kc
a=ALLTRIM(cc.条码)
RECALL FOR ALLTRIM(条码)==a
SELECT CC
MESSAGEBOX("已恢复"+cc.商品名称,0,"友情提示")