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

&&TABLE=REPE.Name 以不同報表作更改
ASSIGN(TABLE.DefaultPrinter,"None")
SELECT SETPRINT
SEEK WHOAMI()
IF !EOF()
IF PRINT2.Combo3.Text="Y"
&&ASSIGN(TABLE.DefaultPrinter,SETPRINT->PRINTER1)
ASSIGN(TABLE.DefaultPaperSize,SETPRINT->REP_HALF)
ASSIGN(TABLE.DispPercent,100)
ELSE
ASSIGN(TABLE.DefaultPaperSize,SETPRINT->REP_ALL)
ASSIGN(TABLE.DispPercent,100)
ENDIF
ENDIF

PH 起始程序
TABLE=REPE.Name
ASSIGN(TABLE.Caption,"應收帳款報表<"+TABLE.DefaultPrinter+">")

出貨單
TABLE=REPE.Name &&以不同報表作更改
ASSIGN(TABLE.DefaultPrinter,"None")
ASSIGN(TABLE.Caption,"出貨單<"+TABLE.DefaultPrinter+">")
SELECT SETPRINT
SEEK WHOAMI()
IF !EOF()
ASSIGN(TABLE.DefaultPaperSize,SETPRINT->REP_HALF)
ASSIGN(TABLE.DispPercent,100)
ENDIF

<img src="http://www.twfuwang.com/uploads/photos/17.jpg" alt="Watercity Logo" title="Watercity Logo" vspace="3" align="center" border="0" hspace="7">