Setting Copy Directories

[Mortie]

I want to use a script to set directory\sub-directories for the path of a copy operation. The path changes each time I perform a copy and it would be nice to do it this way versus going in and changing each time I change data that is copied.

The example- I have the following never changing and main directory

c:\districts

In this never changing directory there are sub-directories for different sales divisions. For this purpose we will call one division

test

In each division there are unique districts identified by unique and different numbers. In this case we will use the number (character) 10.

I want to execute a copy of specific data for a specific district (based on a filter in the copy operation) from a main database that contains all the districts data to a smaller database designed for a single district.

So, the directory would look like this

c:\districts\test\10

I would copy a file to this directory called

tempdisthh

Hence I ultimately want this to happen

copy_db_name = filename_decode c:\districts\test\10\tempdisthh.dbf

I have two global variables obtained from a Dialog Box

copydivision
copydistrict

The copydistrict variable plugs into the filter portion of the copy operation as well as in setting the directory.

Where my struggle comes in is

copy_db_name = filename_decode ("c:\district\"+Var-"copydivision+"\"+Var-"copydistrict+"\"+"tempdisthh.dbf") does not seem to work.

The script runs without error messages but no copy operation occurs. The actual script is posted in next message.

Suggestions?

[Mortie]

RE: Setting Copy Directories

'This Operation is defined for a set. A set can only be opened in its own session.
'Therefore, the evaluate_template_private() function is used. It executes code in a new session.

'This is the argument that is passed to the evaulate_template_private() function
xbasic_code = ""%code%
'In case the destination table name is stored as a relative file name, or uses an alias
'in the drive/path specification, use the filename_decode() function to convert the
'filename to an absolute filename.
copy_db_name = filename_decode("\districts"+"\"+Var-"copydivision+"\"+Var-"copydistrict+"\"+"tempdisthh.dbf")

if file.exists(copy_db_name) then
overwrite_result = ui_msg_box("Warning","'"+copy_db_name+"' already exists." + crlf(2) + "Would you like to overwrite it?",UI_INFORMATION_SYMBOL+UI_YES_NO)
if overwrite_result "" UI_YES_SELECTED then
end
end if
end if
'Only fields from the top level tables are being copied, so suppress multiple
'instances of each parent record from being copied (one for each parent record child)
copy.fetch_parent = .t.

table.reset("auto life.set")
dim a_tbl as p
a_tbl = table.current()

DIM a5_operation_order as C
a5_operation_order = "str(RECNO(), 0, 0)"
query.order = a5_operation_order
DIM a5_operation_filter as C
a5_operation_filter = "flattenquery(Dist=Var-"copydistrict)"
query.filter = a5_operation_filter
query.options = "I"
query.description = "Temporary Query"
i_indx = a_tbl.query_create()

copy.set = "auto life.set"
copy.db = copy_db_name
copy.dd = .F.
copy.delete_o_dd = .T.
copy.records = .T.
copy.fields = 18
copy.field1 = "Household_Info-"Hhnbr"
copy.field2 = "Household_Info-"Namedlast"
copy.field3 = "Household_Info-"Namedfirst"
copy.field4 = "Household_Info-"Namedinit"
copy.field5 = "Household_Info-"Namedbd"
copy.field6 = "Household_Info-"Namedage"
copy.field7 = "Household_Info-"Namedsex"
copy.field8 = "Household_Info-"Mailingaddress"
copy.field9 = "Household_Info-"Mailingcity"
copy.field10 = "Household_Info-"Mailingstate"
copy.field11 = "Household_Info-"Mailingzip"
copy.field12 = "Household_Info-"Hhphone"
copy.field13 = "Household_Info-"Home"
copy.field14 = "Household_Info-"Life"
copy.field15 = "Household_Info-"St"
copy.field16 = "Household_Info-"Dist"
copy.field17 = "Household_Info-"Agt"
copy.field18 = "Household_Info-"Lastmaildate"

'Prompt for confirmation before running the Operation.......
dim rec_count as n
rec_count = a5_get_records_in_query("auto life.set",a5_operation_filter)
message_text = rec_count + " record(s) will be copied from 'auto life.set', to '"+copy_db_name+"'."+crlf(2)+ "OK to proceed?"
operation_result=ui_msg_box("Copy Operation",message_text,UI_OK_CANCEL+ UI_FIRST_BUTTON_DEFAULT+ UI_INFORMATION_SYMBOL)
If operation_result "" ui_ok_selected then
end
end if



a_tbl.copy()

'Add the table just created by the Copy operation to the Database..
file_add_to_db(copy_db_name)

'Display a dialog box showing the results of the Operation
a5_copy_op_result(a_records_processed, copy_db_name)


%code%

evaluate_template_private(xbasic_code)