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(2)+"│"+CUSTOMER->NAME_SHORT+"│"+TRANSFORM(AMOUNT,'@N8')+"│"+TRANSFORM(TAX_AMT,'@N8')+"│"+TRANSFORM(DISCOUNT,'@N8')+"│"+TRANSFORM(R_AMT,'@N8')+"│"+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(2)+"│"+CUSTOMER->NAME_SHORT+"│"+TRANSFORM(AMOUNT,'@N8')+"│"+TRANSFORM(TAX_AMT,'@N8')+"│"+TRANSFORM(DISCOUNT,'@N8')+"│"+TRANSFORM(R_AMT,'@N8')+"│"+TRANSFORM(S_AMT,'@N8')+"│")
ASSIGN(MEMO1.LINES[M_SEC+1]," ")
M_SEC=1
EXIT
ELSE
IF SUBS(MEMO1.LINES[M_SEC],3,6)=INVO->CUST_CODE
CUSTOMER.SEEK(INVO->CUST_CODE)
ASSIGN(MEMO1.LINES[M_SEC],"│"+INVO->CUST_CODE+SPACE(2)+"│"+CUSTOMER->NAME_SHORT+"│"+TRANSFORM(AMOUNT+VAL(SUBS(MEMO1.LINES[M_SEC],25,10)),'@N8')+"│"+TRANSFORM(TAX_AMT+VAL(SUBS(MEMO1.LINES[M_SEC],37,10)),'@N8')+"│"+TRANSFORM(DISCOUNT+VAL(SUBS(MEMO1.LINES[M_SEC],49,10)),'@N8')+"│"+TRANSFORM(R_AMT+VAL(SUBS(MEMO1.LINES[M_SEC],61,10)),'@N8')+"│"+TRANSFORM(S_AMT+VAL(SUBS(MEMO1.LINES[M_SEC],73,10)),'@N8')+"│")
EXIT
ELSE
M_SEC=M_SEC+1
ENDIF
ENDIF
ENDDO
ENDIF
SKIP
ENDDO
M_SEC=1
DO WHILE !EMPTY(MEMO1.LINES[M_SEC])
M_SEC=M_SEC+1
ENDDO
ASSIGN(MEMO1.LINES[M_SEC],"└────┴─────┴─────┴─────┴─────┴─────┴─────┘")
ASSIGN(MEMO1.LINES[M_SEC+1],"2 4 6 8 1012141618202224262830323436384042444648505254565860626466687072747678808284")
MESSAGE2(0)