Call me dumb but now have a problem

I know I should not have installed it but I did
I installed the 9 beta on the same machine as my production 8
and now I have problems with exe's created in 8

indexing is not working on dbf's
I have tried issuing reindex in a routine and
the indexing functions of 8 are lost

I receive no errors but the dbf is not being indexed
as it should be when sending reports to a printer

when sending to preview it works but not sending to
printer

Help

I have uninstalled the beta but the problem still
persists

what can I do?

here is the very simple code
which was working prior to install of 9 beta

but is not now in 8

SELECT checkhdr
SELECT checkdet

SELECT CHECKDET
SCAN
xfer=SUBSTR(ALLTRIM(INV_DATE),4 ,2)
xfer2=SUBSTR(ALLTRIM(INV_DATE),6 ,2)
xfer3=alltrim(str(INT(VAL(SUBSTR(ALLTRIM(INV_DATE),1 ,3)))+1900))
xfer4=xfer+"/"+xfer2+"/"+xfer3
REPLACE INV_DATE WITH xfer4
endscan
GO top


SELECT CHECKHDR
SCAN
xfer=SUBSTR(ALLTRIM(CHKDATE),4 ,2)
xfer2=SUBSTR(ALLTRIM(CHKDATE),6 ,2)
xfer3=alltrim(str(INT(VAL(SUBSTR(ALLTRIM(CHKDATE),1 ,3)))+1900))
xfer4=xfer+"/"+xfer2+"/"+xfer3
REPLACE CHKDATE WITH xfer4
ENDSCAN


SELECT checkhdr
SET ORDER TO tag check_no
GO top

SCAN
csz = ALLTRIM(checkhdr.city)+ SPACE(1)+ ALLTRIM(checkhdr.state)+ SPACE(1)+
ALLTRIM(checkhdr.zip)
SELECT CHECKDET
SET ORDER TO tag check_no
SET FILTER TO checkdet.CHECK_NO = CHECKHDR.CHECK_NO
GO top
COUNT TO PAGER
IF PAGER <= 13
thisform.lblStatus.Caption = "PRINTING CHECK NUMBER " +
STR(CHECKHDR.CHECK_NO)
REPORT FORM CHECKWRITER\CHECKWRITER3.frx TO PRINTER NOCONSOLE NOEJECT
ELSE
ENDIF

IF PAGER > 13
thisform.lblStatus.Caption = "PRINTING CHECK NUMBER " +
STR(CHECKHDR.CHECK_NO)
csz = ALLTRIM(checkhdr.city)+ SPACE(1)+ ALLTRIM(checkhdr.state)+ SPACE(1)+
ALLTRIM(checkhdr.zip)
REPORT FORM CHECKWRITER\CHECKWRITER4.frx TO PRINTER NOCONSOLE NOEJECT
ELSE
ENDIF
ENDSCAN

Rev
Wed Dec 01 19:34:14 CST 2004

Problem solved
restored to just before vfp9 beta installed
and all is well

Still would like to know why set order to
is ignored

Josh
Wed Dec 01 19:59:13 CST 2004

dunno why you have problems..
I have 6,7,8,9 installed on teh same machine -- no problems.

Most devs i know haove at least 8&9

On Wed, 1 Dec 2004 19:34:14 -0600, "Rev. Mike Kujawa" <sdkngfksdnf> wrote:

>Problem solved
>restored to just before vfp9 beta installed
>and all is well
>
>Still would like to know why set order to
>is ignored
>


---
Remove x's to send.

Paul
Wed Dec 01 20:20:30 CST 2004

"Josh Assing" <xjoshx@jassing.com> wrote in message
news:ogtsq0pnun3trerchit2nkcragt7kj6hfh@4ax.com...
> I have 6,7,8,9 installed on teh same machine -- no problems.

Same here.

Don't install them into the same directory though!

Cindy
Wed Dec 01 21:05:02 CST 2004

Hi Rev. Mike,

You haven't said which file(s) the index is not working on. I don't see an
Index On or a Reindex statement in your code.

While we're at it, have you ever considered using Replace All rather than
the Scan loops? The replace statement will be a little ugly but it should
work, and the table doesn't even need to be selected:

