*客戶檔銷貨產品查詢
select INVOSUB
IF !EMPTY(EDIT25.TEXT)
Set While FROM CUSTOMER->CUST_CODE+EDIT25.TEXT+SPACE(20-LEN(TRIM(EDIT25.TEXT)))+TRIM(COMBO6.TEXT)+TRIM(COMBO7.TEXT) TO CUSTOMER->CUST_CODE+EDIT25.TEXT+SPACE(20-LEN(TRIM(EDIT25.TEXT)))+TRIM(COMBO8.TEXT)+TRIM(COMBO9.TEXT)
ELSE
Set While FROM CUSTOMER->CUST_CODE+CREPL('0',20)+TRIM(COMBO6.TEXT)+TRIM(COMBO7.TEXT) TO CUSTOMER->CUST_CODE+CREPL('Z',20)+TRIM(COMBO8.TEXT)+TRIM(COMBO9.TEXT)
ENDIF
DO CASE
CASE COMBO12.TEXT="銷貨"
ASSIGN(INVOSUB.Filter,'"S"$TRN_NO')
CASE COMBO12.TEXT="退貨"
ASSIGN(INVOSUB.Filter,'"B"$TRN_NO')
Otherwise
ASSIGN(INVOSUB.Filter,"")
ENDCASE
GO Bottom