Open Xdialog as Form?

[wlk8791]

I have a dialog box that I want to open from my main menu before opening another form. The dialog will ask for user input which will open a form queried with the specified information for a record.

Do I place the xdialog on a blank form, name the form, and then link it to the main menu..... or can I just create the dialog and then link to it from the main menu using an event but without placing it on a form? I'm confused as to how best to do this.

Thanks for your help.

[Stan Mathews]

Re: Open Xdialog as Form?

I have a dialog box that I want to open from my main menu before opening another form.

Usually a button is placed on a form and its code is the xdialog script.

[wlk8791]

Re: Open Xdialog as Form?

The form I want to open is the tabbed employeeinformation form with payroll, performance, etc. When I open the form, the fields automatically have the first record filled in; however, I don't want that. I want the form to open with the record the user is looking for, so the xdialog would ask the user for first and last name.

I want the xdialog to open before that form or be set up as a popup window to ask for input...then the employeeinfo form will open with that information.

[Tom Henkel]

Re: Open Xdialog as Form?

On a button on your main form, you would create a dialog where you would ask for specific parameters. Those parameters would be variables used to set up a form.viewqueried() to your next form.

In our system, we give the employees the ability to see what time they have available to take off. If the employee is a supervisor, we give thm te ability to see the time available for their immediate subordinates.

The following code snippet will ask if the supervisor wants to see their employee's time and then filters the next form based on their input. The variable "access" is a unique identifier for the person logged on.

dim name as C
dim sup as C
dim sup1 as N
dim shared access1 as N

'determine if there are employees reporting to this person
sup= upper(trim(lookupc("F",access,"name","secure2.dbf","access")))
sup1 = lookupn("F",sup,"emp_id","g_employ.dbf","name")
supok = ""
if exist(sup1,"g_employ","Supvr_Id")
	'employees report to this person, go on
    supok = "Y"
  else
  	supok="N"
  	end if

nopg = " "
sup= upper(trim(lookupc("F",access,"name","secure2.dbf","access")))
IF (ACCESS <99 .OR. ACCESS >999) .and. supok = "Y"

	pers = ui_msg_box(aa.bcbss.agency+" Personnel System","The Next Screen will Display YOUR Available Time."+chr(13)+chr(13)+"Is this what you want to do??",35)
	if pers = 2 then
		ui_msg_box(aa.bcbss.agency,"Action cancelled at user request")
		end
	end if
  ELSE
  	PERS = 6
END IF

if pers = 6 then
	'yes selected
	sup1 = lookupn("F",sup,"emp_id","g_employ.dbf","name")
	nopg = "X"
	[B]filter = "EMP_ID = [varN->sup1]"
	query.filter = replace_parameters(filter,local_variables())
	query.order = "NAME"[/B]
	'Open the layout_type showing just the records that satisfy the filter
	Form.ViewQueried("fEE_TimeAvail",query.filter,query.order)

I hope this helps a little bit.

Tom

[wlk8791]

Re: Open Xdialog as Form?

This is my code to open the form Employeeinfo, but alpha says that there are extra characters at the end...can someone tell me where my errors are?

'Create an XDialog dialog box to prompt for parameters.
DIM Firstname as C
DIM Lastname as C
DIM varC_result as C
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_dlg_box("Enter Employee Name",<<%dlg%
{region}
First Name:| [.40Firstname];
Last Name:| [.40Lastname];
{endregion};
{line=1,0};
{region}
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%)
dim frm as P
dim filter as C
dim order as C
filter="Lastname="+quote(Lastname)t".and.Firstname="+quote(Firstname)
order="Lastname+Firstname"
frm=form.viewQueried("Employeeinfo",filter,order)

[wlk8791]

Re: Open Xdialog as Form?

Ok, script runs the dialog correctly but no form.

Help>

'Date Created: 30-Oct-2009 01:36:20 PM
'Last Updated: 30-Oct-2009 01:36:20 PM
'Created By : Owner
'Updated By : Owner
'Create an XDialog dialog box to prompt for parameters.
DIM Firstname as C
DIM Lastname as C
DIM varC_result as C
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_dlg_box("Enter Employee Name",<<%dlg%
{region}
First Name:| [.40Firstname];
Last Name:| [.40Lastname];
{endregion};
{line=1,0};
{region}
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%)
dim frm as P
dim filter as C
dim order as C
filter="Lastname+Firstname"
order="Lastname+Firstname"
frm=form.viewQueried("employeepp","Lastname+Firstname","Lastname+Firstname")

