lcSetZoneCsr = thisform.cSetZoneCsr SELECT DISTINCT RZStop.number as Num, Allzones.ZONE, Allzones.desc as Zone_Desc, ; NVL( Stop.stop_no, SPACE(8)) as Stop, NVL( Stop.name, "") as Stop_Desc, ; RZStop.County as CountyCode, .F. as Flag, Time ; FROM mclmpser!RZStop ; LEFT OUTER JOIN mclmpStop!Stop ; ON ALLTRIM( RZStop.stop) == ALLTRIM( Stop.stop_no) ; LEFT OUTER JOIN mclMPFac!AllZones ; ON RZStop.ZONE == Allzones.ZONE</b><pre> ; WHERE ALLTRIM( RZStop.rte_no) == ALLTRIM( tcRoute) ; and ALLTRIM( RZStop.rte_let) == ALLTRIM( tcGen) ; and ALLTRIM( RZStop.directn) == ALLTRIM( tcDirectn) ; And RZStop.SeqNo == 1 ; INTO CURSOR ( lcSetZoneCsr) READWRITE; ORDER BY 1and then
Select ( lcSetZoneCsr) Locate SCAN lcSeekKey = thisform.cRoute + thisform.cGen + thisform.cDirectn ; + "1 " + STR( ZONE, 4) If SEEK( lcSeekKey, "RZSTOP", "RGDSZ") lcFlag = RIGHT( RZSTOP.FLAGS, 1) Endif Replace FLAG with IIF( lcFlag = "E", .T., .F.) && in the cursor ENDSCANI can see how ZONE may be misinterpreted - there IS a ZONE 132 in ALLZONES, but, as you can see, I AM IN and scanning lcSetZoneCsr, so I would have assumed FP would interpret this as a priority.
#DEFINE ZONE 132
in your code?>>lcSeekKey = thisform.cRoute + thisform.cGen + thisform.cDirectn + "1 " + STR( ZONE, 4) >>>>where thisform.cRoute = "1 "