|
查詢未沖帳資料
張貼日期 2009/4/1 10:02:16
作者 lutuni
|
external M_SEC
M_SEC=0
MTOA("",MEMO1.LINES)
ASSIGN(MEMO1.LINES[1]," ")
SELECT INVO
Set Filter To
SET WHILE TO
SET TAG TO INVO8
SET WHILE FROM EDIT12.TEXT TO EDIT13.TEXT
&&Browse()
GO TOP
MESSAGE2(1,"計算中...")
DO WHILE !EOF()
IF M_SEC=0 .AND. S_AMT<>0
M_SEC=1
CUSTOMER.SEEK(INVO->CUST_CODE)
ASSIGN(MEMO1.LINES[M_SEC],INVO->CUST_CODE+SPACE(5)+CUSTOMER->NAME_SHORT+SPACE(2)+TRANSFORM(S_AMT,'@N8'))
ASSIGN(MEMO1.LINES[M_SEC+1]," ")
ELSE
DO WHILE INKEY()<>27 .AND. M_SEC<>0 .AND. S_AMT<>0
INKEY()
IF EMPTY(MEMO1.LINES[M_SEC])
CUSTOMER.SEEK(INVO->CUST_CODE)
ASSIGN(MEMO1.LINES[M_SEC],INVO->CUST_CODE+SPACE(5)+CUSTOMER->NAME_SHORT+SPACE(2)+TRANSFORM(S_AMT,'@N8'))
ASSIGN(MEMO1.LINES[M_SEC+1]," ")
M_SEC=1
EXIT
ELSE
IF SUBS(MEMO1.LINES[M_SEC],1,6)=INVO->CUST_CODE
CUSTOMER.SEEK(INVO->CUST_CODE)
ASSIGN(MEMO1.LINES[M_SEC],INVO->CUST_CODE+SPACE(5)+CUSTOMER->NAME_SHORT+SPACE(2)+TRANSFORM(S_AMT+VAL(SUBS(MEMO1.LINES[M_SEC],24,LEN(MEMO1.LINES[M_SEC])-23)),'@N8'))
EXIT
ELSE
M_SEC=M_SEC+1
ENDIF
ENDIF
ENDDO
ENDIF
SKIP
ENDDO
MESSAGE2(0)
|
|