x Dialog Question-

[crimmelcp]

To All:
using the code below:
When I select an employee number from the External list Record get, I need to fill in the First Name, last Name, Craft and Craftdesc.
Where do I put the Xbasic so that when I leave focus of the Select Employee Number Box, I can do the lookups.

Thanks
charlie Crimmel

'Date Created: 27-Nov-2009 07:59:53 AM
'Last Updated: 23-Jan-2010 02:20:24 PM
'Updated By : charlie
trace.clear()
DIM SHARED v_empnum as C
DIM SHARED v_lastname as C
DIM SHARED v_firstname as C
DIM SHARED v_craft as D
DIM SHARED v_craftdesc as C
DIM SHARED v_workrel as D
DIM SHARED v_wrkdesc as C
DIM SHARED v_costcode as D
DIM SHARED v_cccc as C
DIM SHARED v_entrydate as C
DIM SHARED v_payweek as C
DIM SHARED v_wo as D
DIM SHARED v_xperdiem as C
DIM SHARED v_xother as C
DIM SHARED v_xtravel as C
DIM SHARED v_xreimb as C
DIM SHARED varC_result as C
DIM SHARED v_EMPNUM as C
DIM SHARED varC_result as C
auto_list_v_SelectEmp = table.external_record_content_get("empdata","Empnum + \" \" + substr(Lname,1,25) + \" \" + trim(Fname)","Lname+Fname","")
auto_list_v_SelectWr = table.external_record_content_get("workrel","str(Workorder,10) + \" \" + substr(Costcenter,1,13) + \" \"+Descript","Workorder","")

temp_count = w_count(auto_list_v_SelectEmp,crlf())
temp_count2 = w_count(auto_list_v_SelectWr,crlf())

DELETE a_v_SelectEmp
DELETE a_v_SelectWr

DIM a_v_SelectEmp[temp_count] as c
DIM a_v_SelectWr[temp_count2] as c
a_v_SelectEmp.initialize(auto_list_v_SelectEmp)
a_v_SelectWr.initialize(auto_list_v_SelectWr)

heading_string = "Timentry"
ok_button_label = "&Save Record"
cancel_button_label = "&Cancel"
varC_result = ui_dlg_box("Enter Xtra Billing",<<%dlg%
{region}
Select Employee:| [%v%.62v_SelectEmp^+a_v_SelectEmp];
{endregion};
{region}
Employee Num:| [.40v_empnum] ;
{endregion};
{region}
Last Name:| [.40v_lastname] First Name:| [.40v_firstname];
Craft:| [.40v_craft] Craft Desc:| [.40v_craftdesc];
Entrydate:| [%DATE%.40v_Entrydate!v_Entrydate] Payweek:| [%DATE%.40v_payweek!v_payweek];
Work Release:| [%v%.72v_SelectWr^+a_v_SelectWr];
Wrkrel Desc:| [.60v_wrdesc] Costcode:| [.40v_costcode];
CCCC:| [.25v_cccc] Wo:| [.25v_wo];
{endregion};
{region}
Perdiem:| [.25v_xperdiem] Travel:|[.25v_xtravel];
Other:| [.25v_xother] Reimbursement:|[.25v_xreimb];
{endregion};
{line=1,0};
{region}
<*15=ok_button_label!Save Record> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%)

[Stan Mathews]

Re: x Dialog Question-

Where do I put the Xbasic so that when I leave focus of the Select Employee Number Box

Every xbasic code segment in an xdialog goes...

%dlg%,<<%code%
[COLOR="Red"]'HERE[/COLOR]
%code%)

You might be meaning to ask how to respond to

when I leave focus of the Select Employee Number Box

That would seem to be the killfocus event. That seems to be explained here.

[Tom Cone Jr]

Re: x Dialog Question-

Sample data would help us help you. Your script won't run without it.

[crimmelcp]

Re: x Dialog Question-

OK:
I have attached some sample data.
There are 3 tables (empdata,customer and workrel)

There are 2 xdlg examples in the code tab.
(xdlg_empdata and xldg_customer)

In the xdlg_empdata-when I select an employee name, I want to fill in the firstname,lastname,craft and crdesc.
The lookup works and writes to trace window to confirm.
I cannot refresh the fields in the xdialog.

In the xdlg_customer-when I select the customer, I want to fill in the customer information.

Please comment out the lines for testing the trace window.
'if a_dlg_button = "v_SelectEmp_killfocus" then
'end if

Any Ideas
Thanks
Charlie Crimmel

[crimmelcp]

Re: x Dialog Question-

I finally got the empdata xdialog to work.

now for the customer

Charlie Crimmel

[Tom Cone Jr]

Re: x Dialog Question-

Charlie, your customer code is trying to use an SQL approach via AlphaDAO without using an SQL backend database. I don't think you can do that.

On the other hand you can do what you want with native tables without using DAO calls.

Why did you start down this path? Am I missing something here?

Later...

Here's an example that might help. It illustrates how to populate a record-list listbox from a native Alpha Five table, and then parse the return string into separate "fields" that can be used to populate text boxes for user edits. To see the example run the script called "Toms_try".

Hope it helps.

[Tom Cone Jr]

Re: x Dialog Question-

In the cold light of day I see that one of the comments in my script makes no sense.

At line 15 change:

' User edits first the change events for the two text boxes

to

' User edits [COLOR="Red"]fire[/COLOR] the change events for the two text boxes

[CALocklin]

Re: x Dialog Question-

I made some additional changes. These are mostly for:
- Here's another way(s). (There are many ways, I'm just showing what I would do.)
and
- Here are some bits and pieces for the purpose of learning.

I added two modified scripts that start with "Cals_" and changed one last name in the data from "McMiggan" to "McMiggan, Sr." just so you can see how I would deal with that [all too common] type of situation.

See the comments on the on-screen xdialogs themselves and in the code.

There are things about:
- regions that aren't needed and what affect they have on the appearance.
- use of named regions
- using ^+ vs. ^=
- an easier way to define buttons. (You do NOT need to define the button text in a separate variable.)
- using {ysize=}
- using separators between fields.
- using tabs {T=} to line up columns. (Requires %O={@@}% in the object definition - see code.)
- using {data=} to control returned values. (I seldom use this)
- setting up events so you can trap the Change, Killfocus, etc. events for an object.
- probably other stuff.

Here's a video that may help also.

Later:
I just noticed that the resulting "Wo:" field in the xdlg_empdata scripts (the one shown in the video) is rather strange. The input box is far to the right of the field label. This is because the use of the | (pipe) symbol that lines things up is wrong. They were only used to line up the input boxes and not the labels.

This is the way I would do it in this case - only using pipes to line up the first input box on each line:
Wrkrel Desc:| [.60v_wrdesc] Costcode: [.40v_costcode];
CCCC:| [.25v_cccc] Wo: [.15v_wo];

This is another way where the Wo: label is lined up with the Costcode: label AND the input boxes are lined up:
Wrkrel Desc:| [.60v_wrdesc] |Costcode: |[.40v_costcode];
CCCC:| [.25v_cccc] |Wo: |[.15v_wo];