:Report.delete()

[reynolditpi]

I have a button that when fired deletes a selected report using the :Report.delete() method.

When fired, a5v8 displays a confirmation message (attached). The title bar of the message says "Alpha Five 8.0".

Is there a way to change "Alpha Five 8.0" to text of my choosing?
Thanks again
Tony

[MikeC]

Re: :Report.delete()

Tony,

Like many such Alpha messages it cannot be modified as the xbasic behind it cannot be had....

But like every one of these, so far, that I have run across, there is a way to write your own script with your own message.

You could use layout_delete("YourReportName","Report"). Preface it with your own message, etc. Not as easy as just changing a setting but not hard either.

[reynolditpi]

Re: :Report.delete()

Perfect Mike!

When you say preface it with my own message, do you mean to use something like a message box and have this code fire from the OK button?

Thanks again.
Tony

[reynolditpi]

Re: :Report.delete()

Mike,
Scratch that last question. I got it.

Thanks for your help!
T

[MikeC]

Re: :Report.delete()

Exactly! You could have the OnPush of a button say bring up a ui_msg_box.

  result = ui_msg_box("Delete Record","Are you sure you want to delete this record?",UI_YES_NO)
if result = UI_NO_SELECTED then
   cancel()
 else
   dim t as p
   t=table.current()
   t.delete()
end if

Something like this--so many variations that are possible. I sometimes put a ui_msg_box on the CanArrive to give a choice whether to continue with whatever say to delete or change a record or...?


EDIT: too late to scratch it!!! :)

[reynolditpi]

Re: :Report.delete()

Mike,
Thats why i love this forum!!! I learn new concepts and such every time i log onto it. And everybody is so funny:)

T

[Mike Wilson]

Re: :Report.delete()

Get a bit fancier and select the report from a list. BUT no matter what you do, if you use :Report.delete(), that message will show up, unstoppable, unchangeable.

'Create an XDialog displaying all reports.
	DIM SHARED vRepL as C
	DIM SHARED varC_result as C
	dim vLenum as N
	auto_list_vRepL = a5.report_enum(2)
	vLenum = w_count(auto_list_vRepL,crlf()) +1
	
	
	DELETE a_vRepL
	DIM a_vRepL[vLenum] as c
	a_vRepL.initialize(auto_list_vRepL)
	
	z1 = <<%dg1%
	{region}
	Type prompt here:| [.40,%dg1%
	
	z3 = <<%dg3%
	vRepL^#a_vRepL];
	{endregion};
	{line=1,0};
	{region}
	<*15OK!OK> <15Cancel!CANCEL>
	{endregion};
	%dg3%
	
	vdlgF = z1+ ("" + vLenum) + z3
	vresult = ui_dlg_box("reports",vdlgF)
	
	select
	    case vresult = "OK"
	    	goto onward
	    case vresult = "Cancel"
	    	end
	end select

onward:
'display warning prompt
	dim vWarn as C
	dim vtitle as C
	dim vmess as C
	
	vtitle = "REPORT DELETE WARNING"
	vmess = "You are about to delete report  " +vRepL+ ".  Continue? " 
	vWarn=ui_msg_box(vtitle,vmess,UI_OK_CANCEL+ UI_FIRST_BUTTON_DEFAULT+ UI_INFORMATION_SYMBOL)
	'Test to see which button on the message box was pressed....
	
	SELECT
		CASE vWarn = "1"
			:report.delete(vRepL)
			msgbox(vWarn,vRepL + "  has been deleted")
		CASE vWarn = "2"
			end
	END SELECT

Later:
Code edited.

[MikeC]

Re: :Report.delete()

Thanks for that Mike! Copied and placed in my own help file for future reference! :) Why write script from scratch when this messageboard has already done it (thanks to generous people)!!!!

[Mike Wilson]

Re: :Report.delete()

Mike,
cut and paste again, there was a mistake in the code....I edited it to correct it.

[reynolditpi]

Re: :Report.delete()

Thanks again everybody. I had something that accomplished the same goal but was designed much different. It actually evolved into this.

I have a 3 tab tabbed object. on page one a have a list box populated by reports from selected tables. The list box is also based off a variable.

On page two i have another list box which lists letters. It is based off of the same variable but populated using letters from select tables.

Page 3 of the tabbed object, some ole thing but with labels. Once again all three lists show different information but are off of the same variable

I have a second variable that gets set to report, letter, or label, depending on what tab your on. It gets set accordingly when you move from tab to tab.

Therefore, when you click an item (report name, label name, letter name) from any of the three list a variable gets set to that it name. When you navigated to the tab the list was on a variable gets set to that name. Therefore your have the layout type and the layout name set to variables. I can plug them into any function/method to duplicate, edit, delete, etc.

Probably the hard way to do things...but it works.
T