- 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