[DaveM]

Re: Open Xdialog as Form?

filter="Lastname="+quote(Lastname)[COLOR=darkred]"t"[/COLOR]".and.Firstname="+quote(Firstname)  ' I think
<[COLOR=darkred]"*"[/COLOR]15=ok_button_label!OK> <15=cancel_button_label!CANCEL>  ' not a mistake, but removing will allow enters instead of forcing the user to use the tab button.

I am not great with dialog boxes, but it seemed to be.


.

[G Gabriel]

Re: Open Xdialog as Form?

This is my code to open the form Employeeinfo, but alpha says that there are extra characters at the end...can someone tell me where my errors are?

It's in your filter:

filter="Lastname="+quote(Lastname)t".and.Firstname="+quote(Firstname)

Should be:
filter="Lastname="+quote(Lastname)+".and.Firstname="+quote(Firstname)

and while we are at it, change the order to:

order="Lastname-Firstname"

And to answer your original question, add an icon to your custom toolbar (or an item to your custom menu, or your tree or whatever you are using) to open the xdlg.

[wlk8791]

Re: Open Xdialog as Form?

Thanks so much....that fixed it...

:)

[G Gabriel]

Re: Open Xdialog as Form?

You snuck one more post with a different question.
This "Government Option" xdlg is NOT going to do the job for you.
Whether the user clicks OK or Cancel, it will open the form regardless.
I have to attend to some other matters right now, will get back with later, but this is bread & butter I am pretty sure lots of help will be coming your way.

[wlk8791]

Re: Open Xdialog as Form?

It's running fine when ran from code editor, but not directly from the form. Says no records

[G Gabriel]

Re: Open Xdialog as Form?

This is not really an elegant one, but just a quick fix for your xdlg:

DIM [B]global [/B]Firstname as C
DIM [B]global [/B]Lastname as C
DIM varC_result as C
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result = ui_dlg_box("Enter Employee Name",<<%dlg%
{region}
First Name:| [.40Firstname];
Last Name:| [.40Lastname];
{endregion};
{line=1,0};
{region}
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%, <<%code%
if a_dlg_button="OK"
dim frm as P
filter="your_lastname_field=Lastname"+".and.your_firstname_field=Firstname"
order="your_Lastname_field+your_firstname_Firstname"
frm=form.viewQueried("employeepp",filter,order)
end if
%code)

Let's hope that those fields in the table do not have the same names as the variables, i.e. Firstname & Lastname.

[G Gabriel]

Re: Open Xdialog as Form?

Correction:
this:
filter="your_lastname_field=Lastname"+".and.your_firstname_field=Firstname"

Should be:
filter="your_lastname_field="+quote(Lastname)+".and.your_firstname_field="+quote(Firstname)

[wlk8791]

Re: Open Xdialog as Form?

Says: Error at line 7, column 1
Missing tag string end construct



'Create an XDialog dialog box to prompt for parameters.
DIM Firstname as C
DIM Lastname as C
DIM varC_result as C
ok_button_label = "&OK"
cancel_button_label = "&Cancel"
varC_result=ui_dlg_box("Enter Employee's Name",<<%dlg%
{region}
First Name:| [.30Firstname];
Last Name:| [.30Lastname];
{endregion};
{line=1,0};
{region}
<*15=ok_button_label!OK> <15=cancel_button_label!CANCEL>
{endregion};
%dlg%), <<%code%
if a_dlg_button="OK"
dim frm as P
filter="your_lastname_field="+quote(Lastname)+".and.your_firstname_field="+quote(Firstname)
order="your_Lastname_field+your_firstname_Firstname"
frm=form.viewQueried("employeepp",filter,order)
end if
%code)

[DaveM]

Re: Open Xdialog as Form?

varC_result=ui_dlg_box("Enter Employee's Name",<<%dlg%   ' should there be a ")" here?
if a_dlg_button="OK"   ' should there be a "then" here?

Maybe I am not so smart on this, just looking and saw.

.