I am trying to combine 2 codes that Selwyn posted so that the Additive query has the ability to save the query. They are marked as Code1 (Creates and runs the query) and Code2 (Saves the query). I created a 'Save Query' button in order to save the query. Now, I just need to place the Code2 (or part of it) to run the xdialog box that will save the query when the 'Save Query' button is pressed.
Thanks for any suggestions.
kenn
Code1
DIM filter as c
DIM varC_result as C
ok_button_label = "&Run Query"
cancel_button_label = "&Cancel"
save_button_label = "Save Query"
'*******************
Dim flag_additive as l
flag_additive = .t.
dim tbl as p
tbl = table.current()
dim i_tbl as p
i_tbl = tbl.index_primary_get()
dim current_filter as c
current_filter = i_tbl.filter_get()
dim order as c
order = i_tbl.order_get()
dim flag_ok as l
flag_ok = .f.
dim final_filter as c
varC_result = ui_dlg_box("Custom Query",
{endregion};
%dlg%, "OK" then
goto skip_save
end if
full_query_name = ptemp.full_name_to_save
dim p_query as p
p_query.filter_expression = expression_code
p_query.order_expression = order_code
p_query.flag_case_insensitive = .t.
p_query.flag_descending = .f.
p_query.flag_unique = .f.
p_query.flag_omit = .f.
p_query.flag_dd_delete = .f.
p_query.flag_overwrite = .f.
p_query.edit_using_genie = .f.
p_query.genie_settings = ""
'full_query_name is a fully qualified name: e.g. : "query1@c:\a5current\addin library\completed\artists.ddd"
'or in the case of a set: "query1@c:\alphasports\invoice.set"
query_save(full_query_name,p_query)
skip_save:
Thanks for any suggestions.
kenn
Code1
DIM filter as c
DIM varC_result as C
ok_button_label = "&Run Query"
cancel_button_label = "&Cancel"
save_button_label = "Save Query"
'*******************
Dim flag_additive as l
flag_additive = .t.
dim tbl as p
tbl = table.current()
dim i_tbl as p
i_tbl = tbl.index_primary_get()
dim current_filter as c
current_filter = i_tbl.filter_get()
dim order as c
order = i_tbl.order_get()
dim flag_ok as l
flag_ok = .f.
dim final_filter as c
varC_result = ui_dlg_box("Custom Query",
{endregion};
%dlg%, "OK" then
goto skip_save
end if
full_query_name = ptemp.full_name_to_save
dim p_query as p
p_query.filter_expression = expression_code
p_query.order_expression = order_code
p_query.flag_case_insensitive = .t.
p_query.flag_descending = .f.
p_query.flag_unique = .f.
p_query.flag_omit = .f.
p_query.flag_dd_delete = .f.
p_query.flag_overwrite = .f.
p_query.edit_using_genie = .f.
p_query.genie_settings = ""
'full_query_name is a fully qualified name: e.g. : "query1@c:\a5current\addin library\completed\artists.ddd"
'or in the case of a set: "query1@c:\alphasports\invoice.set"
query_save(full_query_name,p_query)
skip_save: