Xbasic function savefile not working

[jtm311]

My file upload works fine in V11, however after switching to V12. Alpha wants you to change from e.fileArray.data to e.fileArray.fileName when doing so my uploads become corrupt and will not open.
Has anyone had this problem or know how to fix it?
Thanks

function saveFile as v (e as p)
debug(1)
dim count as n
count= e.filecount
dim i as n
dim fntostore as c
dim arr as p
arr = e.filearray

dim tbl as p
tbl = table.open("[PathAlias.ADB_Path]\myuploads",FILE_RW_SHARED)

for i = 1 to count
dim fn as c
dim data as b
data= e.fileArray[i].fileName

fn = "C:\A5Webroot\myuploads" + chr(92) + e.filearray[i].fileName

file.From_blob(fn,data)

dim fntostore as c
fntostore = e.fileArray[i].filename

tbl.enter_begin()

tbl.ponumbers = e.primarykeyArray[1]
tbl.linkedfilename = fntoStore
tbl.enter_end()


next i
e.javescript = "window.parent.{grid.object}.refresh();"
end function

[Davidk]

Re: Xbasic function savefile not working

I'm assuming you're using the Action - File Upload-User Defined.

You write that Alpha wants you to change, and for good reason, but you don't have to. However, if you do want to change, then your code must change as well. In the action property... XBasic function argument array mode... you need to set this to 'filename'. In your code you're treating the upload as if it's data. You've got dim data as b, data = e.fileArray[i].fileName, then you're converting the filename from a blob to a file. This is where you're problem is. By using 'filename' you've already got the uploaded file, with a temp name held in e.fileArray[i].tempFileUploadedData and you've got the original filename in e.fileArray.fileName. So with all this information you can rename and move the file if you want to.

[jtm311]

Re: Xbasic function savefile not working

I'm assuming you're using the Action - File Upload-User Defined.

You write that Alpha wants you to change, and for good reason, but you don't have to. However, if you do want to change, then your code must change as well. In the action property... XBasic function argument array mode... you need to set this to 'filename'. In your code you're treating the upload as if it's data. You've got dim data as b, data = e.fileArray[i].fileName, then you're converting the filename from a blob to a file. This is where you're problem is. By using 'filename' you've already got the uploaded file, with a temp name held in e.fileArray[i].tempFileUploadedData and you've got the original filename in e.fileArray.fileName. So with all this information you can rename and move the file if you want to.

David thank you. Yes I'm using File Upload Defined.

I changed the "b" to a c and removed the blob and thought I could replace it with file.filename_parse(fn,data) but no file would upload (save to the location) Sorry I'm very limited in the Xbasic for this one.

Thank for the help.

[Davidk]

Re: Xbasic function savefile not working

Hey John,

File Upload - User Defined uploads the file or files automatically. They are uploaded, usually, to a temp folder and with a temp name. The filename is a temp name, but the file extension is always the same as the source file uploaded. Your XBasic code runs AFTER the auto-upload takes place... in order to figure out what you want to do with the already uploaded file(s). file.filename_parse(fn,data) is a completely wrong use of file.filename_parse() method. file.filename_parse() parses a fully qualified filename.ext and returns a specific piece of that filename.

E.g. if filename is K:\PROGRAM FILES\A5V4\TEMPLATES\DATABASES\INVOICE\CUSTOMER.DBF

then

dim fname as c = file.filename_parse(filename,"n")

would set fname to CUSTOMER

Your files have already been uploaded and they're sitting on your server under temp names found in e.fileArray[i].tempFileUploadedData. What do you want do to with them?

[jtm311]

Re: Xbasic function savefile not working

My goal is to save them to this location "[PathAlias.ADB_Path]\myuploads"

[jtm311]

Re: Xbasic function savefile not working

Ok I was over thinking it. Just wanted to say I have it working now. My Xbasic may not be clean but it works :)

function saveFile as v (e as p)
dim fn as c
dim tempfile as c
dim i as n
dim fntostore as c
dim arr as p
dim data as c	
dim fntostore as c

count= e.filecount 
arr = e.filearray
tempfile = e.fileArray[1].tempFileUploadedData

tbl = table.open("[PathAlias.ADB_Path]\myuploads",FILE_RW_SHARED)

for i = 1 to count	

data = e.fileArray[i].fileName

fn = "C:\A5Webroot\myuploads" + chr(92) + e.filearray[i].fileName

file.copy(tempfile,fn)

fntostore = e.fileArray[i].filename

	tbl.enter_begin()
	
		tbl.ponumbers = e.primarykeyArray[1]
		tbl.linkedfilename = fntoStore
	tbl.enter_end()
			

next i 
e.javescript = "window.parent.{grid.object}.refresh();"
end function

Thanks

[Davidk]

Re: Xbasic function savefile not working

Yes... that's it John... I knew you'd get there once you understood that Alpha was auto-uploading the files to a specific location. I looked for a setting somewhere to specify that location, but I couldn't find one. Nicely done.

[jtm311]

Re: Xbasic function savefile not working

Yes... that's it John... I knew you'd get there once you understood that Alpha was auto-uploading the files to a specific location. I looked for a setting somewhere to specify that location, but I couldn't find one. Nicely done.

Thank you for the help!

[jtm311]

Re: Xbasic function savefile not working

I spoke to soon. I have a problem with mutable file uploads. The table is listing the correct file names and the location on the server is showing all the files with the correct names, however when opening each document they are just duplicates of the first file uploaded.

I also think I can get rid of the line in the code called data ?

Thanks
John

[jtm311]

Re: Xbasic function savefile not working

If anyone is following here is the corrected code which now works.

function saveFile as v (e as p)
	
dim fn as c
dim tempfile as c
dim i as n
dim arr as p

count= e.filecount 
arr = e.filearray

for i = 1 to count	

tempfile = e.fileArray[i].tempFileUploadedData	
fn = "C:\A5Webroot\docsupload" + chr(92) + e.filearray[i].fileName	

file.copy(tempfile,fn)

dim fntostore as c

tbl = table.open("[PathAlias.ADB_Path]\docsupload",FILE_RW_SHARED)

fntostore = e.fileArray[i].filename

	tbl.enter_begin()
	
		tbl.refnumber = e.primarykeyArray[1]
		tbl.linkedfilename = fntoStore
	tbl.enter_end()


next i 
e.javescript = "window.parent.{grid.object}.refresh();"
end function