Recent content by rob444

I also started with Dbase II in the 80's and used Dbase III and Foxbase 1 and 2 and quickly found that nothing was faster than Foxbase, continued with foxbase 2.5 and 2.6 and the windows versions but at the time I was not charmed by Windows at all so I didn't use that as much but with VFP 3 and...

To know what exactly is wrong with the dbf's try this: How to read a DBF Header and get info about it by rob444 faq184-3162 Posted: 12 Feb 03 (Edited 6 Apr 05) How to use lowlevel functions to read dbf-headers and how to get some info from the header. Updated with Codepage info, the new VFP 8...

Thank you Olaf! Useful to know. Problems with the command window are not common knowledge. I'm a foxpro programmer since the very early days (foxpro 1.1) and I'm still using VFP(9) for programming because there is nothing like it!

Mike, the MOVE WINDOW "command" TO 1,1 command did it!!! I could then change the size of the command window (it was far too large) and then it appeared in full! Thank you again!

Thank you Mike, I'll try them both and let you know! And yes, I'm still able to enter commands.

Hi guys, I'm having difficulties with the command window. It seems to be outside the VFP9 window even when it's full screen. And I cann't move the command window around. The x for closing the window is not on the screen. How do I get the command window in it's proper dimensions and movable...

Save the field name to a variable: lcfieldname = field(count) To get the value of that field: lxfieldvalue = &lcfieldname Then you can determine what kind of value the field has as in character or numeric.

Perhaps you should have a look at thislink for SoftwarePassport Armadillo which can be very useful.

And I would use Isdigit(SUBSTR(lcMatricule,i,1)) to replace BETWEEN(ASC(SUBSTR(lcMatricule,i,1)),48, 57)

*!* Computing Luhn digit liSumDigits = 0 For i = 1 TO LEN(lcInvMatricule) liDigit = INT(Val(Substr(lcInvMatricule, i, 1))) If Mod(i, 2) = 1 liDigit = IIF(liDigit * 2 > 9, (liDigit * 2) - 9, liDigit * 2) Endif liSumDigits = liSumDigits + liDigit ENDFOR liLuhnDigit = (10 -...

Well Mark, glad you got so much clues so that you could write the function yourself and didn't really needed my "input" ! Rob.

I've been checking the assumed VFP Luhn algorithm code. Its a (bad) mix of basic and Foxpro code. So I've adapted the code to correct and working VFP code. Enjoy! Rob. CLEAR * some testing for the Luhn functions... ? IsLuhnChecksumOK("0000000000000000") ? IsLuhnChecksumOK("49927398716") ...

Here are the functions for the Verhoef algorithm... rob6523. ********************************** * the Verhoeff functions * * rob6523 from the Netherlands * ********************************** * Main program Public array gaD[10,10], gaP[8,10], gaINV[10], ReversedArray[10] do...

Have a look at seconds() (or sys(2)) It returns the seconds since midnight. To have it in hours: ? seconds()/3600 Combining this with date() calculation you can calculate with it. Rob.

Hi Terry, have a look at thread184-1175815 Rob.