Dan
Wed Aug 24 13:43:40 CDT 2005
The best reference to VFP is the Hacker's Guide, which hasn't been updated
since VFP7. It's available from www.hentzenwerke.com, as are a number of
other high-quality books about VFP.
You can fill in the bits added to VFP from the "What's new in..." titles for
VFP8 and VFP9, again from Hentzenwerke.
Dan
Tom wrote:
> Cindy, i got your first post and tweaked it like your last before you
> posted, its worked great.
>
> i cannot thank you enough for your help. do you know of a Good
> reference book i could get to give me a highly detailed reference to
> VFP?
>
> i like this forum, but feel stupid asking basic questions all the
> time when i feel i need someone to walk me through it, rather than
> give the answer.
>
>
> "Cindy Winegarden" wrote:
>
>> Hi Tom,
>>
>> (Sorry for previous messages. OE is being flaky.)
>>
>> See if this does what you want:
>>
>>
>> Close Data
>> Create Cursor qdrotest ;
>> (agency N (6), dpt N(2), employee N (6), ;
>> lchkamt N(10,2), ldate d, fretchk n(10,2), fdte d)
>> Use F:\foxpro25\lopfi\dbases\fulopmas In 0 ;
>> Shared Alias fulopmas Order Key
>> Use F:\lopfi\dbases\lopchk In 0 ;
>> Shared Alias lopchk Order EmpInd
>>
>> Select fulopmas
>> Scan For fulopmas.qdro = "Q"
>> fkey= ;
>> PADL(fulopmas.agency,6,"0")+ ;
>> PADL(fulopmas.dpt,3,"0")+ ;
>> PADL(fulopmas.employee,6,"0")
>> lkey = ;
>> (PADL(lopchk.agency,6,"0")+PADL(lopchk.dpt,3,"0")+ ;
>> PADL(lopchk.employee,6,"0")+ ;
>> Left(DtoS(lopchk.checkdte), 6)
>> *-- Check out DtoS() in Help
>>
>> If Seek (fKey, "lopChk", "empind") ;
>> And lopChk.CheckAmt > 0
>> Insert Into qdrotest ;
>> (agency, dpt, employee, fretchk, ;
>> fdte, lchkamt, ldate) ;
>> Values ;
>> (fulopmas.agency, fulopmas.dpt, fulopmas.employee, ;
>> fulopmas.retchkamt, fulopmas.dtlstchk, ;
>> lopchk.checkamt, lopchk.checkdte)
>> EndIf
>> EndScan
>>
>>
>> --
>> Cindy Winegarden MCSD, Microsoft Visual FoxPro MVP
>> cindy_winegarden@msn.com www.cindywinegarden.com
>> Blog:
http://spaces.msn.com/members/cindywinegarden
>>
>>
>> "Tom" <Tom@discussions.microsoft.com> wrote in message
>> news:C8E047DA-3583-4B34-BAF9-929E6A022675@microsoft.com...
>>> i know im still a rookie, and im getting better. my code is not
>>> linking the 2
>>> records in order to replace the correct data from file 2 (lopchk),
>>> it must be
>>> simple cause i cant seem to get it.
>>>
>>> Close Data
>>> Create Cursor qdrotest (agency N (6), dpt N(2), employee N (6),
>>> lchkamt n (10,2), ldate d, fretchk n(10,2), fdte d)
>>> Select 0
>>> Use F:\foxpro25\lopfi\dbases\fulopmas In 0 Shared Alias fulopmas
>>> set order to key
>>> SET FILTER TO fulopmas.qdro = "Q"
>>> Select 0
>>> Use F:\lopfi\dbases\lopchk In 0 Shared Alias lopchk
>>> set order to empind
>>> SELECT fulopmas
>>> GO top
>>> Scan
>>> fkey=
>>>
PADL(fulopmas.agency,6,"0")+PADL(fulopmas.dpt,3,"0")+PADL(fulopmas.employee,
6,"0")
>>> Select lopchk
>>> lkey =
>>>
(PADL(lopchk.agency,6,"0")+PADL(lopchk.dpt,3,"0")+PADL(lopchk.employee,6,"0"
)+STR(YEAR(lopchk.checkdte),4,0)+STR(MONTH(lopchk.checkdte),2,0))
>>> If Seek (lkey)
>>> if lopchk.checkamt > 0.00
>>> select qdrotest
>>> append blank
>>> replace agency with fulopmas.agency,dpt with
>>> fulopmas.dpt,employee with fulopmas.employee,fretchk with
>>> fulopmas.retchkamt,fdte with fulopmas.dtlstchk
>>> replace lchkamt with lopchk.checkamt, ldate with
>>> lopchk.checkdte Endif
>>> skip
>>> Select fulopmas
>>> endif
>>> Endscan