Recent content by AndrewCoates

FYI You may be aware that Employment Programs Australia and Civil Solutions announced that OzFox delegates gaining their VFP MCP certification before 31 December this year are eligible for a $100 bounty from Employment Programs Australia and a 50% rebate on the cost of the Hentzenwerke book VFP...

Well, it will solve the problem for those that it understands and will allow you to raise an automatic flag (based on the blank postcode) for manual review of those that it doesn't. I was very pleasantly surprised to discover that Outlook exposed this powerful engine. Note that it also works...

One way to find out ... <g> Andrew Coates http://www.civilsolutions.com.au/ OzFox 2003 Australia's VFP Conference -- http://www.ozfox.com.au/ ------ DISCLOSURE We are the Australasian Distributor for the Hentzenwerke Series of Books. (By the same token, I really do think they're the best...

If you've got Outlook on the machine on which you're doing the parsing then you can use the (rather good in my experience) parser that Outlook itself uses. I wrote this up in FoxTalk a couple of years ago and you and get the article from their site, or from mine...

One small modification -- you may want to specify the length of the qty field like this: select code, descr, iif(qty < 10, 0000000000, qty) as qty, ; padr(iif(qty < 10, 'WARNING', 'OK), 7) as msg ; from table1 ; into table table2 In case the first row does have a qty < 10 This means...

select code, descr, iif(qty < 10, 0, qty) as qty, ; padr(iif(qty < 10, 'WARNING', 'OK), 7) as msg ; from table1 ; into cursor interim sele 0 use table2 append from (dbf('interim')) use in interim If you want to create table2 each time, you can just use: select code, descr, iif(qty < 10...

Here's some code off the top of my head to do this: #DEFINE CR chr(13) + chr(10) clos data all use client set order to clientno && index expr = clientno select 0 use cars set order to clientnocarno && indexexpr = str(clientno) + str(carno) set relation to clientno into client local lcXML...

What is the rowsource and rowsourcetype of your list box? Andrew Coates http://www.civilsolutions.com.au/ OzFox 2003 Australia's VFP Conference -- http://www.ozfox.com.au/ ------ DISCLOSURE We are the Australasian Distributor for the Hentzenwerke Series of Books. (By the same token, I really do...

- Type the following in the command window: create classlib myclasslib create class - Type a name for your new class (e.g. MyGrid) - Choose Grid from the drop-down - Choose your new classlib (MyClassLib) as the class library - Click OK (I think -- I have't got VFP 5 loaded anywhere at the...

If you're running VFP8.0, this is very straightforward. Set the grid's HighlightStyle property to 1 or 2. 1 removes the highlight when the grid loses focus. 2 Leaves the highlight there. If you're using VFP < 8, then you can add the following to a grid subclass: New Property: nRecordNumber...

One option is to enable the SMTP service on the local W2K server and only allow it to receive connections from 127.0.0.1 (the local machine). This will get around the problem. You can then use 127.0.0.1 as the SMTP server in the code above. Cheers, Andrew Andrew Coates...

Oops -- I left out the seat type (which doesn't appear in your sample data. You could use: index on seat_type + section + padl(alltrim(row_name), 3, '[') + padl(tran(seat), 3, '0') tag SeatOrder additive Note that it's not a good idea to call the type column &quot;Type&quot; or the row column...

How about: index on section + padl(alltrim(row), 3, '[') + padl(tran(seat), 3, '0') tag SeatOrder additive This assumes that seat is an integer -- you'll have to adjust the code a bit if that's not the case. Putting the '[' in the row sorts the single letters last, the double letters...

If you're using VFP8 then you can display an animated GIF using the native image control. Cheers, Andrew Andrew Coates http://www.civilsolutions.com.au/ OzFox 2003 Australia's VFP Conference -- http://www.ozfox.com.au/ ------ DISCLOSURE We are the Australasian Distributor for the Hentzenwerke...

Ah yes, I should also mention that you can fcreate() a file and then use ftime() to get the creation time lcFileName = &quot;\\civilserver\word_doc\&quot; + sys(2015) + &quot;.tmp&quot; strtofile('',lcFileName) if file(lcFileName) ltServerTime = ftime(lcFileName) erase(lcFileName) else...