recallkc.prg

一个简单的零售系统,功能不是太强大,一般适合便利店自用还可以,本人没有实际应用测试过,你们用用再看看吧.

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