Hi All,
How do you write for Check box-List Box event on the xDialog?
On my scripts, Whenever I changed the value of the vFilterStatus, I'd like to have new Check box list on the variable Job Status Filter List.
Question - 2: Is Keylist_build() able to create the Check Box?
How do you write for Check box-List Box event on the xDialog?
Code:
'Create an XDialog dialog box to prompt for parameters. DIM SHARED vFilterStatus as C DIM SHARED vFilterFrom as D DIM SHARED vFilterTo as D DIM SHARED vFilterAmt as N DIM SHARED vLists as C dim shared vTypeList as c dim shared vQueryList as c DIM SHARED varC_result as C DELETE a_vFilterStatus DIM a_vFilterStatus[3] as c dim temp_list as c temp_list = <<%list% Completed Current Future %list% a_vFilterStatus.initialize(temp_list) Query_vlist_org = table.external_record_content_get("contracts","Contract_Shortname","Contract_shortname",[SIZE="4"][COLOR="Red"]"Job_status="+quote(vFilterStatus)[/COLOR][/SIZE]) query_count = w_count(query_vlist_org,crlf()) DELETE query_vLists DIM query_vLists[query_count] as c query_vLists.initialize(query_vlist_org) [COLOR="Blue"]'How to get the Filter value whenever vFilterStatus is changed the value?[/COLOR] 'Using Keylist_build DIM vKey_Lists_orig as C vkey_Lists_orig = "k=contracts,{keylist_build(\"H=.05,1:40[Contract_Shortname]\",''+Project_id,left(''+Contract_shortname,40))}{Job_status = [varC->vFilterStatus]}" DIM vKey_Lists as C vKey_Lists = replace_parameters(vKey_Lists_orig,local_variables()) 'vkey_count = w_count(vKey_list_org,crlf()) 'Error, I think Not able to Count the records 'DELETE vKey_lists 'DIM vKey_lists[vkey_count] as c 'vKey_lists.initialize(vKey_lists_org) 'Error 'Status:| [%v%.17vFilterStatus^=a_vFilterStatus]; 'Original ok_button_label = "&OK" cancel_button_label = "&Cancel" varC_result = ui_dlg_box("Contract Filtered List",<<%dlg% {region} Status:| [%v%.17vFilterStatus^=a_vFilterStatus!vFilterStatus_changed]; From:| [%DATE;P=popup.calendar(dtoc(vFilterFrom));I=popup.calendar%.20vFilterFrom!vFilterFrom_*]; To:| [%DATE;P=popup.calendar(dtoc(vFilterTo));I=popup.calendar%.20vFilterTo!vFilterTo_*]; Amount:| [%z%.20vFilterAmt]; {lf}; Variable Job Status Filter List:| [.40,5query_vLists^$$query_vLists]; KeyList Job Status Filter List:| [.40,5vKey_Lists^$$vKey_Lists]; {endregion}; {line=1,0}; {region} <*15=ok_button_label!OK> <15=cancel_button_label!CANCEL> {endregion}; %dlg%,<<%code% [COLOR="Red"]'Event for Query_list If a_dlg_button = "vFilterStatus_changed" then 'Query_vLists = replace_parameters(Query_vLists_org,local_variables()) query_vlists.initialize(query_vlist_org) a_dlg_button = "" end if [/COLOR] 'Event for vKeylist_build If a_dlg_button = "vFilterStatus_changed" then vKey_Lists = replace_parameters(vkey_Lists_orig,local_variables()) a_dlg_button = "" end if if left(a_dlg_button,12) = "vFilterFrom_" then if a_dlg_button = "vFilterFrom_killfocus" then vFilterFrom = ctod(dtoc(vFilterFrom)) end if a_dlg_button = "" end if if left(a_dlg_button,10) = "vFilterTo_" then if a_dlg_button = "vFilterTo_killfocus" then vFilterTo = ctod(dtoc(vFilterTo)) end if a_dlg_button = "" end if %code%)
Question - 2: Is Keylist_build() able to create the Check Box?
Comment