External REMARK1
ASSIGN(REMARK1,ATOM(Memo1.Lines))
MEMOWRITE(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CUSTOMER\'+TRIM(EDIT3.TEXT)+".TXT",REMARK1)
MESSAGE('資料已存入..','訊息視窗',200,200)
MAKEDIR(EDIT3.TEXT+"\"+EDIT2.TEXT)

external M_SEC
M_SEC=0
MTOA("",MEMO1.LINES)
ASSIGN(MEMO1.LINES[1]," ")
SELECT INVO
Set Filter To
SET WHILE TO
SET TAG TO INVO8
SET WHILE FROM EDIT12.TEXT TO EDIT13.TEXT
&&Browse()
GO TOP
MESSAGE2(1,"計算中...")
DO WHILE !EOF()
IF M_SEC=0 .AND. S_AMT<>0
M_SEC=1
CUSTOMER.SEEK(INVO->CUST_CODE)
ASSIGN(MEMO1.LINES[M_SEC],"│"+INVO->CUST_CODE+SPACE(2)+"│"+CUSTOMER->NAME_SHORT+"│"+TRANSFORM(AMOUNT,'@N8')+"│"+TRANSFORM(TAX_AMT,'@N8')+"│"+TRANSFORM(DISCOUNT,'@N8')+"│"+TRANSFORM(R_AMT,'@N8')+"│"+TRANSFORM(S_AMT,'@N8')+"│")
ASSIGN(MEMO1.LINES[M_SEC+1]," ")
ELSE
DO WHILE INKEY()<>27 .AND. M_SEC<>0 .AND. S_AMT<>0
INKEY()
IF EMPTY(MEMO1.LINES[M_SEC])
CUSTOMER.SEEK(INVO->CUST_CODE)
ASSIGN(MEMO1.LINES[M_SEC],"│"+INVO->CUST_CODE+SPACE(2)+"│"+CUSTOMER->NAME_SHORT+"│"+TRANSFORM(AMOUNT,'@N8')+"│"+TRANSFORM(TAX_AMT,'@N8')+"│"+TRANSFORM(DISCOUNT,'@N8')+"│"+TRANSFORM(R_AMT,'@N8')+"│"+TRANSFORM(S_AMT,'@N8')+"│")
ASSIGN(MEMO1.LINES[M_SEC+1]," ")
M_SEC=1
EXIT
ELSE
IF SUBS(MEMO1.LINES[M_SEC],3,6)=INVO->CUST_CODE
CUSTOMER.SEEK(INVO->CUST_CODE)
ASSIGN(MEMO1.LINES[M_SEC],"│"+INVO->CUST_CODE+SPACE(2)+"│"+CUSTOMER->NAME_SHORT+"│"+TRANSFORM(AMOUNT+VAL(SUBS(MEMO1.LINES[M_SEC],25,10)),'@N8')+"│"+TRANSFORM(TAX_AMT+VAL(SUBS(MEMO1.LINES[M_SEC],37,10)),'@N8')+"│"+TRANSFORM(DISCOUNT+VAL(SUBS(MEMO1.LINES[M_SEC],49,10)),'@N8')+"│"+TRANSFORM(R_AMT+VAL(SUBS(MEMO1.LINES[M_SEC],61,10)),'@N8')+"│"+TRANSFORM(S_AMT+VAL(SUBS(MEMO1.LINES[M_SEC],73,10)),'@N8')+"│")
EXIT
ELSE
M_SEC=M_SEC+1
ENDIF
ENDIF
ENDDO
ENDIF
SKIP
ENDDO
M_SEC=1
DO WHILE !EMPTY(MEMO1.LINES[M_SEC])
M_SEC=M_SEC+1
ENDDO
ASSIGN(MEMO1.LINES[M_SEC],"└────┴─────┴─────┴─────┴─────┴─────┴─────┘")
ASSIGN(MEMO1.LINES[M_SEC+1],"2 4 6 8 1012141618202224262830323436384042444648505254565860626466687072747678808284")
MESSAGE2(0)

external M_SEC
M_SEC=0
MTOA("",MEMO1.LINES)
ASSIGN(MEMO1.LINES[1]," ")
SELECT INVO
Set Filter To
SET WHILE TO
SET TAG TO INVO8
SET WHILE FROM EDIT12.TEXT TO EDIT13.TEXT
&&Browse()
GO TOP
MESSAGE2(1,"計算中...")
DO WHILE !EOF()
IF M_SEC=0 .AND. S_AMT<>0
M_SEC=1
CUSTOMER.SEEK(INVO->CUST_CODE)
ASSIGN(MEMO1.LINES[M_SEC],INVO->CUST_CODE+SPACE(5)+CUSTOMER->NAME_SHORT+SPACE(2)+TRANSFORM(S_AMT,'@N8'))
ASSIGN(MEMO1.LINES[M_SEC+1]," ")
ELSE
DO WHILE INKEY()<>27 .AND. M_SEC<>0 .AND. S_AMT<>0
INKEY()
IF EMPTY(MEMO1.LINES[M_SEC])
CUSTOMER.SEEK(INVO->CUST_CODE)
ASSIGN(MEMO1.LINES[M_SEC],INVO->CUST_CODE+SPACE(5)+CUSTOMER->NAME_SHORT+SPACE(2)+TRANSFORM(S_AMT,'@N8'))
ASSIGN(MEMO1.LINES[M_SEC+1]," ")
M_SEC=1
EXIT
ELSE
IF SUBS(MEMO1.LINES[M_SEC],1,6)=INVO->CUST_CODE
CUSTOMER.SEEK(INVO->CUST_CODE)
ASSIGN(MEMO1.LINES[M_SEC],INVO->CUST_CODE+SPACE(5)+CUSTOMER->NAME_SHORT+SPACE(2)+TRANSFORM(S_AMT+VAL(SUBS(MEMO1.LINES[M_SEC],24,LEN(MEMO1.LINES[M_SEC])-23)),'@N8'))
EXIT
ELSE
M_SEC=M_SEC+1
ENDIF
ENDIF
ENDDO
ENDIF
SKIP
ENDDO
MESSAGE2(0)

DO CASE
CASE Option0.TEXT="一般列印"
NEWREP("ORDER_REP2")
CASE Option0.TEXT="電子郵件"
*轉文字檔到電子郵件
external D_OBJ,D_OBJ1,D_OBJ2,F_SUB
F_SUB=ALIASPATH(main.edit6.text)+'\TXT\QUOTE_EMAIL.txt'
MEMOWRITE(ALIASPATH(main.edit6.text)+'\TXT\QUOTE_EMAIL.txt'," ")
D_OBJ='"'+EDIT23.TEXT+'"'+"<"+EDIT28.TEXT+">"
D_OBJ1=EDIT19.TEXT
TXTREAD() &&讀取字檔
D_OBJ2=MEMOREAD(ALIASPATH(main.edit6.text)+'\TXT\QUOTE_EMAIL.txt') &&將郵件的內容讀入D_OBJ2
NEWFORM("S_SEND")
CASE Option0.TEXT="圖片列印"
NEWREP("MAT_REP")
ENDCASE


*增加文字到文字檔TXTREAD()
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',MAIN.EDIT0.TEXT)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',MAIN.EDIT5.TEXT)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"TEL:"+MAIN.EDIT19.TEXT+" "+"FAX:"+MAIN.EDIT18.TEXT)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"-------------------------------------------------------------------------------------------- ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"報價日期:"+TRANSFORM(Edit18.Text,"@D8")+SPACE(40)+"報價編號:"+Edit17.Text)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"收 件 人:"+edit23.text)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"客戶名稱:"+edit19.text)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"客戶地址:"+edit21.text)
select CUSTOMER
SEEK EDIT11.TEXT
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"電話:"+TRIM(CUSTOMER->TELEPHONE)+" "+"傳真:"+TRIM(CUSTOMER->FAX))
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"-------------------------------------------------------------------------------------------- ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',SPACE(35)+"電子報價單")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"-------------------------------------------------------------------------------------------- ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"產品編號 產品名稱 單價 數量 合計 備註 ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"-------------------------------------------------------------------------------------------- ")
SELE MATERIAL
GO TOP
DO WHILE !EOF()
A=TRIM(ITEM_NO)+CREPL(".",12-LEN(TRIM(ITEM_NO)))+TRIM(NAME)+CREPL(".",40-LEN(TRIM(NAME)))+trim(str(PRICE))+CREPL(".",8-LEN(trim(str(PRICE))))+trim(str(QUANTITY))+TRIM(UNIT)+CREPL(".",4-LEN(TRIM(UNIT)))+trim(str(ROUND(PRICE*QUANTITY,2)))+CREPL(".",10-LEN(trim(str(ROUND(PRICE*QUANTITY,2)))))+".."+REMARK
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',A)
SKIP
ENDDO
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"-------------------------------------------------------------------------------------------- ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"備註 :")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"1.此報價不含營業稅5%稅額")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"2.付款條件:"+Combo3.Text)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"3.有效期限:"+TRANSFORM(Edit27.Text,"@D8"))
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"4.運費:"+Combo4.Text)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"5.此份報價將隨國際物料變動而修正 ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt'," ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"回傳簽章: 業務部承辦人員: 業務部經理簽章: ")
SELECT SETPRINT
SEEK UPPER(WHOAMI())
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"傳送電子郵件信箱:"+EMAIL)
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"QR701.1")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"保存期限一年")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',"---------------------------------------------------------------------------------------------- ")
MEMOAPPE(MAIN.EDIT12.TEXT+'TXT\QUOTE_EMAIL.txt',">>")

