管家婆排序

---

• design by xuhu 20210315
• 查询全部定单并排序

---

*说明：

• DLYNDX.DBF 加字段recn_no, 数字型

• 暂时没有过滤红字反冲

• 表说明 ：

• DLYNEX 单据编号 DLY 单据明细

• PTYPE 商品名称

SET CENTURY ON
set date ymd
Set Mark To [-]

• 日期为 yyyy-mm-dd

*路径 为当前的
SET DEFAULT TO “d:\xuhu\管家婆\data - 副本”

CLEAR
close all database

USE BTYPE
IF gamyarray(afields(gamyarray),1) <> “REC_NO”
alter table btype add REC_NO n(6)
REPLACE ALL REC_NO WITH RECNO()
ENDIF
USE PTYPE
IF gamyarray(afields(gamyarray),1) <> “REC_NO”
alter table btype add REC_NO n(6)
REPLACE ALL REC_NO WITH RECNO()
ENDIF

*2.qpr
SELECT Dly.date, Dly.vchcode, Dly.drecno_b, Ptype.fullname, Dly.qty,;
Dly.price, Dly.comment;
FROM dly INNER JOIN ptype ;
ON Dly.drecno_p = Ptyp