List of next 10 days in Dialog Box with Check Box

[Leah]

I need to create a dialog box with Check Boxes that lists the next 10 days - so obviously they change every day
I then need to copy a specific record that I would be on (I have this done)for EACH date that was selected(haven't done this part yet)
i.e. - If I chose 5 of the 10 days, I would make 5 copies of the record selected and change the date on each one to the dates chosen.
I think the easiest way is to create these new records in a new table that I can then append into my existing table.

I can't figure out how to populate a dialog box with a List of Dates.

Thanks for your help

[Stan Mathews]

Re: List of next 10 days in Dialog Box with Check Box

Checkbox-Listbox? Use expression

DTOC(date())+crlf()+DTOC(date()+1)+crlf()+DTOC(date()+2)+crlf()+DTOC(date()+3)+crlf()+DTOC(date()+4)+crlf()+DTOC(date()+5)+crlf()+DTOC(date()+6)+crlf()+DTOC(date()+7)+crlf()+DTOC(date()+8)+crlf()+DTOC(date()+9)

checkbox.png

[G Gabriel]

Re: List of next 10 days in Dialog Box with Check Box

lst=dtoc(date())+crlf()
for i=1 to 9
	lst=lst+dtoc(date()+i)+crlf()
	next
ui_dlg_box("Dates",<<%dlg%
{xmargin=2}
[%m%.17,14selected^$lst];
<OK><Cance>
%dlg%)

[Leah]

Re: List of next 10 days in Dialog Box with Check Box

Thanks - that worked for my list box, but now I need it to run a copy operation for each choice in that box. I Tried:
DIM operation_name as c
operation_name = "Temp_Copy"
If operation_name <> "" then
*for_each(BOLCOPY,copy.run(operation_name,query.filter)(BOLCOPY),v_DateCopy)
End if
But it never runs it correctly - I end up with a blank record.
Once i get upto 10 records in my table I need to put the date from the list in a field

[Stan Mathews]

Re: List of next 10 days in Dialog Box with Check Box

copy.run(operation_name,query.filter)(BOLCOPY)

not sure what this is supposed to do ? multiply a copy operation times bolcopy

or where query.filter is defined.

Are you trying to do something like

*for_each(BOLCOPY,copy.run(operation_name,"somedatefield = "+s_quote(ctod(BOLCOPY))),v_DateCopy)

[Leah]

Re: List of next 10 days in Dialog Box with Check Box

Thanks, got it so I have a record created for each date - now any hints on how I put my dates from the V_DateCopy into a field in each record
Example - I picked three days, 08/19/2012,08/20/2012,08/21/2012 - so in each of the 3 records want to put one date into each record - that will then make them 3 unique records instead of 3 that are the same

[Stan Mathews]

Re: List of next 10 days in Dialog Box with Check Box

This is just so much fun trying to guess what you are doing.

got it so I have a record created for each date

Putting the date in there at the same time you create the record would seem the simplest method.

[Leah]

Re: List of next 10 days in Dialog Box with Check Box

How?? I have tried everything i can find - I get all the dates in each record - I need them seperate

[Stan Mathews]

Re: List of next 10 days in Dialog Box with Check Box

I have no clue how you are creating the records so I can't advise you on how to set one date for each.

[Mike Wilson]

Re: List of next 10 days in Dialog Box with Check Box

I've read this thread several times. I can't figure out what the starting point is and what the desired ending point is. Maybe some pictures would help us, Leah.

[G Gabriel]

Re: List of next 10 days in Dialog Box with Check Box

The idea is as follows:
She (Leah) is at a certain record (not sure if she is on a record in a browse, or fetching in a form..doesn't matter).
She wants to display an xdlg with the next 10 days.
From the xdlg, she would choose one or more dates.
The record she is one has a date field.
She wants to make as many copies of that record as the number of dates she checked, each one of those copies will have (instead of the original date of the record she is at) will instead have the checked date.
So, here is a quick script:
Let's say the table has a date field called d_field:

lst=dtoc(date()+1)+crlf()
for i=2 to 10
	lst=lst+dtoc(date()+i)+crlf()
	next
ui_dlg_box("Dates",<<%dlg%
{xmargin=2}
[%m%.17,14selected^$$lst];
<OK><Cance>
%dlg%,<<%code%
if a_dlg_button="OK"
	cnt=w_count(selected,crlf())
	t=table.open("your_table")
		for i= 1 to cnt
		t.enter_begin(.t.)
		field_1=your_table->field_1
		field_2=your_table->field_1
		..all other fields same values...
		D_field=ctod(word(selected,i,crlf())
		t.enter_end(.t.)
	next
t.close()
end if
%code%)

[Leah]

Re: List of next 10 days in Dialog Box with Check Box

You have the scenario correct - I am working on your script now - thanks for the help. I will let you know if it works.

[Leah]

Re: List of next 10 days in Dialog Box with Check Box

I have tried your script and I know i am close, but not quite there yet. i am running this from a Form and trying to copy the current record they are on. I Copied into a Temp file so there is only one record, then was copying that into another file once for each date selected. It creates the new record, but doesn't put the information.
dim tablename as c
dim tablename2 as C
tablename = "daily_tickettempcopy"
tablename2= "dailey_ticketapptmp"
dim prompt_for_confirmation as l
prompt_for_confirmation = .f.
'check if the table exists
dim table_filename as c
dim table2_filename as c
table_filename = table.filename_get(tablename)
table2_filename = table.filename_get(tablename2)

if table2_filename <>"" then
tbl = table.open(tablename)
tbl.zap(.t.)
tbl.close()
tbl = table.open(tablename2)
tbl.zap(.t.)
tbl.close()
end if
'Run a saved 'Copy' operation: 'Temp_copy'.
query.filter = "daily_no = Var->v_recno"
query.order = "recno()"
'replace variables in the filter with their actual values
query.filter = convert_expression(query.filter,"VE")

DIM operation_name as c
operation_name = "Temp_Copy"
If operation_name <> "" then
copy.run_silent(operation_name,query.filter,query.order)
End if
' Pick Dates and create new records in a Temp Table for each Date Selected from the Record Copy
lst=dtoc(date()+1)+crlf()
for i=2 to 10
lst=lst+dtoc(date()+i)+crlf()
next
ui_dlg_box("Dates",<<%dlg%
{xmargin=3}
[%m%.17,14selected^$$lst];
<OK><Cancel>
%dlg%,<<%code%
tablename=table.open("dailey_tickettempcopy")
if a_dlg_button="OK"
cnt=w_count(selected,crlf())
t=table.open("dailey_ticketapptmp")
for i= 1 to cnt
t.enter_begin(.t.)
tablename->Cust_No = daily_tickettempcopy->Cust_No
Date_new=ctod(word(selected,i,crlf()))
t.enter_end(.t.)
next
t.close()
end if
%code%)

[G Gabriel]

Re: List of next 10 days in Dialog Box with Check Box

I started reading your script but had to stop at the first Hello!

dim tablename as c

Don't do that. tablename is a system variable. Use any other name.
Then I stumbled at the second Hello!

'check if the table exists
dim table_filename as c
.............

You are not really checking if the table exist, you are getting the fields' names. I guess that's an indirect way of finding out.

..and the third....

 I Copied into a Temp file so there is only one record, then was copying that into another file once for each date selected.

I am not sure why are you making a round trip to Cambodia and back?! Gas is not cheap.
Why do you even have to copy the record to a temp table, and then copy it back several times by patching my script to the bottom of that original saved copy operation script?
it doesn't work that way. Just let's forget about that temp table. Let's pretend it never existed.
I can't help you there because I don't have access to that saved copy operation..
Please, let's forget about Cambodia..we still have Paris!