Replace All ;
Inv_Date With ;
SUBSTR(ALLTRIM(INV_DATE),4 ,2) + "/" + ;
SUBSTR(ALLTRIM(INV_DATE),6 ,2) + "/" + ;
alltrim(str(INT(VAL(SUBSTR(ALLTRIM(INV_DATE),1 ,3)))+1900)) ;
In CheckDet

Also, why are you issuing Set Order To Tag CheckNo each time in your Scan
loop? As far as I can tell the order is not changed anywhere else so simply
setting the order once at the top of the Scan loop (or the top of the
program for that matter) would do just fine.

Finally, VFP9 has a new index type - a Binary index. Any chance you included
the Binary keyword in an Index statement?

--
Cindy Winegarden MCSD, Microsoft Visual FoxPro MVP
cindy_winegarden@msn.com www.cindywinegarden.com


"Rev. Mike Kujawa" <sdkngfksdnf> wrote in message
news:%23lOJLx$1EHA.1452@TK2MSFTNGP11.phx.gbl...
> indexing is not working on dbf's
> I have tried issuing reindex in a routine and
> the indexing functions of 8 are lost
>
> I receive no errors but the dbf is not being indexed
> as it should be when sending reports to a printer

> here is the very simple code
> which was working prior to install of 9 beta
>
> but is not now in 8
>
> SELECT checkhdr
> SELECT checkdet
>
> SELECT CHECKDET
> SCAN
> xfer=SUBSTR(ALLTRIM(INV_DATE),4 ,2)
> xfer2=SUBSTR(ALLTRIM(INV_DATE),6 ,2)
> xfer3=alltrim(str(INT(VAL(SUBSTR(ALLTRIM(INV_DATE),1 ,3)))+1900))
> xfer4=xfer+"/"+xfer2+"/"+xfer3
> REPLACE INV_DATE WITH xfer4
> endscan
> GO top
>
>
> SELECT CHECKHDR
> SCAN
> xfer=SUBSTR(ALLTRIM(CHKDATE),4 ,2)
> xfer2=SUBSTR(ALLTRIM(CHKDATE),6 ,2)
> xfer3=alltrim(str(INT(VAL(SUBSTR(ALLTRIM(CHKDATE),1 ,3)))+1900))
> xfer4=xfer+"/"+xfer2+"/"+xfer3
> REPLACE CHKDATE WITH xfer4
> ENDSCAN
>
>
> SELECT checkhdr
> SET ORDER TO tag check_no
> GO top
>
> SCAN
> csz = ALLTRIM(checkhdr.city)+ SPACE(1)+ ALLTRIM(checkhdr.state)+ SPACE(1)+
> ALLTRIM(checkhdr.zip)
> SELECT CHECKDET
> SET ORDER TO tag check_no
> SET FILTER TO checkdet.CHECK_NO = CHECKHDR.CHECK_NO
> GO top
> COUNT TO PAGER
> IF PAGER <= 13
> thisform.lblStatus.Caption = "PRINTING CHECK NUMBER " +
> STR(CHECKHDR.CHECK_NO)
> REPORT FORM CHECKWRITER\CHECKWRITER3.frx TO PRINTER NOCONSOLE NOEJECT
> ELSE
> ENDIF
>
> IF PAGER > 13
> thisform.lblStatus.Caption = "PRINTING CHECK NUMBER " +
> STR(CHECKHDR.CHECK_NO)
> csz = ALLTRIM(checkhdr.city)+ SPACE(1)+ ALLTRIM(checkhdr.state)+ SPACE(1)+
> ALLTRIM(checkhdr.zip)
> REPORT FORM CHECKWRITER\CHECKWRITER4.frx TO PRINTER NOCONSOLE NOEJECT
> ELSE
> ENDIF
> ENDSCAN
>

Rev
Thu Dec 02 07:56:15 CST 2004

Hi Cindy,

I removed some of the set order to's
also removed the reindex commands
as they were not working at all

I normally use a replace all
but for some reason it was not working correct and
replaced the fields with values from other records
this was the only way I could get it to work

I called the set order to in the loop because
checkdet kept losing it's place and I am getting random
times when checkdet are out of sequence without a set
order to

I think it is time for a new machine
it has been getting slower and less reliable

Thanks for the help


