All, I'm having a problem with the below function. The problem seems to be that it will not save a new copy of the report. It will send the old one from the server.
This is running via a pop up message asking the user to save and send the below report.
Thanks for the help.
This is running via a pop up message asking the user to save and send the below report.
Thanks for the help.
Code:
Function print_bill as c (e as p) dim filename as c = "\\RCI-APP01\Documents\Old_Alpha\Shipment_Database\BillApprove.pdf" dim reportName as c = "Bill_Approve@[PathAlias.ADB_Path]\\bill_approve.set"; dim Options as p dim printOptions as p DIM from as C = "{SESSION.CURRENTUSERNAME}" filename = "\\RCI-APP01\Users\RCIadmin\Documents\Old_Alpha\Shipment_Database\BillApprove.pdf" reportName = "Bill_Approve@[PathAlias.ADB_Path]\\bill_approve.set"; Order="" filter = "" printOptions.blank = "" options.propogateErrors = .t. dim args as SQL::Arguments args.set("blank", "") saveAS = "PDF" a5w_report_saveAs(reportName,saveAs,filter,order,filename,global_variables(),printOptions,args,options) param_to = "[email protected] " param_subject = "Wire/Checks are approved for "+ date() + " Approved by " + SESSION.CURRENTUSERNAME param_cc = "" param_bcc = "" attachment_list = <<%a% C:\Users\rciadmin\Documents\Old_Alpha\Shipment_Database\Bill_Approve.pdf %a% param_message = "Please note you need to process the Wires/Checks via WBI attached PDF shows approvals: "+crlf()+attachment_list param_attachments = attachment_list 'Send the e-mail message directly - do not open the Alpha Five e-mail client send_result = email_send(param_to,param_subject,param_message,param_attachments,param_cc,param_bcc) if send_result <> 1 then ui_msg_box("Error","E-mail message was not sent.",UI_STOP_SYMBOL) end if end function
Comment