I know that I requested this before in 2017 but the solutions of suggested of running InstallAmyuniPrinters did not fix. The story is long....sorry.
We are using the following :
Development Edition
Alpha Anywhere v 4.3.2
version 12.4.3.2 Build 4081
System Addins 4811
Runtime Plus
Alpha Anywhere v 4.3.2
version 12.4.3.2 Build 4081
System Addins 4811
with both Alpha Anywhere above we get an ERROR message when trying to send a report as an attachment to Email. The selections: Preview, Print or Save to File work 100% of the time.
Error Variable Frame Bad.bmp
Here is the script for a report....been around since 2002 and worked in v10.5 both development & runtime.
'start of printreport script
'Date Created: 19-Oct-2002 09:42:14 PM
'Last Updated: 25-Jan-2018 11:11:50 PM
'Created By : Administrator
'Updated By : dewayne
FUNCTION REPORTPRINT AS C (VAR->PRINTREPORT AS C )
DIM PRINTTYPE as c
PRINTTYPE = ui_get_radio("Select Report type","Preview","Preview","Print","E-Mail","Save to File")
IF VAR->PRINTTYPE = "Preview" THEN
'Preview a report, label, letter, form or browse layout. You can specify which records to preview.
query.filter = ""
query.order = ""
:Report.Preview(VAR->PRINTREPORT,query.filter,query.order)
END IF
IF VAR->PRINTTYPE = "Print" THEN
'Print a report, label, letter, form or browse layout. You can specify which records to print.
query.filter = ""
query.order = ""
:Report.Print(VAR->PRINTREPORT,query.filter,query.order)
END IF
IF VAR->PRINTTYPE = "E-Mail" THEN
'Send a report, label, letter, form or browse layout as an attachment to an e-mail message.
query.filter = ""
query.order = ""
to_param = a5_eval_expression("")
cc_param = a5_eval_expression("")
bcc_param = a5_eval_expression("")
subject_param = a5_eval_expression("")
message_param = a5_eval_expression("")
If var->D1 = "A5"
:Report.send(VAR->PRINTREPORT,"PDF",query.filter,query.order,"A5")
ELSE
:Report.send(VAR->PRINTREPORT,"PDF",query.filter,query.order,"default")
END IF
END IF
IF VAR->PRINTTYPE = "Save to File" THEN
'Save a report, label, letter, form or browse to an Acrobat, Rich Text, HTML or Plain Text file. You can specify which records to save.
query.filter = ""
query.order = ""
:Report.SaveAs(VAR->PRINTREPORT,"PDF",query.filter,query.order,"",.T.)
END IF
END FUNCTION
'end of report script
So I started to look at "earlier" versions of v12 and found the following scenario
If we use the following Runtime Plus version the Email dropdown report choice does NOT crash.
Runtime Plus:
Alpha Anywhere v 3.5
version 12.3 Build 2999
System Addins 4519
Bottomline, if we send our users our app with the OLD runtime the EMail report function works but when we are programming via the development edition we get problems.
What to do? We are stuck....thanks.
We are using the following :
Development Edition
Alpha Anywhere v 4.3.2
version 12.4.3.2 Build 4081
System Addins 4811
Runtime Plus
Alpha Anywhere v 4.3.2
version 12.4.3.2 Build 4081
System Addins 4811
with both Alpha Anywhere above we get an ERROR message when trying to send a report as an attachment to Email. The selections: Preview, Print or Save to File work 100% of the time.
Error Variable Frame Bad.bmp
Here is the script for a report....been around since 2002 and worked in v10.5 both development & runtime.
'start of printreport script
'Date Created: 19-Oct-2002 09:42:14 PM
'Last Updated: 25-Jan-2018 11:11:50 PM
'Created By : Administrator
'Updated By : dewayne
FUNCTION REPORTPRINT AS C (VAR->PRINTREPORT AS C )
DIM PRINTTYPE as c
PRINTTYPE = ui_get_radio("Select Report type","Preview","Preview","Print","E-Mail","Save to File")
IF VAR->PRINTTYPE = "Preview" THEN
'Preview a report, label, letter, form or browse layout. You can specify which records to preview.
query.filter = ""
query.order = ""
:Report.Preview(VAR->PRINTREPORT,query.filter,query.order)
END IF
IF VAR->PRINTTYPE = "Print" THEN
'Print a report, label, letter, form or browse layout. You can specify which records to print.
query.filter = ""
query.order = ""
:Report.Print(VAR->PRINTREPORT,query.filter,query.order)
END IF
IF VAR->PRINTTYPE = "E-Mail" THEN
'Send a report, label, letter, form or browse layout as an attachment to an e-mail message.
query.filter = ""
query.order = ""
to_param = a5_eval_expression("")
cc_param = a5_eval_expression("")
bcc_param = a5_eval_expression("")
subject_param = a5_eval_expression("")
message_param = a5_eval_expression("")
If var->D1 = "A5"
:Report.send(VAR->PRINTREPORT,"PDF",query.filter,query.order,"A5")
ELSE
:Report.send(VAR->PRINTREPORT,"PDF",query.filter,query.order,"default")
END IF
END IF
IF VAR->PRINTTYPE = "Save to File" THEN
'Save a report, label, letter, form or browse to an Acrobat, Rich Text, HTML or Plain Text file. You can specify which records to save.
query.filter = ""
query.order = ""
:Report.SaveAs(VAR->PRINTREPORT,"PDF",query.filter,query.order,"",.T.)
END IF
END FUNCTION
'end of report script
So I started to look at "earlier" versions of v12 and found the following scenario
If we use the following Runtime Plus version the Email dropdown report choice does NOT crash.
Runtime Plus:
Alpha Anywhere v 3.5
version 12.3 Build 2999
System Addins 4519
Bottomline, if we send our users our app with the OLD runtime the EMail report function works but when we are programming via the development edition we get problems.
What to do? We are stuck....thanks.
Comment