Default values and Automatic append

[JetLi]

Re: Default values and Automatic append

By the way Stan, did you manually typed the codes of your sample?

[Stan Mathews]

Re: Default values and Automatic append

I don't create the code from memory or saved samples or type it manually. Alpha will create much of the code you want for you. I create the operation that performs the basics of what I want to do, right click on the operation and view the xbasic behind the operation, save that and modify it. Are you aware that much of what you see in the Alpha genies is xdialog and thus xbasic?

The modifications to use the table rates as the source for the room rate and prof fee is.........

DIM Append as P
	
	a_tbl = table.open("tpatient")
	append.t_db = "patient"
	ON ERROR GOTO ERROR15122011080553318
	
	
	append.m_key = ""
	append.t_key = ""
	append.m_filter = ""
	append.t_filter = ".not. Dischgd .and. pdate = "+s_quote(last_date)
	append.type = "All"
	append.m_count = 4
	append.m_field1 = "PDATE"
	append.m_exp1 = s_quote(last_date+1)
	append.m_field2 = "P_ID"
	append.m_exp2 = "@PATIENT->P_ID"
	append.m_field3 = "ROOM"
	append.m_exp3 = "lookup(\"rates\",\"rateid = '002'\",\"amount\")"
	append.m_field4 = "PROFFEE"
	append.m_exp4 = "lookup(\"rates\",\"rateid = '001'\",\"amount\")"
	append.t_count = 0
	
	a_tbl.append()

Used in a filter in xbasic the expression

lookup("rates","rateid = '002'","amount")

must have outside quotes. Since that results in quotes inside quotes the interior quotes must be "escaped". The backslash character is used to that purpose. It tells Alpha that the quote following it is literal and not the matching end of the quote that preceeds it.



"lookup(\"rates\",\"rateid = '002'\",\"amount\")"


If you have a rates table you can test this in the interactive window. Just copy this, paste it in the interactive, and preceed it with a ? to tell Alpha to print the result to the screen. You should see

? lookup("rates","rateid = '002'","amount")
= 400

? lookup("rates","rateid = '001'","amount")
= 150

[JetLi]

Re: Default values and Automatic append

Stan, Thank you for staying late to answer my question, I thought that you manually encoded the codes, and I'm not aware that the codes are xdialogs and xbasic from the genies. I'm still learning how to do things in Alpha Five, it's much easier than Visual Basic 6 or even VB.net or C#.
I want to create an application for patient monitoring and bills monitoring, one of the things bugging me is how to implement a search capability on a form with a set, example , patient -->> diagnosis and Patient-->> bills, How do i do it in alpha with out showing to end users the standard toolbars of searching , adding, editing cancelling changes to a form or set? and How do i make a menu, is there a menu builder in Alpha Five?

[JetLi]

Re: Default values and Automatic append

How do i call the "query by form" on the query menu , or the find text on on the find menu in code on a button's On push Event with out displaying standard alpha menus and buttons? And also how NOT to display all the toolbars and status bars of Alpha if i press F8 to cycle between browse and Form view?

[Stan Mathews]

Re: Default values and Automatic append

How do i call the "query by form" on the query menu

Query By Form - Action Scripting

Locate Text

[Stan Mathews]

Re: Default values and Automatic append

how NOT to display all the toolbars and status bars of Alpha if i press F8 to cycle between browse and Form view?

Probably can't. You can define a companion browse and companion form which Alpha will use when F8 is preessed. These saved forms and browses can have their menu/toolbar options set.

[JetLi]

Re: Default values and Automatic append

Thanks again Stan for the valuable info.