FXApp/ws_objects/app_cust_fx.pbl.src/w_fj_fileadd_p.srw

$PBExportHeader$w_fj_fileadd_p.srw
forward
global type w_fj_fileadd_p from window
end type
type dw_fileedit from u_dw_rbtnfilter within w_fj_fileadd_p
end type
type cb_3 from uo_imflatbutton within w_fj_fileadd_p
end type
type cb_2 from uo_imflatbutton within w_fj_fileadd_p
end type
type cb_1 from uo_imflatbutton within w_fj_fileadd_p
end type
type cb_read from uo_imflatbutton within w_fj_fileadd_p
end type
type r_bar from rectangle within w_fj_fileadd_p
end type
type ln_bar from line within w_fj_fileadd_p
end type
end forward

global type w_fj_fileadd_p from window
integer width = 3355
integer height = 1288
boolean titlebar = true
string title = "Untitled"
boolean controlmenu = true
windowtype windowtype = response!
long backcolor = 134217739
string icon = "AppIcon!"
boolean center = true
event ue_selectfile ( )
dw_fileedit dw_fileedit
cb_3 cb_3
cb_2 cb_2
cb_1 cb_1
cb_read cb_read
r_bar r_bar
ln_bar ln_bar
end type
global w_fj_fileadd_p w_fj_fileadd_p

type variables
s_fileinfo s_file

boolean import = false
boolean success = false

long originallyheight,originallywidth

end variables

forward prototypes
public function integer wf_getfiledata (string arg_filepath, ref blob arg_filedata, ref string arg_msg)
end prototypes

event ue_selectfile();// //ue_selectfile
String Pathname,Filename[],FileType, ls_Pathname
Integer i, li_cnt, poi, li_failcnt
Long row
String arg_msg
long ll_FileLength

row = 1 //dw_fileedit.getrow( )
FileType = ''
FileType = '所有文件(*.*),*.*,'

//	FileType += "配置文件(*.ini), *.ini," 
FileType += "Zip压缩文件(*.Zip),*.Zip,"
FileType += "RAR压缩文件(*.rar),*.rar,"
//	FileType += "XML文件(*.xml),*.xml," 
FileType += "文本文件(*.txt),*.txt,"
FileType += "Excel模版(*.xlt),*.xlt,"
//	FileType += "Excel文档(*.xls),*.xls," 
//	FileType += "Word模版(*.dot),*.dot," 
FileType += "Word文档(*.doc),*.doc,"
FileType += "JPG(*.JPG),*.JPG,"
FileType += "位图文件(*.bmp),*.bmp,"
FileType += "GIF文件(*.GIF),*.GIF"

i = GetFileOpenName("请选择文件", Pathname,Filename, "All", FileType)
IF i < 1 THEN RETURN

li_cnt = UpperBound(Filename)

IF li_cnt = 1 THEN
	
	ls_Pathname = Pathname
	
	ll_FileLength = FileLength(ls_Pathname)/1024
	IF  ll_FileLength > 10240 THEN
		MessageBox('限制','附件文件大小不得大于10M')
		RETURN
	END IF
	
	IF dw_fileedit.GetRow() > 0 THEN
		IF dw_fileedit.Object.filepath[dw_fileedit.GetRow()] = '' THEN
			row = dw_fileedit.GetRow()
		ELSE
			row = dw_fileedit.InsertRow(0)
		END IF
	ELSE
		row = dw_fileedit.InsertRow(0)
	END IF
	
	dw_fileedit.Object.filepath[row] = ls_Pathname
	dw_fileedit.Object.filesize[row] = ll_FileLength
	
	poi = lastpos(Filename[1], '.')
	IF poi > 0 THEN
		dw_fileedit.Object.Filename[row] = Mid(Filename[1],1,poi -1)
		dw_fileedit.Object.DisplayName[row] = Mid(Filename[1],1,poi -1)
		dw_fileedit.Object.FileType[row] = Mid(Filename[1],poi +1,Len(Filename[1]) - poi)
	ELSE
		dw_fileedit.Object.Filename[row] = Filename[1]
		dw_fileedit.Object.DisplayName[row] = Filename[1]
		dw_fileedit.Object.FileType[row] = ''
	END IF