*寫入電子郵件
MTOA(D_OBJ2,MEMO0.LINES)
MTOA("",MEMO1.LINES) &&清成空白
ASSIGN(MEMO1.LINES[1],F_SUB)
ASSIGN(MEMO1.LINES[2]," ")
M_SEC=1
SELECT ITEM
SEEK SUBS(ALIASPATH(main.edit6.text),1,2)

Set While From SUBS(ALIASPATH(main.edit6.text),1,2) TO SUBS(ALIASPATH(main.edit6.text),1,2)
MultiPage0.PageIndex=0
SELECT SETPRINT
SEEK UPPER(_USER_NAME)
IF !EOF()
&&ASSIGN(EDIT3.TEXT,EMAIL)
stmp=edit3.text,password=edit6.text
ASSIGN(EDIT1.TEXT,EDIT3.TEXT)
IF UPPER(WHOAMI())='USER26'
ASSIGN(EDIT4.TEXT,'trading@fluxtek.com')
ENDIF
RETURN .T.
ELSE
WARNING('查無此使用者資料')
ENDIF

FileSel0.Directory="C:\Documents and Settings\"+WHOAMI()+"\My Documents"
&&message("測試錯誤")
TRY
assign(Mail0.SmtpCharSet,2)
ERROR &&發生錯誤時會直接進入本段程式中執行
MESSAGE("未安裝BIG5語系,寄送時可能亂碼")
ENDTRY

