|
讀入產品文字檔客戶檔描述
張貼日期 2009/4/9 18:06:13
作者 lutuni
|
*MP0PC()Edit15.Text
DO CASE
CASE MultiPage0.PageIndex=0
IF INVO.Active=1 .OR. INVOSUB.Active=1
INVO.Active=0
INVOSUB.Active=0
ASSIGN(INVOSUB.Filter,"")
ASSIGN(INVO.Filter,"")
ENDIF
CASE MultiPage0.PageIndex=1
CASE MultiPage0.PageIndex=2
*讀入文字檔
ASSIGN(Label14.Caption,TRIM(EDIT15.TEXT)+"("+CUSTOMER->CUST_CODE+")")
IF FILE(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CUSTOMER\'+TRIM(EDIT3.TEXT)+".TXT") &&檢查以產品編號(EDIT0.TEXT)檔案名稱是否存在
MTOA(MEMOREAD(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CUSTOMER\'+TRIM(EDIT3.TEXT)+".TXT"),Memo1.Lines) &&如果存在就讀入
ELSE
MTOA(MEMOREAD(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CLEAR.TXT'),Memo1.Lines) &&如果不存在就讀入空白
ENDIF
CASE MultiPage0.PageIndex=3
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=4
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(Combo12.Text,"全部")
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=5
ENDCASE
*備註資料存入
External REMARK1
ASSIGN(REMARK1,ATOM(Memo1.Lines))
TRY
MEMOWRITE(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CUSTOMER\'+TRIM(EDIT3.TEXT)+".TXT",REMARK1)
MESSAGE('備註資料已存入..','訊息視窗',200,200)
ERROR
MAKEDIR(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\'+'CUSTOMER')
MESSAGE('CUSTOMER目錄建立,請按確定即可存入..','訊息視窗',200,200)
MEMOWRITE(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CUSTOMER\'+TRIM(EDIT3.TEXT)+".TXT",REMARK1)
MESSAGE('備註資料已存入..','訊息視窗',200,200)
ENDTRY
*還原上次存檔內容
MTOA(MEMOREAD(ALIASPATH(MAIN.EDIT6.TEXT)+'TXT\CUSTOMER\'+TRIM(EDIT3.TEXT)+".TXT"),Memo1.Lines)
|
|