spjs.prg

宾馆管理系统,实现客房管理功能。。后台管理及查询结账

*spjs------------------商品结算
************************************************************************************
set safe off
sele 餐馆商品表.商品名称,餐馆商品表.单价,客户商品消费表.数量 as 销售数量,客户商品消费表.合计;
from 餐馆商品表,客户商品消费表;
where 客户商品消费表.商品代号=餐馆商品表.商品代号 and 客户商品消费表.购买日期=date();
 into dbf jtsp

sele 餐馆商品表.商品名称,餐馆商品表.单价,历史客户商品消费表.数量 as 销售数量,历史客户商品消费表.合计;
from 餐馆商品表,历史客户商品消费表;
where 历史客户商品消费表.商品代号=餐馆商品表.商品代号 and 历史客户商品消费表.购买日期=date();
 into dbf jtsp1

sele jtsp
append from jtsp1
sele 商品名称,单价,sum(销售数量) as 销售数量,单价*sum(销售数量) as 合计 from jtsp group by jtsp.商品名称 into dbf spjs
report form spjs preview