Hello All,

Is there any easy (should read lazy) way of quickly sorting an AMV displayed on screen (or held in an @record group).

e.g.

I have a stock transaction list that displays on the bottom half of a window. You can scroll up and down it and it is sorted in date order. If the end user then wants to view the display by transaction type or by sell price etc., is there any easy way to sort the AMV? I know you can use locate by and insert to re-sort but it is a lot of boring code for every different type of sort.

Just trying to add Windows functionality in a DOS product…

TIA

Claude

Claude ..

I'm afraid that it's boring code. You can encapsulate it in a subroutine and display it in a popup, but you'll have to prompt for the column(s) to sort on, do the sort and then display it. Make sure that you sort any AMV's that are not on the screen (if there are any).

Don Miller

C3 Inc.

I've looked through my Arev documentation and couldn't find any really good examples of "boring code," so if you need some, here's a snippet:

SUBROUTINE BORING_CODE

*

DECLARE SUBROUTINE MSG; FSMSG()

*

OPEN "KEYLESS_DRILL_CHUCK" TO DRILL_CHUCK ELSE FSMSG() ; STOP

OPEN "DRILL_BIT_CASE" TO DRILL_BIT_CASE ELSE FSMSG() ; STOP

REMOVE BIT FROM DRILL_BIT_CASE AT 3/32" SETTING EMPTY

ELEC_OUTLET=110/120 AC"

WOODBLOCK=(2*4)

PLUG=+-"

BOREHOLE="

DRILL_READY=INSERT(DRILL_CHUCK,1,0,0,BIT)

PLUGGED_IN=INSERT(ELEC_OUTLET,1,0,0,PLUG)

BORING=DELETE(WOODBLOCK,1,0,0,BOREHOLE)

DONE=1

RETURN

Hope this helps.

Bill

ROFL

Check out the use of V119 if you haven't already done so.

I uploaded the source to my AMV_SORT subroutine I wrote ages ago. You just send it an @FM delimited array of the values you want sorted, Ascending or Descending sort, Justification, Remove duplicates, remove null. Example:

date1:@vm:date2:@vm:date3:@fm:amount1:@vm:amount2:@vm:amount3:@fm:account1:@vm:account2:@vm:account3

and it will sort by date keeping the relationships. If you tell it to remove null/invalid if any of the dates are null it will remove all the associated values (e.g. date1=', deletes amount1 & account1)

All you need do is pass the proper parameters to AMV_SORT, parse them back into @RECORD or IS or whatever and tickle the appropriate window actions.

I uploaded these to:

idrive.com

The file in question is AMV_SORT.ZIP (RBasic source code). You'll find my Index_Rebuilder (rebuild.zip), Clean_account (cleanacc.zip) and EXPORT.DB3 (exportfp.zip) that has been modified to export to FoxPro 2.5 files which have far less limitations than DB3 files. Foxpro 2.5 files are fully compatible with Excel and Microsoft's ODBC v3.0 and above. Note the last three zip files contain REVMEDIA and REVxxxxx files and they should not be unzipped or copied into a directory with existing ARev files.

This is a shared folder so you can upload as well as download. I haven't figured out how to add comments to the file info. Until such time it would probably be best to updload a corresponding .txt file will a brief description of the file (e.g. myfile.zip + myfile.txt).

Oops! Forgot the brackets:

Revstuff on idrive.com

Thanks Warren,

I've downloaded and will now try it out

Claude

Best bit of code I've seen in a long time - I think I'll see if I can application for it

Claude

]] I uploaded the source to my AMV_SORT subroutine I wrote ages ago

I've always wondered who wrote the subroutine. I had downloaded this routine among others "ages ago" and it has been one of the most effective subroutines I've had an opportunity to use. Thanks for for the subroutine. It has always worked great.

Can't seem to get to your utilities, Warren. Have tried numerous permutations of without success. Could you repost the link? Thanks.

Bill

It looks like idrive is still screwing around with the server when it does work it is also case-sensitive. Leave an e-mail address or contact me at [email protected] and I'll e-mail you a copy.

Thanks, I'm not sure which version you have as I updated it at some point to add the dup and invalid delete option. I had lost the source code for that version, although it was on CompuServe. I recreated the changes but Bryan deSilva and Gerrold Johnson later sent me a copy of the updated version.

There may be code differences between that version (which should have been on CompuServe) and the one available on idrive but functionally they should be the same.

Note: it seems that idrive is making some changes to their software and the shared function is disabled. I have no idea when it will be fully functional again

View this thread on the forum...