Quantcast
Channel: Martin Dráb's Activities
Viewing all articles
Browse latest Browse all 17532

Getting Error while trying to save the morphx report as pdf.

$
0
0

Hi ,

I am trying to save the morphx report as pdf in a local drive so that , it can be mailed to users.

I am getting the following error :

Please let me know , how could I save it in a local drive and email it to user.

Below is my Code :

-------------------------------------------------------------------------

public boolean fetch()
{
SalesPrintSetup isalesPrintSetup;
Args args;
reportRun rr;
RunBaseReport runBaseRreport;
PrintJobSettings printJobSettings;
QueryBuildDatasource tInvModule;
real newPrices,newPriceUnit;
str sCustName,sCustAcc,sCustNameCheck,sCustAccCheck,sDateToStr,sCustAccount;
str reportName = 'Test_CusPrice';
int iCount,iCheckCount = 0;
int p=1;
int recCount = 1;
int Show;
int iHold=1;
int infoNum,infoNums;
boolean retCode = false;
tmp_InventTableModule tInvModules,tInvCalc;
Query qStr;
QueryRun qrun;
QueryBuildDataSource qds;
test_PrintDataCustPrcList testPrintReport,testPrint1;

// boolean ret;
dialog d = new dialog("Select file");
dialogField df;
;
testPrintReport.reread();
//breakpoint;
// Loop through each record from the data source query of the report.
while select testPrintReport order by tmpCustAccount,tmpExtItem asc
where testPrintReport.CurUserId == XUserInfo::find(false, curUserId()).name && testPrintReport.CheckCust == NoYes::Yes
{
select testPrint1
where testPrint1.tmpCustAccount == testPrintReport.tmpCustAccount;
{

if (box::yesNo("Do you want to save Report?", dialogbutton::Yes, "Save in PDF") == dialogbutton::Yes)
{

if (testPrintReport.tmpCustAccount != '' && testPrintReport.tmpCustName != '')
{

df = d.addField(typeid(FileNameSave), "Select file to save");
if (d.run())
{

sDateToStr = date2str(systemDateGet(),213,2,4,2,4,4);
CustAcc.text(testPrintReport.tmpCustAccount);
sCustName = CustName.text(testPrintReport.tmpCustName)+' - '+sDateToStr;
CustName.text(sCustName);
if(sCustAccount == '')
{
sCustAccount = testPrintReport.tmpCustAccount;
}
// element.printJobSettings().setTarget(Printmedium::File);
element.printJobSettings().format(Printformat::PDF);
element.printJobSettings().fileName(df.value());
element.send(testPrintReport);
}
else
{

sDateToStr = date2str(systemDateGet(),213,2,4,2,4,4);
CustAcc.text(testPrintReport.tmpCustAccount);
sCustName = CustName.text(testPrintReport.tmpCustName)+' - '+sDateToStr;
CustName.text(sCustName);
if(sCustAccount == '')
{
sCustAccount = testPrintReport.tmpCustAccount;
}
element.printJobSettings().setTarget(Printmedium::Screen);
}
}


} // element.send(testPrintReport);

}


}
/* args = new Args(reportName);
args.designName("Test_CusPrice");
// rr = new ReportRun(args,'');
// rr.setTarget(PrintMedium::File);
// rr.printJobSettings().fileName('SysPrintForm');

printJobSettings = new PrintJobSettings(isalesPrintSetup.PrintJobSettings);
printJobSettings.printerSettings('SysPrintForm');
isalesPrintSetup.PrintJobSettings = printJobSettings.packPrintJobSettings(); */
retCode = true;
return retCode;
}


Viewing all articles
Browse latest Browse all 17532

Trending Articles



<script src="https://jsc.adskeeper.com/r/s/rssing.com.1596347.js" async> </script>