Dr. Peter Wayne pop up alert help

[Digitaled]

I am trying to get a pop up alert to work with the alpha sports db.

I have the Dr. Peter Wayne XBasic book and i added this code to the forms OnFetch event. This is in the book

But when i start the form now i get this pop up box saying

Script:OnFetch line:10
cust=table.get(“customer”) 'pointer to the customer table
No such field

Here is the code from the Book i used and i made a table called Alerts.

dim cust as P
dim custname as C
dim cust_id as C
dim alert as C

cust=table.get(“customer”)  'pointer to the customer table
cust_id = cust.CUSTOMER_ID
custname = trim(cust.FIRSTNAME)+””+trim(cust.LASTNAME)
alert=table.external_record_content_get(“alerts”,”alert_text”,””,\
“Customer_Id=”+quote(Cust_ID))

if alert>””then  'show the alert!
 ui_dig_box(“Alert for “+custname,<<%dig%
 {font=Arial,10}
 {text=%H=R%40,5alert}
 <”ok>;
%dig%)
end if

[Digitaled]

Re: Dr. Peter Wayne pop up alert help

Ok i got it to work BUT.

The book and the samples do not show a way to have a button to have a form pop up linked to the current record for me to enter in the Alert information for a customer.

How do i enter in the Alert information???????.

I can do it buy going to the form i made but then i need to know what customer ID to put in.

How can i use a button on the customer form to pop up the Alerts form and have it auto fill in the current customers IDs

????
thanks

By the way i love this pop up Alert function

[Peter.Wayne]

Re: Dr. Peter Wayne pop up alert help

You need a script something like this, attached to a button or a menu choice:

alerts=table.open("alerts")
query.filter="account="+quote(table.get("customer").customer_ID)
query.order=""
query.options=""
ix=alerts.query_create()
nrecs=ix.records_get()
alerts.close()
if nrecs>0 then
   edit_alert(table.get("customer").customer_ID)
else
	add_alert(table.get("customer").customer_ID)
end if

and then your add_alert function is:

'Date Created: 05-May-2003 03:32:01 PM
'Last Updated: 05-May-2003 04:23:16 PM
'Created By  : Peter Wayne
'Updated By  : Peter Wayne
FUNCTION add_alert AS V (customer_ID AS C )
	dim global user as c
	dim customer as c
	dim alert_text as c
	dim varC_result as c
	
	customer=table.external_record_content_get("customer",\
	"customer_ID+space(3)+trim(last_name)+','+first_name","account",quote(account)+"=account")
varC_result=ui_dlg_box("Add Alert",<<%dlg%
{text=80customer};
Enter alert text:;
[%mw%.60,5alert_text];
{line=1,0};
<*10OK> <10Cancel>;
%dlg%)
if varC_result="OK" then
   alerts=table.open("alerts",file_rw_shared)
   alerts.enter_begin()
   		alerts.customer_ID=customer_ID
   		alerts.date_creat=date()
   		alerts.time_creat=time()
   		alerts.created_by=user
   		alerts.free_text=alert_text
   	alerts.enter_end()
   	alerts.close()
end if
	
END FUNCTION

The edit_alert() function is similar:

'Date Created: 05-May-2003 04:15:34 PM
'Last Updated: 05-May-2003 04:53:04 PM
'Created By  : Peter Wayne
'Updated By  : Peter Wayne
FUNCTION edit_alert AS V (customer_ID AS C )
	dim global user as c
	dim customer as c
	dim alert_text as c
	dim varC_result as c
	
	customer=table.external_record_content_get("customer",\
	"customer_ID+space(3)+trim(last_name)+','+first_name","customer_ID",quote(customer_ID)+"=customer_ID")
	alerts=table.open("alerts",file_rw_shared)
	query.filter="customer_ID="+quote(customer_ID)
	query.order=""
	query.options=""
	alerts.query_create()
	alert_text=alerts.Free_text
	created_by=alerts.Created_by
	time_creat=alerts.Time_creat
	date_creat=alerts.Date_creat 

varC_result=ui_dlg_box("Edit Alert",<<%dlg%
{text=80customer};
Created by {text=created_by};
Created on {text=date_creat} on {text=time_creat};
Edit alert text:;
[%mw%.60,5alert_text];
{line=1,0};
<10OK> <*10Cancel>;
%dlg%)
if varC_result="OK" then
   alerts.change_begin()
   		alerts.customer_ID=customer_ID
   		alerts.date_creat=date()
   		alerts.time_creat=time()
   		alerts.created_by=user
   		alerts.free_text=alert_text
   	alerts.change_end()
