CheckPropertiesOfAllObjects Method
Class: _DBC_Check
Expand/Collapse source code of procedure CheckPropertiesOfAllObjects Source Code
      LPARAMETERS lcAlias,loInfo
      * lcAlias    - Alias of opened DBC
      * loInfo - Info object


      LOCAL lii,liCount,liy
      LOCAL ARRAY laProp(1)

      liy=0
      SELECT (lcAlias)
      SCAN FOR !DELETED() AND OBJECTNAME#PADR("TransactionLog",128) AND ;
               OBJECTNAME#PADR("StoredProceduresSource",128) AND ;
               OBJECTNAME#PADR("StoredProceduresObject",128)

           liCount=This.CheckProperties(lcAlias,OBJECTID,@laProp) && Check Property's value

           FOR lii=1 TO liCount
               IF laProp(lii,4)#_DBC_Check_OK
                  liy=liy+1
                  DIMENSION loInfo.aInvalidProperties(liy)
                  loInfo.aInvalidProperties(liy)=CREATEOBJECT("_DBC_CheckInfo_InvalidProperties")
                  loInfo.aInvalidProperties(liy).ObjectID=OBJECTID
                  ACOPY(laProp,loInfo.aInvalidProperties(liy).aInvalidProperties)
                  loInfo.aInvalidProperties(liy).iInvalidProperties=liCount
                  EXIT
               ENDIF
           NEXT

      ENDSCAN
      loInfo.iInvalidProperties=liy