Hi,

Sorry for the all the confusion.  I sat down with my senior programmer and
finally got the bottom of the confusion.

It is actually two separate issues that I confused as one due to my lack of
Clipper knowledge.

Difference 1)  ordsetfocus() if it cannot find a key you are looking for..
for instance if you run (with a typo) the ordsetfocus("isbnM") (notice the M
typo) twice, when I really was looking for "isbn"... it will return a blank
C string "" the 2nd time, because it cannot find "isbnM".  Clipper instead
does not switch it to "", but retains the previously working key.

Difference 2)  sx_indexname returned CAPS all the time in Clipper.  Also,
with a few more differences.  This is the workaround my senior has created
to deal with this.

***************************
FUNC BM_INDEXNAME(x,lNoPath) // SIMULATES THE SX_INDEXNAME() BUT STRIPS THE
PATH
  // Harbour SX_Indexname() was not compat with SIX
  // Harbour does not covert to uppercase
  // Harbour return NIL instead of "" when no index is found
  LOCAL CDXNAME:=SX_INDEXNAME(X)
  LOCAL NPOS:=RAT("\",CDXNAME)
  If ValType(CDXName)="C"
    CDXName:=Upper(CDXName)
  Endif
  IF Valtype(lNoPath)="L".and.lNoPath .and. NPOS>0
    CDXNAME:=SUBSTR(CDXNAME,NPOS+1)
  ENDIF
RETURN CDXNAME

**********************

I think this will clear up the confusion earlier.  I'm sorry for that. :(
But basically with these two things we are having to do, we are finding a
lot of our .PRGs need to be changed.  If this now makes sense, could you
recommend some steps for us to take?



2010/2/5 Przemysław Czerpak <dru...@acn.waw.pl>

> On Fri, 05 Feb 2010, smu johnson wrote:
>
> Hi,
>
> > Well in the Clipper 5.2e w/ Six3 to Harbour migration, we are finding a
> ton
> > of RTE problems because OrdSetFocus() calls and such are failing because
> > this function seems to be case sensitive in Harbour.  We haven't had any
> of
> > these problems in our Clipper stuff.
>
> None of Harbour core RDDs uses cases sensitive tag names so above
> conclusion is false.
> Maybe you had some problems but they were not related to case sensitive
> tag or bag names.
>
>
> > Sorry for not providing enough information earlier, I am not sure exactly
> > what to provide.  The senior programmer who wrote all this stuff simply
> told
> > me to "go through our code and change all TAG ___'s and OF ___'s to
> > uppercase so that we don't get any more lowercase / uppercase setordfocus
> > RTE problems."
>
> So you made sth absolutely unnecessary and the real problem still exist
> somewhere and you do not know where and what it is.
> BTW there is small undocumented difference in tag selection between
> ordSetFocus() and sx_setTag() but it's not bound with case sensitive
> indexes. You can see the difference in /src/rdd/hbsix/sxcompat.prg.
> In short words: sx_setTag() accepts bug numbers and when bug is specified
> as number or character then tag number is relative to this bug.
> in ordSetFocus() when tag number is set the bug is ignored.
>
> > Hope this is of some value to you.   As far as me talking about
> sx_killtag,
> > I only brought that up because when I was going through the .PRGs I found
> a
> > lot of names that were used in my previous changes that my senior
> requested
> > me to do, and started to become afraid that I was going to make a huge
> > mistake... Hence I decided to ask the walking encyclopedia of Six3
> > knowledge.  :)
> > Let me know how I can best help you, if this isn't enough information.
>
> Locate the real reason of problem. For sure in Harbour core RDDs tag
> selection is not case sensitive and I haven't heard about any problems
> reported by user that it's not.
>
> best regards,
> Przemek
> _______________________________________________
> Harbour mailing list (attachment size limit: 40KB)
> Harbour@harbour-project.org
> http://lists.harbour-project.org/mailman/listinfo/harbour
>



-- 
smu johnson <smujohn...@gmail.com>
_______________________________________________
Harbour mailing list (attachment size limit: 40KB)
Harbour@harbour-project.org
http://lists.harbour-project.org/mailman/listinfo/harbour

Reply via email to