SELECT DISTINCT RZStop.number as Num, Allzones.ZONE AS TheZone, Allzones.desc as Zone_Desc, ...That should make it unique. You could also do (sort of following Nancy and Frank's suggestion):
x = lcSetZoneCsr + ".Zone"
&x.
Just some ideas.>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 1 >>
>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 >ENDSCAN >>I 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?