*MP0PC()
DO CASE
CASE MultiPage0.PageIndex=0
CASE MultiPage0.PageIndex=1
CASE MultiPage0.PageIndex=2
PURCSUB.GoBottom()
CASE MultiPage0.PageIndex=3
INVOSUB.GoBottom()
CASE MultiPage0.PageIndex=4
CASE MultiPage0.PageIndex=5
CASE MultiPage0.PageIndex=6
*讀入文字檔內容
IF FILE(MAIN.EDIT12.TEXT+'TXT\ITEM\TW_'+TRIM(EDIT0.TEXT)+".TXT") &&檢查以產品編號(EDIT0.TEXT)檔案名稱是否存在
MTOA(MEMOREAD(MAIN.EDIT12.TEXT+'TXT\ITEM\TW_'+TRIM(EDIT0.TEXT)+".TXT"),Memo0.Lines) &&如果存在就讀入
ELSE
MTOA(MEMOREAD(MAIN.EDIT12.TEXT+'TXT\CLEAR.TXT'),Memo0.Lines) &&如果不存在就讀入空白
ENDIF
IF FILE(MAIN.EDIT12.TEXT+'TXT\ITEM\EN_'+TRIM(EDIT0.TEXT)+".TXT")
MTOA(MEMOREAD(MAIN.EDIT12.TEXT+'TXT\ITEM\EN_'+TRIM(EDIT0.TEXT)+".TXT"),Memo1.Lines)
ELSE
MTOA(MEMOREAD(MAIN.EDIT12.TEXT+'TXT\CLEAR.TXT'),Memo1.Lines)
ENDIF
CASE MultiPage0.PageIndex=7
ASSIGN(Image1.Image,EDIT7.TEXT)
ENDCASE

*存入中文說明
External M_SEC,REMARK1
ASSIGN(REMARK1,ATOM(Memo0.Lines))
MEMOWRITE(MAIN.EDIT12.TEXT+'TXT\ITEM\TW_'+TRIM(EDIT0.TEXT)+".TXT",REMARK1)
MESSAGE('中文功能說明資料已存入..','訊息視窗',200,200)

