Setting xdialog checkbox value at initiation

[Mike Wilson]

Re: Setting xdialog checkbox value at initiation

Gabe,
When I run this fresh in IW, it seems to operates correctly with the checkboxes that are checked showing in the bottom list. But when I close and re-run the code, it does not behave properly.

LATER:
I placed the code into a UDF and it runs fine. The erratic behavior is only when repeat runs are performed in the IW

[Mike Wilson]

Re: Setting xdialog checkbox value at initiation

Al. I didn't think about using debug(). Thanks

Gabe, Thank you, I thought I tried that but must not have. It's been a very hard week for me!

[G Gabriel]

Re: Setting xdialog checkbox value at initiation

dim vL as C
vL=<<%l%
100^^Project Initiation^^True
110^^Price Schedule Assignment^^False
115^^Materials - Project Supply Inventory Assessment^^False
120^^Project Costing^^True
130^^Project Quotes^^False
140^^Customer Order^^True
150^^Art - Request Art Assets, Start a Project Folder in Handstand server folder- Art T^^False
155^^Stores - Request Store Inventory from Customer^^False
160^^Art - Acquire Art Assets^^False
170^^Art - Deliver Art Assets to Graphic Team  with Vendor Order for Concept Art^^True
175^^Stores - Import Store Inventory and make store lanes^^False
180^^Stores - Attach Project to Selected Stores^^False
%l%
dim ps_selected as c
	dim vLshow as C
	dim vvalue as C
	dim vfw as C

for i= 1 to 12

		vfw=word(vL,i,crlf())
		vLshow=vLshow+alltrim(word(vfw,2,"^^"))+crlf()
		if word(vfw,3,"^^")="True"
			ps_selected=ps_selected+word(vfw,2,"^^")+crlf()
		end if
	next

dim a_selected[12] as C

ui_dlg_box("Check Box-List Box",<<%dlg%
{startup=init}{frame=1,1}
{region}
[.100,12ps_selected^$$vLshow!select_ps];
{lf};
[.100,12ps_name^#a_selected];
{endregion};
<close>
%dlg%,<<%code%

if a_dlg_button = "select_ps" then
	a_dlg_button = ""
	a_selected.clear()
	a_selected.initialize(ps_selected)
end if
%code%)

[Al Buchholz]

Re: Setting xdialog checkbox value at initiation

The check boxes are marked by including them in the list for the variable vLshow

Work on this from another perspective to see what you need to do.

Mark some of the check boxes and use debug(1) or trace to watch the changes in the variable vLshow

Then you'll know what to do with the values and what the values should be.

This does not involve setting a logical to .t.

You may get some additional insight from this thread..
https://forum.alphasoftware.com/show...034#post685034

[Mike Wilson]

I have searched and played and can't come up with how to get the checkboxes checked (array variable=.t.) when the xdialog opens. I have a table that holds the stages of a Project with a field for whether the stage is complete or not (third value in the line list). I pull the stages for the Project into a list variable and am trying to populate an xdialog from that list with the checkbox checked if the value is "True". Can someone please steer me in the right direction. Thanks

dim vL as C
vL=<<%l%
100^^Project Initiation^^True
110^^Price Schedule Assignment^^False
115^^Materials - Project Supply Inventory Assessment^^False
120^^Project Costing^^False
130^^Project Quotes^^False
140^^Customer Order^^False
150^^Art - Request Art Assets, Start a Project Folder in Handstand server folder- Art T^^False
155^^Stores - Request Store Inventory from Customer^^False
160^^Art - Acquire Art Assets^^False
170^^Art - Deliver Art Assets to Graphic Team  with Vendor Order for Concept Art^^False
175^^Stores - Import Store Inventory and make store lanes^^False
180^^Stores - Attach Project to Selected Stores^^False
%l%

	dim vLshow as C
	dim vvalue as C
	dim vfw as C

	dim a_ps[12] as C
	for i= 1 to 12
		vfw=word(vL,i,crlf())
		vLshow=vLshow+alltrim(word(vfw,2,"^^"))+crlf()
		
		[COLOR="#FF0000"]'>>> my attempt to get boxed checked based upon the 3rd string value[/COLOR]
		vvalue=word(vfw,3,"^^")
		if vvalue="True"
			eval("a_ps"+i)=".t."
		else
			eval("a_ps"+i)=".f."
		end if
	next

a_ps.initialize(vL)
dim a_selected[12] as C

ui_dlg_box("Check Box-List Box",<<%dlg%
{startup=init}{frame=1,1}
{region}
[.100,12ps_selected^$$vLshow!select_ps];
{lf};
[.100,12ps_name^#a_selected];
{endregion};
<close>
%dlg%,<<%code%
if a_dlg_button="init"
	a_ps1=".t."
	msgbox(a_ps1)
a_dlg_button=""
end if

if a_dlg_button = "select_ps" then
	a_dlg_button = ""
	a_selected.clear()
	a_selected.initialize(ps_selected)
end if
%code%)