Al and other still having two problems with my script.
1) report comes back with a pop-up and asks do I want to refresh "Yes" or "NO" .
2) The report populates the email all looks good , however, the email is waiting for me to hit the send button can this be automated?
Here she is.
'Refresh data in Passive-Link table(s)
DIM tableList as c
tableList = <<%txt%
item
iteminventory%txt%
dim count as n
count = line_count(tableList)
dim i as n
dim pr as p
dim table_i as c
for i = 1 to (count)
table_i = word(tableList,i,crlf())
pr =a5_RefreshPassiveLinkTable(table_i,.f.,.f.)
if pr.error = .t. then
ui_msg_box("Error","Table data was not refreshed: '" + table_i + "'." + crlf(3) + "Error reported was: " + crlf()+pr.errorText,UI_STOP_SYMBOL)
end if
next i
'Send a report, label, letter, form or browse layout as an attachment to an e-mail message. You can specify which records to send.
query.filter = ""
query.order = ""
to_param = a5_eval_expression("[email protected]",local_variables())
cc_param = a5_eval_expression("[email protected]",local_variables())
bcc_param = a5_eval_expression("",local_variables())
subject_param = a5_eval_expression("File from Night time",local_variables())
message_param = a5_eval_expression("worked",local_variables())
:Report.Send("JoAnn 2","PDF",query.filter,query.order,"default",to_param,subject_param,message_param,cc_param,bcc_param)
Thanks John
1) report comes back with a pop-up and asks do I want to refresh "Yes" or "NO" .
2) The report populates the email all looks good , however, the email is waiting for me to hit the send button can this be automated?
Here she is.
'Refresh data in Passive-Link table(s)
DIM tableList as c
tableList = <<%txt%
item
iteminventory%txt%
dim count as n
count = line_count(tableList)
dim i as n
dim pr as p
dim table_i as c
for i = 1 to (count)
table_i = word(tableList,i,crlf())
pr =a5_RefreshPassiveLinkTable(table_i,.f.,.f.)
if pr.error = .t. then
ui_msg_box("Error","Table data was not refreshed: '" + table_i + "'." + crlf(3) + "Error reported was: " + crlf()+pr.errorText,UI_STOP_SYMBOL)
end if
next i
'Send a report, label, letter, form or browse layout as an attachment to an e-mail message. You can specify which records to send.
query.filter = ""
query.order = ""
to_param = a5_eval_expression("[email protected]",local_variables())
cc_param = a5_eval_expression("[email protected]",local_variables())
bcc_param = a5_eval_expression("",local_variables())
subject_param = a5_eval_expression("File from Night time",local_variables())
message_param = a5_eval_expression("worked",local_variables())
:Report.Send("JoAnn 2","PDF",query.filter,query.order,"default",to_param,subject_param,message_param,cc_param,bcc_param)
Thanks John
Comment