"Cindy Winegarden" <cindy_winegarden@msn.com> wrote in message
news:e5BQtwB2EHA.1400@TK2MSFTNGP11.phx.gbl...
> Hi Rev. Mike,
>
> You haven't said which file(s) the index is not working on. I don't see an
> Index On or a Reindex statement in your code.
>
> While we're at it, have you ever considered using Replace All rather than
> the Scan loops? The replace statement will be a little ugly but it should
> work, and the table doesn't even need to be selected:
>
> Replace All ;
> Inv_Date With ;
> SUBSTR(ALLTRIM(INV_DATE),4 ,2) + "/" + ;
> SUBSTR(ALLTRIM(INV_DATE),6 ,2) + "/" + ;
> alltrim(str(INT(VAL(SUBSTR(ALLTRIM(INV_DATE),1 ,3)))+1900)) ;
> In CheckDet
>
> Also, why are you issuing Set Order To Tag CheckNo each time in your Scan
> loop? As far as I can tell the order is not changed anywhere else so
> simply setting the order once at the top of the Scan loop (or the top of
> the program for that matter) would do just fine.
>
> Finally, VFP9 has a new index type - a Binary index. Any chance you
> included the Binary keyword in an Index statement?
>
> --
> Cindy Winegarden MCSD, Microsoft Visual FoxPro MVP
> cindy_winegarden@msn.com www.cindywinegarden.com
>
>
> "Rev. Mike Kujawa" <sdkngfksdnf> wrote in message
> news:%23lOJLx$1EHA.1452@TK2MSFTNGP11.phx.gbl...
>> indexing is not working on dbf's
>> I have tried issuing reindex in a routine and
>> the indexing functions of 8 are lost
>>
>> I receive no errors but the dbf is not being indexed
>> as it should be when sending reports to a printer
>
>> here is the very simple code
>> which was working prior to install of 9 beta
>>
>> but is not now in 8
>>
>> SELECT checkhdr
>> SELECT checkdet
>>
>> SELECT CHECKDET
>> SCAN
>> xfer=SUBSTR(ALLTRIM(INV_DATE),4 ,2)
>> xfer2=SUBSTR(ALLTRIM(INV_DATE),6 ,2)
>> xfer3=alltrim(str(INT(VAL(SUBSTR(ALLTRIM(INV_DATE),1 ,3)))+1900))
>> xfer4=xfer+"/"+xfer2+"/"+xfer3
>> REPLACE INV_DATE WITH xfer4
>> endscan
>> GO top
>>
>>
>> SELECT CHECKHDR
>> SCAN
>> xfer=SUBSTR(ALLTRIM(CHKDATE),4 ,2)
>> xfer2=SUBSTR(ALLTRIM(CHKDATE),6 ,2)
>> xfer3=alltrim(str(INT(VAL(SUBSTR(ALLTRIM(CHKDATE),1 ,3)))+1900))
>> xfer4=xfer+"/"+xfer2+"/"+xfer3
>> REPLACE CHKDATE WITH xfer4
>> ENDSCAN
>>
>>
>> SELECT checkhdr
>> SET ORDER TO tag check_no
>> GO top
>>
>> SCAN
>> csz = ALLTRIM(checkhdr.city)+ SPACE(1)+ ALLTRIM(checkhdr.state)+
>> SPACE(1)+ ALLTRIM(checkhdr.zip)
>> SELECT CHECKDET
>> SET ORDER TO tag check_no
>> SET FILTER TO checkdet.CHECK_NO = CHECKHDR.CHECK_NO
>> GO top
>> COUNT TO PAGER
>> IF PAGER <= 13
>> thisform.lblStatus.Caption = "PRINTING CHECK NUMBER " +
>> STR(CHECKHDR.CHECK_NO)
>> REPORT FORM CHECKWRITER\CHECKWRITER3.frx TO PRINTER NOCONSOLE NOEJECT
>> ELSE
>> ENDIF
>>
>> IF PAGER > 13
>> thisform.lblStatus.Caption = "PRINTING CHECK NUMBER " +
>> STR(CHECKHDR.CHECK_NO)
>> csz = ALLTRIM(checkhdr.city)+ SPACE(1)+ ALLTRIM(checkhdr.state)+
>> SPACE(1)+ ALLTRIM(checkhdr.zip)
>> REPORT FORM CHECKWRITER\CHECKWRITER4.frx TO PRINTER NOCONSOLE NOEJECT
>> ELSE
>> ENDIF
>> ENDSCAN
>>
>
>