--
You received this message because you are subscribed to the Google Groups "GoFish" group.
To unsubscribe from this group and stop receiving emails from it, send an email to foxprogofish...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
To unsubscribe from this group and stop receiving emails from it, send an email to foxprogofish+unsubscribe@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
GoFish_results.scx method FillSearchResultsCursor
*TODO: The orderby clause here could fail since some field names were changed
* in relase 4.3.015. Need to handle this...
*Make a cursor with a proccode that can be ordered, because memo fields cannot.
*!* Select * From (Select * From (lcSearchEngineResultsAlias) Order By &lcOrderBy) source ;
*!* Into Cursor gf_temp_csr ReadWrite
lnFields = AFIELDS(laFields,m.lcSearchEngineResultsAlias)
lcFields=laFields[1,1]
FOR lnI = 2 TO lnFields
m.lcFields = m.lcFields + ","+ALLTRIM(laFields[m.lnI,1])
ENDFOR
m.lcFields =STRTRAN(m.lcFields,",PROCCODE","")
m.lcFields1 = "left(proccode,254) as proccode,"+m.lcFields+",proccode as longproccode"
m.lcFields2 = m.lcFields+",longproccode as proccode"
SELECT &lcFields1 FROM(m.lcSearchEngineResultsAlias) INTO CURSOR (m.lcSearchEngineResultsAlias)readwrite
SELECT &lcFields2 From (Select * From(m.lcSearchEngineResultsAlias) Order By &lcOrderBy) source ;
Into Cursor gf_temp_csrReadWrite
--
*Make a cursor with a proccode that can be ordered.
*!* Select * From (Select * From (lcSearchEngineResultsAlias) Order By &lcOrderBy) source ;
*!* Into Cursor gf_temp_csr ReadWrite
lnFields = AFIELDS(laFields,m.lcSearchEngineResultsAlias)
lcFields=laFields[1,1]
FOR lnI = 2 TO lnFields
m.lcFields = m.lcFields + ","+ALLTRIM(laFields[m.lnI,1])
ENDFOR
m.lcFields =STRTRAN(m.lcFields,",PROCCODE","")
m.lcFields = STRTRAN(m.lcFields,",LONGPROCCODE","")
m.lcFields1 = m.lcFields+",left(proccode,254) as proccode,proccode as longproccode"
m.lcFields2 = m.lcFields+",longproccode as proccode"
SELECT &lcFields1 FROM(m.lcSearchEngineResultsAlias) INTO CURSOR (m.lcSearchEngineResultsAlias)readwrite
SELECT &lcFields2 From (Select * From(m.lcSearchEngineResultsAlias) Order By &lcOrderBy) source ;
Into Cursor gf_temp_csrReadWrite
To unsubscribe from this group and stop receiving emails from it, send an email to foxprogofish+unsubscribe@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.
--
You received this message because you are subscribed to the Google Groups "GoFish" group.
To unsubscribe from this group and stop receiving emails from it, send an email to foxprogofish+unsubscribe@googlegroups.com.
PROCCODE ASC, PROCESS ASC, TRIMMEDMATCHLINE ASC, filename, class, name, methodname, MatchStart
I know from Mike’s comments that the issue is PROCCODE, but I don’t know why it’s suddenly there.
Just implemented Mike's solution and it fixed my problem. Someone should apply it to the main source.One minor bug in Mike's stuff. In the very last line, there's a space missing between the cursor name and READWRITE.Tamar
--
You received this message because you are subscribed to the Google Groups "GoFish" group.
To unsubscribe from this group and stop receiving emails from it, send an email to foxprogofish...@googlegroups.com.
For more options, visit https://groups.google.com/d/optout.