Xdialog list box help

[K2kcc]

Hi Everyone

I'm trying to make a listbox from a crosstab operation.

The result table is the summary of hours over a range of dates.

Of course the field names (dates) change as each user selects different ranges.

I've successfully changed the field names in the result table to reflect the date ranges but I'm stumped on how to change the fields in the list box to reflect the new fields each time the crosstab is run.

Any help is much appreciated.

Thank you

Keith

[Stan Mathews]

Re: Xdialog list box help

Something like choosing Choices set to Computed Automatically and Source set to Field List?

[K2kcc]

Re: Xdialog list box help

Hi Stan

Thank you for your reply

I'm not sure I understand your question. Sorry if I'm not explaining myself

I used the xdialog genie to create the list box code but I'm trying to change the fields in the list box automatically to reflect the fields in the crosstab (which change) when the crosstab is run with a different date range.

Hope this clarifies what I'm attempting.

Thank you

Keith

[Stan Mathews]

Re: Xdialog list box help

Can you upload a sample database with the parts necessary to execute the basic xdialog? I think I know what you want but it will require converting the xdialog to xbasic. Does the crosstab result always have the same number of dates?

[K2kcc]

Re: Xdialog list box help

Hi Stan

Here are the related tables

I haven't included the 2 tables used to create the sample2 table as it's rather complicated but suffice to say I'd like to know how to get the listbox fields to change when the sample2 table's date fields change.

I used the genie to create it then converted it to xbasic but I'm lost on how to get those fields to change with the result table.


Thank you for your help

Regards,

Keith

[K2kcc]

Re: Xdialog list box help

Hi Stan,

The date fields will constantly change and no guarantee they will always be the same number of date fields.

Regards,

Keith

[Stan Mathews]

Re: Xdialog list box help

This works here. I manually changed date field names in sample2 and they appear in the xdialog when it is rerun. The static example has the last field set to 30 wide where the others are all 25. I didn't try to incorporate that. 7:30[Sat_April_28th]

'get the current fields in the sample2.dbf to feed to the xdialog
flds_list = table.external_field_name_get("sample2","n")
'define the list of flds not used in the xdialog
not_use = <<%nono%
sales_no
empl_id
type
%nono%
'subtract not used from all fields for xdialog
for_bld = word_subtract(flds_list,not_use,crlf())
'construct the 1:25[Project],2:25[Mon_April_23th],.... section
fixed = *for_each(fld,alltrim(str(*counter(),15,0))+":25["+fld+"]",for_bld)
fixed = crlf_to_comma(fixed)
'construct the left(''+project,25),left(''+mon_april_23th,25),....section
vals = *for_each(fld,"left(''+"+fld+",25)",for_bld)
vals = crlf_to_comma(vals)
'Create an XDialog dialog box to prompt for parameters.
DIM SHARED Qempy as C
DIM SHARED fff as C
DIM SHARED varC_result as C
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
DIM Qempy_rl_def as C 
Qempy_rl_def = "k=emptable,{keylist_build(\"H=.05,1:25[Fname],2:25[Empl_Id]\",''+empl_id,left(''+fname,25),left(''+empl_id,25))}{}"
DIM fff_rl_def_orig as C 
'original keylist
'fff_rl_def_orig = "kl=sample2,{keylist_build(\"H=.05,1:25[Project],2:25[Mon_April_23th],3:25[Tue_April_24th],4:25[Wed_April_25th],5:25[Thu_April_26th],6:25[Fri_April_27th],7:30[Sat_April_28th]\",''+project,left(''+project,25),left(''+mon_april_23th,25),left(''+tue_april_24th,25),left(''+wed_april_25th,25),left(''+thu_april_26th,25),left(''+fri_april_27th,25),left(''+sat_april_28th,30))}{empl_id =convert_type( [varC->Qempy],\"n\")}"
'modified keylist feeding in variables
fff_rl_def_orig = "kl=sample2,{keylist_build(\"H=.05,"+var->fixed+"\",''+project,"+var->vals+")}{empl_id =convert_type( [varC->Qempy],\"n\")}"
DIM fff_rl_def as C 
fff_rl_def = replace_parameters(fff_rl_def_orig,local_variables())
varC_result = ui_dlg_box("Timesheet",<<%dlg%
{region}
| [%@Qempy_rl_def%.40Qempy!Qempy_changed];
Type prompt here:| [%@fff_rl_def%.150,25fff];
{endregion};
{line=1,0};
{region}
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%,<<%code%
If a_dlg_button = "Qempy_changed" then 
	fff_rl_def = replace_parameters(fff_rl_def_orig,local_variables())
	a_dlg_button = ""
end if
%code%)

[K2kcc]

Re: Xdialog list box help

Hi Stan

That works great

Now to go through your code to learn how it works.

Much appreciated.

Thank you

Keith

[Stan Mathews]

Re: Xdialog list box help

Glad to help.

Required reading - https://www.alphasoftware.com/docume...%20Strings.xml

Since we are dealing with something constructed from strings the only issue in making it dynamic is to work out how to substitute a variable containing what we need into the static framework.

fff_rl_def_orig = "kl=sample2,{keylist_build(\"H=.05,"+[COLOR="#FF0000"]var->fixed[/COLOR]+"\",''+project,"+[COLOR="#FF0000"]var->vals[/COLOR]+")}{empl_id =convert_type( [varC->Qempy],\"n\")}"