Check List Box

[johnkoh]

How can I add the selected items from Check List Box into Browse?

[MikeC]

Re: Check List Box

John,

How can I add the selected items from Check List Box into Browse?

I really don't think that is what you really wish to do....you're asking to take a list, that is most likely generated by the table the browse is based upon, and add the checkmarked ones as new records to the browse. Unless the dialog box is from a different table....but then that would be quite a denormalized database which I doubt.

Now if you want to use the list as a filter for what appears in the browse...or even "mark" the browse records that match your checkmarked ones then that is doable by using the variable in the xdialog.

[Peter.Greulich]

Re: Check List Box

How can I add the selected items from Check List Box into Browse?

I assume that is an xdialog checkbox, which I believe returns a string of checked values. You need to parse the string, retrieve the values and open your "browse" table, and enter the records viz-a-vis a loop.

So the code might look "something" like this:

vWordList= <<%str%
cat
dog
house
bat
rat
mouse
fish
%str%

vCountWordList = w_count(vWordList,crlf())        ''count the number of words
tbl = table.open()
FOR i = 1 TO vCountWordList
    vWord = word(vWordList,i,crlf())
    tbl.enter_begin()
    tbl.assign_emp = vWord
    tbl.enter_end(.T.)
NEXT i
tbl.close()
browse1.refresh()
end

Except that vWordList would be the checkbox return value variable which would already have your selection in there.

Make sense?

[Peter.Greulich]

Re: Check List Box

P.S. It probably requires one more step, because if your return variable is two fields. e.g.:

0000000007Felix Tapia

You need to parse vWord before doing your commits.

[MikeC]

Re: Check List Box

Hi Peter,
If this list of records is to be added to a separate table as you assumed, then his screenshot is a bit off as it lists 2 of the records that he also has checkmarked......but most likely is the correct guess thinking about it.

[johnkoh]

Re: Check List Box

Peter & Mike,
Thank you

I want to insert the Selected employees name from the Check List Box to the (Workschedule) Browse. The line #1, 0...7 should be only one employee as Felix.. Line #2, 0...8 should be 2nd employee Fernando, line #3, 0...9 should be 3rd employee Gerador and line #4, 0...10 should be John Koh.

[johnkoh]

Re: Check List Box

Peter and Mike
Thank you for your help. It took me over 3 days to figured out. The xBasic concept is too hard for me.

P/s: Mr. Mike Wilson
Thank you for your script as
"Current_list = All_employee_list - Already_selected_list" in the List Box.

[Keith Hubert]

Re: Check List Box

Hi John,

Mike and Pete put in a good effort here to get you a result. I'm pleased for you that Mike W. got you a working script, I think it would be nice for you to share it with us in order for others who might be trying or want to do the same thing.

[johnkoh]

Re: Check List Box

Good Morning, Keith

Sure. I can share it. I have enclosed the script here. I will make a zip file sometime on today.

'Create an XDialog dialog box to prompt for parameters.
DIM SHARED vAddEmp as C
DIM SHARED varC_result as C
dim shared vWrkschid as c
dim shared vSignedEmp as c
dim shared vActEmp as c
dim shared vAvailEmp as c
dim shared vCountSignEmp as N
dim shared vCountChkEmp as N


'get Worksch_id number from table
vWrkschid = parentform:worksch_id.value 'Object Name not a table FIELD name.


'get a list of the current assigned employee list from Wrksch_assign table
vSignedEmp=table.external_record_content_get("wrksch_assign","assign_emp","assign_emp","wrksch_id="+s_quote(vwrkschid))

'List of Multy Check Box
vActEmp = table.external_record_content_get("employees","Emp_Fullname","alltrim(emp_fullname)","Emp_active = \"Active\"")

'Count list items
vCountSignEmp=w_count(vSignedEmp,crlf())
vCountChkEmp = w_count(vActEmp,crlf())

'Subtract the two lists box. all list - current list. Try to list by only available employees
vAvailEmp=word_subtract(vActEmp,vSignedEmp)

ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_dlg_box("Select the Employees",<<%dlg%
{region}
Check List:| [%d;O={@@}%.40,15vAddEmp^$$vAvailEmp];
{endregion};
{line=1,0};
{region}
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%)


tbl=table.open("wrksch_assign")


vCountList = w_count(vAddEmp,crlf())

dim i as n
for i = 1 to vCountList
vAddEmp=word(vAvailEmp,i,crlf()) 'Tried vAddEmp but not work
'This script is important and complication. ( I think, just on me)

tbl.enter_begin()
tbl.Assign_emp=vAddEmp
tbl.Wrksch_id=vWrkschid
tbl.enter_end(.t.)
next i
tbl.close()

parentform:browse1.refresh()
end