ELSE
	FOR i = 1 To li_cnt
		
		ls_Pathname = String(Pathname)  + "\" +(String(Filename[i]))
		
		ll_FileLength = FileLength(ls_Pathname)/1024
		IF ll_FileLength > 10240 THEN
			arg_msg = '附件文件大小不得大于10M'
			li_failcnt ++
			continue
		END IF
		
		IF dw_fileedit.GetRow() > 0 THEN
			IF dw_fileedit.Object.filepath[dw_fileedit.GetRow()] = '' THEN
				row = dw_fileedit.GetRow()
			ELSE
				row = dw_fileedit.InsertRow(0)
			END IF
		ELSE
			row = dw_fileedit.InsertRow(0)
		END IF

		dw_fileedit.Object.filepath[row] = ls_Pathname
		dw_fileedit.Object.filesize[row] = ll_FileLength
		
		poi = lastpos(Filename[i], '.')
		IF poi > 0 THEN
			dw_fileedit.Object.Filename[row] = Mid(Filename[i],1,poi -1)
			dw_fileedit.Object.DisplayName[row] = Mid(Filename[i],1,poi -1)
			dw_fileedit.Object.FileType[row] = Mid(Filename[i],poi +1,Len(Filename[i]) - poi)
		ELSE
			dw_fileedit.Object.Filename[row] = Filename[i]
			dw_fileedit.Object.DisplayName[row] = Filename[i]
			dw_fileedit.Object.FileType[row] = ''
		END IF
		
	NEXT
	
	IF li_failcnt > 0 THEN
		MessageBox('限制','附件文件大小不得大于10M,'+String(li_failcnt)+'个文件导入失败!')
	END IF
	
END IF




end event

public function integer wf_getfiledata (string arg_filepath, ref blob arg_filedata, ref string arg_msg);
Long rslt = 1,i
Long ll_fileLength,li_FileNum,loops,bytes_read
Blob b,temp
IF arg_filepath = '' Or Not FileExists(arg_filepath) THEN
	rslt = 0
	arg_msg = '文件'+arg_filepath+'不存在'
	GOTO ext
END IF
ll_fileLength = FileLength(arg_filepath)
IF ll_fileLength = 0 THEN
	rslt = 0
	arg_msg = '文件'+arg_filepath+'没有内容'
	GOTO ext
END IF
li_FileNum = FileOpen(arg_filepath, StreamMode!, Read!, LockRead!)

IF ll_fileLength > 32765 THEN
	IF Mod(ll_fileLength, 32765) = 0 THEN
		loops = ll_fileLength/32765
	ELSE
		loops = (ll_fileLength/32765) + 1
	END IF
ELSE
	loops = 1
END IF
IF li_FileNum = -1 THEN
	rslt = 0
	arg_msg = '读取文件'+arg_filepath+'出错，文件可能正在被使用'
	GOTO ext
END IF
FOR i = 1 To loops
	bytes_read = FileRead(li_FileNum, b)
	IF bytes_read < 0 THEN
		rslt = 0
		arg_msg = '读取文件'+arg_filepath+'出错'
		GOTO ext
	END IF
	
	temp = temp + b
NEXT
FileClose(li_FileNum)
arg_filedata = temp
rslt=ll_fileLength

ext:
RETURN rslt


end function

on w_fj_fileadd_p.create
this.dw_fileedit=create dw_fileedit
this.cb_3=create cb_3
this.cb_2=create cb_2
this.cb_1=create cb_1
this.cb_read=create cb_read
this.r_bar=create r_bar
this.ln_bar=create ln_bar
this.Control[]={this.dw_fileedit,&
this.cb_3,&
this.cb_2,&
this.cb_1,&
this.cb_read,&
this.r_bar,&
this.ln_bar}
end on

on w_fj_fileadd_p.destroy
destroy(this.dw_fileedit)
destroy(this.cb_3)
destroy(this.cb_2)
destroy(this.cb_1)
destroy(this.cb_read)
destroy(this.r_bar)
destroy(this.ln_bar)
end on

event open;s_file = Message.PowerObjectParm

Long ll_i_row
ll_i_row = dw_fileedit.InsertRow(0)
dw_fileedit.SetFocus()
dw_fileedit.SetColumn('displayname')

this.triggerevent( 'ue_selectfile') 

end event

event resize;ln_bar.EndX = THIS.Width
r_bar.Width = THIS.Width
end event

type dw_fileedit from u_dw_rbtnfilter within w_fj_fileadd_p
integer y = 176
integer width = 3323
integer height = 1016
integer taborder = 50
string dataobject = "dw_fj_fileadd_p"
boolean hscrollbar = true
boolean vscrollbar = true
boolean hsplitscroll = true
boolean rbutton_setposition_use = true
boolean titleclick_sort_use = true
end type

event rowfocuschanged;call super::rowfocuschanged;if IsNull(currentrow) then return
if (currentrow <= 0) then return

