|
銷貨 更改作業
張貼日期 2009/3/5 16:32:40
作者 lutuni
|
IF INVO.STATE()<>3
IF EditorPanel8.Visible=0
ASSIGN(EditorPanel8.Visible,1)
ASSIGN(Button17.Caption,"關閉更改作業")
ELSE
ASSIGN(EditorPanel8.Visible,0)
ASSIGN(Button17.Caption,"開啟更改作業")
ENDIF
ENDIF
*客戶CODE_MOD()
IF INVO.STATE()=2
IF INVO->POST2<>1
IF SURE("是修改客戶?")="Y"
Navigator0.Save()
SELECT INVOSUB
Navigator1.First()
DO WHILE !EOF()
EDIT
REPL CUST_CODE WITH INVO->CUST_CODE
POST
SKIP
ENDDO
ENDIF
ELSE
Navigator0.Cancel()
MESSAGE("己沖帳不能更改")
ENDIF
ELSE
IF VAL(SUBS(EDIT1.TEXT,7,2))>VAL(Edit34.Text) .AND. VAL(Edit34.Text)<>0
IF VAL(SUBS(EDIT1.TEXT,5,2))=12
ASSIGN(EDIT30.TEXT,STR(VAL(SUBS(EDIT1.TEXT,1,4))+1-1911)+"01")
ELSE
ASSIGN(EDIT30.TEXT,STR(VAL(SUBS(EDIT1.TEXT,1,4))-1911)+STRZERO(VAL(SUBS(EDIT1.TEXT,5,2))+1,2))
ENDIF
ELSE
ASSIGN(EDIT30.TEXT,STR(VAL(SUBS(EDIT1.TEXT,1,4))-1911)+SUBS(EDIT1.TEXT,5,2))
ENDIF
ASSIGN(EDIT9.TEXT,CUSTOMER->EMP_NO)
ASSIGN(Combo1.TEXT,"免稅")
ASSIGN(EDIT2.TEXT,"免稅")
ENDIF
*業務EMP_MOD()
IF INVO.STATE()=2
IF sure("是否修改業務")="Y"
Navigator0.Save()
SELECT INVOSUB
Navigator1.First()
DO WHILE !EOF()
EDIT
REPL EMP_NO WITH INVO->EMP_NO
POST
SKIP
ENDDO
ENDIF
ELSE
&&ASSIGN(Combo1.TEXT,CUSTOMER->TAX)
&&ASSIGN(EDIT2.TEXT,CUSTOMER->TAX)
ENDIF
*月份AUTO_mod()
IF INVO.STATE()=2 .AND. INVO->S_MONTH<>EDIT30.TEXT
IF SURE("是否修改月份帳款")="Y"
Navigator0.Save()
SELECT INVOSUB
Navigator1.First()
MESSAGE2(1,"資料更改中")
INKEY(1)
DO WHILE !EOF()
EDIT
REPL S_MONTH WITH INVO->S_MONTH
POST
SKIP
ENDDO
MESSAGE2(0)
ELSE
NAVIGATOR0.CANCEL()
ENDIF
ENDIF
|
|