The code below check to see if a property setup exists in file RRCetc. For those records in texastx1 that are not contained in file RRCetc, it shows a layout of the records that need to be added.
From this list, I manually go in and add records needed. After I am done with this pass, I need to basically rerun this operation to make sure I get the setups correctly. The problem here is I get the same results I had before I make the additions.
My question is therefore where do I change this operation to refresh it each time I make corrections and then come back to run this operation?
Flow should be:
Check once, get records not listed
Manually add records
Check again, report or layout should say so records exist that meet this criteria.
Thanks,
Bruce
dim filter as c
dim order as c
dim options as c
dim description as c
dim show_all_flag as L
dim layout_name as c
dim layout_type as c
filter = "(.NOT.exist(Propertynumber+tax_cde,\"RRCETC\",\"RRCetc\")) .and. unique_key_value()"
order = "Propertynumber"
options = "U"
description = "Saved Query: Query for No Prop Setups"
show_all_flag = .f. 'user cannot turn off the query
layout_type = "browse" 'to open a form, set this to "form"
layout_name = "" 'This will open the default layout. You can also specify a named layout here
dim args as sql::arguments
if eval_valid("arguments") then
if typeof(arguments) = "P" then
args = arguments
end if
end if
a5_open_layout(layout_type,layout_name,"texastx1",filter,order,description,options,show_all_flag,args)
From this list, I manually go in and add records needed. After I am done with this pass, I need to basically rerun this operation to make sure I get the setups correctly. The problem here is I get the same results I had before I make the additions.
My question is therefore where do I change this operation to refresh it each time I make corrections and then come back to run this operation?
Flow should be:
Check once, get records not listed
Manually add records
Check again, report or layout should say so records exist that meet this criteria.
Thanks,
Bruce
dim filter as c
dim order as c
dim options as c
dim description as c
dim show_all_flag as L
dim layout_name as c
dim layout_type as c
filter = "(.NOT.exist(Propertynumber+tax_cde,\"RRCETC\",\"RRCetc\")) .and. unique_key_value()"
order = "Propertynumber"
options = "U"
description = "Saved Query: Query for No Prop Setups"
show_all_flag = .f. 'user cannot turn off the query
layout_type = "browse" 'to open a form, set this to "form"
layout_name = "" 'This will open the default layout. You can also specify a named layout here
dim args as sql::arguments
if eval_valid("arguments") then
if typeof(arguments) = "P" then
args = arguments
end if
end if
a5_open_layout(layout_type,layout_name,"texastx1",filter,order,description,options,show_all_flag,args)
Comment