this.SelectRow(0, false)
this.SelectRow(currentrow, true)
end event

type cb_3 from uo_imflatbutton within w_fj_fileadd_p
integer x = 818
integer width = 274
integer height = 164
integer taborder = 40
boolean bringtotop = true
string text = "取消"
string normalpicname = "exit.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;success = false
close(parent)
end event

type cb_2 from uo_imflatbutton within w_fj_fileadd_p
integer x = 544
integer width = 274
integer height = 164
integer taborder = 30
boolean bringtotop = true
string text = "上传"
string normalpicname = "preview.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;Long row,rt_fileid, ll_succnt, ll_failcnt
int rslt = 1
Long cnt
String arg_msg, ls_msg
String filepath
s_fileinfo_arr s_file_arr

uo_fx_fj uo_fj
uo_fj = create uo_fx_fj

dw_fileedit.AcceptText( )
FOR row = 1 To dw_fileedit.RowCount()
	IF dw_fileedit.Object.filepath[row] <> '' THEN
		IF  dw_fileedit.Object.Filename[row] = '' THEN
			MessageBox('系统提示','行:'+String(row)+',请输入文件名称')
			RETURN
		END IF
		IF dw_fileedit.Object.DisplayName[row] = '' THEN
			MessageBox('系统提示','行:'+String(row)+',请输入档案名称')
			RETURN
		END IF
	END IF
NEXT


FOR row = 1 To dw_fileedit.RowCount()
	
	IF dw_fileedit.Object.filepath[row] <> '' and dw_fileedit.Object.fileid[row] = 0 THEN
		s_file.Fileid = 0
		s_file.Filename = dw_fileedit.Object.Filename[row]
		s_file.FileType = dw_fileedit.Object.FileType[row]
		s_file.dscrp = dw_fileedit.Object.dscrp[row]
		s_file.DisplayName = dw_fileedit.Object.DisplayName[row]
		s_file.filepath = dw_fileedit.Object.filepath[row]
		
		filepath = dw_fileedit.Object.filepath[row]
		
		IF wf_getfiledata(filepath,s_file.filedata,arg_msg) <= 0 THEN
			ll_failcnt++
			ls_msg += "行:"+String(row)+","+arg_msg+'~r~n'
			rslt = 0
			GOTO nxtfj
		END IF

		cnt++
		s_file_arr.fileid[cnt] = s_file.fileid
		s_file_arr.billtype[cnt] = s_file.billtype
		s_file_arr.displayName[cnt] = s_file.displayName
		s_file_arr.fileName[cnt] = s_file.fileName
		s_file_arr.fileType[cnt] = s_file.fileType
		s_file_arr.dscrp[cnt] = s_file.dscrp
		s_file_arr.opemp[cnt] = s_file.opemp
		s_file_arr.opdate[cnt] = s_file.opdate
		s_file_arr.fileData[cnt] = s_file.fileData
		s_file_arr.relid_mx[cnt] = s_file.relid_mx
		s_file_arr.relid[cnt] = s_file.relid
		s_file_arr.relcode[cnt] = s_file.relcode
		s_file_arr.filepath[cnt] = s_file.filepath
	END IF
	nxtfj:
NEXT

IF uo_fj.update_fxfj(s_file_arr,arg_msg) = 0 THEN
	MessageBox('失败',arg_msg  )
	RETURN
ELSE
	MessageBox('成功',"上传文件成功"  )
	Close(Parent)
END IF






end event

type cb_1 from uo_imflatbutton within w_fj_fileadd_p
integer x = 270
integer width = 274
integer height = 164
integer taborder = 20
boolean bringtotop = true
string text = "删明细"
string normalpicname = "delete.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;IF dw_fileedit.GetRow() <= 0 THEN RETURN


IF MessageBox("系统提示", "是否确定删除当前明细行?", Question!, YesNo!) = 2 THEN RETURN

dw_fileedit.DeleteRow(0)


end event

type cb_read from uo_imflatbutton within w_fj_fileadd_p
integer width = 274
integer height = 164
integer taborder = 10
boolean bringtotop = true
string text = "选择文件"
string normalpicname = "open.bmp"
integer picsize = 16
toolbaralignment pic_align = alignattop!
boolean border = false
end type

event clicked;call super::clicked;// //ue_selectfile
String Pathname,Filename[],FileType, ls_Pathname
Integer i, li_cnt, poi, li_failcnt
Long row
String arg_msg
long ll_FileLength

row = 1 //dw_fileedit.getrow( )
FileType = ''
FileType = '所有文件(*.*),*.*,'

