External M_SEC
M_SEC=1
DO WHILE M_SEC<=LEN(MAIN.MEMO1.LINES)
ASSIGN(Combo5.Items[m_sec],MAIN.MEMO1.LINES[M_SEC])
M_SEC=M_SEC+1
ENDDO
M_SEC=0

*地址的結朿自動給前置碼ET6OUT()
ASSIGN(EDIT6.TEXT,ALLTRIM(EDIT6.TEXT))
SELECT C_AUTONUM
SEEK SUBS(EDIT6.TEXT,1,6)
IF !EOF()
ASSIGN(COMBO1.TEXT,C_NO+"."+CITY)
ELSE
WARNING("查無縣市的前置碼","警告訊息",250,200 )
ENDIF

*顯示前置碼
IF EditorPanel1.Visible=1
EditorPanel1.Visible=0
ASSIGN(Button10.Caption,"前置碼")
ELSE
EditorPanel1.Visible=1
ASSIGN(Button10.Caption,"關閉")
ENDIF

*縣市前置碼由客戶輸入
SELECT CUSTOMER
GO TOP
C_AUTONUM.BROWSE()
DO WHILE !EOF()
SELECT C_AUTONUM
SEEK SUBS(CUSTOMER->ADDRESS1,1.6)
IF EOF()
APPEND BLANK
REPL C_NO WITH SUBS(CUSTOMER->CUST_CODE,1,2)
REPL CITY WITH SUBS(CUSTOMER->ADDRESS1,1.6)
POST
ENDIF
SELECT CUSTOMER
SKIP
ENDDO

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

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