I have a customer requirement to modify Webshop so files can be uploaded and attached to the Sales orders created through WebShop

Does StandardERPServer support html form based uploads?

Can this even be done?


I have tried many things but keep hitting brick walls.

Thanks

Lee

Thanks Kuda,

I eagerly await your reply

Regards

Lee

Hi Lee

Can you please be more specific with your request as it is difficult to understand what you are trying to do

So kindly explain in much more detail

Many thanks

Swati 12.10

There are some functions named "upload" in the source. I would look how file manager in mystandard works. I never did something like this before, so cannot tell you more.

Hi Lee,

So we don't have that supported in standard at the moment so it would have to be customised.

You could start by taking a look at how we create attachments in general (e.g. when creating email from Invoice we create pdf attachment). Then the next step would be probably to create a similar function in HAL, and then when you submit the HTML form with uploaded file, we would call this function in HAL.


You could put through a wish for this as well as I am sure this would be good to have in the standard product version.

I hope this is useful and makes sense.

Hello, Lee

You might take a look at the procedure WebFileUpload. It uses primitive WebGetRawPostData which I think is what You are looking for.

Hi,

This procedure will save posted file when called ip:webport/WebTEST.hal with file passed in it

global webpublic
updating procedure WebTEST()
begin
area a;

WebGetPostData(a);

WriteAreaToFile(a,"tmp/test.zip",0);


return;
end;

That's weird, did a POST call with file as a body and the file was saved on the server.
What SERP version are You using?

That would involve the end user making some kind of HTTP POST to the Hansa web server, which is all technically possible but probably quite hard to make simple for the end user.

The Issue Tracking part of this partner portal allows uploading of files. How does that work?

Hi, Lee,

So this part WebFileUpload.hal?action=doupload you can see in the procedure WebFileUpload.
The DoUploadChuck is roughly like this(it's not actual code and won't work, it's just to look at roughly how it works. Hope it helps)

global
function Boolean webup(var string filename,var area rfilearea)

begin
Area FileArea,img,FADone,nFileArea;
Longint enter;
Longint lcnt,pos,spos,epos,pepos;
string 255 tstr,namestr;
boolean getnamef;
Longint namepos,nameepos,i;
string 255 link;
boolean savef;

getnamef = false;
namepos = 0;
nameepos = 0;

savef = true;
WebGetRawPostData(rFileArea);
//ReplaceWebStrings(nFileArea,rfilearea);

savef = true;


webup = savef;
return;
end;


global
updating procedure chunkup(string sess,string fn,var string nename)
begin

CreateFolder("tmp/" & sess);
CreateFile("tmp/" & sess & "/" & fn & ".tmp");
nename = fn & ".tmp";


return;
end;

global

updating procedure chunkupchunk(string sess,string fn,var area tarea)
begin

AppendAreaToFile("tmp/" & sess & "/" & fn,tarea);

return;
end;


global
updating procedure chunkupfinish(string sess,string tmpname,string fn)
begin
string 255 folder;

folder = "tmp/" & sess;
RenameFile(folder & "/" & tmpname,folder & "/" & fn);

return;
end;

global
procedure HandleFileUploadFinish(string sess)
begin
string 255 path,filename,id,tag;


switch (tag) begin
case "test":
if (FileExists("tmp/" & tag & "/" & sess)) then begin
RenameFile("tmp/" & tag & "/" & sess,"tmp/" & tag & "/" & filename);
end;
end;


path = "tmp/" & tag & "/" & sess;
if (FileExists(path)) then begin
Delete_File(path);
end;

return;
end;

global
procedure WebDoUploadChunk()
begin
string 255 filename,foldername,tname;
String 255 server_uuid,server_addr,server_port,country,product,localizations;
Integer oldcomp,cc;

area tarea;
record CUVc CUr;
BOolean succf;

switch (WebGetArg("type")) begin
case "start":
qupdating.chunkup(GetWebSessionUUID,WebGetArg("filename"),filename);
PutSessionString("temp_upload_filename",filename);
PutSessionString("temp_upload_filename2",WebGetArg("filename"));
case "file":
webup(tname,tarea);
qupdating.chunkupchunk(GetWebSessionUUID,GetSessionString("temp_upload_filename"),tarea);
case "end":
qupdating.chunkupfinish(GetWebSessionUUID,GetSessionString("temp_upload_filename"),GetSessionString("temp_upload_filename2"));
product = "test";


foldername = "tmp/" & GetWebSessionUUID;
WebOutString("");
end;

return;
end;

Hello,

This example is used with XHR for asynchronous upload.

The "start" part is just to receive the filename and create the file, setup session, setup loading bar on the webpage etc. It's just a normal ajax call to the server to make sure everything is set up.
$.get("/WebFileUpload.hal?action=start&session=" + session + "&newname=" + newname + "&filename=" + filename,function(data){...});

"file" is the only place where XHR is actually used. The way this is setup it can handle breaking up larger files and uploading them as parts
if you want the upload to actually work in blocks you need to handle breaking the file apart in JavaScript and send piece by piece with XHR, the server-side code will just append everything it gets to the file.
xhr.open('POST', "/WebFileUpload.hal?action=file&session=" + session + "&tmpname=" + tmpname +"&fn=" & fn, true);

"end" is also just a standard ajax call to finalize upload, move file to proper location, delete the temporary one and clean up the loading bar on the webpage.
$.get("/WebFileUpload.hal?action= end&session=" + session,function(data){...});

Hello Dejan,

it is a start thank you. I will try asap to put this together and feedback on here my successes and/or failures


Thanks

Lee

Hello Lee,

Could you please confirm if it worked for you or not?
Other partners would like to know it as well.

Thank you for letting us know :)