Is there an Xbasic command to undelete record

[pk9]

I know there is an xbasic command to .delete_record() and .delete() to delete a record. Is there a way to undelete a paritcular record via xbasic similar to that possible within the Control Panel.
Thanks in advance
Peter

[Stan Mathews]

Re: Is there an Xbasic command to undelete record

There is a way to do that but you have to know the record number since a deleted is not visible and you can't position the record pointer on it otherwise.

Undeletes record #1 of the chld table.

tbl = table.open("chld")
tbl.fetch_goto(1)
fld = tbl.field_get(0)
tbl.change_begin()
fld.value_put("")
tbl.change_end(.t.)
tbl.close()

[csda1]

Re: Is there an Xbasic command to undelete record

Hi Peter,

I know there is an xbasic command to .delete_record() and .delete() to delete a record. Is there a way to undelete a paritcular record via xbasic similar to that possible within the Control Panel.
Thanks in advance
Peter

An old routine I listed in the code archive is here

[pk9]

Re: Is there an Xbasic command to undelete record

Stan/Ira
Thanks again.
Both exceptional methods of doing it.

It begs the question why not in A5?
Peter

[Stan Mathews]

Re: Is there an Xbasic command to undelete record

It begs the question why not in A5?

How would Alpha know what record you wanted to undelete?

[pk9]

Re: Is there an Xbasic command to undelete record

Stan,
Alpha 5 could request user input in a similar manor to your script. In reading it the syntax is not at all intuitive but it works well. I assume the pointer can still point to a deleted record.

[Stan Mathews]

Re: Is there an Xbasic command to undelete record

I assume the pointer can still point to a deleted record.

Only by record number.

[CALocklin]

Re: Is there an Xbasic command to undelete record

It begs the question why not in A5?

There are a LOT, probably hundreds and maybe thousands, of things that A5 could do internally that would be neat to have. But, they probably don't have time to do everything so some things are left up to the individual developers. That's one reason Ira and I have created some addons. (Speaking only for myself, most of my addons were done originally for my own benefit.)

Using the same basic routine that Stan presented - and adding a bunch of improvements - I created an undelete routine that allows me to actually view and delete specific records. I don't use it often but it is handy when I do need it. However, it isn't ready for distribution and it would take some time to get it ready so it is only acceptable for my own use. See a quick demo video of one case were it does work without errors. (I chose that option in the video because one of the other options isn't working correctly in v9 at all. Remember - not debugified yet.)

Another one I always thought would be neat was to have a message box that could show different fonts and backgrounds. So, I created my own ui_msg_box() replacement - see attached screenshots. The only limitation so far is that a singe paragraph cannot exceed 1024 characters.

By the way, neither of these routines took less than "many hours". I don't keep track of the time partly because they usually develop and improve over a period of weeks or months - and maybe a little bit because I don't really want to know how much time they took.

Could Alpha do all this internally? Sure, but do they have the time or is their time better spent on other things?

[csda1]

Re: Is there an Xbasic command to undelete record

There are a LOT, probably hundreds and maybe thousands, of things that A5 could do internally that would be neat to have. But, they probably don't have time to do everything so some things are left up to the individual developers. That's one reason Ira and I have created some addons. (Speaking only for myself, most of my addons were done originally for my own benefit.)

That goes for me as well!

My CSDA Code Utility was started as a restart program to save me hours of restarting A5 while debugging Active X routines. I've made it a general front end to many other utilities that are part of it that aid in my development. When I release my next version it will have some new cool utilities that will include things like a global code search that takes 1 second versus 30 seconds for Alpha's (on my code library which is large) , Better code jump, background database backups during development, and some really cool library packging utilities.

But unfortunately, there is not enough revenue stream to warrant much development for these or similar addons. Yet many or yours and mine have an extremely large return on investment!

Another one I always thought would be neat was to have a message box that could show different fonts and backgrounds. So, I created my own ui_msg_box() replacement - see attached screenshots. The only limitation so far is that a singe paragraph cannot exceed 1024 characters.

I have a similar replacement routine that does what yours does, and adds modeless, timeout, HTML display, sizable, clippable, and other features. The HTML features solves the 1024 limitation and allows pretty much anything.

Bill Partec has a simpler one that he's placed in the code archive.

Can I count my hours in to that one routine? I'd wild eye guess a man week! While Alpha might spend a couple hours on a function's code, we probably spend days or weeks honing one to perfection.

Was it worth it? Probably not, but it makes my life a whole lot easier when coding. Can I sell it? Probably not, as no one would probably pay for it alone.

Could Alpha do all this internally? Sure, but do they have the time or is their time better spent on other things?

I have a workable concept to have a library of compiled routines, that could be extracted amd placed into a user's compiled libary, and thus could make selling a library much more possible. There are so many routines I have, and I'm sure you as well, that would save coders a ton of time, but I don't
think they could be sold in the current A5 market. I hope that might change someday.

[robert]

Re: Is there an Xbasic command to undelete record

Ira, I downloaded your undelete script since I think it would be really handy in those cases where I accidently or without thought delete a record. I'm using V8. How do I incorporate it into Alpha? I also assume that this will only work if you haven't packed the table. Is this true?

[csda1]

Re: Is there an Xbasic command to undelete record

Hi Robert,

Ira, I downloaded your undelete script since I think it would be really handy in those cases where I accidently or without thought delete a record. I'm using V8. How do I incorporate it into Alpha?

You need to execute it in a button, interactive window or similar, placing the appropriate parameters into the function. So the code for a button might be

UndeleteRecords(TableName,"IRF",".t.")

You need to fix the code line

choice=ui_get_expr("Enter Filter Expression","Filter:",dflt)

to this for the F option to work

choice=ui_get_filter("Enter Filter Expression","Filter:",dflt,tabnam)

I also assume that this will only work if you haven't packed the table. Is this true?

Once you packed, your data is gone forever! (Unless you remembered to backup! :) )

[robert]

Re: Is there an Xbasic command to undelete record

I'm absolutely in the dark with regards to implementing what you said.
I can edit the code but I only use the default browse when I'm working in my tables (my preference). Accordingly, how would I insert the code into Alpha so I could execute it whenever I needed to? I looked at the help for interactive windows and scripts etc., but it didn't help.

[robert]

Re: Is there an Xbasic command to undelete record

no one wants to weigh in on this one?

[Stan Mathews]

Re: Is there an Xbasic command to undelete record

Everything in Alpha happens in response to an event. Check the help for Evant and choose a suitable one.

[MikeC]

Re: Is there an Xbasic command to undelete record

robert,
IOW, you have to determine what events/methods are available when using the limitation of just using the default browse...obviously no buttons. How about the top main menu or a right click menu?? Or what you mentioned even in regards to the interactive window--either by placing the script in manually and running it, creating a script/function and running it.....

How would you want it to be??