_STATION=SUBSTR(GETIPADDR(),RAT(".", GETIPADDR(),1)+1,LEN(GETIPADDR())-RAT(".", GETIPADDR(),1)+1)

*換頁按鈕
IF MultiPage0.PageIndex<>7 &&隨頁數改變數字
MultiPage0.PageIndex=MultiPage0.PageIndex+1
ELSE
MultiPage0.PageIndex=0
ENDIF

PURCSUB存檔後

IF PURCSUB->QUANTITY>0 &&如果數量大於0,和本筆客戶沒未曾有交易本產品新增
SELE FACT_HISTORY
SEEK PURC->FACT_CODE+TRIM(Field1.Text)+" "
IF EOF()
APPEND BLANK
REPL TRN_NO WITH PURCSUB->TRN_NO
REPL ITEM_NO WITH PURCSUB->ITEM_NO
REPL PRICE WITH PURCSUB->PRICE
REPL FACT_CODE WITH PURCSUB->FACT_CODE
REPL TERM WITH PURCSUB->TERM
POST
ELSE
IF PURC->TRN_NO>=FACT_HISTORY->TRN_NO
EDIT
REPL TRN_NO WITH PURCSUB->TRN_NO
REPL PRICE WITH PURCSUB->PRICE
REPL TERM WITH PURCSUB->TERM
POST
ENDIF
ENDIF
ENDIF

*當填入進貨產品編號時搜尋
SELECT FACT_HISTORY
GO TOP
SEEK PURC->FACT_CODE +TRIM(Field1.Text)+" "
IF !EOF() .AND. PURCSUB.STATE()=3
ASSIGN(Field4.TEXT,ITEM->NAME)
ASSIGN(FIELD3.TEXT,STR(FACT_HISTORY->PRICE))
&&ASSIGN(FIELD6.TEXT,FACT_HISTORY->TERM)
&&IF !EMPTY(FIELD6.TEXT)
Field2.FOCUSED()
&&ELSE
&&Field6.FOCUSED()
&&ENDIF
ELSE
IF PURCSUB.STATE()=3
ASSIGN(Field4.TEXT,ITEM->NAME)
MESSAGE("查無本產品歷史價可能未曾進貨")
ENDIF
ENDIF

INVOSUB存檔後
IF INVOSUB->QUANTITY>0 &&如果數量大於0,和本筆客戶沒未曾有交易本產品新增
SELE CUST_HISTORY
SEEK INVO->CUST_CODE+TRIM(Field1.Text)+" "
IF EOF()
APPEND BLANK
REPL TRN_NO WITH INVOSUB->TRN_NO
REPL ITEM_NO WITH INVOSUB->ITEM_NO
REPL PRICE WITH INVOSUB->PRICE
REPL CUST_CODE WITH INVOSUB->CUST_CODE
REPL TERM WITH INVOSUB->TERM
POST
ELSE
IF INVO->TRN_NO>=CUST_HISTORY->TRN_NO
EDIT
REPL TRN_NO WITH INVOSUB->TRN_NO
REPL PRICE WITH INVOSUB->PRICE
REPL TERM WITH INVOSUB->TERM
POST
ENDIF
ENDIF
ENDIF

*當填入銷貨產品編號時搜尋
SELECT CUST_HISTORY
GO TOP
SEEK INVO->CUST_CODE +TRIM(Field1.Text)+" "
IF !EOF() .AND. INVOSUB.STATE()=3
ASSIGN(Field4.TEXT,ITEM->NAME)
ASSIGN(FIELD3.TEXT,STR(CUST_HISTORY->PRICE))
&&ASSIGN(FIELD6.TEXT,CUST_HISTORY->TERM)
&&IF !EMPTY(FIELD6.TEXT)
Field2.FOCUSED()
&&ELSE
&&Field6.FOCUSED()
&&ENDIF
ELSE
IF INVOSUB.STATE()=3
ASSIGN(Field4.TEXT,ITEM->NAME)
MESSAGE("查無本產品歷史價可能未曾進貨")
ENDIF
ENDIF

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

<strong>一次付清</strong><span style="font-family: Arial; font-style: normal; font-variant: normal; font-weight: normal; font-size: 18px; line-height: normal; font-size-adjust: none; font-stretch: normal; -x-system-font: none; color: rgb(255, 0, 0);">3800</span><span class="t13"> 元 </span> <a href="(script removed)return;" onClick="(script removed)jswinopen('crdsafe','/adm/crd_safe_rule.htm','PChome代收 消費最安心','','','290','224');" style="text-decoration: underline; cursor: pointer;"></a>
</td>
</tr>

<tr>
<td height="55">
<table style="margin-top: 6px;" border="0" cellpadding="0" cellspacing="0" width="100%">
<tbody><tr>
<td class="t13" valign="top" width="85"><strong>線上分期價</strong></td>
<td class="t13">
<table width="211" border="0" cellpadding="0" cellspacing="1" bgcolor="#ffd96d">
<tbody><tr bgcolor="#efefef">
<td width="92" align="right" bgcolor="#ffffff" class="t13">&nbsp;<strong><font color="#ff3366" size="4" face="Arial">3</font></strong>&nbsp;期<strong><font color="#ff3366" size="4" face="Arial">0</font></strong>&nbsp;利率&nbsp;</td>

<td width="88" bgcolor="#ffffff">&nbsp;<span class="t13">每期</span><span class="t16"><font color="#ff3366" face="Arial"> $<strong>12666</strong></font></span>&nbsp;</td>
</tr>
<tr bgcolor="#efefef">
<td class="t13" align="right" bgcolor="#ffffff">&nbsp;<strong><font color="#ff3366" size="4" face="Arial">6</font></strong>&nbsp;期<strong><font color="#ff3366" size="4" face="Arial">0</font></strong>&nbsp;利率&nbsp;</td>

<td bgcolor="#ffffff">&nbsp;<span class="t13">每期</span><span class="t16"><font color="#ff3366" face="Arial"> $<strong>6333</strong></font></span></td>
</tr>
</tbody></table>
</td>
</tr>
</tbody></table>

</td>
</tr>

<tr>
<td class="t13" height="23"><strong>分期價 ：</strong><font color="#0000FF"> 除不盡餘數於第一期收取</font> </td>

</tr>


<!--
<tr>
<td height="28">
<table border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="70" height="25"><span class="t13"><strong>贈品名稱</strong></span></td>
<td class="t12">
<div id="gift_win" style="position:absolute;height=150;width=120;border:0px solid #C9C9C9;background-color:#f2f2f2;filter:alpha(opacity=94);opacity:0.9;visibility='hidden';" align="center"></div>
-->
<!--
<a onclick="open_gift('','')" style="cursor:pointer;text-decoration:underline"><font color="#0000ff"></font></a>
-->
<!--
</td>
</tr>
</table>
</td>
</tr>
-->
<tr>
<td class="t13" height="28"><p><strong>接受 5 家銀行：</strong><font color="#0000FF">中國信託、玉山銀行、慶豐銀行、新光銀行、台北富邦銀行 </font></p>
<p><img src="http://www.twfuwang.com/uploads/thumbs/11.gif" align="absmiddle" height="15" width="36"><span style="font-size: 11px;">(不限3萬)</span>&nbsp;&nbsp;<img src="http://www.twfuwang.com/uploads/thumbs/10.gif" style="border-color: rgb(203, 204, 207);" align="absmiddle" border="0" height="20" width="102"> </p></td>
</tr>
<tr>

*地址的結朿自動給前置碼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