*還原上次存檔內容
MTOA(MEMOREAD(MAIN.EDIT12.TEXT+'TXT\TW_'+TRIM(EDIT0.TEXT)+".TXT"),Memo0.Lines)

*客戶檔銷貨產品查詢
select INVOSUB
IF !EMPTY(EDIT25.TEXT)
Set While FROM CUSTOMER->CUST_CODE+EDIT25.TEXT+SPACE(20-LEN(TRIM(EDIT25.TEXT)))+TRIM(COMBO6.TEXT)+TRIM(COMBO7.TEXT) TO CUSTOMER->CUST_CODE+EDIT25.TEXT+SPACE(20-LEN(TRIM(EDIT25.TEXT)))+TRIM(COMBO8.TEXT)+TRIM(COMBO9.TEXT)
ELSE
Set While FROM CUSTOMER->CUST_CODE+CREPL('0',20)+TRIM(COMBO6.TEXT)+TRIM(COMBO7.TEXT) TO CUSTOMER->CUST_CODE+CREPL('Z',20)+TRIM(COMBO8.TEXT)+TRIM(COMBO9.TEXT)
ENDIF
DO CASE
CASE COMBO12.TEXT="銷貨"
ASSIGN(INVOSUB.Filter,'"S"$TRN_NO')
CASE COMBO12.TEXT="退貨"
ASSIGN(INVOSUB.Filter,'"B"$TRN_NO')
Otherwise
ASSIGN(INVOSUB.Filter,"")
ENDCASE
GO Bottom

*MP0PC()Edit15.Text
DO CASE
CASE MultiPage0.PageIndex=0
IF INVO.Active=1 .OR. INVOSUB.Active=1
INVO.Active=0
INVOSUB.Active=0
ENDIF
CASE MultiPage0.PageIndex=1
IF INVO.Active=1 .OR. INVOSUB.Active=1
INVO.Active=0
INVOSUB.Active=0
ENDIF

CASE MultiPage0.PageIndex=2
ASSIGN(Label3.Caption,TRIM(EDIT15.TEXT)+"("+CUSTOMER->CUST_CODE+")")
IF STRZERO(val(subs(dtos(date()),5,2)),2)="01"
ASSIGN(COMBO2.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO3.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ASSIGN(COMBO4.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO5.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ELSE
ASSIGN(COMBO2.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO3.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ASSIGN(COMBO4.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO5.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ENDIF
INVO.Active=1
select INVO
ASSIGN(Field11.DoTotal,0)
ASSIGN(Field11.ShowTotal,0)
Set While FROM CUSTOMER->CUST_CODE+TRIM(COMBO2.TEXT)+TRIM(COMBO3.TEXT) TO CUSTOMER->CUST_CODE+TRIM(COMBO4.TEXT)
ASSIGN(Field11.DoTotal,1)
ASSIGN(Field11.ShowTotal,1)
GO Bottom

CASE MultiPage0.PageIndex=3
ASSIGN(Label4.Caption,TRIM(EDIT15.TEXT)+"("+CUSTOMER->CUST_CODE+")")
IF STRZERO(val(subs(dtos(date()),5,2)),2)="01"
ASSIGN(COMBO6.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO7.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ASSIGN(COMBO8.text,str(val(subs(dtos(date()),1,4))-1-1911))
ASSIGN(COMBO9.TEXT,STRZERO(val(subs(dtos(date()),5,2))+11,2))
ELSE
ASSIGN(COMBO6.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO7.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ASSIGN(COMBO8.text,str(val(subs(dtos(date()),1,4))-1911))
ASSIGN(COMBO9.TEXT,STRZERO(val(subs(dtos(date()),5,2)),2))
ENDIF
ASSIGN(EDIT25.TEXT,"")
INVOSUB.Active=1
select INVOSUB
Set While FROM CUSTOMER->CUST_CODE+CREPL('0',20)+TRIM(COMBO6.TEXT)+TRIM(COMBO7.TEXT) TO CUSTOMER->CUST_CODE+CREPL('Z',20)+TRIM(COMBO8.TEXT)+TRIM(COMBO9.TEXT)
INVOSUB.GoBottom()
CASE MultiPage0.PageIndex=4
ENDCASE

_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