*==================================================================== * SW: Fills an array with all Fields for the cursor typed in. * Returns the number of Fields. The cursor has to be open to work *==================================================================== Procedure CP_Tables Lparameters toISX LOCAL lnCount, lcName, TblWasUsed, OldSelect lcName = JustStem(toISX.cEntity) * *** begin if ; !Used(m.lcName) .and. ; Occurs(".",toISX.cEntity)==0 .and. ; !upper(toISX.cEntity) == "M" .and. ; File(fullPath(toISX.cEntity + ".dbf")) = .t. OldSelect = select() sele 0 use (toISX.cEntity) TblWasUsed = .f. else TblWasUsed = .t. endif * *** end If Occurs(".",toISX.cEntity)==0 AND USED(m.lcName) toISX.nCount = FCOUNT(m.lcName) DIMENSION toISX.aList[toISX.nCount] FOR m.lnCount = 1 TO toISX.nCount toISX.aList[m.lnCount] = PROPER(FIELD(m.lnCount, m.lcName)) NEXT ENDIF * *** begin if TblWasUsed = .f. use in (m.lcName) sele (OldSelect) endif * *** end EndProcI still would like to know, if it is possible to get the properties and methods/events from objects in there.
>* *** starting at line 474 >*==================================================================== >* SW: Fills an array with all Fields for the cursor typed in. >* Returns the number of Fields. The cursor has to be open to work >*==================================================================== >Procedure CP_Tables >Lparameters toISX > LOCAL lnCount, lcName, TblWasUsed, OldSelect > lcName = JustStem(toISX.cEntity) > > * *** begin > if ; > !Used(m.lcName) .and. ; > Occurs(".",toISX.cEntity)==0 .and. ; > !upper(toISX.cEntity) == "M" .and. ; > File(toISX.cEntity) = .t. > OldSelect = select() > sele 0 > use (toISX.cEntity) > TblWasUsed = .f. > else > TblWasUsed = .t. > endif > * *** end > > If Occurs(".",toISX.cEntity)==0 AND USED(m.lcName) > toISX.nCount = FCOUNT(m.lcName) > DIMENSION toISX.aList[toISX.nCount] > FOR m.lnCount = 1 TO toISX.nCount > toISX.aList[m.lnCount] = PROPER(FIELD(m.lnCount, m.lcName)) > NEXT > ENDIF > > * *** begin > if TblWasUsed = .f. > use in (m.lcName) > sele (OldSelect) > endif > * *** end >EndProc >>- I saw that there is a reference to Objects and wonder if ISX is picking up properties/methods from objects? If it is, they will not come up on my computer.