//	FileType += "配置文件(*.ini), *.ini," 
FileType += "Zip压缩文件(*.Zip),*.Zip,"
FileType += "RAR压缩文件(*.rar),*.rar,"
//	FileType += "XML文件(*.xml),*.xml," 
FileType += "文本文件(*.txt),*.txt,"
FileType += "Excel模版(*.xlt),*.xlt,"
//	FileType += "Excel文档(*.xls),*.xls," 
//	FileType += "Word模版(*.dot),*.dot," 
FileType += "Word文档(*.doc),*.doc,"
FileType += "JPG(*.JPG),*.JPG,"
FileType += "位图文件(*.bmp),*.bmp,"
FileType += "GIF文件(*.GIF),*.GIF"

i = GetFileOpenName("请选择文件", Pathname,Filename, "All", FileType)
IF i < 1 THEN RETURN

li_cnt = UpperBound(Filename)

IF li_cnt = 1 THEN
	
	ls_Pathname = Pathname
	
	ll_FileLength = FileLength(ls_Pathname)/1024
	IF  ll_FileLength > 10240 THEN
		MessageBox('限制','附件文件大小不得大于10M')
		RETURN
	END IF
	
	IF dw_fileedit.GetRow() > 0 THEN
		IF dw_fileedit.Object.filepath[dw_fileedit.GetRow()] = '' THEN
			row = dw_fileedit.GetRow()
		ELSE
			row = dw_fileedit.InsertRow(0)
		END IF
	ELSE
		row = dw_fileedit.InsertRow(0)
	END IF
	
	dw_fileedit.Object.filepath[row] = ls_Pathname
	dw_fileedit.Object.filesize[row] = ll_FileLength
	
	poi = lastpos(Filename[1], '.')
	IF poi > 0 THEN
		dw_fileedit.Object.Filename[row] = Mid(Filename[1],1,poi -1)
		dw_fileedit.Object.DisplayName[row] = Mid(Filename[1],1,poi -1)
		dw_fileedit.Object.FileType[row] = Mid(Filename[1],poi +1,Len(Filename[1]) - poi)
	ELSE
		dw_fileedit.Object.Filename[row] = Filename[1]
		dw_fileedit.Object.DisplayName[row] = Filename[1]
		dw_fileedit.Object.FileType[row] = ''
	END IF
ELSE
	FOR i = 1 To li_cnt
		
		ls_Pathname = String(Pathname)  + "\" +(String(Filename[i]))
		
		ll_FileLength = FileLength(ls_Pathname)/1024
		IF ll_FileLength > 10240 THEN
			arg_msg = '附件文件大小不得大于10M'
			li_failcnt ++
			continue
		END IF
		
		IF dw_fileedit.GetRow() > 0 THEN
			IF dw_fileedit.Object.filepath[dw_fileedit.GetRow()] = '' THEN
				row = dw_fileedit.GetRow()
			ELSE
				row = dw_fileedit.InsertRow(0)
			END IF
		ELSE
			row = dw_fileedit.InsertRow(0)
		END IF

		dw_fileedit.Object.filepath[row] = ls_Pathname
		dw_fileedit.Object.filesize[row] = ll_FileLength
		
		poi = lastpos(Filename[i], '.')
		IF poi > 0 THEN
			dw_fileedit.Object.Filename[row] = Mid(Filename[i],1,poi -1)
			dw_fileedit.Object.DisplayName[row] = Mid(Filename[i],1,poi -1)
			dw_fileedit.Object.FileType[row] = Mid(Filename[i],poi +1,Len(Filename[i]) - poi)
		ELSE
			dw_fileedit.Object.Filename[row] = Filename[i]
			dw_fileedit.Object.DisplayName[row] = Filename[i]
			dw_fileedit.Object.FileType[row] = ''
		END IF
		
	NEXT
	
	IF li_failcnt > 0 THEN
		MessageBox('限制','附件文件大小不得大于10M,'+String(li_failcnt)+'个文件导入失败!')
	END IF
	
END IF




end event

type r_bar from rectangle within w_fj_fileadd_p
long linecolor = 16777215
integer linethickness = 4
long fillcolor = 1073741824
integer x = 1687
integer y = 40
integer width = 87
integer height = 52
end type

event constructor;THIS.FillColor = 14215660
THIS.LineColor = 14215660
THIS.X = -1
THIS.Y = -1
THIS.Height = ln_bar.BeginY - 5

end event

type ln_bar from line within w_fj_fileadd_p
long linecolor = 268435456
integer linethickness = 4
integer beginy = 164
integer endx = 2002
integer endy = 164
end type