In this app the user uploads a copy of their receipt to be reimbursed. While it works the files when opened are very small and blurry.
Any idea on how I can fix this?
I have attached what it looks like after upload and the one that was uploaded.
Here is the code for the Patch:
Patch(
'Travel Reimbursements',
Defaults('Travel Reimbursements'),
{
TravelID: TravelSelection,
'Exp Transaction Date': DateValue(HotelDate.SelectedDate),
'Exp Category': "Hotel",
'Exp Description': Text(TextInputItem),
'Exp Cost': Value(TextInputCost.Text),
'Exp Hotel Cost': Value(TextInputCost.Text),
Name: "test"
}
);
Set(varAttachmentControl_1, JSON(Image3_1.Image, JSONFormat.IncludeBinaryData));
Set(varBase64Only_1, Mid(varAttachmentControl_1, Find(",",varAttachmentControl_1)+1, Len(varAttachmentControl_1) - Find(",",varAttachmentControl_1) -1 ) );
TRUploadFile.Run("/Shared Documents/Travel Reimbursements/"&TravelSelection&"/",Text(varExpenseType)&"-"&Last(AttachmentControlAddDoc_1.Attachments).Name,varBase64Only_1);
Reset(AttachmentControlAddDoc_1); Set(varAttachmentControl_1,Blank());
Set(varAttachVisible,0); Reset(AttachmentControlAddDoc_1);
Set(
varHotelPop,
0
);
//Set(varAttachedFile,0); Set(varAttachedFileDoc,0);
//SharePointUpload.Run(GalleryEventList.Selected.'Event Key', Last(AttachmentControlCamera.Attachments).Name, varBase64Only);