xDialog Box

[MoGrace]

Re: xDialog Box

Actually Ray, I did have this function and lost it with a computer crash - thanks for pointing me to where I found it originally.

[johnkoh]

Re: xDialog Box

Cal,

In my case, I think that Ui_msg_box() is nothing to effect about the xDialog speed and I simply inserted for checking whether my UDF get the value or not.

I believe that Stan's point, inside of the Keylist_build(... lokup()..), made it too slow to open.

My planning is this, (1) Limit and List a value "PlanCode_ID( Return value)" through "Finish" Table which matching the "Project_id". (2) get the "Group" value from "PlanCode" table after I select above step 1 (3)Limit and list the Vendors from vendor_Group_Lists table which is same "group" as step 2 (4)Read and write the cost from PriceBook table which is matching with "Group" and "vendor"

My basic Problem:
The Finish table contains "PlanCode_id(FK)", Finish_id(PK) and other fields which only belong to "Finish" table because the normalization. The PlanCode table has "PlanCode_id(Pk), Name, Series_ID(FK) and Group (which is a result value by Series_id )".
When I made the drop down box, I am not able to see the Name field of PlanCode unless I add another "Name" field on the "Finish" table which is a redundant field. So I came as Keylist_build ( .... looup() ...).

How do you make a drop down boxes in this case?

[johnkoh]

Re: xDialog Box

Hi,

I changed my direction. I made some of few Map and new set tables in order to start over an same xDialog.

I attached the code for your help. Please, tell me If I am going off road. My Intention is after I filled in 1st drop down box(vFieldcode), I want to see the available vendors by drop down box and save the result(key/Return value). The vVendorList drop down box shows only vendor name and I cannot get the return value as like Keylist_build(). So that I have to use the xdialog Event. Am I doing OK? My test on the Msgbox() is indicated as what I want.

dim vProjectId as c ="08-0905"
dim vFieldCode as c ="08-0905cf1" 'Try ID
dim vVendorList as c
vVendorList = set.external_record_content_get("Mtr_vndrs.set",\
"Prdctvndrs->Vendor_name","","Materialsch_id="+quote(vFieldCode))


dim vSelectVendor as c

ui_dlg_box("Give me an xdialog ",<<%dlg%

Select a Vendor:| [.15vSelectVendor^=vVendorList!vSelectVendor_changed];

%dlg%,<<%code%
[COLOR="DarkRed"]if a_dlg_button = "vSelectVendor_changed" then
    'open table and get the ProductVendor_id  - How???
    vPrdvndrId = set.external_record_content_get("Mtr_vndrs.set",\
"Prdctvndrs->prdctvndr_id","","Materialsch_id="+quote(vFieldCode)+" .and. Prdctvndrs->Vendor_name="+quote(vSelectVendor))[/COLOR]
msgbox(vPrdvndrId)

    a_dlg_button=""
end if
%code%)

[Stan Mathews]

Re: xDialog Box

Is this code you are using for a button on a form where Prdctvndrs is an open table?

[johnkoh]

Re: xDialog Box

Stan,

A button on my Estimate form. I will save it to Criteria table then using query and get the cost from price table, save the results to estimate table.

[Tim Kiebert]

Re: xDialog Box

Try this.
It gets the Id as well as the name in the first external content get in the form of 'Name|Id'.
The '-' between 'Prdctvndrs->Vendor_name' and '|' trims trailing blanks in Prdctvndrs->Vendor_name
Then initializes a property array from the list.
The combobox displays the .name property of the array and returns the index value as numeric.
Next the Id is retrieved using the index value.

dim vProjectId as c ="08-0905"
dim vFieldCode as c ="08-0905cf1" 'Try ID
dim vVendorList as c
vVendorList = set.external_record_content_get("Mtr_vndrs.set",\
"Prdctvndrs->Vendor_name-'|'+Prdctvndrs->prdctvndr_id","","Materialsch_id="+quote(vFieldCode))



dim vVendorArr[line_count(vVendorList)] as P
vVendorArr.initialize_properties("Name|Id",vVendorList)

dim vSelectVendor as N

ui_dlg_box("Give me an xdialog ",<<%dlg%

Select a Vendor:| [.15vSelectVendor^=vVendorArr[\].Name!vSelectVendor_changed];

%dlg%,<<%code%
if a_dlg_button = "vSelectVendor_changed" then
    
    msgbox(""+vSelectVendor)
    vPrdvndrId = vVendorArr[vSelectVendor].Id
    msgbox(vPrdvndrId)
    a_dlg_button=""
end if
%code%)

[johnkoh]

Re: xDialog Box

Tim,

This is so cool. Thank you, Tim.