end if
alerts.close()
END FUNCTION

and you probably want a delete_alert() function as well, but I'll leave that up to you!

- Peter

[Digitaled]

Re: Dr. Peter Wayne pop up alert help

Hi you posted
and then your add_alert function is:

This version is different from the one in the dl sample and book.

What is the best version to use?

---------------------------------------------------------
Ok i tryed this version the pop up Alert is not poping up now


Can i some how change the look of the pop up box the colors?

[Digitaled]

Re: Dr. Peter Wayne pop up alert help

I added this to a button and it will not do anything unless the customer all ready has a alert then when i push the button it then makes the alert pop up again?

'Date Created: 13-Oct-2005 07:53:31 PM
'Last Updated: 31-Jan-2007 01:43:05 AM
'Created By  : Peter Wayne
'Updated By  : Digitaled
cust=table.get("customer")
customer_id = cust.CUSTOMER_ID
custname = trim(cust.FIRSTNAME)+" "+trim(cust.LASTNAME)
alert=table.external_record_content_get("alerts","alert_text","",\
"Customer_Id="+quote(Customer_ID))

if alert>"" then   ' show the alert!
   ui_dlg_box("Alert for "+custname,<<%dlg%
   {font=Arial,10}
   {text=%H=R%40,5alert}
   <*OK>;
%dlg%)
end if

[Peter.Wayne]

Re: Dr. Peter Wayne pop up alert help

The button script you include is just the script to show an alert. Why would you expect it to do anything else?

The scripts I provided show you how to add and edit alerts, but they have extra fields that are not present in the example in the book. Take out the references to all fields except customer_id and alert_text.

[Digitaled]

Re: Dr. Peter Wayne pop up alert help

The button script you include is just the script to show an alert. Why would you expect it to do anything else?
-------------------
Becouse i was asking for a way to add in information into the Alert creating a one for a customer not just a show alert.
--------------------------

The scripts I provided show you how to add and edit alerts, but they have extra fields that are not present in the example in the book. Take out the references to all fields except customer_id and alert_text.

---------------------
Ok i tried this and the alert will not work but when i use the code from the book it will work???

So i still have no way to add a alert to a customer i can not get the code to work.

Any suggestions? i am, lost

Here is what i have trying to use this code you posted taking out the other items.

On the customer form on fetch i have
--------------------------------------

'Date Created: 05-May-2003 03:32:01 PM
'Last Updated: 02-Feb-2007 12:51:55 AM
'Created By : Peter Wayne
'Updated By : Digitaled
FUNCTION add_alert AS V (customer_ID AS C )
dim global user as c
dim customer as c
dim alert_text as c
dim varC_result as c

customer=table.external_record_content_get("customer",\
"customer_ID+space(3)+trim(last_name)+','+first_name","account",quote(account)+"=account")
varC_result=ui_dlg_box("Add Alert",<<%dlg%
{text=80customer};
Enter alert text:;
[%mw%.60,5alert_text];
{line=1,0};
<*10OK> <10Cancel>;
%dlg%)
if varC_result="OK" then
alerts=table.open("alerts",file_rw_shared)
alerts.enter_begin()
alerts.customer_ID=customer_ID
alerts.enter_end()
alerts.close()
end if

END FUNCTION

-----------------------------

On a button on the customer form called Set Alert i have onpush
-----------------
'Date Created: 02-Feb-2007 12:50:03 AM
'Last Updated: 02-Feb-2007 12:50:03 AM
'Created By : Digitaled
'Updated By : Digitaled
FUNCTION edit_alert AS V (customer_ID AS C )
dim global user as c
dim customer as c
dim alert_text as c
dim varC_result as c

customer=table.external_record_content_get("customer",\
"customer_ID+space(3)+trim(last_name)+','+first_name","customer_ID",quote(customer_ID)+"=customer_ID")
alerts=table.open("alerts",file_rw_shared)
query.filter="customer_ID="+quote(customer_ID)
query.order=""
query.options=""
alerts.query_create()

varC_result=ui_dlg_box("Edit Alert",<<%dlg%
{text=80customer};
Edit alert text:;
[%mw%.60,5alert_text];
{line=1,0};
<10OK> <*10Cancel>;
%dlg%)
if varC_result="OK" then
alerts.change_begin()
alerts.customer_ID=customer_ID
alerts.change_end()
end if
alerts.close()
END FUNCTION
--------------------------------------

Using this the pop up alert is not working and the Set Alert button will do nothing?