|
INVOSUB存檔前
張貼日期 2009/3/5 17:07:13
作者 lutuni
|
IF !ITEM.EOF()
IF INVOSUB.STATE()=2 .AND. (VAL(FIELD2.TEXT)<>INVOSUB->QUANTITY .OR. VAL(FIELD3.TEXT)<>INVOSUB->PRICE)
IF VAL(FIELD2.TEXT)<>INVOSUB->QUANTITY
ASSIGN(EDIT36.TEXT,"2")
ASSIGN(INVOSUB->C_PRICE,ITEM->C_PRICE)
ELSE
ASSIGN(EDIT36.TEXT,"4")
ENDIF
ELSE
IF INVOSUB.STATE()=3
ASSIGN(EDIT36.TEXT,"3")
ASSIGN(INVOSUB->C_PRICE,ITEM->C_PRICE)
ELSE
ASSIGN(EDIT36.TEXT,"0")
ENDIF
ENDIF
ELSE
MESSAGE2(1,"產品檔無此產品編號,請從新輸入!【按ESC鍵繼續】")
RETURN .F.
ENDIF
ASSIGN(EDIT24.TEXT,STR(ITEM->QUANTITY))
RETURN
|
|